Someone

on $*:TEXT:/^~p?price/:#: {
  if (%lookup.flood == $true) {
    if (%lookup.time == 1) { .notice $nick $botlogo has just been used. Please wait %lookup.time second. }
    else { .notice $nick $botlogo has just been used. Please wait %lookup.time seconds. } 
    halt 
  }
  if ($1 == ~pprice) && (($nick isop $chan) || ($adrcheck($nick) == $kvn.address)) { set %price.display msg $chan }
  else { set %price.display notice $nick }
  set %price.chan $chan
  set %price.nick $nick
  set %price.item $replace($2-,$chr(32),$chr(43))
  if ($nick == kvn) { sockopen $+(price.,$nick) zybez.net 80 }
  %price.display Under Construction pls. -- %price.item $logo
  set -u3 %lookup.flood $true
  set -z %lookup.time 3
}
on *:sockopen:price.*: {
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ %price.item $+ &search_area=1&price_low=0&price_high=0&all_prices=1&member=1&ppage=75&sortby=price&sort=DESC HTTP/1.1
  sockwrite -n $sockname Host: zybez.net $+ $crlf $+ $crlf
}
on *:sockread:price.*: {
  set %price
  var %x = 0
  while (%x <= 40) && (%no.results != $true) {
    sockread %price
    if $regex(%price,/Your search did not return any results./) { 
      set %no.results $true
    }
    elseif $regex(%price,/^(<td class="tablebottom">)/) && !$regex(%price,/(<a|<img)/) {
      %test = %test %price
    }
    notice kvn k %price
    unset %price
    inc %x
  }
  sockclose $sockname
  if (%no.results == $true) { %price.display $botlogo The item " $+ $c3($replace(%price.item,$chr(43),$chr(32))) $+ " did not match any results. }
  unset %no.results
}
on *:sockclose:price.*: {
  notice kvn k %test
}