Miscellany

ON *:TEXT:!numberguess:#numberguess: { 
  set %start [ $+ [ $nick ] ] 1
  set %number [ $+ [ $nick ] ] $r(1,100)
  set %guess [ $+ [ $nick ] ] 0
  notice $nick You've started NumberGuess! Guess the number between one and hundred!
  notice $nick To guess a number type !Guess <number>
}
ON *:TEXT:!guess*:#numberguess: { 
  if (%start [ $+ [ $nick ] ] != 1) { notice $nick [Error] To start NumberGuess type !NumberGuess | Halt }
  inc %guess [ $+ [ $nick ] ] $+ %nick 1
  if ($2 == %number [ $+ [ $nick ] ] ) {
  notice $nick Well done! You've got the number ( %number [ $+ [ $nick ] ] ) ! | unset %start | unset %guess [ $+ [ $nick ] ] } 
  elseif ($2 < %number [ $+ [ $nick ] ] ) { notice $nick Higher! You've guessed %guess [ $+ [ $nick ] ] Times! }
  elseif ($2 > %number [ $+ [ $nick ] ] ) { notice $nick Lower! You've guessed %guess [ $+ [ $nick ] ] Times! }
}