on *:TEXT:!suggest*:#:{ 
  set %ThePcwSuggested $2 
  set %PcWReason $3- 
  set %pcwscouter $nick 
  msg $chan    World Suggestion From: $nick <.> World: %ThePcwSuggested  <.> Reason: %PcWReason
  unset %PcWReason 
} 
on *:TEXT:!lazy*:#:{ 
  if ($Nick isop $chan) || ($nick ishop $chan) { 
    set %Chanspcw %ThePcwSuggested 
    msg $chan ¿World Change? Yes! Type !Pcw -or- !World To View It!
    msg $chan »»Scout The World? Type !scouts To View Your $chan Stats!    
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ $ ] ] 
    set %pcwtime $ctime  
    unset %ThePcWSuggested 
    set %pcwsetter $nick  
    set %pcwscouter    
  } 
} 
on $*:TEXT:/^!(pcw|world|w|pestcontrolworld|pestc|pestcontrol)/Si:#:{ 
  inc %pcwtimesused  
  notice $nick 3::::World:::::::: 12 %Chanspcw 3 :::::::: Scouter :::::::: %pcwscouter ::::
  notice $nick 3::::Last Set:::::::: $duration($calc( $ctime - %pcwtime )) ::::::::2nd World::::::: %ThePcwSuggested ::::  
}
on *:TEXT:!setpcw*:#:{ 
  if ($Nick isop $chan) || ($nick ishop $chan) { 
    msg $chan 3¿World Change? Yes! Type !Pcw -or- !World To View It!
    msg $chan 3 »»Scout The World? Type !scouts To View Your $chan Stats!
    set %pcwtime $ctime 
    set %Chanspcw $2 
    set %pcwscouter $3 
    inc %PcwSets [ $+ [ $nick ] ] 
    inc %pcwscouts [ $+ [ %pcwscouter ] ] 
  } 
} 
on *:TEXT:!scouts:#:{ 
  notice $nick 3,15(»Player Info«)(» $nick «)(»Scouts«)(» %pcwscouts [ $+ [ $nick ] ] «)(»Sets«)(» %PcwSets [ $+ [ $nick ] ] «)  
}  
on *:TEXT:!avoice*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if (%avs == false) { HALT } 
    write avlist.txt $2 
    msg $chan $2 Added To The $Chan Auto-Voice List, To Remove $2 Please Type !d-av $2 $+. 
  }  
  else { 
    notice $nick Hey!, You Must Be At Least A Half-Op To Auto-Voice Someone. 
  } 
} 

on *:TEXT:!d-av*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    write -ds $+ $2 avlist.txt 
    msg $chan $2 Removed From The $chan Auto-Voice List. 
  } 
  else { 
    notice $nick Hey!, You Must Be At Least A Half-Op To Remove Someones Auto-Voice. 
  } 
} 
on*:TEXT:!Av On:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    msg $chan The Auto Voice Script Has Been Enabled For $chan. 
    unset %avs 
  }  
  else { 
    notice $nick Hey!, You Must Be At Least A Half-Op To Turn This Script On/Off. 
  } 
} 

on*:TEXT:!Av Off:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    msg $chan The Auto Voice Script Has Been Disabled For $chan. 
    set %avs False 
  }  
  else { 
    notice $nick Hey!, You Must Be At Least A Half-Op To Turn This Script On/Off. 
  } 
} 

on *:JOIN:#:{ 
  if (%avs != false) && ($nick isin $read(avlist.txt)) { 
    mode $chan +v $nick 
    msg $chan Welcome back $nick $+ ! 
  }