Mine

n52=on *:TEXT:!topsab*:%sabschan:{
n53=  if ($nick isin %sabschan) {
n54=  notice $nick Top $iif(!$2,10,$2) sabbers:
n55=  if ($exists(topsab.txt)) remove topsab.txt
n56=  var %x = 1, %z = $hget(users,0).data
n57=  while (%x <= %z) {
n58=    set %name $hget(users,%x).item
n59=    var %a = 1, %b = $lines(kocweps.txt) 
n60=    while (%a <= %b) {
n61=      if ($hget(took,%name $+ . $+ $gettok($read(kocweps.txt,%a),1,46))) { 
n62=        inc %sabbed. [ $+ [ %name ] ] $calc($gettok($read(kocweps.txt,%a),2,46) * $hget(took,%name $+ . $+ $gettok($read(kocweps.txt,%a),1,46)))
n63=      }
n64=      inc %a
n65=    }
n66=    write topsab.txt %name %sabbed. [ $+ [ %name ] ]
n67=    inc %x
n68=  }
n69=  unset %sabbed.*
n70=  filter -ffcteu 2 32 topsab.txt sabfin.txt *
n71=  var %c = 1, %d = $iif(!$2,10,$2)
n72=  while (%c <= %d) {
n73=    if ($read(sabfin.txt,%c)) { .timer 1 %c notice $nick $+(15,$chr(35),$iif($len(%c) == 1,0 $+ %c,%c),:12) $gettok($read(sabfin.txt,%c),1,32) - $bytes($gettok($read(sabfin.txt,%c),2,32),b) }
n74=    inc %c
n75=  }
n76=  timer 1 $calc($iif(!$2,$iif($lines(sabfin.txt) <= 10,$lines(sabfin.txt),10),$2) + 1) notice $nick End of top $iif(!$2,10,$2) sabbers.
n77=  } }
n78=