pcw by David

on *:TEXT:*:#:{
  if ($right($1,5) == setpc) { 
    if ($nick isop $chan) || ($nick ishop $chan) {
      if ($2 !isalnum) { halt }
      write -s $chan pcw.txt $chan $2
    }
    else notice $nick your not high enough access
  }
  if ($right($1,3) == pcw) {
    if ($nick isvoice $chan) || $nick isop $chan) || ($nick ishop $chan) {
      notice $nick the current pcw is $read(pcw.txt,s,$chan)
    }
  }
  if ($right($1,5) == start) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      timer 10 5 msg $chan PCW IS $read(pcw.txt,s,$chan)
      )
    }
  }
  if ($right($1,7) == suggest) { 
    if ($nick isvoice $chan) || ($nick ishop $chan) || $nick isop $chan) {
    if ($2 !isalnum) { halt }
      notice % $+ $chan $nick has suggested world $2 for pc
    }
  }
}