alias -l c1 return $+(14,$1-,)
alias -l c2 return $+(07,$1-,)
on *:TEXT:!defineworld*:#pestops: {
if ($nick isop #) || ($nick ishop #) && ($$2 isnum) {
if (%ownpc == $2) notice $nick The current world is already %ownpc
elseif ($istok(%pcworlds,$2,44) == $false) notice $nick World $2 may not be set $chr(91) $+ F2p World $+ $chr(93)
else {
set %ownpc $$2
set %ownpc $+ .time $ctime
set %ownpc $+ .nick $nick
hfree flood
unset %spamcount
/notice $nick New PC world set to %ownpc
/msg #pest $c2(The current) $c1(pc-world) $c1(has been changed!) $c1(-) $c2(Type: !world)
/notice #pest $c2(The current) $c1(pc-world) $c1(has been changed!) $c1(-) $c2(Type: !world)
}
}
}
on $*:text:/^[@!]world/Si:#pest,#pestops: {
if (!%ownpc) halt
elseif ($hget(flood,$nick) >= 1) halt
elseif ($hget(blacklist,$nick) == 1) halt
elseif (%spam == 1) {
halt
}
else {
/notice $nick $c1(Current PC World:) $c2(%ownpc) $c1(- Updated:) $c2($duration($calc($ctime - $eval($+(%,ownpc,.time),2)))) $c1(ago)
hinc -mu120 flood $nick 1
inc -u15 %spamcount 1
if (%spamcount >= 15) {
set -u30 %spam 1
unset %spamcount
msg # $c1(Bot flooded -) $c2(!world) $c1(command is off for) $c2(30 Seconds)
}
}
}
on $*:text:/^[@!]pcbl/Si:#pest,#pestops: {
if ($nick isop $chan) || ($nick ishop $chan) {
if (!$2) halt
if ($hget(blacklist,$address($2,2)) == 1) {
msg $chan $c1(The address) $c2($address($2,2)) $c1(is already blacklisted)
}
elseif (!$2) halt
else {
hinc -m blacklist $address($2,2) 1
msg $chan $c1($2 has been) $c2(blacklisted) $c1(under the address) $c2($address($2,2)) $c1(- This is a temporary ban)
}
}
}
on $*:text:/^[@!]pcwl/Si:#pest,#pestops: {
if ($nick isop $chan) || ($nick ishop $chan) {
if (!$2) halt
if ($hget(blacklist,$address($2,2)) != 1) {
msg $chan $c1(The address of) $c2($address($2,2)) $c1(for) $c2($2) $c1(isn't currently blacklisted)
}
else {
hdel blacklist $address($2,2)
msg $chan $c1($2 has been) $c2(whitelisted) $c1(under the address) $c2($address($2,2)) $c1(- He/She may now use the world script)
}
}
}
on *:join:#pest: {
if (%reconnect) {
if ($nick == $me) {
/msg #pest Server reconnect $chr(35) $+ %rc - Last world change: $duration($calc($ctime - $eval($+(%,ownpc,.time),2))) ago
unset %reconnect
}
}
else halt
}
raw 439:*: {
if (!%ownpc) halt
else {
/unset %spam
/unset %spamcount
/inc %rc 1
/server irc.swiftirc.net
/set %reconnect 1
}
}