on $*:text:/^[!](changeall|setpcwall|setall|setworldall)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw40.nick. [ $+ [ $chan ] ] $nick 
    set %pcw70.nick. [ $+ [ $chan ] ] $nick 
    set %pcw100.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw40.world. [ $+ [ $chan ] ] $2 
    set %pcw40.time. [ $+ [ $chan ] ] $ctime 
    set %pcw70.world. [ $+ [ $chan ] ] $2 
    set %pcw70.time. [ $+ [ $chan ] ] $ctime
    set %pcw100.world. [ $+ [ $chan ] ] $2 
    set %pcw100.time. [ $+ [ $chan ] ] $ctime
    unset %40.suggest.
    unset %70.suggest.
    unset %1000.suggest.
    msg $chan 10»15]|[14All The Pc Worlds For12 $chan 14Have Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
}
on $*:text:/^[!](change40|setpcw40|set40|setworld40)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw40.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw40.world. [ $+ [ $chan ] ] $2 
    set %pcw40.time. [ $+ [ $chan ] ] $ctime 
    unset %40.suggest.
    msg $chan 10»15]|[14The 40+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
}
on $*:text:/^[!](change70|setpcw70|set70|setworld70)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw70.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw70.world. [ $+ [ $chan ] ] $2 
    set %pcw70.time. [ $+ [ $chan ] ] $ctime 
    unset %70.suggest.
    msg $chan 10»15]|[14The 70+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
}
on $*:text:/^[!](change100|setpcw100|set100|setworld100)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw100.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw100.world. [ $+ [ $chan ] ] $2 
    set %pcw100.time. [ $+ [ $chan ] ] $ctime 
    unset %100.suggest.
    msg $chan 10»15]|[14The 100+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
} 
on $*:text:/^[!@](Pcw40|W40|world40)/Si:#:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw40.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw40.nick. [ $+ [ $chan ] ] $+  15]|[ 12 $+ $duration($calc( $ctime - %pcw40.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!@](Pcw70|W70|world70)/Si:#:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw70.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw70.nick. [ $+ [ $chan ] ] $+  15]|[ 12 $+ $duration($calc( $ctime - %pcw70.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!@](Pcw100|W100|world100)/Si:#:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw100.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw100.nick. [ $+ [ $chan ] ] $+  15]|[ 12 $+ $duration($calc( $ctime - %pcw100.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!@](Pcw|W|world)/Si:#:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[4 40+14 World:12 %pcw40.world. [ $+ [ $chan ] ] 15]|[4 70+14 World:12 %pcw70.world. [ $+ [ $chan ] ] 15]|[4  100+14 World:12 %pcw100.world. [ $+ [ $chan ] ] 15]|[ 14Count:12 %pestcontrol. 15]|[10«
    inc %pestcontrol.  
  } 
}
on *:text:!pestcontrol on*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) { 
    set %pcw. $+ $chan on 
    msg $chan 10»15]|[ 14The pestcontrol commands for12 $chan 14are now 12ON 15]|[10«
  } 
} 
on *:text:!pestcontrol off*:#:{ 
  if ($nick isop $chan) || ($nick == Snipezy) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[ 14The pestcontrol commands for12 $chan 14are now 12OFF 15]|[10«
  } 
}
on *:text:!CHELP*:#:{
  msg $nick 14To Change A PCW Please Type: 
  msg $nick 12!Change40 <WORLD> 14- Changes The 40+ World
  msg $nick 12!Change70 <WORLD> 14- Changes The 70+ World
  msg $nick 12!Change100 <WORLD> 14- Changes The 100+ World
  msg $nick 12!ChangeALL <WORLD> 14- Changes All The Worlds
}
on *:text:!suggest100*:#pcplace:{
  set %100.suggest. $2
  notice $nick 12Thank you, your world suggestion has been sent.
  /msg #pcpalace 4 $nick 14Has Suggested World4 $2 14For The 100+ World: Reason4 $3-
}

on *:text:!suggest70*:#pcplace:{
  set %70.suggest. $2
  notice $nick 12Thank you, your world suggestion has been sent.
  /msg #pcpalace 4 $nick 14Has Suggested World4 $2 14For The 70+ World: Reason4 $3-
}

on *:text:!suggest40*:#pcplace:{
  set %40.suggest. $2
  notice $nick 12Thank you, your world suggestion has been sent.
  /msg #pcpalace 4 $nick 14Has Suggested World4 $2 14For The 40+ World: Reason4 $3-
}
on *:text:!suggestALL*:#pcplace:{
  set %40.suggest. $2
  set %70.suggest. $2
  set %100.suggest. $2
  notice $nick 12Thank you, your world suggestion has been sent.
  /msg #pcpalace 4 $nick 14Has Suggested World4 $2 14For All The Worlds: Reason4 $3-
}
on *:text:!VSuggest*:#pcplace:{
  notice $nick 14The Suggested Worlds Are: 40+:12 %40.suggest. 1470+:12 %70.suggest. 14100+:12 %100.suggest.
}

on *:text:!VHELP*:#pcplace:{
  msg $nick 14To Suggest A World Please Type: 
  msg $nick 12!Suggest40 <WORLD>14 For The 40+ World
  msg $nick 12!Suggest70 <WORLD>14 For The 70+ World
  msg $nick 12!Suggest100 <WORLD>14 For The 100+ World
  msg $nick 12!Suggestall <WORLD>14 To Suggest For All Worlds
}