on *:SOCKREAD:price*: {
  var %read [ $+ [ %priceID ] ]
  sockread %read [ $+ [ %priceID ] ]
  if (*<br>* iswm %read [ $+ [ %priceID ] ] ) {
    set %reada [ $+ [ %priceID ] ] $instok(%read [ $+ [ %priceID ] ],7,$calc($numtok( %read [ $+ [ %priceID ] ],32) - 3 ),32) 
    %pricepub [ $+ [ %priceID ] ] $remove(%read [ $+ [ %priceID ] ],<br>)
    sockclose $sockname
    unset %pitem [ $+ [ %priceID ] ]
  }
}