LO, This is a more advanced version to the one allready posted, its got stats, and you only ot 5 tries to get the number!

;####Higher/Lower####
;####Scripted by Sw1ft @ #United-Kingdom ####
;#### Dont Change :) ####
;####Commmands####
;####$start####
;####$guess####
;####$stop#####

;#### The Game. ####

on 1:TEXT:$($!start):#:{
  if (%gameoff == OFF) { halt }
  if (%game) { halt }
  if ($me isop $chan) { 
    inc %played [ $+ [ $address($nick,1) ] ]
    set %nick $nick 
    set %channel $chan
    set %number $rand(1,100) 
    set %game on
    set %playss 5
    timerhigh 1 360 lose
    msg $chan 7Game 7On 7 %nick  $+ , 7 $chr(36) $+ Guess <7number> ( 7 1  - 7 100  ) , To get the number, Youve got 5 Tries! Youve Got 60 Seocnds To Get The Number!
  }
} 

on 1:TEXT:$($!guess*):#:{ 
  if (%gameoff == OFF) { halt }
  if ($nick == %nick) {
    if ($me isop $chan) { 
      inc %plays 
      if ($2 == %number) { 
        inc %well.played [ $+ [ $address($nick,1) ] ] 
        msg $chan Well Played 7 $nick  $+ . , You Got It Right !  
        msg $chan 7Played: ( %played [ $+ [ $address($nick,1) ] ] ) 7Failed: ( %failed [ $+ [ $address($nick,1) ] ] ) 7Got Right: ( %well.played [ $+ [ $address($nick,1) ] ] ) 
        unset %game 
        unset %plays 
        unset %number 
        timerhigh off 
        unset %nick  
        halt 
      }
      if ($2 > 100) {
        msg #  $nick $+ . N7umbers ( 7 1 -7 100 )
        halt
      }
      if ($2 == $null) {
        msg $chan $chr(36) $+ guess <number> 
        halt 
      }
      if (%plays == %playss) { 
        inc %failed [ $+ [ $address($nick,1) ] ] 
        kick $chan $nick 4Unlucky $nick $+ . The number Was (7 %number ) 
        msg $chan 7Played: ( %played [ $+ [ $address($nick,1) ] ] ) 7Failed: ( %failed [ $+ [ $address($nick,1) ] ] ) 7Got Right: ( %well.played [ $+ [ $address($nick,1) ] ] ) 
        unset %plays 
        unset %game 
        unset %plays 
        unset %number 
        unset %nick 
        timerhigh off 
        halt  
      }
      if ($2 > %number) { 
        msg $chan The Number Is 7Lower $nick  
        halt 
      }
      if ($2 < %number) { 
        msg $chan The Number Is 7Higher $nick  
        halt 
      }
    }
  } 
}
on 1:TEXT:$($!stop):#:{   
  if (%gameoff == OFF) { halt }
if ($nick == %nick) { unset %nick | unset %game | unset %number | unset %number | unset %nick | timerhigh off |  msg $chan 7Game 7Stopped. } }
on 1:TEXT:$(!stats):#:{
  if (%guess) { halt }
  else { set -u5 %guess 1 | msg $chan  $nick $+ . 7Played: ( %played [ $+ [ $address($nick,1) ] ] ) 7Failed: ( %failed [ $+ [ $address($nick,1) ] ] ) 7Got Right: ( %well.played [ $+ [ $address($nick,1) ] ] )
  }
}

alias lose {
  inc %failed [ $+ [ $address(%nick,1) ] ]
  kick %channel %nick 4Unlucky $nick $+ . The number Was (7 %number ) 
  msg %channel 7Played: ( %played [ $+ [ $address(%nick,1) ] ] ) 7Failed: ( %failed [ $+ [ $address(%nick,1) ] ] ) 7Got Right: ( %well.played [ $+ [ $address(%nick,1) ] ] ) | unset %plays | unset %game |  unset %plays | unset %number | unset %nick |  halt  
}
on 1:TEXT:$($!game*):#:{
  if ($address($nick,1) iswm *!*sw1ft@wackybot.users.quakenet.org) {
    if ($2 == off) {
    set %gameoff off | msg # G7ame O7ff |  halt }
    if ($2 == on) {
    unset %gameoff | msg #  G7ame O7n | halt } 
  }
}