menu * { 
  PCW System -->
  ..PCW Dialog:/dialog -m PCW PCW 
}
dialog PCW {
  title "PCW Dialog | Made By: Jdawg140 ©"
  size -1 -1 160 60
  option dbu
  button "Ok", 1, 0 0 37 60, ok
  button "Cancel", 2, 123 0 37 60, cancel
  edit "Script By Jdawg140 © ", 3, 50 0 60 12, center
  edit "World", 4, 50 12 60 12, center
  edit "#Channel", 6, 50 24 60 12, center
  button "Set PCW", 5, 50 36 60 24, center
}
on *:DIALOG:PCW:sclick:5:{ 
  set %pcw $+ $did($dname,6) $did($dname,4)
  set %nick3 $+ $did($dname,6) $me
  set %pcwtime $+ $did($dname,6) $ctime
  msg $did($dname,6) 12PestControl world updated by4 $me $+ 12. Type 4!pcw12 to view the world.
}
ON *:TEXT:!world:# :{ if ($nick isreg $chan) { halt }
  if (%pcw [ $+ [ $chan ] ] == $null) { 
    notice $nick There is no set World.
  }
  else { 
    notice $nick 12The current PestControl world is:4 %pcw [ $+ [ $chan ] ] 12Set by: %nick3 [ $+ [ $chan ] ] $+ 4 $duration($calc( $ctime - %pcwtime [ $+ [ $chan ] ] )) ago.
    unset %away $+ $nick 12 ago.
  }
}
ON *:TEXT:!setworld *:# :{ 
  if ($2 == $null) { notice $nick 4ERROR: !setpcw <world 2-138> 
    halt
  }
  if ($nick isop $chan || $nick ishop $chan && $2 isnum 2-138) {
    set %pcw $+ $chan $2
    set %nick3 $+ $chan $nick
    set %pcwtime $+ $chan $ctime
    msg $chan 12PestControl world updated by4 $nick $+ 12. Type 4!world12 to view the world. 
    halt
  }
  if ($2 == 1) {
    notice $nick 4ERROR: 1 is a f2p server
    halt
  }
  if ($2 isletter A-Z) || ($2 isletter a-z) {
    notice $nick 4ERROR: I did not know $2 was a number...
    halt
  }
  else { 
    notice $nick 4ERROR: Are you halfop? No your not. 
  }
}