Untitled

on $*:TEXT:/^[!@.](item|info) */si:#: {
  if (!$2) {
    /notice $nick 1Please specify a search criteria. 
  }
  else {
    if ($sock(item-get)) .sockclose item-get
    set %item.return /notice $nick
    set %item.item $2-
    set %item.search $replace($2-,$chr(32),$chr(43))
    if (@ isin $1) set %item.return /msg $chan
    sockopen item-get www.tip.it 80
  }
}
on *:SOCKOPEN:item-get: {
  sockwrite -nt $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ %item.search $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1 HTTP/1.1
  sockwrite -nt $sockname Host: www.tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item-get: {
  if ($sockerr) {
    %item.return Sock error: $sockname $chr(124) Error code: $sockerr
  }
  else {
    if ($sock(item-info)) .sockclose item-info
    var %item.read.1
    sockread %item.read.1
    if (* %item.item * iswm %item.read.1 ) { set %item.del $htmlfree(%item.read.1)
      if (*index.php?rs2item_id=* iswm %item.name.1) { %set %item.url $remove(%item.read.1,<a href=",">,%item.del)
        sockclose $sockname
        sockopen item-info www.tip.it 80
      }
    }
  }
}
on *:SOCKOPEN:item-info: {
  sockwrite -nt $sockname GET /runescape/ $+ %item.url HTTP/1.1
  sockwrite -nt $sockname Host: www.tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item-info: {
  if ($sockerr) {
    %item.return Sock error: $sockname $chr(124) Error code: $sockerr
  }
  else {
    var %item.read.mem
    sockread %item.read.mem
    if (*Members?</b>* iswm %item.read.mem) { set %item.read.mem $htmlfree(%item.read.mem)
      set %item.read.mem $remove(%item.read.mem,Members?)
    }
    var %item.read.ques
    sockread %item.read.ques
    if (*Quest?</b>* iswm %item.read.ques) { Set %item.read.ques $htmlfree(%item.read.ques)
      set %item.read.ques $remove(%item.read.ques,Quest?)
    }
    var %item.read.trad
    sockread %item.read.trad
    if (*Tradeable?</b>* iswm %item.read.trad) { set %item.read.trad $htmlfree(%item.read.trad)
      set %item.read.trad $remove(%item.read.trad,Tradeable?)
    }
    if (*<b>Examine:</b>* iswm %sockread) { 
      var %examine 
      sockread %examine 
      set %item.ex $remove($htmlfree(%examine),$chr(09)) 
    } 
    var %item.read.20
    sockread %item.read.20
    if (*High Alchemy</td> iswm %item.read.20) { 
      var %item.alchemy 
      sockread %item.alchemy 
    } 
    if (*<td width="25%"> iswm %item.alchemy) { 
      var %item.alch 
      sockread %item.alch 
      set %item.alch $remove(%alch,$chr(09)) 
    } 
    if (*Location</td> iswm %item.read.20) { 
      var %item.location 
      sockread %item.location 
    } 
    if (*<td> iswm %item.location) { 
      var %item.loc 
      sockread %item.loc 
      set %item.location $remove($htmlfree(%loc),$chr(09))
      %item.return 1You searched:4 %item.item
      %item.return 1First Result:4 %item.del
      %item.return 1Members:4 %item.read.mem 1 $+ $chr(124) Quest:4 %item.read.ques 1 $+ $chr(124) Tradable:4 %item.read.trad
      %item.return 1Examine:4 %item.ex
      %item.return 1High Alchemy:4 %item.alch 1 $+ $chr(124) Location:4 %item.location
      unset %item.*
      sockclose $sockname
    }
  }
}