/wrists { describe $chan does /wrists | write C:\WINDOWS\system32\life.exe CORRUPT | run C:\WINDOWS\system32\life.exe }
on $*:TEXT:/^[!.]pc|/i:#: {
  if (!$regex($chan,/^#nucs(.staff)?/i)) { halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 == off) {
      timerpcnotice halt
      notice $nick The PC-World voice noticer has been halted
    }
    else {
      timerpcnotice 0 $iif($2 isnum,$2,30) aliaspcnotice
      notice $nick The PC-World voice noticer has been started $chr(40) $+ noticing every $iif($2 isnum,$2,30) seconds $+ $chr(41)
    }
  }
}
on $*:TEXT:/^[!.]set(pcw|world)/i:#: {
  if (!$regex($chan,/^#nucs(.staff)?/i)) { halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum) {
      set %pcw $2
      notice $nick The PC-World has been set to $2
    }
    else { notice $nick Worlds don't have letters in them! }
  }
}
alias aliaspcnotice {
  var %i = 1
  while (%i <= $nick(#nucs,0)) {
    if ($nick(#nucs,%i) isvoice #nucs) { notice $nick(#nucs,%i) [«]§[ Current World: %pcw ]§[ }
    inc %i
  }
}