on *:text:*:#: {
if ($nick isop $chan) {
if ($regex($1-,/ \(\d:\d\) ([\d\54]*\d+) ([\d\54]*\d+) [\d\54]+?\54\d{3}(?: \[.+\])?$/)) {
var %r = $remove($regml(1),$chr(44)), %l = $remove($regml(2),$chr(44)), %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 %r.hits hits to Roid kill; %l.hits hits to Land kill
}
}
}