Anonymous

on $*:text:/^[!@]set(pcw|world)/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if ($2 isnum 1-140) { 
      if ($2 != %pcw) { 
        set %pcw $2 
        set %pcwnick $nick 
        set %pcwtime $ctime 
        msg $chan Pcw has changed to $2 $+ . 
      } 
      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-140) { 
    if (!$read(worlds.txt,s,$2)) { 
      write worlds.txt $2 
      notice $nick Thank 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 $+ , Set by %pcwnick $+ , $duration($calc($ctime - %pcwtime)) Ago. 
      } 
      else notice $nick The pcw is %pcw $+ , Set by %pcwnick $+ , $duration($calc($ctime - %pcwtime)) Ago. 
    } 
    else notice $nick The pcw is %pcw $+ , Set by %pcwnick $+ , $duration($calc($ctime - %pcwtime)) Ago. 
  }