on $*:TEXT:/^[!@]Alch/Si:#:{
  inc %s
  set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2- == $null) { %return. [ $+ [ %s ] ] [Price] Please select an item to look up.
    halt
  }
  set $+(%,players.,%s) all
  set $+(%,alch1.,%s) $replace($2-,$chr(32),+)
  set $+(%,alch12.,%s) $2-
  sockopen $+(alch1.,%s) tip.it 80
}
on *:SOCKOPEN:alch1.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ %alch1. [ $+ [ %s ] ] $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1&submit=Simple+Search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:alch1.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Error, please report this to Tsun4d3/#NoEscape $+ .
    halt
  }
  var %read
  sockread %read
  if (*<p><strong>1</strong> items matched your search.</p>* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    set %itemresults [ $+ [ %s ] ] $1
  }
  if (*<td><a href="index.php?rs2item_id* $+ %alch12. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) {
    set %read2 [ $+ [ %s ] ] $remove($htmlfree(%read),$chr(9))
    set %itemid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2item_id=,</a></td>,$chr(34), $+ %read2 [ $+ [ %s ] ] $+ )
    /tokenize 62 %itemid [ $+ [ %s ] ]
    set %itemid [ $+ [ %s ] ] $remove($1,$chr(9))
    sockopen $+(alch2.,%s) tip.it 80
    sockclose $sockname
  }
}
on *:SOCKOPEN:alch2.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_id= $+ %itemid [ $+ [ %s ] ] HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:alch2.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Error, please report this to Tsun4d3/#NoEscape $+ .
    halt
  }
  var %aread
  sockread %aread
  if (*<td width="25%"> iswm %catg) {
    var %alch
    sockread %alch
    set %catg [ $+ [ %s ] ] $remove(%alch,$chr(09))
  }
  if (*High Alchemy</td> iswm %aread) {
    var %alchemy
    sockread %alchemy
  }
  if (*<td width="25%"> iswm %alchemy) {
    var %alch
    sockread %alch
    set %highalch [ $+ [ %s ] ] $remove(%alch,$chr(09))
  }
  if (*gp iswm %aread) {
    set %itemprice [ $+ [ %s ] ] $remove(%aread,$chr(9))
  }
  if (*Notes</td>* iswm %aread) {
    var %note
    sockread %note
  }
  if (*<td> iswm %note) {
    var %lol3
    sockread %lol3
    set %itemnote [ $+ [ %s ] ] $remove($htmlfree(%lol3),$chr(9))
    %return. [ $+ [ %s ] ] 2[Alch] Item:4 %read2 [ $+ [ %s ] ] 2Low Alch:4  $bytes( $+ %itemprice [ $+ [ %s ] ],db) 2High Alch:4 $bytes( $+ %highalch [ $+ [ %s ] ],db)
    sockclose $sockname
    /unsetvars
  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x
}
alias -l c1 return $+($chr(3),02,$1-,)
alias -l c2 return $+($chr(3),04,$1-,)
alias -l c3 return $+($chr(3),04,$1-,)

alias unsetvars {
  /unset %return. [ $+ [ %s ] ]
  /unset %alch*. [ $+ [ %s ] ]
  /unset %read2 [ $+ [ %s ] ]
  /unset %itemid [ $+ [ %s ] ]
  /unset %highalch [ $+ [ %s ] ]
  /unset %itemprice [ $+ [ %s ] ]
  /unset %itemnote [ $+ [ %s ] ]
}

