KinG-Night
06-12-2003, 04:28 PM
2-الـــــــــــسكرامبل
في الريموت تحطه
تحياتي لكم : خالد
--------------------------------------------------------------
alias Scra dialog -m ScramDlg ScramDlg
dialog ScramDlg {
title "TnTServ سكرامبل"
optiOn pixels
size 130 110 550 110
box "", 3, 263 -5 138 116
box "", 438, 1 66 260 43
box "", 34, 1 -5 260 74
box "", 434, 402 -5 112 116
box "", 435, 1 -5 260 74
edit "", 5, 8 11 210 20,right autohs
edit "", 6, 8 41 210 20,right autohs
text "&السؤال", 4, 215 13 43 18,right
text "&الجواب", 7, 215 43 42 18,right
buttOn "&انـــــــــــــهاء اللعبـــه", 11, 267 5 130 18
buttOn "&قولـــــــــــهم الإجابـــه", 22, 267 25 130 18
buttOn "&قولـــــــــهم النتـــائج", 33, 267 45 130 18
buttOn "&تصفيـــر النــــــــــقاط", 55, 267 65 130 18
buttOn "&قولـــــــــهم منو الفائـــــــز", 66, 267 85 130 18
buttOn "&قـــــول الســـــــــــؤال", 44, 25 80 200 19
buttOn "&اختيار ملف", 311, 410 5 100 18
buttOn "&انشاء ملف جديد", 322, 410 25 100 18
buttOn "&حذف ملف", 333, 410 45 100 18
buttOn "إغلاق", 99, 517 5 29 100,ok
buttOn "&طلب سؤال جديد", 355, 410 85 100 18
}
On 1:dialog:ScramDlg:*:99: {
/scramble.stop
}
On 1:dialog:ScramDlg:*:311: {
noticeirc
%tempf = $file="chous" $mircdirscr/*.txt
if ( $nopath(%tempf) == $null) { echo -a 1&15^1&15> لم يتم اختيار اي ملف | unset %tempf | Halt }
echo -a 1&15^1&15> تم اختيار الملف $nopath(%tempf)
echo -a 1&15^1&15> اختر طلب سؤال ليتم تلقية من الملف في حال الانتهاء من تعبئة الملف
set %lineS 0
run %tempf
}
On 1:dialog:ScramDlg:*:322: { noticeirc | write -c $mircdir $+ scr\ $+ $$?="أدخل اسم الملف هنا" $+ .txt | echo -a 4©15>14>4 تم انشاء الملف الجديد }
On 1:dialog:ScramDlg:*:333: {
noticeirc
%tempf = $file="chous" $mircdirscr/*.txt
if ( $nopath(%tempf) == $null) { echo -a 1&15^1&15> لم يتم اختيار اي ملف لحذفه | Halt }
echo -a 1&15^1&15> تم حذف الملف $nopath(%tempf)
remove %tempf
unset %tempf
}
On 1:dialog:ScramDlg:*:344: { noticeirc | scrhelp }
On 1:dialog:ScramDlg:*:355: {
if (%tempf == $null) { echo -a 1&15^1&15> اختر ملف اولاً | halt }
inc %lineS 1
set %tempt $read -l $+ %lineS %tempf
if (%tempt == $Null) {
echo -a 1&15^1&15> الملف فاضي او تم الوصول لنهايته
/did -r ScramDlg 5
}
/did -ra ScramDlg 5 $read -l $+ %lineS %tempf
inc %lineS 1
set %tempt $read -l $+ %lineS %tempf
if (%tempt == $Null) {
echo -a 1&15^1&15> الملف فاضي او تم الوصول لنهايته
/did -r ScramDlg 6
Halt
}
/did -ra ScramDlg 6 $read -l $+ %lineS %tempf
}
On 1:dialog:ScramDlg:init:*:{
/did -a ScramDlg 5 حط سؤال ألي تبي تكتبه
/did -a ScramDlg 6 حط ألاجابة أهني
}
alias scramble {
if ($chr(35) !isin $active) { echo -a 1&15^1&15>لايتم تنفيذ الامر الا بالقناة ياذكي | Halt }
if (%work. [ $+ [ $active ] ] != On) {
/unset %sword. [ $+ [ $active ] ]
/unset %shint. [ $+ [ $active ] ]
/unset %sranword. [ $+ [ $active ] ]
/unset %score. [ $+ [ $active ] ]
/unset %Winer. [ $+ [ $active ] ]
/unset %Mgra. [ $+ [ $active ] ]
set %work. [ $+ [ $active ] ] On
echo -a 1&15^1&15> تم تشغيل السكرامبل للقناة الحالياً تي أن تي سيرف سكربت
}
scramble.start
}
alias scramble.start {
/set %sword. [ $+ [ $active ] ] $did(scramdlg,6)
/set %shint. [ $+ [ $active ] ] $did(scramdlg,5)
scramble.enter
}
On 1:dialog:ScramDlg:*:44: { /scramble }
alias scramble.enter {
if ($chr(35) isin $active) { /q $active }
if (ضـع الإجـابـه هـنـا == $did(scramdlg,6)) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي| halt }
if ($did(scramdlg,6) == $null) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي| halt }
if ($did(scramdlg,5) == $null) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي | halt }
set %sword. [ $+ [ $active ] ] $lower( %sword. [ $+ [ $active ] ] )
set %sranword. [ $+ [ $active ] ] $waroeng7( %sword. [ $+ [ $active ] ] )
msg $active -_-_-_-_-_-_-&سكرامبل بدااا
msg $active %shint. [ $+ [ $active ] ] .. 1 سؤال %LOGO
msg $active %sranword. [ $+ [ $active ] ] ..1 الجواب يتكون من الاحرف التاليه. %LOGO
}
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:dialog:ScramDlg:*:33: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%work. [ $+ [ $active ] ] != On) { echo -a 1&15^1&15> لم يتم تشغيل السكرامبل في قناة الحاليه | halt }
}
On 1:dialog:ScramDlg:*:22: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%sword. [ $+ [ $active ] ] != $null) {
msg $active 6,6 0,1 %sword. [ $+ [ $active ] ] الاجابه الصحيحه هي. | unset %sword. [ $+ [ $active ] ] | unset %shint. [ $+ [ $active ] ]
}
unset %sword. [ $+ [ $active ] ]
unset %sranword. [ $+ [ $active ] ]
}
On 1:dialog:ScramDlg:*:66: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%work. [ $+ [ $active ] ] != On) { echo -a 1&15^1&15> لم يتم تشغيل السكرامبل في قناة الحاليه | halt }
if (%Winer. [ $+ [ $active ] ] == $Null) { echo -a لايوجد فائز | halt }
if (%work. [ $+ [ $active ] ] == On) && (%Winer. [ $+ [ $active ] ] != $Null) && (%Winer. [ $+ [ $active ] ] != Off) {
msg $active 6,6.0,1 %Winer. [ $+ [ $active ] ] أنت الفايز مبروك
}
}
On 1:dialog:ScramDlg:*:55: {
/scramble.rscore
}
alias scramble.rscore {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
unset %Mgra. [ $+ [ $active ] ]
unset %delscore. [ $+ [ $active ] ]
unset %sword. [ $+ [ $active ] ]
unset %shint. [ $+ [ $active ] ]
unset %sranword. [ $+ [ $active ] ]
unset %score. [ $+ [ * ] $+ . $+ [ $active ] ]
unset %Winer. [ $+ [ * ] $+ . $+ [ $active ] ]
set %work. [ $+ [ $active ] ] Off
msg # عيد العبه.
echo -a 1&15^1&15> تم تصفير النتائج للقناة الحاليه
}
On 1:dialog:ScramDlg:*:11: {
/scramble.stop
}
alias scramble.stop {
set %seeits 0
:seeit
inc %seeits
if ($chan(%seeit) == $null) { goto end }
if (%work. [ $+ [ $chan(%seeits) ] ] == On) {
msg $chan(%seeits) 15ياحلو Game Over
}
goto seeit
:end
unset %seeits*
unset %tempf
unset %sword.*
unset %shint.*
unset %sranword.*
unset %score.*
unset %work.*
unset %Winer.*
unset %Mgra.*
echo -s 1&15^1&15> تم اغلاق السكرامبل وتصفير جميع النتائج
}
On 1:TEXT:*:#: {
if (%work. [ $+ [ $Chan ] ] != On) { Halt }
if (%sword. [ $+ [ $Chan ] ] == $null) { goto end }
if (%sword. [ $+ [ $Chan ] ] != $strip($1-)) { goto end }
inc %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ]
if (%Mgra. [ $+ [ $Chan ] ] == $Null) { set %Winer. [ $+ [ $Chan ] ] $Nick | set %Mgra. [ $+ [ $Chan ] ] %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] | Goto NOop0 }
if (%Mgra. [ $+ [ $Chan ] ] < %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ]) { set %Winer. [ $+ [ $Chan ] ] $Nick | set %Mgra. [ $+ [ $Chan ] ] %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] | Goto NOop0 }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) && (%Winer. [ $+ [ $Chan ] ] != $Nick) { unset %Winer. [ $+ [ $Chan ] ] | goto NOop0 }
:NOop0
/msg $Chan $Nick %sword. [ $+ [ $Chan ] ] ] الاجــــابه صحيـــــحه
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $Chan $Nick نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز بأول نقطه مبروووووك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $Chan $Nick نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز وعندك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $Chan 6,6.0,1 $Nick نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز وعندك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $Chan $Nick نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] مشا الله عليك أنت الفايز. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] != %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديـك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $Chan 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديـــك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديــك الأن 6,6. }
}
unset %sword. [ $+ [ $Chan ] ]
unset %shint. [ $+ [ $Chan ] ]
goto NOop3
:end
if ($strip($1-) != ن) { goto NOop3 }
if (%lastnickr == $Nick) { goto NOop3 }
set -u60 %lastnickr $Nick
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == $Null) { /.msg ScramGame $Nick 5,5.17,5 $Nick 5,5.17,5 لا يوجد لديك اي نقاط 6,6. | goto NOop3 }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15انت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $chan 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15انت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /.msg ScramGame $Nick 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] != %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == $Null) { /.msg ScramGame $Nick 6,6.15,1 $Nick 5,5.17,5 لا يوجد لديك اي نقاط 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /.msg ScramGame 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /.msg ScramGame $Nick 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
}
:NOop3
}
------------------------------------------------------------
وهذا تحطه في popups
سكرامبل:/Scra
في الريموت تحطه
تحياتي لكم : خالد
--------------------------------------------------------------
alias Scra dialog -m ScramDlg ScramDlg
dialog ScramDlg {
title "TnTServ سكرامبل"
optiOn pixels
size 130 110 550 110
box "", 3, 263 -5 138 116
box "", 438, 1 66 260 43
box "", 34, 1 -5 260 74
box "", 434, 402 -5 112 116
box "", 435, 1 -5 260 74
edit "", 5, 8 11 210 20,right autohs
edit "", 6, 8 41 210 20,right autohs
text "&السؤال", 4, 215 13 43 18,right
text "&الجواب", 7, 215 43 42 18,right
buttOn "&انـــــــــــــهاء اللعبـــه", 11, 267 5 130 18
buttOn "&قولـــــــــــهم الإجابـــه", 22, 267 25 130 18
buttOn "&قولـــــــــهم النتـــائج", 33, 267 45 130 18
buttOn "&تصفيـــر النــــــــــقاط", 55, 267 65 130 18
buttOn "&قولـــــــــهم منو الفائـــــــز", 66, 267 85 130 18
buttOn "&قـــــول الســـــــــــؤال", 44, 25 80 200 19
buttOn "&اختيار ملف", 311, 410 5 100 18
buttOn "&انشاء ملف جديد", 322, 410 25 100 18
buttOn "&حذف ملف", 333, 410 45 100 18
buttOn "إغلاق", 99, 517 5 29 100,ok
buttOn "&طلب سؤال جديد", 355, 410 85 100 18
}
On 1:dialog:ScramDlg:*:99: {
/scramble.stop
}
On 1:dialog:ScramDlg:*:311: {
noticeirc
%tempf = $file="chous" $mircdirscr/*.txt
if ( $nopath(%tempf) == $null) { echo -a 1&15^1&15> لم يتم اختيار اي ملف | unset %tempf | Halt }
echo -a 1&15^1&15> تم اختيار الملف $nopath(%tempf)
echo -a 1&15^1&15> اختر طلب سؤال ليتم تلقية من الملف في حال الانتهاء من تعبئة الملف
set %lineS 0
run %tempf
}
On 1:dialog:ScramDlg:*:322: { noticeirc | write -c $mircdir $+ scr\ $+ $$?="أدخل اسم الملف هنا" $+ .txt | echo -a 4©15>14>4 تم انشاء الملف الجديد }
On 1:dialog:ScramDlg:*:333: {
noticeirc
%tempf = $file="chous" $mircdirscr/*.txt
if ( $nopath(%tempf) == $null) { echo -a 1&15^1&15> لم يتم اختيار اي ملف لحذفه | Halt }
echo -a 1&15^1&15> تم حذف الملف $nopath(%tempf)
remove %tempf
unset %tempf
}
On 1:dialog:ScramDlg:*:344: { noticeirc | scrhelp }
On 1:dialog:ScramDlg:*:355: {
if (%tempf == $null) { echo -a 1&15^1&15> اختر ملف اولاً | halt }
inc %lineS 1
set %tempt $read -l $+ %lineS %tempf
if (%tempt == $Null) {
echo -a 1&15^1&15> الملف فاضي او تم الوصول لنهايته
/did -r ScramDlg 5
}
/did -ra ScramDlg 5 $read -l $+ %lineS %tempf
inc %lineS 1
set %tempt $read -l $+ %lineS %tempf
if (%tempt == $Null) {
echo -a 1&15^1&15> الملف فاضي او تم الوصول لنهايته
/did -r ScramDlg 6
Halt
}
/did -ra ScramDlg 6 $read -l $+ %lineS %tempf
}
On 1:dialog:ScramDlg:init:*:{
/did -a ScramDlg 5 حط سؤال ألي تبي تكتبه
/did -a ScramDlg 6 حط ألاجابة أهني
}
alias scramble {
if ($chr(35) !isin $active) { echo -a 1&15^1&15>لايتم تنفيذ الامر الا بالقناة ياذكي | Halt }
if (%work. [ $+ [ $active ] ] != On) {
/unset %sword. [ $+ [ $active ] ]
/unset %shint. [ $+ [ $active ] ]
/unset %sranword. [ $+ [ $active ] ]
/unset %score. [ $+ [ $active ] ]
/unset %Winer. [ $+ [ $active ] ]
/unset %Mgra. [ $+ [ $active ] ]
set %work. [ $+ [ $active ] ] On
echo -a 1&15^1&15> تم تشغيل السكرامبل للقناة الحالياً تي أن تي سيرف سكربت
}
scramble.start
}
alias scramble.start {
/set %sword. [ $+ [ $active ] ] $did(scramdlg,6)
/set %shint. [ $+ [ $active ] ] $did(scramdlg,5)
scramble.enter
}
On 1:dialog:ScramDlg:*:44: { /scramble }
alias scramble.enter {
if ($chr(35) isin $active) { /q $active }
if (ضـع الإجـابـه هـنـا == $did(scramdlg,6)) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي| halt }
if ($did(scramdlg,6) == $null) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي| halt }
if ($did(scramdlg,5) == $null) { echo -a 1&15^1&15> ضع سؤال قبل ارساله للقناة ياذكي | halt }
set %sword. [ $+ [ $active ] ] $lower( %sword. [ $+ [ $active ] ] )
set %sranword. [ $+ [ $active ] ] $waroeng7( %sword. [ $+ [ $active ] ] )
msg $active -_-_-_-_-_-_-&سكرامبل بدااا
msg $active %shint. [ $+ [ $active ] ] .. 1 سؤال %LOGO
msg $active %sranword. [ $+ [ $active ] ] ..1 الجواب يتكون من الاحرف التاليه. %LOGO
}
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:dialog:ScramDlg:*:33: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%work. [ $+ [ $active ] ] != On) { echo -a 1&15^1&15> لم يتم تشغيل السكرامبل في قناة الحاليه | halt }
}
On 1:dialog:ScramDlg:*:22: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%sword. [ $+ [ $active ] ] != $null) {
msg $active 6,6 0,1 %sword. [ $+ [ $active ] ] الاجابه الصحيحه هي. | unset %sword. [ $+ [ $active ] ] | unset %shint. [ $+ [ $active ] ]
}
unset %sword. [ $+ [ $active ] ]
unset %sranword. [ $+ [ $active ] ]
}
On 1:dialog:ScramDlg:*:66: {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
if (%work. [ $+ [ $active ] ] != On) { echo -a 1&15^1&15> لم يتم تشغيل السكرامبل في قناة الحاليه | halt }
if (%Winer. [ $+ [ $active ] ] == $Null) { echo -a لايوجد فائز | halt }
if (%work. [ $+ [ $active ] ] == On) && (%Winer. [ $+ [ $active ] ] != $Null) && (%Winer. [ $+ [ $active ] ] != Off) {
msg $active 6,6.0,1 %Winer. [ $+ [ $active ] ] أنت الفايز مبروك
}
}
On 1:dialog:ScramDlg:*:55: {
/scramble.rscore
}
alias scramble.rscore {
if ($chr(35) !isin $active) { echo -a 1&15^1&15> لايتم تنفيذ الامر الا بالقناة | Halt }
unset %Mgra. [ $+ [ $active ] ]
unset %delscore. [ $+ [ $active ] ]
unset %sword. [ $+ [ $active ] ]
unset %shint. [ $+ [ $active ] ]
unset %sranword. [ $+ [ $active ] ]
unset %score. [ $+ [ * ] $+ . $+ [ $active ] ]
unset %Winer. [ $+ [ * ] $+ . $+ [ $active ] ]
set %work. [ $+ [ $active ] ] Off
msg # عيد العبه.
echo -a 1&15^1&15> تم تصفير النتائج للقناة الحاليه
}
On 1:dialog:ScramDlg:*:11: {
/scramble.stop
}
alias scramble.stop {
set %seeits 0
:seeit
inc %seeits
if ($chan(%seeit) == $null) { goto end }
if (%work. [ $+ [ $chan(%seeits) ] ] == On) {
msg $chan(%seeits) 15ياحلو Game Over
}
goto seeit
:end
unset %seeits*
unset %tempf
unset %sword.*
unset %shint.*
unset %sranword.*
unset %score.*
unset %work.*
unset %Winer.*
unset %Mgra.*
echo -s 1&15^1&15> تم اغلاق السكرامبل وتصفير جميع النتائج
}
On 1:TEXT:*:#: {
if (%work. [ $+ [ $Chan ] ] != On) { Halt }
if (%sword. [ $+ [ $Chan ] ] == $null) { goto end }
if (%sword. [ $+ [ $Chan ] ] != $strip($1-)) { goto end }
inc %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ]
if (%Mgra. [ $+ [ $Chan ] ] == $Null) { set %Winer. [ $+ [ $Chan ] ] $Nick | set %Mgra. [ $+ [ $Chan ] ] %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] | Goto NOop0 }
if (%Mgra. [ $+ [ $Chan ] ] < %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ]) { set %Winer. [ $+ [ $Chan ] ] $Nick | set %Mgra. [ $+ [ $Chan ] ] %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] | Goto NOop0 }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) && (%Winer. [ $+ [ $Chan ] ] != $Nick) { unset %Winer. [ $+ [ $Chan ] ] | goto NOop0 }
:NOop0
/msg $Chan $Nick %sword. [ $+ [ $Chan ] ] ] الاجــــابه صحيـــــحه
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $Chan $Nick نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز بأول نقطه مبروووووك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $Chan $Nick نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز وعندك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $Chan 6,6.0,1 $Nick نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] أنت الفايز وعندك. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $Chan $Nick نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] مشا الله عليك أنت الفايز. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] != %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديـك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $Chan 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديـــك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $Chan 6,6.0,1 $Nick 12,12.18 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لـــديــك الأن 6,6. }
}
unset %sword. [ $+ [ $Chan ] ]
unset %shint. [ $+ [ $Chan ] ]
goto NOop3
:end
if ($strip($1-) != ن) { goto NOop3 }
if (%lastnickr == $Nick) { goto NOop3 }
set -u60 %lastnickr $Nick
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == $Null) { /.msg ScramGame $Nick 5,5.17,5 $Nick 5,5.17,5 لا يوجد لديك اي نقاط 6,6. | goto NOop3 }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15انت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /msg $chan 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /msg $chan 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15انت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /.msg ScramGame $Nick 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15أنت الفائز ولديك الأن 6,6. }
}
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] != %Mgra. [ $+ [ $Chan ] ]) {
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == $Null) { /.msg ScramGame $Nick 6,6.15,1 $Nick 5,5.17,5 لا يوجد لديك اي نقاط 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 1) { /.msg ScramGame 6,6.0,1 $Nick 5,5.17,5 نقطه واحده0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] == 2) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطتين0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 2) && (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] < 11) { /.msg ScramGame $Nick 6,6.0,1 $Nick 6,6.15,1 نقاط0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
if (%score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] > 10) { /.msg ScramGame $Nick 6,6.0,1 $Nick 5,5.17,5 نقطه0 %score. [ $+ [ $Nick ] $+ . $+ [ $Chan ] ] 15لديك الأن 6,6. }
}
:NOop3
}
------------------------------------------------------------
وهذا تحطه في popups
سكرامبل:/Scra