السلام عليكم
هذه اللعبة كما طلبها rody (الغائب :غضب: ) :6 ....
مشابهه للشطرنج وهي بين جهازين سواءاً انترنت ام شبكة محلية المهم ان الجهاز الفرعي يضهر امامه رقم الاي بي ثم يقوم الطرف الاخر بكتابته والضغط على انتر .. وهنالك ميزات اخرى (وكلها ما ان تشغل اللعبة حتى تستنتج علمها فطرياً :-) )
- لقد انهيتها من مدة طويله ولم اكملها لانشغالي باعمال اخرى عموماً وعندما وجدتها بالصدفة قلنا ناخذ رأيكم
لا تقلق يارودي اذا أردت تطويرها سأقوم بذلك
اعتذر لأني لم اقم بتسهيل القرائة .... نفس التعقيد السابق موجود فمثلاً هذه الدالة لاكتشاف اماكن الحجر ورسمها
هذا عيب البرمجة (معادلات كثيرة وحسابات لا تنتهيكود:Private Sub Restore_places() If brestore = False Then For I = 0 To 63 Select Case P1(I).Square Case 1: C1.create_circle 255, (300 + (((I - (I \ 8) * 8)) * 600)), 4800 - (300 + ((I \ 8) * 600)) Case 2: C1.create_circle 0, (300 + (((I - (I \ 8) * 8)) * 600)), 4800 - (300 + ((I \ 8) * 600)) Case 3: C1.create_sold_circle 255, (300 + (((I - (I \ 8) * 8)) * 600)), 4800 - (300 + ((I \ 8) * 600)) Case 4: C1.create_sold_circle 0, (300 + (((I - (I \ 8) * 8)) * 600)), 4800 - (300 + ((I \ 8) * 600)) End Select Next I End If End Sub
اللعبة في الملف المرفق
تحياتي
