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:/^[!@,]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) $+ .
}

on $*:TEXT:/^[!@]s(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.)
}