on $*:TEXT:/^[!@.]set../Si:#megapc:{
if ($nick ison #thepc.staff) {
if ($2 == %pcworld) { .notice $nick $2 is already set | halt }
if ($chan == #thepc.staff) {
set %pcworld $2
set %scout $3
set %pcnick $nick
set %pctime $ctime
}
if ($chan == #thepc.staff) {
msg #thepc 14The PC World has been changed by7 %pcnick 14type 7!world 14or 7!pcw 14to see it.
}
}
}
on $*:TEXT:/^!(world|pcw) */Si:#megapc: {
if ($chan == #thepc) {
if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
elseif ($nick !isreg #thepc
) {
inc %pccount
notice $nick 7 %pcworld 14is the current PC world on7 #thepc 14last set by7 %pcnick 14and scouted7 $duration($calc($ctime - %pctime ),2) 14ago by7 %scout $+ . 14used7 %pccount 14times, type 7!suggest (world)14 if you know a better one. The last world was %pclast $+ . Enjoy!
}
}
}
on $*:TEXT:/^@(world|pcw) */Si:#megapc: {
if (($chan == #thepc) && ($nick isop #thepc.staff)) {
if (%pcworld == $null) notice $nick 14Sorry, but there is no world set.
inc %pccount
msg $chan 7 %pcworld 14 is the current PC world on7 $chan 14last set by7 %pcnick 14and scouted7 $duration($calc($ctime - %pctime ),2) 14ago by7 %scout $+ .14used7 %pccount 14times.
}
}
on *:TEXT:!suggest*:#megapc: {
if ($2 == $null) { halt }
if ($chan == #thepc) {
if ($2 !isnum 1-138) { .notice $nick only world numbers will be excepted. Sorry, but this has been logged. | msg #thepc.staff $nick is abusing suggest with 14[7 $2 14] $+ . Please take action. | halt }
if ($nick !isreg #thepc) {
if (%pcworld == $2) {
.notice $nick This world is already active!
}
else {
msg #thepc.staff $nick has suggested $2 and would really like you to check it ;)
notice $nick sent suggestion of [ $2 ] to staff. Please be patient and do not flame as it may take sometime to be reviewed.
}
}
}