on $*:TEXT:/^[!@]s(et)?(pcw|world)/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($2 isnum 2-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 2-140 }
  } 
  else { notice $nick Op only command }
} 
on $*:TEXT:/^[!@]suggest/Si:#:{ 
  if ($2 isnum 2-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 2-140. }
} 
on $*:TEXT:/^[!@.]vsuggest/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($lines(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/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($lines(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) { $iif($left($1,1) == @,msg $chan,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.
}