on *:text:!pcw*:#pcplace*:{
  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*:#pcplace*:{
  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*:#pcplace*:{
  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*:#pcplace*:{
  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*:#pcplace*:{
  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*:#pcplace*:{
  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:!suggest*:#pcplace:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    set %suggest $2- 
    /notice $nick Thankyou, your suggestion has been added. If you abuse this system you will be banned.
  }
}
on *:text:!change*:#pcplace:{
  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*:#pcplace:{
  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.
  }
}
on *:TEXT:!pest on:#pcplace,#pcpalace: {
  if ($nick isop $chan) || ( $nick ishop $chan) {
    set %pcwstatus on
    msg #pcplace 4»]|[ 10 $nick 15Has Turned On The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«.
    msg #pcpalace 12»4]|[ 10 $nick 15Has Turned On The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«.
  }
}

on *:TEXT:!pest off:#pcplace,#pcpalace: {
  if ($nick isop $chan) || ( $nick ishop $chan) {
    set %pcwstatus off
    msg #pcplace 4»]|[ 10 $nick 15Has Turned Off The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«.
    msg #pcpalace 12»4]|[ 10 $nick 15Has Turned Off The 10!Pcw 15And 10!W 15And 10!World 15Commands For 10 $me $+ 4 ]|[«.
  }
}