alias deadgames {
if %trk.nick { .notice $nick Busy, try again later. | return }
set -e %trk.nick $nick
sockopen winbolo tracker.winbolo.net 50005
}
on *:sockopen:winbolo:{
if ($sockerr) return
var %d = sockwrite -n $sockname
%d GET / HTTP/1.0
%d Host: tracker.winbolo.net
}
on *:sockread:winbolo:sockread &a | bwrite deadgames.txt -1 -1 &a
on *:sockclose:winbolo:{
var %i = 1
.fopen wb deadgames.txt
while !$feof {
.fseek -r wb /winbolo:\/\/ $+ %bot.ip $+ :/i
if $fread(wb) {
var %info = $striphtml($v1)
tokenize 58 %info
set %killport $left($3,5)
set %play $right($left($5,2), -1)
if (%play == 0) {
var %nick1 = $wildtok( %used.ports, * $+ %killport $+ * , 1, 44)
var %place = $findtok( %used.ports , %nick1 ,1 ,44)
set %used.ports $deltok(%used.ports, %place, 44)
/run $mircdir $+ wonkaDSctl.exe quit %killport
msg #winbolo $me AutoKilled %killport
}
}
}
timer2 1 300 /deadgames
.fclose wb
.remove deadgames.txt
unset %trk.nick
}
alias striphtml {
var %return, %regex = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,,%return)
return $remove(%return, ,$chr(9),amp;)