Stuff

on $*:TEXT:/^[!@.](monster|npc) */si:#: {
  if (!$2) {
    /notice $nick No Monster/NPC specified.
  }
  else {
    if ($sock(monster)) /sockclose monster
    set %monster.return /notice $nick
    if (@ isin $1) /set %monster.return /msg $chan
    set %monster.NPC $2-
    sockopen bestitary www.tip.it 80
  }
}
on *:SOCKOPEN:monster: {
  sockwrite -nt $sockname GET /runescape/?rs2monster HTTP/1.1
  sockwrite -nt $sockname Host: www.tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:monster: {
  if ($sockerr) {
    %alch.return Sock error: $sockname $chr(124) Error code: $sockerr
  }
  else {
    var %monster.read
    sockread %monster.read
    if (* %monster.NPC * iswm %monster.NPC ) { set %monster.NPC $htmlfree( %monster.NPC )
      %monster.return 1Top Result for %monster.NPC $+ :4 %monster.read
      unset %monster.*
      sockclose $sockname
    }
  }
}
alias -l htmlfree { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }