Someone

N *:TEXT:!guess*:#ircgames: { 
  if ($2 > 100) { notice $nick 2[14Error2] 14A number between 1 and 100 not "7 $2 14" 14dumbhead! | Halt }
  if ($2 < 1) { notice $nick 2[14Error2] 14A number between 1 and 100 not "7 $2 14" 14dumbhead! | halt }
  if (%start [ $+ [ $nick ] ] != 1) { notice $nick 2[14Error2] 14To start NumberGuess type 7!NumberGuess | Halt }
  inc %guess [ $+ [ $nick ] ] 1
  if ($2 == %number [ $+ [ $nick ] ] ) {
    notice $nick 2[ 7» 14Well done! You've got the number7 %number [ $+ [ $nick ] ]  14! You've done7 %guess [ $+ [ $nick ] ] 14tries! 7« 2] 
    var %score = $readini(score.ini,Highscores,$nick)
    if (%guess [ $+ [ $nick ] ] < %score) || (!%score) { writeini score.ini Highscores $nick %guess [ $+ [ $nick ] ] }
  unset %start [ $+ [ $nick ] ] | unset %guess [ $+ [ $nick ] ] }
  var %highscore = $readini(highscore.ini,highs,$nick)
  if (%guess < $highscore) || (!%highscore) { writeini highscore.ini Highs $nick %guess [ $+ [ $nick ] ] } 
  elseif ($2 < %number [ $+ [ $nick ] ] ) { notice $nick 14[7»2Higher7«14] You've guessed2 %guess [ $+ [ $nick ] ] 14Times! }
  elseif ($2 > %number [ $+ [ $nick ] ] ) { notice $nick 14[7»2Lower7«14] You've guessed2 %guess [ $+ [ $nick ] ] 14Times! }
}
ON *:TEXT:!highscores:#ircgames: {
  var %score = $readini(highscore.ini,Highs,$nick)
notice $nick 2[14HighScore2]14 The best score set is:2 $readini(score.ini,Highs,$2) 14tries! By $readini(score.ini,highs,$nick) }
}