on *:text:!start*:#:{
  notice $nick Guessing game has been started
  set %k 0
  set %r 1
  goto one
  :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> 
  goto two
  :two
  on *:text:!guess:#kukeleku:{
    set %a $2
    goto three
    :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 }
  }
}