on $*:TEXT:/^[!@.]price */si:#: {
  if (!$2) { /notice $nick Please state an item you wish to look up. '!price <item>'.
  }
  else {
    if ($sock(price)) sockclose price
    %nick = /notice $nick
    if (@ isin $1) set %nick /msg $chan
    %price.item = $replace($2-,$chr(32),$chr(43))
    sockopen price. $+(price.socket) www.zybez.net 80
  }
}
on *:SOCKOPEN:zybez-price: {
  sockwrite -nt $sockname GET $+(/priceguide.php?search_terms= $+ %price.item. [ $+ [ %q ] ] $+ &search_area=1&price_low=&price_high=&member=1&w13=rules HTTP/1.1

  sockwrite -nt $sockname Host: www.zybez.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:zybez-price: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %1
    sockread %1
    if (*<!--name--><td class='tablebottom'>* iswm %1) set %price.1 $htmlfree(%1)
    if (*<!--price--><td class="tablebottom">* iswm %1) set %price.2 $htmlfree(%1)
    if (*<td class="tablebottom"><a href="/priceguide.php?category=* iswm %1) {
      %price.3 = $htmlfree(%1)
      %nick 6Item:13 %price.1 6| Price:13 %price.2 6| Category:13 %price.3
      sockclose $sockname
      unset %nick
      unset %price.*
      unset %itemprice
      unset %member
    }
  }
}
alias -l htmlfree {
  var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}