alias Check { sockclose Check | sockopen Check kat.cr 80 }
alias -l sw { if ($sock($1)) && ($sock($1).status = active) { sockwrite -nt $1- } | else { echo -s * Check: $sock(Check).status | .timerreCheck 1 9 Check } }
on *:sockopen:Check:{ sw $sockname GET $+(/games/?field=seeders&sorder=desc HTTP/1.1,$lf,Host: www.kat.cr,$str($crlf,2))) }
on *:sockread:Check:{ sockread -fn &Check | var %v = $bvar(&Check,1,$bvar(&Check,0)).text | echo -s * %v }