on *:text:!guess*:#:{
  /number {
    notice $nick Guessing game has been started
    set %k 0
    set %r 1
    :one
    set %r $calc((%r)*10)
    var %x $rand(1,(%r))
    set %k $calc((%k)+1)
    notice $nick Level %k
    notice $nick 1 to %r
    notice $nick Type !guess <number> 
    :two
    set %a $2
    :three
    if(%a == %x) {
      notice $nick You found the number
    goto one }
    elseif(%a > %x) { 
      notice $nick Its lower
    goto two }
    elseif( %a < %x) {
      notice $nick Its higher
    goto two }
    else { goto three }
  }
}