on $*:TEXT:/^[!@](w(orld)?)?suggest(pcw)?/Si:?: {
if (!$2) { notice $nick Please specify a world. | halt }
if ($2 !isnum 2-144) { notice $nick Please specify a real world. | halt }
writeini pc.ini suggest world $2
writeini pc.ini suggest settime $ctime
writeini pc.ini suggest setnick $nick
remini pc.ini suggest scoutnick
remini pc.ini suggest scoutting
msg #dbpc There is a new Suggested PCW. Type !spcw to view it.
}
on $*:TEXT:/^[!@]s(uggested)?(pcw|world)/Si:#: {
var %output = $iif($left($1,1) == @,msg $chan,notice $nick)
if (!$readini(pc.ini,suggest,world)) { notice $nick There is no suggest PCW. | halt }
%output The current suggested PCW is: $readini(pc.ini,suggest,world) $+ . This was set by $readini(pc.ini,suggest,setnick) $duration($calc($ctime - $readini(pc.ini,suggest,settime))) ago. $iif($readini(pc.ini,suggest,scoutting) == true,This world is currently being scouted by: $readini(pc.ini,suggest,scoutnick) $+ .,This world is not being scouted. Type !scouting $readini(pc.ini,suggest,world) if you want to scout it.)
}
on $*:TEXT:/^[!@,]scout(ing)?/Si:#: {
if (!$readini(pc.ini,suggest,world)) { notice $nick There is no suggest PCW. | halt }
if (!$2) { notice $nick Please specify a world. | halt }
if ($readini(pc.ini,suggest,world) !== $2) { notice $nick The current suggested world is not $2 $+ . | halt }
if ($readini(pc.ini,suggest,scoutting) == true) { notice $nick The current suggested PCW is already being scouted. | halt }
writeini pc.ini suggest scoutting true
writeini pc.ini suggest scoutnick $nick
msg #dbpc $nick is now scouting world $readini(pc.ini,suggest,world) $+ .