rendered paste bodyon *:sockread:price.*:{
if ($sockerr) { $($+(%,price.display.,%PRID),2) ERROR: $sockname $+ . Code: $Sockerr Please contact Ktravaglini. | halt }
else { var %templine | sockread %templine
if ($regex(%templine,/<td class="tablebottom">(.*)</td>/)) || ($regex(%templine,/<td class='tablebottom'>(.*)</td>)) || ($regex(%templine,/<td class="tablebottom" width="20">(.*)</td>)) {
if ($regml(1) != ) && ($regml(1) != Zybez is screwing up our parser because we don't credit them. ^_^) && (<a href="/priceguide.php?report= !isin $regml(1)) && ($regml(1) != http://www.Zybez.net) && ($regml(1) != <img src="/img/member.gif" alt="[M]"/>) { inc $+(%,price.line.,%PRID)
if ($($+(%,price.line.,%PRID),2) <= 16) {
if ($($+(%,price.line.,%PRID),2) == 1) || ($($+(%,price.line.,%PRID),2) == 4) || ($($+(%,price.line.,%PRID),2) == 7) || ($($+(%,price.line.,%PRID),2) == 10) || ($($+(%,price.line.,%PRID),2) == 13) { set $+(%,price.item.,%itemcount,.,%PRID) $regml(1) | inc %itemcount }
elseif ($($+(%,price.line.,%PRID),2) == 2) || ($($+(%,price.line.,%PRID),2) == 5) || ($($+(%,price.line.,%PRID),2) == 8) || ($($+(%,price.line.,%PRID),2) == 11) || ($($+(%,price.line.,%PRID),2) == 14) { set $+(%,price.price.,%pricecount,.,%PRID) $regml(1) | inc %pricecount }
elseif ($($+(%,price.line.,%PRID),2) == 3) || ($($+(%,price.line.,%PRID),2) == 6) || ($($+(%,price.line.,%PRID),2) == 9) || ($($+(%,price.line.,%PRID),2) == 12) || ($($+(%,price.line.,%PRID),2) == 15) { set $+(%,price.cata.,%catacount,.,%PRID) $htmlfree($regml(1)) | inc %catacount | set $+(%,price.link.,%linkcount,.,%PRID) Http://www.zybez.net $+ $remove($regml(1),<a href=",">,</a) | inc %linkcount }
}
elseif ($($+(%,price.line.,%PRID),2) > 15) {
while (%discount < %itemcount) { $($+(%,price.display.,%PRID),2) Item: $($+(%,price.item.,%discount,.,%PRID),2) Price: $($+(%,price.price.,%discount,.,%PRID),2) Category: $($+(%,price.cata.,%discount,.,%PRID),2) Link: $($+(%,price.link.,%discount,.,%PRID),2) | inc %discount }
}
}
}
}
}