السلام عليكم
هذي لعبة حلوة لعبة الاسماء بسيطة جداً
كود PHP:
Menu CHannel {
-
لعبـة الاسمـاء:dialog -m East.Gamer East.Gamer
-
}
dialog East.Gamer {
title "لعبــة الأسمـــاء"
size -1 -1 95 58
option dbu
text "النـوع", 1, 6 4 32 8
edit "", 2, 35 2 59 10
text "الاسـم", 3, 6 14 32 8
edit "", 4, 35 14 59 10
button "اســـال", 5, 2 29 47 12,flat
button "جـــاوب", 6, 50 29 43 12,flat
button "وقــف اللــعب", 7, 2 42 91 12,flat
}
on *:dialog:East.Gamer:init:0:{
unset %NameG.*
set %NameG.C $active
}
on *:dialog:East.Gamer:sclick:*:{
if (!$server) {
echo -a * 2:3:4:5 لعبة الاسماء 1اول شي اشبك بأي سيرفر ولعب :~)
}
else {
if ($did == 5) {
if ($me !ison %NameG.c) { echo -a * 2:3:4:5 لعبة الاسماء 1اول شي دش جنل اللي تلعبهم بعدين لعبهم %NameG.c | halt }
if (%NameG.A = on) { echo -a * 2:3:4:5 لعبة الاسماء 1سألت هالسؤال انطر جاوب او انت قولهم جواب :~) | halt }
if ($did(2) = $null && $did(4) = $null) { echo -a * 2:3:4:5 لعبة الاسماء 1اكتب النوع والاسم وبعدين اللعب :~) | halt }
if ($did(2) = $null) { echo -a * 2:3:4:5 لعبة الاسماء 1لاتنسى تكتب النوع :~) | halt }
if ($did(4) = $null) { echo -a * 2:3:4:5 لعبة الاسماء 1لاتنسى تكتب الاسم :~) | halt }
else {
set %NameG.A on
set %NameG.b $did(4)
inc %nameg.d
msg %NameG.c بدات اللعبه الاسامي أول حرف هوا -> $left($did(4),1)
msg %NameG.c وهو من نوع -> $did(2)
$iif(%nameg.d = 5,msg %nameG.c لعبــة الاسمــاء /ctcp $me score لمعرفة الرصيد)
$iif(%nameg.d = 5,unset %nameg.d*)
}
}
if ($did == 6) {
if ($me !ison %NameG.c) { echo -a * 2:3:4:5 لعبة الاسماء 1اول شي دش جنل اللي تلعبهم بعدين قولهم جواب %NameG.c | halt }
if ($did(4) = $null) { echo -a * 2:3:4:5 لعبة الاسماء 1اكتب الجواب بالاول بعدين جاوب :~) | halt }
if (%NameG.A = $null) { echo -a * 2:3:4:5 لعبة الاسماء 1اول شي لعب بعدين قول جواب :~) | halt }
else {
set %ress $$?!="هل انت متاكد "
if (%ress == $true) { unset %NameG.A unset %ress | msg %NameG.c الاجواب كان -> $did(4) }
if (%rscore == $false) { unset %ress | halt }
}
}
if ($did == 7) {
set %ress $$?!="هل انت متاكد "
if (%ress == $true) {
if ($me !ison %NameG.c) { echo -a انتهت اللعبه الاسامي | unset %cor.* %ress %NameG* | dialog -x East.Gamer East.Gamer }
else { msg %nameG.C انتهت اللعبه الاسامي | $iif($var(%cor.*,0) > 0,winnz1) | unset %cor.* %ress %NameG* | dialog -x East.Gamer East.Gamer }
}
if (%rscore == $false) { unset %ress | halt }
}
}
}
On *:Text:*:%NameG.C:{
If (%NameG.a != $null) {
If (%NameG.b = $strip($1)) {
inc %cor. [ $+ [ $nick ] ]
msg $Chan $+(,$nick,) %cor. [ $+ [ $nick ] ] اجابتك صحيحه لديك
unset %NameG.A
}
}
}
alias winnz {
set %nameG.x $var(%cor.*,0)
set %nameG.z 1
while (%nameG.x) {
if ($eval($var(%cor.*,%nameG.x),2) > %nameG.z) {
set %nameG.z $eval($var(%cor.*,%nameG.x),2)
set %nameG.y $gettok($eval($var(%cor.*,%nameG.x),1),2,46) $eval($var(%cor.*,%nameG.x),2)
}
dec %nameG.x
}
msg %nameG.C الفـــائز $gettok(%nameG.y,1,32) .;. $gettok(%nameG.y,2,32)
}
ctcp *:score:{
if (%cor. [ $+ [ $nick ] ] != $null) {
notice $nick your score now is %cor. [ $+ [ $nick ] ]
}
else {
notice $nick sorry but your score is 0
}
}
انسخ الي فوق بهذي الطريقه
ظلل عليه كله وبعدين copy
طريقة تركيب الامر
اظغط alt +r
عشان يفتح وياك الرموت وفتح صفحة يديده لنه الامر كبير
file
new
كلك يمين
past
ok
ملاحضة الامر رح يبين اذا ظغطت رايت كلك على الجنل
وشكراً
هذه الرسالة تفيد بأنك غير مشترك في منتديات شبكة عرب شات. لتسجيل الرجاء اضغط هنـا
06-10-2006, 12:30 AM
العرض العادي