on $*:TEXT:/^[!@]item/Si:#:{
  inc %s
  set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2- == $null) { %return. [ $+ [ %s ] ] [Item] Please select an item to look up.
    halt
  }
  set $+(%,players.,%s) all
  set $+(%,item2.,%s) $replace($2-,$chr(32),+)
  set $+(%,item22.,%s) $2-
  sockopen $+(item1.,%s) tip.it 80
}
on *:SOCKOPEN:item1.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ %item. [ $+ [ %s ] ] $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1&submit=Simple+Search HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item1.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Error, please report this to Tsun4d3/#NoEscape $+ .
    halt
  }
  var %read
  sockread %read
  if (*<p><strong>1</strong> items matched your search.</p>* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    set %itemresults [ $+ [ %s ] ] $1
  }
  if (*<td><a href="index.php?rs2item_id* $+ %item22. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) {
    set %read2 [ $+ [ %s ] ] $remove($htmlfree(%read),$chr(9))
    set %itemid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2item_id=,</a></td>,$chr(34), $+ %read2 [ $+ [ %s ] ] $+ )
    /tokenize 62 %itemid [ $+ [ %s ] ]
    set %itemid [ $+ [ %s ] ] $remove($1,$chr(9))
    sockopen $+(item2.,%s) tip.it 80
    sockclose $sockname
  }
}
on *:SOCKOPEN:item2.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2item_id= $+ %itemid [ $+ [ %s ] ] HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:item2.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Error, please report this to Tsun4d3/#NoEscape $+ .
    halt
  }
  var %aread
  sockread %aread
  if (*<b>Members?</b>* iswm %aread) {
    /tokenize 32 $htmlfree(%aread)
    set %memb [ $+ [ %s ] ] $remove($2,$chr(9))
  }
  if (*<b>Quest?</b>* iswm %aread) {
    /tokenize 32 $htmlfree(%aread)
    set %quest [ $+ [ %s ] ] $remove($2,$chr(9))
  }
  if (*<b>Tradeable?</b>* iswm %aread) {
    /tokenize 32 $htmlfree(%aread)
    set %trade [ $+ [ %s ] ] $remove($2,$chr(9))
  }
  if (*category* iswm %aread) {
    var %catg
    sockread %catg
  }
  if (*<td width="25%"> iswm %catg) {
    var %alch
    sockread %alch
    set %catg [ $+ [ %s ] ] $remove(%alch,$chr(09))
  }
  if (*High Alchemy</td> iswm %aread) {
    var %alchemy
    sockread %alchemy
  }
  if (*<td width="25%"> iswm %alchemy) {
    var %alch
    sockread %alch
    set %highalch [ $+ [ %s ] ] $remove(%alch,$chr(09))
  }
  if (*gp iswm %aread) {
    set %itemprice [ $+ [ %s ] ] $remove(%aread,$chr(9))
  }
  if (*Location</td> iswm %aread) {
    var %place
    sockread %place
  }
  if (*<td> iswm %place) {
    var %lol
    sockread %lol
    set %itemplace [ $+ [ %s ] ] $remove($htmlfree(%lol),$chr(09))
  }
  if (*<td class="header"> Uses</td>* iswm %aread) {
    var %use
    sockread %use
  }
  if (*<td> iswm %use) {
    var %lol2
    sockread %lol2
    set %itemuse [ $+ [ %s ] ] $remove($htmlfree(%lol2),$chr(9))
  }
  if (*Notes</td>* iswm %aread) {
    var %note
    sockread %note
  }
  if (*<td> iswm %note) {
    var %lol3
    sockread %lol3
    set %itemnote [ $+ [ %s ] ] $remove($htmlfree(%lol3),$chr(9))
    %return. [ $+ [ %s ] ] 12Item:4 %read2 [ $+ [ %s ] ] 12Member:4 %memb [ $+ [ %s ] ] 12Quest:4 %quest [ $+ [ %s ] ] 12Tradeable:4 %trade [ $+ [ %s ] ]
    %return. [ $+ [ %s ] ] 12Low Alch:4 %itemprice [ $+ [ %s ] ] 12High Alch:4 %highalch [ $+ [ %s ] ] 12Item use:4 %itemuse [ $+ [ %s ] ]
    %return. [ $+ [ %s ] ] 12Location:4 %itemplace [ $+ [ %s ] ]
    %return. [ $+ [ %s ] ] 12Notes:4 %itemnote [ $+ [ %s ] ]
    sockclose $sockname
    /unsetvars
  }
}