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. 
} 
;;;The world text kicker, optional;;; 
on *:text:$($+(*,%pcw,*)):#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    halt 
  } 
  else ban -ku300 $chan $nick 2 Dont say pcw outloud, 5 minute ban 
}