on $*:TEXT:[!@.]setpcw/Si:?:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %pctime $ctime
    Set %Pestcontrol $2
    inc %worldchanged 1
    unset %pccount
    unset %ctime
    msg $chan A new pcw has been set plz type !pcw or !world to view. The pestcontrol world has been changed %worldchanged times.
  }
}
on $*:TEXT:/^[!@.](pcw|world)/Si:#:{
  inc %pccount 1
  notice $nick The current pcw is >> %Pestcontrol << seen %pccount times. Set $duration($calc($ctime - %pctime)) ago. The suggested world is >> %suggest <<
}
on $*:TEXT:/^[!@.]suggest/si:#:{
  set %suggest $2
  msg $chan $nick has suggested world >> %suggest <<
}
on *:TEXT:!setpm*:#:{
  if (($nick isop $chan) || ($nick ishop $chan)) {
    set %pm $2
    msg $chan Plz pm >> %pm << to get voice. 
  }
}

on *:TEXT:!pm*:#:{
  if %pm {
    msg $chan Plz pm >> %pm << to get voice.
  }
}
on *:join:#:{
  if %pm {
    Msg $nick Pm >> %pm << to get voice if not already.
  }
}
on *:TEXT:!av*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    mode $chan +v $2
    set %autovoice [ $+ [ $2 ] ]
    msg $chan $2 has been added to the auto voice list
  }
}
on *:TEXT:!isop*:#: {
  if ($nick isop $chan) {
    mode $chan +o $2
    set %autovoice [ $+ [ $2 ] ]
    msg $chan $2 has been added to the auto op list
  }
}
on *:TEXT:!ishop*:#: {
  if ($nick isop $chan) {
    mode $chan +h $2
    set %autovoice [ $+ [ $2 ] ]
    msg $chan $2 has been added to the auto half-op list
  }
}