PCW SCRIPT
menu * { 
  PCW System --> 
  ..PCW Dialog:/dialog -m PCW PCW 
} 
dialog PCW { 
  title "PCW Dialog | Made By: Horrorman2 ©" 
  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 Horrorman2 © ", 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) PestControl world updated by $me $+ . Type !pcw to view the world. 
} 
ON *:TEXT:!pcw:#:{ 
  if ($chan == #IRChelp) { halt }
  if ($chan == #mIRC) { halt }
  if ($nick isreg $chan) { halt } 
  if (%pcw [ $+ [ $chan ] ] == $null) { 
    notice $nick There is no set World. 
  } 
  else { 
    notice $nick 10,15The current PestControl world is: %pcw [ $+ [ $chan ] ] Set by: %nick3 [ $+ [ $chan ] ]  $duration($calc( $ctime - %pcwtime [ $+ [ $chan ] ] )) ago. 

  } 
} 
ON *:TEXT:!setpcw*:#:{ 
  if ($chan == #IRChelp) { halt }
  if ($chan == #mIRC) { halt }
  if ($2 == $null) { notice $nick ERROR: !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 10,15PestControl world updated by $nick $+ . Type !pcw to view the world. 
    halt 
  } 
  if ($2 == 1) { 
    notice $nick ERROR: 1 is a f2p server 
    halt 
  } 
  if ($2 isletter A-Z) || ($2 isletter a-z) { 
    notice $nick ERROR: I did not know $2 was a number... 
    halt 
  } 
  else { 
    notice $nick ERROR: Are you halfop? No your not. 
  } 
} 
#
ON *:TEXT:!suggest*:#:{ 
  if ($chan == #IRChelp) { halt }
  if ($chan == #mIRC) { halt }
  if ($2 == $null) { notice $nick ERROR: !suggest <world 2-138> 
    halt
  }
  set %spcw $+ $chan $2
  set %nick3 [ $+ [ $chan ] ] $nick
  msg $chan 10,15There has been a world suggested, to view it type:!spcw. Please confirm this world with the leading Op/Hop to make it a pcw.

  halt
}
if ($2 == 1) {
  notice $nick ERROR: 1 is a f2p server [``Luke`` Script]
  halt
}
if ($2 isletter A-Z) || ($2 isletter a-z) {
  notice $nick ERROR: I did not know $2 was a number...
  halt
}
}   
ON *:TEXT:!spcw:#:{
  if ($chan == #IRChelp) { halt }
  if ($chan == #mIRC) { halt }
  if ($nick isreg $chan) { halt }  
  if (%spcw [ $+ [ $chan ] ] == $null) { 
    notice $nick 10,15There is no set Suggested World.
  } 
  else { 
    notice $nick 10,15The current Suggested world is: %spcw [ $+ [ $chan ] ] Set by: %nick3 [ $+ [ $chan ] ] $duration($calc( $ctime - %spcwtime [ $+ [ $chan ] ] )) ago.
  }  
}