Anonymous

on $*:text:/^[!@]set(pcw|world)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum 1-144) {
      if ($2 != %pcw) {
        set %pcw [ $+ [ $chan ] ] $2
        set %pcwnick [ $+ [ $nick ] ] $nick
        set %pcwtime [ $+ [ $ctime ] ] $ctime 
      msg $chan 4,1 The Current [P]est [C]ontrol [W]orld has updated. type !pcw or !world to view it!       }
      else notice $nick Why change the pcw to itself?
    }
    else notice $nick Worlds 1-140
  }
  else notice $nick Op only command
}
on $*:text:/^[!@]suggest/Si:#:{
  if ($2 isnum 1-144) {
    if (!$read(worlds.txt,s,$2)) {
      write worlds.txt $2
      notice $nick 9,1Thank you for suggesting world $2 $+ .
    }
    else notice $nick World $2 has already been suggested.
  }
  else notice $nick Worlds 1-140.
}
on $*:text:!vsuggest*:#:
if ($nick isop $chan) || ($nick ishop $chan) {
  if ($read(worlds.txt,1)) {
    if  ($2 == -r) {
      notice $nick Random suggested world: $read(worlds.txt)
    }
    else {
      var %k = 1
      while (%k <= $lines(worlds.txt)) {
        var %sworlds = $iif(%sworlds,%sworlds) $read(worlds.txt,%k)
        inc %k
      }
      notice $nick All suggested worlds: %sworlds
    }
    else notice $nick There are no suggested worlds.
  }
  else notice $nick Op only command.
}
on $*:text:!clearsuggest:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($read(worlds.txt,1)) {
      write -c worlds.txt
      notice $nick Suggested worlds cleared.
    }
    else notice $nick There are no suggested worlds
  }
  else notice $nick Op only command.
}
on $*:text:/^[!@.`~](world|pcw)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($left($1,1) == @) {
      msg $chan The pcw is %pcw [ $+ [ $chan ] ] msg $chan the pcw is %pcw [ $+ [ $chan ] ] , Set by %pcwnick [ $+ [ $chan ] ] , $duration($calc($ctime - %pcwtime)) [ $+ [ $chan ] ] Ago.
    }
    else notice $nick 4,1The pcw is %pcw [ $+ [ $chan ] ] , Set by %pcwnick [ $+ [ $chan ] ] , $duration($calc($ctime - %pcwtime))[ $+ [ $chan ] ] Ago.
  }
  else notice $nick 4,1The Pest Control world is %pcw [ $+ [ $chan ] ] , Set by %pcwnick [ $+ [ $chan ] ] , $duration($calc($ctime - %pcwtime))[ $+ [ $chan ] ] Ago.
}