Stuff

ADD THIS: else { notice $nick The typing game is currently off. PM an op and ask them  to turn it on. }

ADD THIS: if (typeinggame == 1) ETC.

on *:TEXT:!typeoff:#:{ { if ($nick isop $chan) { set %typinggame 0 
    notice $nick The typing game is now OFF. }
else { notice $nick Only ops in a channel can gange this } } }


on *:TEXT:!typeon:#:{ { if ($nick isop $chan) { set %typinggame 1 
    notice $nick The typing game is now ON. }
else { notice $nick Only ops in a channel can gange this } } }



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