on *:TEXT:!world*:#:{
set %nick $nick
set %world $2-
sockopen worlds mrstk.com 80
}
on *:SOCKOPEN:worlds:{
sockwrite -nt $sockname GET /genie/worlds.php?w= $+ %world HTTP/1.1
sockwrite -nt $sockname Host: msrstk.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:worlds:{
if ($sockerr) {
notice %nick Error en el socket: $sockerr $+ mientras que se buscaba por el world: %world
/unset %world
/unset %nick
}
else {
var %read
while (1) {
sockread %read
if (!$sockbr) { break }
if (World* iswm %read) {
notice %nick %read
/unset %world
/unset %nick
sockclose $sockname
halt
}
}
}
}