to ken

on $*:Text:/^[`.~@]price */Si:#:{ 
  if (!$2) { .notice $nick 4,1No 7,1item entered. }
  elseif ($sock(price)) { notice $nick 7,1[Search] 4,1has already open, please wait until it closes. }
  else { 
    set %price.item $replace($2-,$chr(32),+)
    $iif($left($1,1) == @,set %price.target msg $chan,set %price.target notice $nick) 
    sockopen price thexx.6te.net 80 
  }
}
on *:SOCKOPEN:price:{
  sockwrite -nt $sockname GET /xxprice.php?item= $+ %price.item HTTP/1.1
  sockwrite -nt $sockname Host: thexx.6te.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:price:{
  if ($sockerr) {
    %price.target 7,1 $+ Socket error, please try again.
    unset %price.item
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) {
        unset %price.item
        sockclose $sockname   
      }
      elseif (TheXX.Co.NR isin %read) {
        if (%read == TheXX.Co.Nr) { %price.target Price %price.item not found. }
        else { %price.target Price remove(%read, TheXX.Co.Nr) }
        unset %price.item
        sockclose $sockname 
        Break  
      }
    }
  } 
}