alias myb {
set %tempchan $chan
%bitka = $1
set %kuda a
set %myb.i 5
if ($sock(myb)) { .sockclose myb }
.sockopen myb www.erepublik.com 80
}
on *:sockopen:myb:{
.sockwrite -n $sockname GET /en/military/battle-log/ $+ %bitka HTTP/1.1
.sockwrite -n $sockname Host: www.erepublik.com
.sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:myb: {
.sockread -f %temp
set %buffer %temp
while ($sockbr != 0) {
.sockread -f %temp
%buffer = %buffer %temp
}
if ($pos(%buffer,domination,1) > 0) {
%bi = $pos(%buffer,domination,1) + $len(domination)
%ei = $pos(%buffer,att,1)
%kuda = $mid(%buffer,$calc(%bi + 2),$calc(%ei - %bi - 4))
}
if (%kuda != a) {
if ($sock(myb)) {
.sockclose myb
if (%myb.i) {
.timer 1 $calc(6 - %myb.i) sockopen myb www.erepublik.com 80
dec %myb.i
}
}
msg %tempchan %bitka $+ : $left($calc(100 - %kuda),6) $+ % - $+ $chr(32) $+ $left(%kuda,6) $+ %
}
}