rendered paste bodyon $*:TEXT:/^[!@.]pcstart/Si:#: {
if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
if ($readini(pcw.ini,$chan,world)) {
if (!$readini(pcw.ini,$chan,repeat)) {
writeini -n pcw.ini $chan repeat $iif($2,$2,35)
pcrepeat $chan
}
else {
notice $nick $c1(There is already a pest control repeater running! Type) $c2(!pcstop) $c1(to stop it.)
}
}
else {
notice $nick $c1(There is currently no pest control world for) $+($c2($chan),$c1($chr(46)))
}
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.]pcstop/Si:#: {
if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
if ($readini(pcw.ini,$chan,repeat)) {
msg $chan $c1(Pest control repeater halted by) $c2($nick)
remini pcw.ini $chan repeat
pcrepeat
}
else {
notice $nick $c1(There is currently no pest control world repeater for) $+($c2($chan),$c1($chr(46)))
}
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.](pcw(orld)?|world)/Si:#: {
if ($readini(pcw.ini,$chan,world)) {
$iif($left($1,1) == @,msg $chan,notice $nick) $c1(The current pest control world is:) $c2($readini(pcw.ini,$chan,world)) $c1(set by:) $c2($readini(pcw.ini,$chan,nick)) $+ $c1(,) $c2($duration($calc($ctime - $readini(pcw.ini,$chan,time)))) $c1(ago.)
halt
}
notice $nick $c1(There is no pest control world set for) $+($c2($chan),$c1(.))
}
on $*:TEXT:/^[!@.]sets/Si:#: {
if (!$readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick))) {
$iif($left($1,1) == @,msg $chan,notice $nick) $c2($iif($2,$2,$nick)) $c1(has not set any worlds in) $c2($chan) $+ $c1(.)
}
else {
$iif($left($1,1) == @,msg $chan,notice $nick) $c2($iif($2,$2,$nick)) $c1(has set) $c2($readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick))) $c1($iif($readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick)) == 1,world,worlds) in) $c2($chan) $+ $c1(.)
}
}
on $*:TEXT:/^[!@.]set(pcw|w(orld)?)/Si:#: {
if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
if ($2 isnum 2-144) {
writeini -n pcw.ini $chan world $2
writeini -n pcw.ini $chan nick $nick
writeini -n pcw.ini $chan time $ctime
writeini -n pcw.ini $chan sets $+ $nick $calc($readini(pcw.ini,$chan,sets $+ $nick) + 1)
msg $chan $c1(The pest control world for) $c2($chan) $c1(has been changed by) $c2($nick) $+ $c1(. Type) $c2(!pcw) $c1(to view it.)
}
else {
notice $nick $c1(Please specify a valid world number.)
}
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.](clear|del|un(set)?)pcw/Si:#: {
if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
if ($readini(pcw.ini,$chan,world)) {
remini pcw.ini $chan time
remini pcw.ini $chan world
remini pcw.ini $chan nick
msg $chan $c1(The pest control world for) $c2($chan) $c1(has been deleted.)
}
else {
notice $nick $c1(There is currently no pest control world for) $+($c2($chan),$c1($chr(46)))
}
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.]suggest/Si:#: {
if (!$readini(pcw.ini,$chan,suggest)) {
if ($2 isnum 2-144) {
writeini -n pcw.ini $chan suggestworld $readini(pcw.ini,$chan,suggestworld) $2
msg $chan $c1(A new world has been suggested by) $+($c2($nick),$c1($chr(44))) $c1(type) $c2(!vsuggest) $c1(to view it.)
}
}
else {
notice $nick $c1(Suggesting worlds for) $c2($chan) $c1(has been disabled by) $c2($readini(pcw.ini,$chan,suggest))
}
}
on $*:TEXT:/^[!@.]v(iew)?suggest/Si:#: {
if ($readini(pcw.ini,$chan,suggestworld)) {
$iif($left($1,1) == @,msg $chan,notice $nick) $c1(The suggested worlds for) $c2($chan) $c1(are:) $+($c2($replace($readini(pcw.ini,$chan,suggestworld),$chr(32),$+($chr(44),$chr(32)))),$c1($chr(46)))
}
else {
notice $nick $c1(There are currently no suggested worlds for) $+($c2($chan),$c1($chr(46)))
}
}
on $*:TEXT:/^[!@.](d(e(l)?)?suggest|c(lear)?suggest)/Si:#: {
if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
if ($readini(pcw.ini,$chan,suggestworld)) {
remini pcw.ini $chan suggestworld
msg $chan $c1(All of the suggested worlds for) $c2($chan) $c1(have been deleted by) $+($c2($nick),$c1($chr(46)))
}
}
else {
notice $nick $c1(There are currently no suggested worlds for) $+($c2($chan),$c1($chr(46)))
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.]vset (on|off)?/Si:#: {
if ($nick ishop $chan || $nick isop $chan) {
if (!$2) {
notice $nick $c1(Please specify on or off.)
halt
}
if ($2 == on) {
writeini -n pcw.ini $chan vset $nick
msg $chan $c1(Voice power has been set) $c2($2) $c1(for) $+($c2($chan),$c1($chr(46)))
}
if ($2 == off) {
remini pcw.ini $chan vset
msg $chan $c1(Voice power has been set) $c2($2) $c1(for) $+($c2($chan),$c1($chr(46)))
}
}
else {
notice $nick $c1(Permission denied.)
}
}
on $*:TEXT:/^[!@.]setsuggest (on|off)?/Si:#: {
if ($nick ishop $chan || $nick isop $chan) {
if (!$2) {
notice $nick $c1(Please specify on or off.)
halt
}
if ($2 == off) {
writeini -n pcw.ini $chan suggest $nick
msg $chan $c1(Suggesting worlds for) $c2($chan) $c1(has been turned) $c2($2) $c1(by) $c2($nick) $+ $c1(.)
}
if ($2 == on) {
remini pcw.ini $chan suggest
msg $chan $c1(Suggesting worlds for) $c2($chan) $c1(has been turned) $c2($2) $c1(by) $c2($nick) $+ $c1(.)
}
}
else {
notice $nick $c1(Permission denied.)
}
}
alias pcrepeat {
if ($readini(pcw.ini,$1,repeat)) {
msg $1 $c1(The current pest control world is:) $c2($readini(pcw.ini,$1,world)) $c1(set by:) $c2($readini(pcw.ini,$1,nick)) $+ $c1(,) $c2($duration($calc($ctime - $readini(pcw.ini,$1,time)))) $c1(ago.)
timer 1 $readini(pcw.ini,$1,repeat) pcrepeat $1
}
}
on $*:TEXT:/^[!@.]setpcw/Si:?: {
if ($me ison $2) {
if ($readini(pcw.ini,$2,vset) && $nick !isreg $2) || ($nick ishop $2 || $nick isop $2) {
if ($3 isnum 2-144) {
writeini -n pcw.ini $2 world $3
writeini -n pcw.ini $2 nick $nick
writeini -n pcw.ini $2 time $ctime
msg $2 $c1(The pest control world for) $c2($2) $c1(has been changed by) $c2($nick) $+ $c1(. Type) $c2(!pcw) $c1(to view it.)
}
else {
msg $nick $c1(Please specify a valid world number.)
}
}
else {
msg $nick $c1(Permission denied.)
}
}
else {
msg $nick $c1(I'm not on) $c2($2) $+ $c1(!)
}
}