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
}
}
}