alias /check {
  if ($lines($eval($+($chan,players,.,txt))) == 1) {
    /msg $chan $read($+($chan,players,.,txt)) won! yay!
    /unset %comp. [ $+ [ $chan ] ]
    /unset %player. [ $+ [ $+($chan.,*) ] ]
    /unset %word. [ $+ [ $chan ] ]
  }
}
on *:TEXT:!comp *:#:{
  if (%comp. [ $+ [ $chan ] ] == $null) {
    set %comp. [ $+ [ $chan ] ] word
    set % [ $+ [ $+(word,.,$chan) ] ] $2 
    msg $chan Game initiated by $nick $+ , Now whoever doesn't say % [ $+ [ $+(word,.,$chan) ] ] the longest wins.
  }
  elseif (%comp. [ $+ [ $chan ] ] != $null) {
    msg $chan This game is already active.
  }
}
on *:TEXT:!comp:#:{
  if (%comp. [ $+ [ $chan ] ] == $null) {
    set %comp. [ $+ [ $chan ] ] noword 
    msg $chan Game initiated by $nick $+ , no whoever can stay quiet the longest wins this game.
  }
  elseif (%comp. [ $+ [ $chan ] ] != $null) {
    msg $chan This game is already active.
  }
}
on *:TEXT:!join:#:{
  if (%comp. [ $+ [ $chan ] ] != $null) {
    if (%player. [ $+ [ $+($chan,.,$nick) ] ] == $null) {
      /set %player. [ $+ [ $+($chan,.,$nick) ] ] $nick
      /write $+($chan,players,.,txt) $nick $nick
      /notice $nick You joined the game.
      /halt
    }
    if (%player. [ $+ [ $+($chan,.,$nick) ] ] != $null) {
      /notice $nick You're playing already.
    } 
  }
}
on *:TEXT:**:#:{
  if (%comp. [ $+ [ $chan ] ] == word) {
    if (($($+(%,word.,$chan),2) isin $1-) && (%player. [ $+ [ $+($chan,.,$nick) ] ] != $null)) { write -ds $+ $nick $+($chan,players,.,txt) | notice $nick You lost. | unset %player. [ $+ [ $+($chan,.,$nick) ] ] | check }
    /halt
  }
  if (%comp. [ $+ [ $chan ] ] == noword) {
    if (%player. [ $+ [ $+($chan,.,$nick) ] ] != $null) { /write -ds $+ $nick $+($chan,players,.,txt) | notice $nick You lost. | unset %player. [ $+ [ $+($chan,.,$nick) ] ] | check }
    if (%player. [ $+ [ $+($chan,.,$nick) ] ] == $null) { halt }
  }
}