on *:TEXT:!pcoff*:#pc4you:{ if ($nick isop $chan) || ($nick ishop $chan) {
msg $chan 4Pest Off
set %pestscript OFF } }
on *:TEXT:!pcon*:#pc4you:{ if ($nick == [-God-]) {
msg $chan 4Pest On
set %pestscript ON } }
on *:TEXT:!change*:#pc4you:{ if (%pestscript == OFF) { HALT }
if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop #aspc) || ($nick ishop #aspc) {
msg #pc4you 4New PCW1 - !pcw to view
set %settime $ctime
set %pcworld $2
set %pcsetter $nick } }
on *:TEXT:!change*:#pc4you.staff:{ if (%pestscript == OFF) { HALT }
if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
msg #pc4you 4New PCW1 - !pcw to view
set %settime $ctime
set %pcworld $2
set %pcsetter $nick } }
on *:TEXT:!pcw*:#pc4you:{ if (%pestscript == OFF) { HALT }
elseif (%pestscript == ON) {
notice $nick 7World:2 %pcworld 7 World for:2 $duration($calc($ctime - %settime)) 14World set by:2 %pcsetter
notice $nick $($+(4,$chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93)))
} }
on *:TEXT:!pcw*:#pc4you.staff:{ if (%pestscript == OFF) { HALT }
elseif (%pestscript == ON) {
notice $nick 7World:2 %pcworld 7 World for:2 $duration($calc($ctime - %settime)) 14World set by:2 %pcsetter
notice $nick $($+(4,$chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93))) } }
on *:TEXT:!suggest*:#pc4you:{
if ($2 !isnum 2-138) { halt }
elseif (%suggestedw) { notice $nick There is already a suggested world }
elseif ($2 isnum 2-138) && (!%suggestedw) {
msg #pc4you.staff 4 $nick has suggested world: $2 Type !checking !accept <worldhere> or !decline <worldhere>
set %suggestedw $2
set %suggester $nick
}
}
on *:TEXT:!decline*:#Pc4you.staff:{ if ($2 !isnum 2-138) { halt }
if (!$2) {
msg #pc4you.staff Use !decline <worldhere> }
elseif ($2 isnum 2-138) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
msg #pc4you 4World %suggestedw was DECLINED..
unset %suggestedw
unset %suggester
unset %checker
}
}
on *:TEXT:!accept*:#pc4you.staff:{ if ($2 !isnum 2-138) { halt }
if (!$2) {
msg #pc4you.staff Use accept <worldhere> }
if ($2 isnum 2-138) && ($2) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
msg #pc4you World %suggestedw was suggested by %suggester . It has been accepted
msg #pc4you 4New PCW1 - !pcw to view
unset %suggestedw
unset %suggester
unset %checker
set %settime $ctime
set %pcworld $2
set %pcsetter $nick
msg #pc4you.staff 4World changed to %pcworld
}
}
on *:TEXT:!checking*:#pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) && (%checker) {
msg $chan already being checked by %checker }
if ($nick isop #pc4you) || ($nick ishop #pc4you) && (!%checker)
msg #aspc 4Suggested1 world is being checked by $nick
msg #peststaff This command must be followed by !accept <world> or !decline <world>
set %checker
}
}
on *:TEXT:!new*:#Pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) {
msg #pc4you 1Fed up with the 4world?1 Suggest a new world by typing !suggest <worldhere>
}
}
on *:TEXT:!reset*:#pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) {
msg #pc4you Suggestion script reset
unset %suggestedw
unset %suggester
unset %checker
}
}