اوتو سكرامبل عجيب :>

[ALMaJeD]

بس لازم تضيف الاسئله علشان تلعب الجنل بلمسه وحده :>

menu channel {
-
السكرامبل
.ابدا:/scramble
.اضافة سؤال:{
if ($gettok($read(pri.txt,1),1-,32) == $null) { /write -n pri.txt By Private WwW.Private.Net | /write -n pri.Net.txt $$?="السؤال" | /write -n pri.Net.txt $$?="الجواب" }
else { /write -n pri.txt $$?="السؤال" | /write -n pri.txt $$?="الجواب"
}
}
.الغاء الاسئله:./remove pri.txt
.مشاهدة الاسئله:/run pri.txt
.وقف:scramble.stop
}
alias scramble {
set %schan` $active
scramble.start
}
alias scramble.start {
inc %Rshint` 2
set %Rsword` %Rshint` + 1
set %sword` $gettok($read(pri.txt,%Rsword`),1-,32)
set %shint` $gettok($read(pri.txt,%Rshint`),1-,32)
if ($gettok($read(pri.txt,2),1-,32) == $null) {
unset %sstop`
unset %Rsword`
unset %Rshint`
/unset %sword`
/unset %shint`
/unset %schan`
/unset %sranword`
/unset %score.*
halt
}
scramble.enter
}
alias scramble.tellans {
/msg %schan` 0,2 %sword` 15,2 الاجابه الصحيحه | unset %sword` | unset %shint`
.timerscramble.start 1 10 /scramble.start
}
alias scramble.stop {
msg %schan` 0,2 اللعبه انتهت
unset %sstop`
unset %Rsword`
unset %Rshint`
/unset %sword`
/unset %shint`
/unset %schan`
/unset %sranword`
/unset %score.*
.timerscramble.start off
.timerscramble.tellans off
}
alias scramble.enter {
if ($gettok($read(pri.txt,%Rshint`),1-,32) == $null) { /scramble.stop }
else {
set %sranword` $waroeng7( %sword` )
/msg %schan` 0,2 %shint` 15,2 :الســـــــــؤال
/msg %schan` 0,2 %sranword` 15,2 :الأجـــــابــــه
.timerscramble.tellans 1 40 /scramble.tellans
}
}
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:*:#:{
if ($chan == %schan`) {
if (%sword` isin $strip($1-)) {
inc %score. [ $+ [ $nick ] ]
/msg %schan` 0,2 $nick 15,2 %sword` 0,2الاجابه صحيحه
/msg %schan` 0,2 $nick 15,2الان لديك0,2 %score. [ $+ [ $nick ] ] نقطه
unset %sword`
unset %shint`
.timerscramble.start 1 10 /scramble.start
.timerscramble.tellans off
}
}
}



ctcp 1:score: {
/notice $nick 0,2 $nick 15,2الان لديك0,2 %score. [ $+ [ $nick ] ] 15,2نقطه
}


اخوكم : الماجد

[The-Love]

مشكوووووووور كنت ادوره