on *:text:!market:#channel: {
sockopen market www.lunarwars.net 80
}
on *:sockopen:market: {
sockwrite -n $sockname get /market.php HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
sockwrite -n $sockname Host: www.lunarwars.net $+ $crlf $+ $crlf
}
on *:sockread:market: {
if ($sockerr) {
echo -a Error.
halt
}
else {
var %temptext
sockread %temptext
if (*strong* iswm %temptext) {
tokenize 32 $htmlfree(%temptext)
set %market %market 10 $+ $1 03 $+ $2
}
}
}
on *:sockclose:market: {
msg #channel 04Market: %market
unset %market
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}