Untitled

On $*:text:/^[!@.]Set(PCW|World)/Si:#pc_heart:{
  if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) && (%pcwstatus. [ $+ [ $chan ] ] == on) {
    /set %setpcw. $+ $chan $2
    /set %setnick. $+ $chan $nick
    /set %pcset. $+ $chan $ctime
    /msg $chan 14The 7PestControl World14 has  been updated by %setnick. $+ $chan , type !pcw or !world to see it 
  }
}
if ($2 == $null) {
/notice $nick please specify a world to set. }
else {
  halt
}
On $*:text:/^[!@.](PCW|World)/Si:#pc_heart:{
  if ($nick isreg $chan) || (%pcwstatus. [ $+ [ $chan ] ] == off) { HALT }
  else {
    /notice $nick 14The current 7PestControl World14 is:7 - %setpcw. [ $+ [ $chan ] ]  - 14by7 - %setnick. [ $+ [ $chan ] ] -  $calc($ctime - %pcset. [ $+ [ $chan ] ]) 14ago.
  }
}
On $*:text:/^[!@.]Del(PCW|World)/Si:#pc_heart: {
  if ($nick isop $chan) || ($nick ishop $chan) && (%pcwstatus. [ $+ [ $chan ] ] == on) {
    /unset %setpcw. $+ $chan
    /unset %setnick. $+ $chan
  /msg $chan 14The 7PestControl World 14is now deleted. }
  else {
    halt
  }
}
On $*:text:/^[!@.](PCW|World)-off/Si:#pc_heart:{
  if ($nick isop $chan) || ($nick ishop $chan) && (%pcwstatus. [ $+ [ $chan ] ] == on) {
    /set %pcwstatus. $+ $chan off
  /msg $chan 14The 7PestControl14 feature for $chan is now: off. }
  if (%pcwstatus == off) {
  /notice $nick You can't turn something off that's already off. }
  else {
    halt
  }
}

On $*:text:/^ [!@.](PCW|World)-on/Si:#pc_heart:{
  if ($nick isop $chan) || ($nick ishop $chan) && (%pcwstatus. [ $+ [ $chan ] ] == off) {
    /set %pcwstatus. $+ $chan  on
  /msg $chan 14The 7PestControl14 feature is now: on. }
  if (%pcwstatus. [ $+ [ $chan ] ] == on) {
  /notice $nick You can't turn something on that's already on. }
  else {
    halt
  }
}