JAmes

Alias level {
  mode $2 -v+h $1 $1
  msg $2 $1 has been quiet for 10 min.
}
ON *:TEXT:!QT On:#QuietGame:{
  if ($nick isop $chan) {
    set %qt on
    msg $chan The quiet game is now on! If you talk you get the boot.
  }
}
ON *:JOIN:#QuietGame:{
  .timer 1 5 $iif($nick !isop $chan,.timer $+ $nick 1 600 level $nick $chan)
}
ON *:TEXT:!QT Off:#QuietGame:{
  if ($nick isop $chan) {
    unset %qt
    msg $chan The quiet game is now off! If you talk you get the boot.
  }
}
ON *:TEXT:!Reset:#QuietGame:{
  if ($nick isop $chan) {
    var %i = 0
    while (%i < $nick($chan,0,h)) {
      inc %i
      mode $chan +v-h $nick($chan,%i,h) $nick($chan,%i,h)
    }
  }
}
ON *:TEXT:*:#QuietGame:{
  if ($nick !isop $chan) {
    mode $chan +i
    kick $chan $nick No talking!
    .timer 1 2 mode $chan -i
    .timer $+ $nick off
  }
}
ON *:NOTICE:*:#QuietGame:{
  if ($nick !isop $chan) {
    mode $chan +i
    kick $chan $nick No talking!
    .timer 1 2 mode $chan -i
    .timer $+ $nick off
  }
}
ON *:ACTION:*:#QuietGame:{
  if ($nick !isop $chan) {
    mode $chan +i
    kick $chan $nick No talking!
    .timer 1 2 mode $chan -i
    .timer $+ $nick off
  }
}