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 $+ !
}