Mine

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 (%pc == on) msg #rspc-staff 12 $nick has suggested world4 $2 $+ . 12- $iif($3,Reason:4 $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
    }
  }
}