Mine

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!price *:#:{
  var %i 1
  while (%i) {
    if (!$sock($+(prices.,%i))) {
      set $+(%,price.,%i) $2
      set $+(%,person.,nick.,%i) $nick
      sockopen $+(prices.,%i) scripttips.net 80
      break
    }
    inc %i
  }
}
on *:sockopen:prices.*:{
  sockwrite -n $sockname GET /oss/price.php?item=,$eval($+(%,price.,$gettok($sockname,2,46)),2) HTTP/1.1 
  sockwrite -nt $sockname Host: scripttips.net
}
on *:SOCKREAD:prices.*:{
  msg #shinzaki Hi
  if ($sockerr) {
    echo -s Socket error
  }
  else {
    var %readprice
    while (1) {
      sockread -f %readprice
      if (!$sockbr) { break }
      if ($eval($+(%,price.,$gettok($sockname,2,46)),2):* iswm %read) {
        var %price = $remove($gettok(%read,2,58),<br />)
      }
    }
    echo -a -
    notice $eval($+(%,person.,nick.,$gettok($sockname,2,46)),2) 
    unset $+(%,price.,$gettok($sockname,2,46))
    sockclose $sockname
  }
}