Anonymous

on $*:text:/^[!@](Wldinfo|WInfo)/Si:#: {
  set %DisPlay. $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if (!$2) {
    notice $nick 12Please specify a world. Ex: 4!WldInfo $rand(1,138) 
    halt
  }
  if ($2 == 2 || $2 == 6 || $2 == 9 || $2 == 12) {
    %DisPlay. 12World $2 is4 FULL 2[12 $+ Members $+ 2]
    halt
  }
  if ($2 > 112) { 
    notice $nick test
    halt
  }
  if ($2 isnum 1-138) {
    set %WldOss $2
    sockopen Wld. parsers.o-ss.net 80
    halt
  }
  else {
    notice $nick 12The RuneScape worlds only go up to4 138
  }
}
on *:SOCKOPEN:Wld.*: {
  sockwrite -nt $sockname GET /worlds.php HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:Wld.*: {
  if ($sockerr) { halt }
  else {
    var %OmS
    sockread %OmS
    if (World_ [ $+ [ %WldOss ] ] isin %OmS) {
      tokenize 32 %OmS
      if ($2 == Full) {
        %DisPlay. 12World %WldOss is4 $replace($2,_,$chr(32)) 2[12 $+ $4 $+ 2] $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3))
        unset %DisPlay.
        sockclose $sockname
        halt
      }
      else {
        %DisPlay. 12World %WldOss has4 $replace($2,_,$chr(32)) 12on it. 2[12 $+ $4 $+ 2] $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3))
        unset %DisPlay. 
        sockclose $sockname
      }
    }
  }
}