Code:
alias myb {
  set %tempchan $chan
  %bitka = $1
  set %kuda a
  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 }
    msg %tempchan %bitka $+ : $left($calc(100 - %kuda),6) $+ % -  $+ $chr(32) $+  $left(%kuda,6) $+ %    
  }
}