/scangflist for OrFeAsGr v1.0

alias scangflist {
  var %scannedplayers, %scannednets, %delscangf
  var %t = $numtok(%networksnames,126)
  var %g = 1
  while (%g <= %t) {
    var %net = $gettok(%networksnames,%g,126)
    var %tot = $numtok(%gfplayers~ [ $+ [ %net ] ],126)
    inc %scannednets 1
    var %u = 1
    while (%u <= %tot) {
      :again
      inc %scannedplayers 1
      var %nick = $gettok(%gfplayers~ [ $+ [ %net ] ],%u,126)
      if (!%nick) { goto next_net }
      var %last = %lastplay~ [ $+ [ %net ] $+ ] ~ [ $+ [ %nick ] ]
      var %last_calc = $calc(%last + 864000)
      var %10_day = $calc($ctime + 864000)
      if (%last_calc < %10_day) {
        unset %lastplay~ [ $+ [ %net ] $+ ] ~ [ $+ [ %nick ] ]
        unset %w~ [ $+ [ %net ] $+ ] ~ [ $+ [ %nick ] ]
        unset %l~ [ $+ [ %net ] $+ ] ~ [ $+ [ %nick ] ]
        var %fn = $findtok(%gfplayers~ [ $+ [ %net ] ],%nick,1,126)
        if (%fn) {
          set %gfplayers~ [ $+ [ %net ] ] $deltok(%gfplayers~ [ $+ [ %net ] ],%fn,126)
          if (!%gfplayers~ [ $+ [ %net ] ]) { unset %gfplayers~ [ $+ [ %net ] ] }
          inc %delscangf 1
          goto again
        }
      }
      inc %u
    }
    :next_net
    inc %g
  }
  echo -at 14[7Timed GunFight-Score & Game Points14] 6Scan 3Completed14: 7Scanned3 %scannednets 7NetWorks And 4Deleted14: $iif(%delscangf,$v1,0) 7From:3 %scannedplayers 7Total Players
}