on *:TEXT:!comp *:#: {
  set %join.chan $chan
  if (!$2) { msg $chan you have a competition for who can not talk for the longest! type join to join the game! }
  else { msg $chan You have a competition for who can say $2- the least amount of times. type join to join the game! }
}
on *:Text:join:#: {
  if ($chan == %join.chan) { You have joined the game! }
} 
on *:TEXT:!comp *:#:{
  if ((%comp. [ $+ [ $chan ] ] == $null) && ($2 == $null)) { set %comp. [ $+ [ $chan ] ] }
  if ((%comp. [ $+ [ $chan ] ] == $null) && ($2 != $null)) { set %comp. [ $+ [ $chan ] ] | set % [ $+ [ $+(word,.,$chan) ] ] $2 }
  if (%comp. [ $+ [ $chan ] ] != $null) { msg $chan This game is already active. }
}
on *TEXT:JOIN:#:{
  if (%comp. [ $+ [ $chan ] ] != $null) { set %player. [ $+ [ $chan ] ] $nick }