on *:text:*:#1,00:{ 
  if ($regex($1,^!(world|pcw)$)) { 
    /notice $nick The current world is $hget(pc, $chan) 
  } 
  if ($regex($1-, (^!w?suggest).) && !hget(pc,flood $+ $nick)) { 
    /sockopen pest $+ $nick $+ sugg slushpuppy.silverinterlocution.org 80 
    /hadd -mu5 pcs $nick $2 
    /hadd -mu5 pcs channel $chan 
    /hadd -mu20 pc flood $+ $nick 1 
  } 
  if ($regex($1-,^!(setworld|change).)) { 
    if ($nick isop $chan || $nick ishop $chan) { 
      /sockopen pest $+ $chan $+ chan slushpuppy.silverinterlocution.org 80 
      /hadd -mu5 pcs $chan $2 
    } 
  } 
  if ($1 == !vworld) { 
    if ($nick !isreg $chan && $hget(suggest $+ $chan, 0).item) { 
      /var %i 1 
      while (%i <= $hget(suggest $+ $chan, 0).item) { 
        /var %tmp = %tmp World: $hget(suggest $+ $chan ,%i).item Number of votes: $hget(suggest $+ $chan ,%i).data 
        inc %i 
      } 
      /msg $nick %tmp 
    } 
  } 
} 
on *:sockopen:pest*:{ 
  /sockwrite $sockname GET /parsers/worldnum.php?num= $+ $eval($hget(pcs, $mid($sockname, 5, -4)), 2) HTTP/1.1 $+ $crlf 
  /sockwrite $sockname Host: slushpuppy.silverinterlocution.org  $+ $crlf  $+ $crlf 
} 
on *:sockread:pest*:{ 
  if ($sockerr) { 
    /echo -s Socket error 
  } 
  else { 
    /var %read 
    /sockread %read 
    if (true<br> isin %read) { 
      if ($right($sockname, 4) == chan) { 
        /msg $mid($sockname, 5, -4) The new world is $hget(pcs, $mid($sockname, 5, -4)) 
        /hadd -m pc $mid($sockname, 5, -4) $hget(pcs, $mid($sockname, 5, -4)) 
      } 
      if ($right($sockname, 4) == sugg) { 
        /hinc -sm suggest $+ $hget(pcs, channel) $hget(pcs, $mid($sockname, 5, -4))  1 
        .notice $mid($sockname, 5, -4) Thank you for your suggestion. 
      } 
      /sockclose $sockname 
    } 
    if (false<br> isin %read) { 
      /var %tmp = $mid($sockname, 5, -4) 
      if ($right($sockname, 4) == chan) { 
        /msg %tmp The world you are trying to change to isn't a member server 
      } 
      if ($right($sockname, 4) == sugg) { 
        .notice %tmp The world you suggested isn't a member server. 
      } 
      /sockclose $sockname 
    } 
  } 
}