on *:TEXT:!bpcoff:#: {
  if (%pcscript == off) { halt }
  elseif ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
    set %pcscript off
    msg $chan 8,1Pestcontrol script turned off blame 9,1 $nick .
  }
}
On *:TEXT:!bpcon:#: {
  if (%pcscript == on) { halt }
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
    set %pcscript on
    msg $chan 8,1Pestcontrol script turned on thank 9,1 $nick .
  }
}

on $*:text:/^[!](change|setworld|setpcw) */Si:#: {
  if (%pcscript == off) { halt }
  else {
    if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) && ($2 isnum 2-140) {
      set %pcw $2
      set %pcname $nick
      msg $chan 8,1The pcworld has been changed to 9,1 %pcw 8,1by 9,1 $nick
    }
  }
}
on $*:text:/^[!](pcw|world)/Si:#: {
  if (%pcscript == off) { halt }
  else {
    notice $nick 8,1The current pcw is 9,1 %pcw  8,1set by 9,1 %pcname
  }
}
on *:Text:!wsay:#: {
  if (%pcscript == off) { halt }
  else {
    if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
      /timer 0 30 /msg $chan 8,1The current world is 9,1 %pcw 8,1set by 9,1 %pcname
    }
  }
}
on *:Text:!wsoff:#: {
  if (%pcscript == off) { halt }
  else {
    if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
      /timers off
    }
  }
}