[script]
Scramble Game!
alias scset {
if (($sline(@Scramble,1).ln == $null) || ($sline(@Scramble,1).ln == 0)) { halt }
set %line $sline(@Scramble,1).ln
if (%line == 4) {
set %schan #$$?="Enter the channel you wanna play on it"
rline @Scramble 4 11 scramble game : %schan
halt
}
if (%line == 6) { 
set %sword $$?=" ادخل السؤال" 
rline @Scramble 6 14W9ُ13®11ذ 14:3 %sword
}
if (%line == 7) { 
set %shint $$?="ادخل الجواب التلميح" 
rline @Scramble 7 7|-|12ï8ٌ0t 14:3 %shint 
}
if (%line == 10) { 
set %delscore $$?!="هل انت متاكد?" 
if (%delscore == $true) unset %score.* 
if (%delscore == $false) halt
}
if (%line == 13) { 
set %sstop $$?!="هل انت متاكد?" 
if (%sstop == $true) { msg %schan 15,1 انتهت اللعبة يالله كل واحد بيته | set %sgame OFF | unset %sstop | set %sgame OFF }
if (%sstop == $false) { unset %sstop | halt }
}
if (%line == 11) { 
set %tell $$?!="هل انت متاكد?" 
if (%tell == $true) { /msg %schan 15,1The15 correct answer is14 %sword 15,1 $ naif 15,1 | unset %tell | unset %sword | unset %shint }
if (%tell == $false) { unset %tell | halt }
}
if (%line == 12) { 
if (( %sword == $null ) || ( %shint == $null )) halt | scramble.enter 
}
}
alias scramble {
set %schan #
scramble.start 
}
alias scramble.start {
set %sword $$?="ماهي الاجابه?"
set %shint $$?="الان ادخل السؤال?"
scramble.enter
}
alias scramble.rscore {
set %delscore $$?!="Are you sure you wanna repeat the score?" 
if (%delscore == $true) { unset %score.* | unset %delscore }
if (%delscore == $false) { unset %delscore | halt }
}
alias scramble.tellans {
set %tell $$?!="هل انت متاكد انك تريد قول الاجابه?" 
if (%tell == $true) { /msg %schan 15,1The correct answer is14 %sword 15,1 | unset %tell | unset %sword | unset %shint }
if (%tell == $false) { unset %tell | halt }
}
alias scramble.stop {
set %sstop $$?!="هل انت متاكد انك تريد ايقاف اللعبه?" 
if (%sstop == $true) { 
say 15,1انتهت اللعبه يالله كل واحد بيته مانبغا تجمعات 15,1 %naif 15,1
unset %sstop
/unset %sword
/unset %shint
/unset %schan
/unset %sranword
/unset %score.*
}
if (%sstop == $false) { unset %sstop | halt }
}
alias scramble.enter {
set %sword $lower( %sword )
set %sranword $waroeng7( %sword )
/msg %schan 15,1 %shint 13,1 :السـؤال هو التالي 
/msg %schan 15,1 %sranword 13,1 : الجواب احتمال برهابس يعني يتكون من 
}
alias waroeng7 {
unset %w7.* 
%w7.w = 1 
:1
inc %w7.i 
if (%w7.i > $len($gettok($1-,%w7.w,32))) goto 2 
%w7.ls = %w7.ls $mid($gettok($1-,%w7.w,32),%w7.i,1) 
goto 1 
:2 
%w7.l = $r(1,$gettok(%w7.ls,0,32)) 
if (%w7.i) { 
%w7.wrd = %w7.wrd $gettok(%w7.ls,%w7.l,32) 
unset %w7.i 
} 
else %w7.wrd = %w7.wrd $+ $gettok(%w7.ls,%w7.l,32) 
if ($len($gettok(%w7.wrd,%w7.w,32)) == $len($gettok($1-,%w7.w,32))) { 
if ($len(%w7.wrd) == $len($1-)) return %w7.wrd 
inc %w7.w | %w7.ls = "" 
goto 1
} 
%w7.ls = $deltok(%w7.ls,%w7.l,32) 
goto 2
}

on 1:text:%sword:%schan: {
inc %score. [ $+ [ $nick ] ]
/msg %schan 15,1 $nick answers 14 %sword $+ 15 شاطر ياعيني شاطر الجواب صحيح
/msg %schan 15,1 $nick 15,1نقطة 14,1 %score. [ $+ [ $nick ] ] 15,1لديــك الأن تقريبا ماني متاكدنوت شور 
unset %sword
unset %shint
}
ctcp 1:score: {
/notice 1,15$nick 15,1نقطة 14,1 %score. [ $+ [ $nick ] ] 15لديك الأن تقريبا ماني متاكد نوت شور
/notice $nick 12by:15,10 %naif 15,10
}
menu Channel {
-
السـكـــــرامـــبـــل
.ابدا اللعب:/scramble
.-
.النتيجه:/scramble.rscore
.ايقاف اللعب:/scramble.stop
.اخبارهم بالنتيجه:/scramble.tellans
}

}