GESTION DES SCORES

alias score {
  var %n = $3, %c = $2, %ch = $qt($+(sc_,$network,%c,.txt))
  if ($1 == a) {
    if ($read(%ch, w, %n $+ :*)) {
      var %i = $readn
      .write -l $+ %i %ch $+(%n,:,$calc($gettok($read(%ch,%i),2,58) + $4))
    }
    else { .write %ch %n $+ : $+ $4 }
  }
  elseif $exists(%ch) {
    if ($1 == b) {
      var %i = 1, , %sc1 = $qt($+(sc1_,$network,%c,.txt)), %sc2 = $qt($+(sc2_,$network,%c,.txt))
      .remove %sc2
      filter -ffeutc 2 58 %ch %sc1 *:*
      while ($read(%sc1,%i)) {
        var %a = $sorttok($addtok(%a,$gettok($read(%sc1,%i),2,58),32),32,nr)
        inc %i
      }
      var %i = 1
      while (%i <= $numtok(%a,32)) {
        var %i2 = 1, %h = $+(*,:,$gettok(%a,%i,32)), %j1
        while ($read(%sc1, w, %h)) {
          var %j1 = $addtok(%j1,$gettok($v1,1,58),32)
          .write -dl1 %sc1
        }
        .write %sc2 $+($chr(2),[,%i,],$chr(2),$chr(32),%j1,$chr(32),:,$gettok(%a,%i,32))
        inc %i
      }

      if (!$3)  var %p = 1, %d = $calc(%i + 9), %top = 10
      elseif ($3 isnum)  var %d = $calc($ceil($calc($3 / 10))*10), %p = $calc(%d - 9), %top = $+($chr(40),%p,-,%d,$chr(41))
      elseif ($3) { 
        var %z = $read(%sc2,w, * $+ $chr(32) $+ $3 $+ $chr(32) $+  *)
        if (!$readn) { .remove %sc2 | return }
        var %p = $readn, %d = %p, %top = $3
      }
      while (%p <= %d) {
        var %j = $addtok(%j,$+($read(%sc2,%p)),32)
        inc %p
      }
      .remove %sc2
      .remove %sc1
      if (: isin %j) return Top %top : $regsubex($iif($3 !isnum && $3 != $null,$regsubex(%j,/ $3 /gi, $+ $+($chr(32),$chr(2),\1 $gettok(%j,$findtok(%j,%n,1,32),32),$chr(2),$chr(32))),%j),/ :([0-9]*)/g, $+($chr(32),$chr(40),$iif(\1 == 1, $chr(31) $+ \1 point $+ $chr(31), $chr(31) $+ \1 points $+ $chr(31)),$chr(41),$chr(32)))
    }
    elseif ($1 == init) .remove %ch
  }
}