All pastes #147967 Raw Edit

Miscellany

public text v1 · immutable
#147967 ·published 2006-08-24 19:56 UTC
rendered paste body
 if ($read(price.txt, s, your)) { %target Item Not found, Please try again. | unset %target | unset %item | unset %temp  | sockclose $sockname | remove price.txt | halt }
  else {
    %target Returning $iif($left($read(price.txt, s, viewing),1) > 5,5,$left($read(price.txt, s, viewing),1)) out of $gettok($read(price.txt,75),4,32) Prices:
    timerprice1 1 1 %target $read(price.txt,81) $+ : $read(price.txt,82) - $read(price.txt,83)
    if ($calc(($lines(price.txt) - 92) / 3) >= 2) { timer2 1 2 %target $read(price.txt,84) $+ : $read(price.txt,85) - $read(price.txt,86) }
    if ($calc(($lines(price.txt) - 92) / 3) >= 3) { timer3 1 3 %target $read(price.txt,87) $+ : $read(price.txt,88) - $read(price.txt,89) }
    if ($calc(($lines(price.txt) - 92) / 3) >= 4) { timer4 1 4 %target $read(price.txt,90) $+ : $read(price.txt,91) - $read(price.txt,92) }
    if ($calc(($lines(price.txt) - 92) / 3) >= 5) { timer5 1 5 %target $read(price.txt,93) $+ : $read(price.txt,94) - $read(price.txt,95) }      
    sockclose $sockname
    unset %temp | unset %target | unset %item
    remove price.txt
    halt
  }
}
}
alias -l htmlstrip { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }