Anonymous

on *:TEXT:?world*:#:{
  inc %countw 1
  set %send $iif($left($1,1) == @,msg $chan,notice $nick) 4[3-1WORLD LOOKUP3-4]7
  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: mrstk.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:worlds:{
  if ($sockerr) {
    %send 7Error in the socket:15 $sockerr $+ 7   . While was looking for the world:15 %world 7 $+ .
    /unset %world
    /unset %nick
    unset %send
    sockclose $sockname
  }
  else {
    var %read
    while (1) {
      sockread %read
      if (!$sockbr) { break }
      if (World isin %read) { 
        %read = $striptags(%read)
        %send %read $+ .
        sockclose $sockname
        /unset %world
        /unset %nick
        /unset %send
        halt
      }
    }
  }
}
ALIAS striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return $remove(%x,&nbsp;) }