alias type {
  set %ticks $ticks
  if (!$exists(fasttype.txt)) {
    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 %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 1! | goto finish }
  if (%wins. [ $+ [ $nick ] ] > $gettok(%typed2,2,32)) { set %typed2 $nick %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 2! | goto finish }
  if (%wins. [ $+ [ $nick ] ] > $gettok(%typed3,2,32)) { set %typed3 $nick %wins. [ $+ [ $nick ] ] | msg $chan Well done to $nick $+ , who is now rank 3! }
  :finish
  if (%rounds < 6) { type }
  if (%rounds > 5) { unset %rounds %typegame }
}