All pastes #886448 Raw Edit

Stuff

public text v1 · immutable
#886448 ·published 2008-01-31 18:03 UTC
rendered paste body
ON *:TEXT:!numberguess:#ircgames: {
  set %begin [ $+ [ $nick ] ] 1
  inc %begin [ $+ [ $nick ] ] 1
  set %start [ $+ [ $nick ] ] 1
  set %number [ $+ [ $nick ] ] $r(1,100)
  set %guess [ $+ [ $nick ] ] 0
  if (%begin == 1) { unset %begin [ $+ [ $nick ] ] }
  notice $nick 2[ 7» 14You've started 7NumberGuess14! Guess the number between one and hundred! 7« 2]
  notice $nick 2[ 7» 14To guess a number type 7!Guess <number> 7« 2] | unset %begin [ $+ [ $nick ] ]
  else { notice $nick stfu testing plx }
}
ON *:TEXT:!guess*:#ircgames: { 
  if ($2 > 100) { notice $nick 14[2Error2] 14A number between 1 and 100 not "7 $2 " 14dumbhead! }
  if ($2 < 1) { notice $nick 14[2Error2] 14A number between one and hundred not "7 $2 " 14dumbhead! }
  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] 
    writeini highscore.ini Highscores %guess [ $+ [ $nick ] ] $nick 
  unset %start [ $+ [ $nick ] ] | unset %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:!help numberguess:#ircgames: { 
  notice $nick 2[14Help2]14 Type 7!Numberguess 14to start the game, then type 7!guess <number>
  notice $nick 2[14Help2]14 The bot will say if you need to guess higher or lower. Continue until you have the right number.
}
ON *:TEXT:!help:#ircgames: {
  notice $nick 2[14Help2]14 Type 7!List 14for a list of games, 
  notice $nick 2[14Help2]14 Type 7!Help <game>14 for specific help on a game
  notice $nick 2[14Help2]14 For more help Pm 7Bazjah
}
ON *:JOIN:#ircgames: {
  inc %join 1
  Notice $nick 2[ 7» 14Welcome to 2#IRCGames14, Type 2!help 14for help, I've seen2 %join 14joins 7« 2]
}
ON *:TEXT:!list:#ircgames: { 
  msg $nick 2[ 7» 14List of Games 7« 2]
  msg $nick 2[ 7» 14!NumberGuess 7« 2]
}
ON *:TEXT:!score:#ircgames: {
  notice $nick $readini(highscore.ini,[Highscores],$nick) 
}