No trouble smile
Code:
on *:text:*:#: {
  if ($nick isop $chan) {
    if ($regex($1-,/^(.+) (\(\d:\d\)) ([\d\54]*\d+) ([\d\54]*\d+) [\d\54]+?\54\d{3}(?: \[.+\])?$/)) {
      var %empire = $regml(1), %sector = $regml(2), %r = $remove($regml(3),$chr(44)), %l = $remove($regml(4),$chr(44))
      var %r.hits = 0, %l.hits = 0
      while (%r > 0) { dec %r $iif((%r > 100),$calc(%r * 0.1),10) | inc %r.hits }
      while (%l > 0) { dec %l $iif((%l > 200),$calc(%l * 0.1),20) | inc %l.hits }

      msg $chan %empire %sector %r.hits Roid Hits %l.hits Land Hits
      msg $chan 03 $+ %empire %sector 04 $+ %r.hits 03Roid Hits 04 $+ %l.hits 03Land Hits
    }
  }
}
(the doubled line is a coloring proposal only)