dfg

on *:TEXT:!monster *:*: {
  set %mon $2
  set %mon.mon $3 
  set %mon.0 Not Listed
  set %mon.target notice $nick
  if (%mon.mon == null) unset %mon.mon
  sockopen monsters tip.it 80
  sockopen description tip.it 80
}
on *:SOCKOPEN:monsters*: { 
  sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=0&keywords= $+ %mon $+ + $+ %mon.mon $+ &levels=All&race=0 HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:monsters*: {
  if ($sockerr) {
    echo -a Error
    halt
  }
  else {
    var %id.mon = $right($sockname,-8)
    var %mon.html
    sockread %mon.html
    if (<td>*</td> iswm %mon.html)
    set %mon.level $remove(%mon.html,<td>,</td>)

    if (<td><a href="?rs2monster_id=*">*</a></td> iswm %mon.html)
    set %mon.name $remove(%mon.html,<td>,<a href="?rs2monster_id=*">,</a>,</td>)

    if (<td><a href="?rs2monster_id=*">*</a></td> iswm %mon.html)
    set %mon.page $remove(%mon.html,<td>,<a href=", ,">,</a>,</td>)

    if (<td align="center">*</td> iswm %mon.html)
    set %mon.race $remove(%mon.html,<td align="center">,</a>,</td>)

    if (<td align="center">,</td> iswm %mon.html)
    set %mon.members $remove(%mon.html,<td align="center">,</a>,</td>)

    if (<td align="center">,</td) iswm %mon.html)
    set %mon.quest $remove(%mon.html,<td align="center">,</a>,</td>)
  }
}

on *:SOCKCLOSE:monsters*:{ 
  [ $+ [ $right($SockName,-8) ] ] 
}


on *:SOCKOPEN:description*: { 
  sockwrite -nt $sockname GET /runescape/index.php $+ %mon.page HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:description: {
  if ($sockerr) { 
    echo -a Error 
    halt
  }

  else 
  { 
    var %id.des = $right($sockname,-11)
    var %des.html
    sockread %des.html
    if (<td width="20%"><b>Aggressive?</b>&nbsp;&nbsp;*</td> iswm %des.html)
    set %mon.aggressive $remove(%des.html,<td width="20%">,<b>,Aggressive?,</b>,&nbsp;&nbsp;,</td>)

    if (<td width="20%"><b>Retreats?</b>&nbsp;&nbsp;*</td> iswm %des.html)
    set %mon.retreats $remove(%des.html,<td width="20%">,<b>,Retreats?,</b>,&nbsp;&nbsp;,</td>)

    if (<td width="20%"><b>Poisonous?</b>&nbsp;&nbsp;*</td> iswm %des.html)
    set %mon.poisen $remove(%des.html,<td width="20%">,<b>,Poisonous?,</b>,&nbsp;&nbsp;,</td>)

    if (<td width="15%" valign="top" class="header" align="left"><b>Habitat:</b></td><td align="left">*</td> iswm %des.html)
    set %mon.location $remove(%des.html,<td width="15%" valign="top" class="header" align="left">,<b>,Habitat:,</b>,</td>,<td align="left">,</td>)

    %mon.target 13,2[7 NAME 13]7 %mon.name [7 LEVEL 13]7 %mon.level [7 RACE 13]7 %mon.race [7 MEMBERS 13]7 %mon.members [7 QUEST 13]7 %mon.quest [7 POISONOUS 13]7 %mon.poisen [7 RETREATS 13]7 %mon.retreats [7 AGGRESSIVE 13]7 %mon.aggressive [7 LOCATION 13]7 %mon.location 
  }
  on *:SOCKCLOSE:description*:{ 
    unset %mon.*
    unset %des.*
    unset %id.*
    [ $+ [ $right($SockName,-11) ] ] 
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}