on $*:TEXT:/^[!@.]setworld../Si:#lunapc:{
if ($nick isop #lunapc) || ($nick ishop #lunapc) {
set %pcworld $2
set %scout $3
set %Pcnick $nick
msg #lunapc 14,4-4,14-1,14The 4PC World1 has been changed by4 $nick 4 -14,4-
msg #lunapc 14,4-4,14-1,14Type 4!World 1or 4!Pcw 1to see it. 4 -14,4-
}
}
on $*:TEXT:/^!(world|pcw) */Si:#: {
if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
elseif ($nick !isreg #lunapc) || ($nick isnonv #lunapc) {
inc %pccount
notice $nick 14,4-4,14-4,14 %pcworld 1is the recommended world on :4 #LunaPC1. 4 -14,4-
notice $nick 14,4-4,14-1,14 Last set by :4 %pcnick 1and scouted by :4 %scout $+ 1. 4 -14,4-
notice $nick 14,4-4,14-1,14 Used :4 %pccount 1times. 4 -14,4-
notice $nick 14,4-4,14-1,14 Type :4!suggest (world) (reason)1 for a better world. 4 -14,4-
}
}
on $*:TEXT:/^@(world|pcw) */Si:#: {
if ($nick isop #lunapc) || ($nick ishop #lunapc) {
if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
inc %pccount
msg $chan 14,4-4,14-4,14 %pcworld 1is the recommended world on :4 #LunaPC1. 4 -14,4-
msg $chan 14,4-4,14-1,14 Last set by :4 %pcnick 1and scouted by :4 %scout $+ 1. 4 -14,4-
msg $chan 14,4-4,14-1,14 Used :4 %pccount 1times. 4 -14,4-
msg $chan 14,4-4,14-1,14 Type :4!suggest (world) (reason)1 for a better world. 4 -14,4-
}
}