تويت
كما عودتكم على الجديد والمفيد لكم هذا اوتوسكرامبل بشكل جديد وممتاز تقبلوا تحيات اخوكم : معتز :)
on 1:text:*:%chan: {
if ($strip($1-) == $anmlcrckr.send) {
.alias anmlcrckr.send return ""
.inc %scor. [ $+ [ $nick ] ]
msg %chan 4 $+ $nick $+ 1Get %scor. [ $+ [ $nick ] ] points
.inc %send.ask
.timersend 1 7 Asking
if (%warn [ $+ [ $nick ] ] == $null) { .notice $nick اذا تبي تعرف كم جايب نقطة //ctcp $me scores | set %warn [ $+ [ $nick ] ] anmlcrckr }
}
}
ctcp *:scores:?:Notice $nick Your points is $iif(%scor. [ $+ [ $nick ] ],%scor. [ $+ [ $nick ] ],0)
menu Channel,status {
أوتو سكرامبل
.أبدأ:write -c scrmble.txt | unset %ask* %answer* %scor* %warn* | set %chan # | set %ask.num 0 | auto-scr
.-
.إيقاف:unset %ask* %answer* %scor* %chan %send.ask %warn* | Echo 4 -a *** تم إيقاف اللعبة
.-
.قولهم الإجابة:msg %chan أجابة السؤال هي :- $anmlcrckr.send | alias anmlcrckr.send return "" | .inc %send.ask | msg %chan اذا كان هناك متوفر أسئلة سيتم أرسالها بعد سبع ثواني anmlcrckr | .timer 1 7 asking
}
alias auto-scr { inc %ask.num | window -dpoC +fl @Scrmble 0 0 300 200 | drawfill @Scrmble 1 1 1 1 1 | set %loop 0 | set %timer 0 | :loop | if (245 >= %loop) { .inc %timer 100 | .inc %loop 10 | .timer -m 1 %timer drawtext -or @Scrmble $rgb(%loop,%loop,%loop) Arial 30 75 9 أوتو سكرامبل | .goto loop } } | .timer -m 1 2600 drawtext @scrmble 0 Arial 0 118 46 :-السؤال رقم | .timer -m 1 2700 drawrect @Scrmble 2 50 113 85 80 50 | .timer -m 1 2800 drawtext -o @scrmble 0 Arial 0 150 102 %ask.num | .timer -m 1 3100 drawline @scrmble 15 10 0 0 300 0 | .timer -m 1 3200 drawline @scrmble 15 10 292 0 292 300 | .timer -m 1 3300 drawline @scrmble 15 10 0 0 0 300 | .timer -m 1 3400 drawline @scrmble 15 10 0 190 300 190 | .timer -m 1 3500 drawrect -f @scrmble 2 10 130 150 50 30 | .timer -m 1 3800 drawtext -o @scrmble 0 Arial 0 149 155 أبدا }
menu @Scrmble {
sclick {
if ($inrect($mouse.x,$mouse.y,113,85,80,50) == $true) { set %ask $input(شنو السؤال؟,e,anmlcrcrk scrmble) | set %answer $input(شنو الجواب,e,anmlcrckr scrmble) | write -l $+ %ask.num scrmble.txt Ask is: $remove(%ask, Answer is: $remove(%answer, | if ($read(scrmble.txt,%ask.num)) { inc %ask.num | drawrect @Scrmble 2 50 113 85 80 50 | drawtext -o @scrmble 0 Arial 0 150 102 %ask.num } }
if ($inrect($mouse.x,$mouse.y,130,150,50,30) == $true) { window -c @Scrmble | set %send.ask 1 | .timer 1 7 Asking | echo 4 -a سيتم طرح $+ $chr(158) $+ $lines(scrmble.txt) سؤال anmlcrckr }
}
}
on *:appactive:{
if ($window(@Scrmble)) {
if (!$appactive) { window -nh @Scrmble | halt }
window -a @Scrmble
}
}
alias Asking {
if (%send.ask > $lines(scrmble.txt)) { write -c scrmble.txt | echo -a *** End of game | halt }
alias anmlcrckr.send return $removecs($gettok($read(scrmble.txt,%send.ask),3-,58),Ask is,Answer is,)
set %sg.answer $lower($scramble($anmlcrckr.send))
set %sg.guestion $removecs($gettok($read(scrmble.txt,%send.ask),1-2,58),Ask is,Answer is,)
msg %chan السؤال يقول: $+ %sg.guestion
msg %chan الجواب من: $+ %sg.answer
}
alias scramble { if $1- == $null { echo Scrmble End | goto error } | set %sloop 0 | :loop | inc %sloop 1 | if $gettok($1-,%sloop,32) == $null { unset %sloop %smid | .timer 1 5 unset %smsg | return %smsg | goto error } | :scramble | set %smid $scramble2($gettok($1-,%sloop,32)) | if %smid == $gettok($1-,%sloop,32) && $len($gettok($1-,%sloop,32)) > 1 { goto scramble } | set %smsg %smsg %smid | goto loop | :error }
alias scramble2 { if $1- == $null { echo Scrmble End | goto error } | if $chr(32) isin $1- { echo Don't use spaces in Scramble! | goto error } | unset %scramble %ran.* %r %l | :letters | inc %l 1 | if %l > $len($1-) { goto scramble } | set %ran. [ $+ [ %l ] ] $mid($1-,%l,1) | goto letters | :scramble | set %r $rand(1,$len($1-)) | if %ran. [ $+ [ %r ] ] == $null { goto scramble } | set %scramble %scramble $+ %ran. [ $+ [ %r ] ] | set %ran. [ $+ [ %r ] ] $null | if $len(%scramble) < $len($1-) { goto scramble } | unset %ran.* %r %l | .timer 1 5 unset %scramble | return %scramble | :error }
on 1:text:*:%chan: {
if ($strip($1-) == $anmlcrckr.send) {
.alias anmlcrckr.send return ""
.inc %scor. [ $+ [ $nick ] ]
msg %chan 4 $+ $nick $+ 1Get %scor. [ $+ [ $nick ] ] points
.inc %send.ask
.timersend 1 7 Asking
if (%warn [ $+ [ $nick ] ] == $null) { .notice $nick اذا تبي تعرف كم جايب نقطة //ctcp $me scores | set %warn [ $+ [ $nick ] ] anmlcrckr }
}
}
ctcp *:scores:?:Notice $nick Your points is $iif(%scor. [ $+ [ $nick ] ],%scor. [ $+ [ $nick ] ],0)
menu Channel,status {
أوتو سكرامبل
.أبدأ:write -c scrmble.txt | unset %ask* %answer* %scor* %warn* | set %chan # | set %ask.num 0 | auto-scr
.-
.إيقاف:unset %ask* %answer* %scor* %chan %send.ask %warn* | Echo 4 -a *** تم إيقاف اللعبة
.-
.قولهم الإجابة:msg %chan أجابة السؤال هي :- $anmlcrckr.send | alias anmlcrckr.send return "" | .inc %send.ask | msg %chan اذا كان هناك متوفر أسئلة سيتم أرسالها بعد سبع ثواني anmlcrckr | .timer 1 7 asking
}
alias auto-scr { inc %ask.num | window -dpoC +fl @Scrmble 0 0 300 200 | drawfill @Scrmble 1 1 1 1 1 | set %loop 0 | set %timer 0 | :loop | if (245 >= %loop) { .inc %timer 100 | .inc %loop 10 | .timer -m 1 %timer drawtext -or @Scrmble $rgb(%loop,%loop,%loop) Arial 30 75 9 أوتو سكرامبل | .goto loop } } | .timer -m 1 2600 drawtext @scrmble 0 Arial 0 118 46 :-السؤال رقم | .timer -m 1 2700 drawrect @Scrmble 2 50 113 85 80 50 | .timer -m 1 2800 drawtext -o @scrmble 0 Arial 0 150 102 %ask.num | .timer -m 1 3100 drawline @scrmble 15 10 0 0 300 0 | .timer -m 1 3200 drawline @scrmble 15 10 292 0 292 300 | .timer -m 1 3300 drawline @scrmble 15 10 0 0 0 300 | .timer -m 1 3400 drawline @scrmble 15 10 0 190 300 190 | .timer -m 1 3500 drawrect -f @scrmble 2 10 130 150 50 30 | .timer -m 1 3800 drawtext -o @scrmble 0 Arial 0 149 155 أبدا }
menu @Scrmble {
sclick {
if ($inrect($mouse.x,$mouse.y,113,85,80,50) == $true) { set %ask $input(شنو السؤال؟,e,anmlcrcrk scrmble) | set %answer $input(شنو الجواب,e,anmlcrckr scrmble) | write -l $+ %ask.num scrmble.txt Ask is: $remove(%ask, Answer is: $remove(%answer, | if ($read(scrmble.txt,%ask.num)) { inc %ask.num | drawrect @Scrmble 2 50 113 85 80 50 | drawtext -o @scrmble 0 Arial 0 150 102 %ask.num } }
if ($inrect($mouse.x,$mouse.y,130,150,50,30) == $true) { window -c @Scrmble | set %send.ask 1 | .timer 1 7 Asking | echo 4 -a سيتم طرح $+ $chr(158) $+ $lines(scrmble.txt) سؤال anmlcrckr }
}
}
on *:appactive:{
if ($window(@Scrmble)) {
if (!$appactive) { window -nh @Scrmble | halt }
window -a @Scrmble
}
}
alias Asking {
if (%send.ask > $lines(scrmble.txt)) { write -c scrmble.txt | echo -a *** End of game | halt }
alias anmlcrckr.send return $removecs($gettok($read(scrmble.txt,%send.ask),3-,58),Ask is,Answer is,)
set %sg.answer $lower($scramble($anmlcrckr.send))
set %sg.guestion $removecs($gettok($read(scrmble.txt,%send.ask),1-2,58),Ask is,Answer is,)
msg %chan السؤال يقول: $+ %sg.guestion
msg %chan الجواب من: $+ %sg.answer
}
alias scramble { if $1- == $null { echo Scrmble End | goto error } | set %sloop 0 | :loop | inc %sloop 1 | if $gettok($1-,%sloop,32) == $null { unset %sloop %smid | .timer 1 5 unset %smsg | return %smsg | goto error } | :scramble | set %smid $scramble2($gettok($1-,%sloop,32)) | if %smid == $gettok($1-,%sloop,32) && $len($gettok($1-,%sloop,32)) > 1 { goto scramble } | set %smsg %smsg %smid | goto loop | :error }
alias scramble2 { if $1- == $null { echo Scrmble End | goto error } | if $chr(32) isin $1- { echo Don't use spaces in Scramble! | goto error } | unset %scramble %ran.* %r %l | :letters | inc %l 1 | if %l > $len($1-) { goto scramble } | set %ran. [ $+ [ %l ] ] $mid($1-,%l,1) | goto letters | :scramble | set %r $rand(1,$len($1-)) | if %ran. [ $+ [ %r ] ] == $null { goto scramble } | set %scramble %scramble $+ %ran. [ $+ [ %r ] ] | set %ran. [ $+ [ %r ] ] $null | if $len(%scramble) < $len($1-) { goto scramble } | unset %ran.* %r %l | .timer 1 5 unset %scramble | return %scramble | :error }
تعليق