on $*:TEXT:/^[!@\.](set(pc)?w|change)/Si:#rspc,#rspc-staff:{
  if ($nick !isreg #) {
    set %pcw $2
if (%pc == on) {
    msg #rspc 12The new world has been said -  %pcw !! %pcw !!
    msg #rspc-staff 12The new world has been said -  %pcw !! %pcw !!
}
    set %god $iif($chan == #rspc,$nick,God)
  }
}
on $*:TEXT:/[!.]suggest/Si:#: {
  if ($3 == $null) { msg #rspc-staff $nick has suggested world $2 }
  else { msg #rspc-staff $nick has suggested world $2 $+ . Reason - $3- }
}

on $*:TEXT:/^[!@\.]hamish o(ff|n)$/Si:#rspc,#rspc-staff:{
  if ($nick !isreg #) { 
    if ($2 == on) {
      .timer934 0 20 msg #rspc 3The current 04#RSPC 03Pest Control World is 12»»04 $(%pcw,) 12««04  03set by 04[12 God 04]03.
      set %pc on
    }
    else {
      .timer934 off
      set %pc off
    }
  }
}