Mine

on $*:TEXT:/^[!@.](rs)?(world|server) */Si:#: { 
  if ($2 !isnum) { .notice $nick Specify a numeric world! | halt } 
  else { 
    var %x = 1 
    while ($sock(world. $+ %x)) inc %x 
    .set $+(%,target.,%x) $iif($left($1,1) == @ && $nick !isreg #,.msg $chan,.notice $nick) 
    .set $+(%,world.,%x) $2 
    sockopen $+(world.,%x) parsers.o-ss.net 80 
  } 
} 
on *:SOCKOPEN:world.*: { 
  var %x = $right($sockname,1) 
  if ($sockerr > 0) { 
    $eval($+(%,target.,%x),2) Socket Error: $sockerr 
    cleanup $sockname 
    halt 
  } 
  sockwrite -nt $sockname GET /oneline/worlds.php?w= $+ $eval($+(%,world.,%x),2) HTTP/1.1 
  sockwrite -nt $sockname Host: parsers.o-ss.net 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:world.*: { 
  var %x = $right($sockname,1) 
  if ($sockerr > 0) { 
    $eval($+(%,target.,%x),2) Socket Error: $sockerr 
    cleanup $sockname 
    halt 
  } 
  var %read | sockread %read 
  if (world isin %read) { 
    $eval($+(%,target.,%x),2) World $eval($+(%,world.,%x),2) not found. 
    cleanup $sockname 
    halt 
  } 
  if (END isin %read) { 
    tokenize 32 %read 
    $eval($+(%,target.,%x),2) 6World:1 $1 $chr(124) 6Members only:1 $iif($2 == M,Yes,No) $chr(124) 6Players:1 $3 $chr(124) 6Location:1 $remove($4-,END) 
    cleanup $sockname 
  } 
} 
alias cleanup { 
  unset %target. $+ $right($1,1) 
  unset %world. $+ $right($1,1) 
  sockclose $1 
}