on 1:sockopen:ocrnews:{ /sockwrite -n $sockname GET /newage/news.phtml HTTP/1.1 /sockwrite -n $sockname User-Agent: Mozilla/OCR-IRC61 /sockwrite -n $sockname Host: www.ocrana.com /sockwrite -n $sockname Connection: Keep-Alive /sockwrite -n $sockname $crlf } on 1:sockread:ocrnews:{ /var %tmp /var %reached /var %compare = ...to the English news /if ($sockerr > 0) /return :nxt /sockread %tmp /if ($sockbr == 0) /return /if (%reached > 0) /inc %reached /if (%compare isin %tmp) %reached = 1 /if (%reached == 3) { /var %res = $gettok(%tmp,12,62) %res = $mid(%res,14,$calc($pos(%res,<,1) - 14)) /if (%res != %newsticker.last) { /echo -a 4*** Newsticker: Latest News on www.OCRANA.com > %res < *** | splay news.wav /set %newsticker.last %res } /goto end } /goto nxt :end /sockclose ocrnews }
dzikut