Hangman

on *:Text:!hangman:#: {
  if (%hangman) notice $nick This game is already running. 
  set %hangman.chan $chan
  set %hangman.time $rand(300,600)
  set %hangman $rand(2,5)
  if (%hangman == 2) { .set %hangman _ _ _ _ _ _ }
  if (%hangman == 3) { .set %hangman _ _ _ _ _ }
  if (%hangman == 4) { .set %hangman _ _ _ _ _ _ _ _ }
  if (%hangman == 5) { .set %hangman _ _ _ _ }
  set %hangman.2    
  if (%hangman.2 == 2) { .set %hangman George }
  if (%hangman.2 == 3) { .set %hangman Trees }
  if (%hangman.2 == 4) { .set %hangman Elephant }
  if (%hangman.2 == 5) { .set %hangman Door }
  msg $chan The word you have to guess for Hangman is:
  msg $chan 0.........12 %hangman
  msg $chan You have12 %hangman.time 1seconds to finish this game.
  msg $chan Type ! then a letter of the alphabet to guess.
  .enable #hangon
  .timerhang 1 %hangman.time /hangman
}
#hangon on
on *:Text:*:%hangman.chan: {
  if ($1 == !a) notice $nick You have guessed 'A'
  elseif ($1 == !b) notice $nick You have guessed 'B'
  elseif ($1 == !c) notice $nick You have guessed 'C'
  elseif ($1 == !d) notice $nick You have guessed 'D'
  elseif ($1 == !e) notice $nick You have guessed 'E'
  elseif ($1 == !f) notice $nick You have guessed 'F'
  elseif ($1 == !g) notice $nick You have guessed 'G'
  elseif ($1 == !h) notice $nick You have guessed 'H'
  elseif ($1 == !i) notice $nick You have guessed 'I'
  elseif ($1 == !j) notice $nick You have guessed 'J'
  elseif ($1 == !k) notice $nick You have guessed 'K'
  elseif ($1 == !l) notice $nick You have guessed 'L'
  elseif ($1 == !m) notice $nick You have guessed 'M'
  elseif ($1 == !n) notice $nick You have guessed 'N'
  elseif ($1 == !o) notice $nick You have guessed 'O'
  elseif ($1 == !p) notice $nick You have guessed 'P'
  elseif ($1 == !q) notice $nick You have guessed 'Q'
  elseif ($1 == !r) notice $nick You have guessed 'R'
  elseif ($1 == !s) notice $nick You have guessed 'S'
  elseif ($1 == !t) notice $nick You have guessed 'T'
  elseif ($1 == !u) notice $nick You have guessed 'U'
  elseif ($1 == !v) notice $nick You have guessed 'V'
  elseif ($1 == !w) notice $nick You have guessed 'W'
  elseif ($1 == !x) notice $nick You have guessed 'X'
  elseif ($1 == !y) notice $nick You have guessed 'Y'
  elseif ($1 == !z) notice $nick You have guessed 'Z'
  if ($2 isin %hangman.time) {
    .timerhang off
    msg $chan You have completed the game! Congrats
  }
}
#hangon end
on *:text:!stophm:%hangman.chan: {
  if ($nick isop $chan ) {
    .timerhang off
    msg $chan The game Hangman has been stopped
  }
  .disable #hangon
  .unset %hangman*
}

alias Hangman {
  msg %hangman.chan You have run out of time. Thats disapointing. Maybe you will get it next time.
  .disable #hangon
  .unset %hangman*
}