قديم 07-02-2003, 09:24 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية KillYou

البيانات
التسجيل: Jul 2003
العضوية: 1720
المشاركات: 75 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
KillYou غير متصل
وسائل الإتصال:

المنتدى : برامج - سكربتات - اضافات ماسنجر
امر السكرامبل

امر السكرامبل
#scrambler off
on *:text:%sc.ans:%s.chan {
if ($dialog(scram) == $null) { .disable #scrambler | unset %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %s.chan %id1l %winner %winnerco %templ %big %templl %filternick | halt }
.disable #scrambler
msg %s.chan CorrecT AnsweR /|\  %sc.ans  /|\ YoU GeT PointS /|\  $nick  /|\
did -rf scram 7
did -ra scram 6 Correct.Enter New Question.
:check
inc %temp.line
if ($did(scram,1,%temp.line) == $null) || ($did(scram,1).lines == 0) { goto end }
if ($nick == $filternick) { set %temp.nick $remove($did(scram,1,%temp.line),«»,$nick) | did -oc scram 1 %temp.line $nick «» $calc(%temp.nick + 1) | unset %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %templ %id1l %winner %winnerco %big %filternick %templl | halt }
goto check
:end
did -ac scram 1 $nick «» 1
unset %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %templ %id1l %winner %winnerco %big %filternick %templl
}
#scrambler end
alias -l scramble unset %sc.* | %sc.w = 1 | :1 | inc %sc.i | if (%sc.i > $len($gettok($did(7),%sc.w,32))) goto 2 | %sc.ls = %sc.ls $mid($gettok($1-,%sc.w,32),%sc.i,1) | goto 1 | :2 | %sc.l = $r(1,$gettok(%sc.ls,0,32)) | if (%sc.i) { %sc.wrd = %sc.wrd $gettok(%sc.ls,%sc.l,32) | unset %sc.i } | else %sc.wrd = %sc.wrd $+ $gettok(%sc.ls,%sc.l,32) | if ($len($gettok(%sc.wrd,%sc.w,32)) == $len($gettok($did(7),%sc.w,32))) { if ($len(%sc.wrd) == $len($did(7))) return %sc.wrd | inc %sc.w | %sc.ls = "" | goto 1 } | %sc.ls = $deltok(%sc.ls,%sc.l,32) | goto 2
;===Scramble Dialog===>
alias scram dialog -mn scram scram
dialog scram {
title "BrOtHeRs5 ScRaMbLe"
size -1 -1 330 155
list 1,185 5 140 120,sort,extsel,size
text "Channel",2,5 2 50 12,left
edit "",3,5 15 175 22,autohs
text "Answer",6,5 89 175 14,left
edit "",5,5 59 175 22,autohs
text "Question",4,5 46 50 12,left
edit "",7,5 103 120 22,autohs
button "ارسل",8,130 104 50 20
button "النقاط",9,185 130 47 20
button "تجديد",10,278 130 47 20
button "إغلاق",11,5 130 85 20,ok
button "مسح",12,232 130 47 20
button "الفائز",13,95 130 85 20
}
on *:dialog:scram:init:0:.disable #scrambler | unset %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %s.chan %id1l %templ %big %winner %winnerco | if ($active ischan) { did -a scram 3 $active | set %s.chan $active }
on *:dialog:scram:sclick:*:{
if ($did == 8) { if ($did(7) == $chr(32)) { did -rf scram 7 | halt } | if ($did(3) == $null) { did -f scram 3 | halt } | if ($did(5) == $null) { did -f scram 5 | halt } | if ($did(7) == $null) { did -f scram 7 | halt } | .enable #scrambler | msg $did(3) [ Answer ] : $scramble($did(7)) | %sc.ans = $did(7) | msg $did(3) [ Question ] : $did(5) | did -ra scram 6 Word = %sc.ans | halt }
if ($did == 9) && ($did(1).lines >= 1) { set %temp.line 0 | :point | inc %temp.line | if ($did(1,%temp.line) == $null) { goto end } | %points = %points $+ [ $+ $did(1,%temp.line) $+ ] | goto point | :end | msg $did(3) Points : %points | unset %temp.line %points }
if ($did == 10) && ($did(1).lines >= 1) { inc %undo | if (%undo >= 2) { goto clear } | dialog -t scram If you are sure click RESET again now. | .timer 1 10 dialog -t scram Scramble Game v1.0 | .timer 1 10 unset %undo | halt | :clear | did -r scram 1 | did -r scram 5 | did -r scram 7 | did -ra scram 6 Word | dialog -t scram Scramble Game | unset %undo }
if ($did == 11) { .disable #scrambler | unset %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %s.chan %id1l %templ %big %winner %winnerco %templl %filternick %id1l %undo | msg $did(3) /|\ GamE Is OveR /|\ }
if ($did == 12) && ($did(1).sel != $null) { inc %undo | if (%undo >= 2) { goto rem } | dialog -t scram If you are sure click REMOVE again now. | .timer 1 10 dialog -t scram Scramble Game v1.0 | .timer 1 10 unset %undo | halt | :rem | did -d scram 1 $did(1).sel | dialog -t scram Scramble Game v1.0 | unset %undo }
if ($did == 13) && ($did(1).lines >= 2) {
set %templ 0
set %big 0
:win
inc %templ
if ($id1l == $null) { set %templ 0 | goto check }
if ($winnerco > %big) { set %big $winnerco | set %winner $id1l | %templl = %templ | goto win }
goto win
:check
inc %templ
if ($id1l == $null) { goto end }
if ($id1l == %winner) { goto check }
if ($winnerco == %big) { dialog -t scram No winner untill now. | .timer 1 5 dialog -t scram Scramble Game v1.0 | unset %templ %winnerco %big %id1l %winner %templl | halt }
goto check
:end
msg $did(3)  The   Winner   Is  --=> [  %winner  ]  | did -c scram 1 %templl
.disable #scrambler
unset %templ %winnerco %big %id1l %winner %temp.line %temp.nick %temp.00 %sc.ans %sc.wrd %sc.w %sc.ls %sc.i %sc.l %templl
did -rf scram 5 | did -r scram 7 | did -ra scram 6 Word
}
}
alias id1l %id1l = $did(scram,1,%templ) | return %id1l
alias winnerco %winnerco = $mid($did(scram,1,%templ),$pos($did(scram,1,%templ ),$chr(32),2),4) | return %winnerco
alias filternick %filternick = $mid($did(scram,1,%temp.line),1,$pos($did(scram,1, %temp.line),$chr(32),1)) | return %filternick

menu channel {
-
السكرامبـل { %s.chan = # | scram }
}
:bi

hlv hgs;vhlfg












الصور المرفقة
نوع الملف: gif kill.gif‏ (5.2 كيلوبايت, المشاهدات 7)
عرض البوم صور KillYou   رد مع اقتباس
قديم 07-04-2003, 04:27 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
عضـو فعال
الصورة الرمزية
 
الصورة الرمزية GAMer

البيانات
التسجيل: Sep 2002
العضوية: 53
المشاركات: 319 [+]
بمعدل : 0.05 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
GAMer غير متصل
وسائل الإتصال:

كاتب الموضوع : KillYou المنتدى : برامج - سكربتات - اضافات ماسنجر

THANKS












توقيع : GAMer







عرض البوم صور GAMer   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
امر, السكرامبل

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 12:32 PM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1