Unnamed

ON *:TEXT:!Price*:#: {
  set %price.nick .notice $nick
  set %price.item $replace($$2-,$chr(32),+)
  set %price.item2 $2-
  if $sock(price) { /sockclose price }
  else {
    /sockopen price zybez.net 80
  }
}

on *:sockopen:price: {
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %price.item $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname HOST: zybez.net $+ $crlf $+ $crlf
}

on *:sockread:price: {
  if $sockerr {
    %price.nick there was an error during the socket reading process ( $+ $sockerr $+ ) of Price
    unset %price.nick
    unset %price.item
    halt
  }
  else {
    var %output
    sockread -f %output
    if (*<!--name-->* iswm %output) {
      set %output1 $htmlfree(%output)
    }
    if (*gp* iswm %output) {
      set %output $htmlfree(%output)
      var %category
      %price.nick Priced-Item: %output1 -
      %price.nick Results: %output 
      set %price.nick $remove(%price.nick,.notice)
      unset %price.nick 
      unset %price.item 
      unset %output
      unset %output1
      var %category 
      var %a = 0
      sockclose price
      halt 
    }
    if (<td class="tablebottom" colspan="5">* iswm %output) {
      %price.nick [Priced-Item] %output1
      %price.nick [Results] Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.
    }
  }
}

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}