on $*:text:/^[!@]alch/Si:#: {
  if ($2 == $null) {
    notice $nick Please specify an item to search !alch <item>
    halt
  }
  else {
    var %x = $right($ticks,6)
    set %alch.display. [ $+ [ %x ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
    set %alch.search. [ $+ [ %x ] ] $replace($2- ,$chr(32),+)
    sockopen alch. [ $+ [ %x ] ] tip.it 80
  }
}
on *:sockopen:alch.*: {
  sockwrite -nt $sockname GET $+(/runescape/index.php?rs2item=&orderby=0&keywords=,%alch.search. [ $+ [ $right($sockname,6) ] ],&Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1) HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alch.*: {
  if ($sockerr) { halt }
  else {
    var %sockreader
    sockread %sockreader
    if (*No items* iswm %sockreader) {
      %alch.display. [ $+ [ $right($sockname,6) ] ] %alch.search. [ $+ [ $right($sockname,6) ] ] not found

      unset %alch.* [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
    elseif $regex(%sockreader,/<td><a href="(.*)">(.*)</a></td>/) {
      set %alch.link. [ $+ [ $right($sockname,6) ] ] $regml(1)
      set %alch.name. [ $+ [ $right($sockname,6) ] ] $regml(2)

      sockclose $sockname
      sockopen alchemy. [ $+ [ $right($sockname,6) ] ] tip.it 80
    }
  }
}
on *:sockopen:alchemy.*: {
  sockwrite -nt $sockname GET $+(/runescape/,%alch.link [ $+ [ $right($sockname,6) ] ]) HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:sockread:alchemy.*: {
  if ($sockerr) { halt }
  else {
    var %socketreader
    sockread %socketreader
    if (*gp* iswm %socketreader) {
      set %alch.result. [ $+ [ $right($sockname,6) ] ] $1-
      %alch.display. [ $+ [ $right($sockname,6) ] ] %alch.name. [ $+ [ $right($sockname,6) ] ] -  %alch.result. [ $+ [ $right($sockname,6) ] ]

      unset %alch.*. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
  }
}