on *:text:!pcw*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick isreg $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}
on *:text:@pcw*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}
on *:text:!world*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick isreg $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}
on *:text:@world*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}
on *:text:!w*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick isreg $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}
on *:text:@w*:#terry|haz|bot *:{
  if (%pcwstatus == off) { HALT }
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 4»4]|[ 15The Current PCW is:10 %world 4]|[15Updated:10 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 4]|[15World Was Set By10 %nic 4]|[«.
  }
}

on *:TEXT:!pest on:#terry|haz|bot: {
  if ($nick isop $chan) || ( $nick ishop $chan) {
    set %pcwstatus on
    msg #terry|haz|bot 4»]|[ 10 $nick 15Has Turned On The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«
  }
}

on *:TEXT:!pest off *:#terry|haz|bot *: {
  if ($nick isop $chan) || ( $nick ishop $chan) {
    set %pcwstatus off
    msg #terry|haz|bot 4»]|[ 10 $nick 15Has Turned Off The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«.
  }
}
on *:TEXT:!suggest *:#terry|haz|bot *: {
  /msg #pcpalace 4»4]|[ 15 World Suggestion By 4 $nick 10 World: $2 4 ]|[«
  /notice $nick Your world suggestion has been sent to our staff channel
}
}
on *:text:!change:#terry|haz|bot:{
if (%pcwstatus == off) { HALT }
if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
  if ($2 == %world.set) { notice $nick that world is already set. | HALT }
  /set %setpc $calc( $readini( setpcw.ini, $nick, Set ) +1)
  /writeini setpcw.ini $nick Set %setpc
  set %world $2-
  set %nic $nick
  set %pcsettime. [ $+ [ $chan ] ] $ctime
  /msg $chan 4»4]|[ 10 %nic 15Has Updated the 10Pest-Control World 15Please Type 10!Pcw 10!World 15Or 10!W 15To View The World.4]|[4«
}
else {
  /notice $nick 
}
}
on *:text:!setpcw:#terry|haz|bot:{
if (%pcwstatus == off) { HALT }
if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
  /set %setpc $calc( $readini( setpcw.ini, $nick, Set ) +1)
  /writeini setpcw.ini $nick Set %setpc
  set %world $2-
  set %nic $nick
  set %pcsettime. [ $+ [ $chan ] ] $ctime
  /msg $chan 4»4]|[ 10 %nic 15Has Updated the 10Pest-Control World 15Please Type 10!Pcw 10!World 15Or 10!W 15To View The World.4]|[4« 
}
else {
  /notice $nick 1Only 4Ops 1and 7Half-Ops 1can set the 10Pest-Control 1world.
}
}