alias ssskk { 
  unset %eh.* | set %eh.w 1 | :hun | inc %eh.hi | if (%eh.hi > $len($gettok($1-,%eh.w,32))) goto nuh | set %eh.ko %eh.ko $mid($gettok($1-,%eh.w,32),%eh.hi,1) | goto hun | :nuh | set %eh.l $r(1,$gettok(%eh.ko,0,32)) 
  if (%eh.hi) { set %eh.ow %eh.ow $gettok(%eh.ko,%eh.l,32) | unset %eh.hi } 
  else set %eh.ow %eh.ow $+ $gettok(%eh.ko,%eh.l,32) 
  if ($len($gettok(%eh.ow,%eh.w,32)) == $len($gettok($1-,%eh.w,32))) {
    if ($len(%eh.ow) == $len($1-)) return %eh.ow | inc %eh.w | unset %eh.ko | goto hun 
  }
  set %eh.ko $deltok(%eh.ko,%eh.l,32) | goto nuh 
} 
menu channel {
  Scramble
  .Start:{
    set %word $?="entre the word please" 
    set %hint $?="enter the hint please"
    set %batword $ssskk(%word) 
    if (%word != $null) { 
      msg # [word] : %batword
      msg # [hint] : %hint
      set %hill on
      set %chan $chan
    }
  }
  .say the answer:{
    if (%word != $null) { msg %chan the answer is %word | unset %hoe | unset %word } 
    else { unset %hoe | echo you should but your question before till them the answer ! | halt }
  }
  .unset score:{
    set %rscore $$?!="are you sure ?" 
    if (%rscore == $true) { unset %cor.* | unset %rscore } 
    if (%rscore == $false) { unset %rscore | halt } 
  } 
}
on *:text:%word:%chan:{
  if (%hill == on) {
    inc %cor. [ $+ [ $nick ] ]
    msg $chan $nick the right answer is %word your score now is %cor. [ $+ [ $nick ] ]
    set %hill off
    unset %word 
    unset %chan
  }
}
ctcp 1:score: if (%cor. [ $+ [ $nick ] ] != $null) { notice $nick your score now is %cor. [ $+ [ $nick ] ] }
else { notice $nick sorry but your score is 0 }
}
