Stuff

alias type {
  set %ticks $ticks
  write fasttype.txt ROUND
  write fasttype.txt RANDOM
  write fasttype.txt SUPER-MAN
  write fasttype.txt LAPTOP
  write fasttype.txt TELEPHONE
  write fasttype.txt RUNESCAPE
  write fasttype.txt HAIRBRUSH
  write fasttype.txt TELEVISION
  write fasttype.txt BOTTLE
  write fasttype.txt PUNCHBAG
  write fasttype.txt GUITAR
  write fasttype.txt BELT
  write fasttype.txt LIGHTS
  write fasttype.txt ESTABLISHMENT
  write fasttype.txt PHOTOSYNTHESIS
  write fasttype.txt MOBILE
  write fasttype.txt SHELVES
  write fasttype.txt FOLDER
  write fasttype.txt CARPET
  write fasttype.txt FIREPLACE
  write fasttype.txt CHAIRS
  write fasttype.txt KITCHEN
  write fasttype.txt SOUND-SYSTEM
  write fasttype.txt ORDER
  write fasttype.txt DEBIT
  write fasttype.txt WHITEBOARD
  write fasttype.txt HARD-DRIVE
  write fasttype.txt RAM
  write fasttype.txt HAPPINESS
  write fasttype.txt MATHEMATICS
  set %fastgame 1
  set %typeword $read(fasttype.txt)
  if (%timerornot == 1) { msg $chan 2[Round %rounds $+ ] Try and type: 4 $+ %typeword }
  else { timer 1 5 msg $chan 2[Round %rounds $+ ] Try and type: 4 $+ %typeword }
  inc %rounds
  unset %timerornot
}
on *:TEXT:!type:#:{
  if (%typegame != 1) set %rounds 1
  set %timerornot 1
  set %typegame 1
  type
}
on *:TEXT:%typeword:#:{
  msg $chan Well done $nick $+ , you were fastest with $calc(($ticks - %ticks) / 1000) seconds.
  unset %typeword
  inc %wins. [ $+ [ $nick ] ]
  set %nick. [ $+ [ $nick ] ] $nick
  if (%wins. [ $+ [ $nick ] ] > $gettok(%typed1,2,32)) set %typed1 %nick. [ $+ [ $nick ] ] %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 1!
  if (%wins. [ $+ [ $nick ] ] > $gettok(%typed2,2,32)) set %typed2 %nick. [ $+ [ $nick ] ] %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 2! 
  if (%wins. [ $+ [ $nick ] ] > $gettok(%typed3,2,32)) set %typed3 %nick. [ $+ [ $nick ] ] %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 3! 
  if (%rounds < 6) type
  if (%rounds > 5) unset %rounds %typegame
}