PRG of RPG
26-03-2003, 05:32 AM
السلام عليكم
هذه اللعبة كما طلبها 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
هذا عيب البرمجة (معادلات كثيرة وحسابات لا تنتهي :(
اللعبة في الملف المرفق
تحياتي :)
هذه اللعبة كما طلبها 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
هذا عيب البرمجة (معادلات كثيرة وحسابات لا تنتهي :(
اللعبة في الملف المرفق
تحياتي :)