;############################################################################
; لعبة السكرامبل
;############################################################################

alias scramble {
  set %schan #
  scramble.start                 
}
alias scramble.start {
  set %sword $$?="ادخل الكلمه او الجمله!"
  set %shint $$?="ادخل التلميح او السؤال!"
  scramble.enter
}
alias scramble.rscore {
  set %delscore $$?!="هل انت متأكد?"  
  if (%delscore == $true) { unset %score.* | unset %delscore }
  if (%delscore == $false) { unset %delscore | halt }
}
alias scramble.tellans {
  set %tell $$?!="هل انت متأكد?"  
  if (%tell == $true) { /msg %schan 7,1 :))79 الاجابه الصحيحه هي %sword 0,0 6B14y 6Y14o6u14-6A14n6d14-6I | unset  %tell | unset  %shint }
  if (%tell == $false) { unset %tell | halt }
}
alias scramble.stop {
  set %sstop $$?!="هل انت متأكد?"  
  if (%sstop == $true) { 
    msg %schan 7اللعبه أنتهت 6
    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 7,1* CoteDor لعبة السكرامبل قد بدأت *
  /msg %schan 7,1[*السؤال يقول*]11 %shint
  /msg %schan 7,1[*الجواب يتكون من*]11 %sranword
}
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 11,1 $nick 7,1الجواب هو  %sword   $+ **** 79الاجابة صحــيــحه!!
/msg %schan 11,1 $nick 7,1 لديك الان %score. [ $+ [ $nick ] ] نقطة في للعبه الاسئله 8,1 79!!!
/msg %schan 11,1Type7 /ctcp $me 9Score
unset %sword
unset %shint
}
ctcp 1:score: {
/notice $nick 11,1 $nick 7,1 لديك الان %score. [ $+ [ $nick ] ] نقطة في للعبه الاسئله 8,1 79!!!  
/notice $nick 6B14y 6C14o6t14e6D14o6r
}
menu channel {
««« Scramble »»»
.Start Playing:/scramble
.-
.Repeat Result:/scramble.rscore
.Stop The Game:/scramble.stop
.Tell Them The Answer:/scramble.tellans
}


alias thank dialog -mo thank thank
dialog thank {
  title "Channel #Scripts In ArabChat"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }