Untitled

alias do_complete {
  var %win_setup -t,5,12,43,50,55,60,65,70,75,80,85 @stats
  window -kzel %win_setup
  font @stats arial | font @stats 10
  var %site $1
  var %info $sortmulti($1-)
  var %rls $gettok([ %info ],1,126)
  ;  var %sect $gettok([ %info ],2,126)
  var %sect $hget([ %rls ],section)
  var %info $checkallowsite( [ %rls ] , [ %sect ] , [ %site ],npc) 
  if ( NO isin $gettok([ %info ],1,32) ) { var %info 4 $+ %info }
  if ( yes isin $gettok([ %info ],1,32) ) { var %info 9 $+ %info }
  var %line $fline(@stats,*FINISH* $+ [ %rls ] $+ *,1,1)
  if ( %line == $null ) { 
    var %first $null
    if ( $line(@stats,0) == 0 ) { aline -h @stats 8FINISH $+ $T $+ %sect $+ $t $+ 14 $+  %rls $+ $t $+ 8 $+ %site | var %first 1 
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 7)
      writeini fu_counters.ini %site %item %num
    }
    if (( $line(@stats,0) != 0 ) && ( %first != 1 )) { iline -h @stats 1 8FINISH $+ $T $+ %sect $+ $t $+ 14 $+ %rls $+ $t $+ 8 $+ %site
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])

      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 7)
      writeini fu_counters.ini %site %item %num
    }

  }
  if ( %line != $null ) {
    var %txtline $line(@stats,[ %line ],0)
    if ( $numtok([ %txtline ],9) == 4 ) { rline -h @stats %line %txtline $+ $t $+ 15 $+ %site 
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 6)
      writeini fu_counters.ini %site %item %num
    }
  }
  if ( $numtok([ %txtline ],9) == 5 ) { rline -h @stats %line %txtline $+ $t $+ 7 $+ %site  
    var %item SCORE
    if ( mp3 isin %sect ) { var %item SCORE-MP3 }
    var %num $readini(fu_counters.ini,[ %site ],[ %item ])
    if ( %num == $null ) { var %num 0 }
    var %num $calc( %num + 5)
    writeini fu_counters.ini %site %item %num
  }
  if ( $numtok([ %txtline ],9) == 6 ) { rline -h @stats %line %txtline $+ $t $+ 4 $+ %site  
    var %item SCORE
    if ( mp3 isin %sect ) { var %item SCORE-MP3 }
    var %num $readini(fu_counters.ini,[ %site ],[ %item ])
    if ( %num == $null ) { var %num 0 }
    var %num $calc( %num + 4)
    writeini fu_counters.ini %site %item %num
  }
  if ( $numtok([ %txtline ],9) == 7 ) { rline -h @stats %line %txtline $+ $t $+ 9 $+ %site  
    var %item SCORE
    if ( mp3 isin %sect ) { var %item SCORE-MP3 }
    var %num $readini(fu_counters.ini,[ %site ],[ %item ])
    if ( %num == $null ) { var %num 0 }
    var %num $calc( %num + 3)
    writeini fu_counters.ini %site %item %num
  }
  if ( $numtok([ %txtline ],9) == 8 ) { rline -h @stats %line %txtline $+ $t $+ 11 $+ %site  
    var %item SCORE
    if ( mp3 isin %sect ) { var %item SCORE-MP3 }
    var %num $readini(fu_counters.ini,[ %site ],[ %item ])
    if ( %num == $null ) { var %num 0 }
    var %num $calc( %num + 2)
    writeini fu_counters.ini %site %item %num
  }
  if ( $numtok([ %txtline ],9) == 9 ) { rline -h @stats %line %txtline $+ $t $+ 6 $+ %site  
    var %item SCORE
    if ( mp3 isin %sect ) { var %item SCORE-MP3 }
    var %num $readini(fu_counters.ini,[ %site ],[ %item ])
    if ( %num == $null ) { var %num 0 }
    var %num $calc( %num + 1)
    writeini fu_counters.ini %site %item %num
  }
}

alias FU_NEW_RACE_DETECTED {
  if ( leader isin $1- ) { return $null }
  if ( /CD isin $1- ) { return $null }
  if ( SAMPLE isin $1- ) { return $null }
  if ( /SUB isin $1- ) { return $null }
  var %win_setup -t,5,12,43,50,55,60,65,70,75,80,85 @stats
  window -kzel %win_setup
  font @stats arial | font @stats 10
  var %site $1
  var %info $sortmulti($1-)
  var %rls $gettok([ %info ],1,126)
  ;  var %sect $gettok([ %info ],2,126)
  var %sect $hget([ %rls ],section)
  var %info $checkallowsite( [ %rls ] , [ %sect ] , [ %site ],npc) 
  if ( NO isin $gettok([ %info ],1,32) ) { var %info 4 $+ %info }
  if ( yes isin $gettok([ %info ],1,32) ) { var %info 9 $+ %info }
  var %line $fline(@stats,*START* $+ [ %rls ] $+ *,1,1)
  if ( %line == $null ) { 
    var %first $null
    if ( $line(@stats,0) == 0 ) { aline -h @stats 9START $+ $T $+ %sect $+ $t $+ %rls $+ $t $+ 8 $+ %site | var %first 1 
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 7)
      writeini fu_counters.ini %site %item %num

    }
    if (( $line(@stats,0) != 0 ) && ( %first != 1 )) { iline -h @stats 1 9START $+ $T $+ %sect $+ $t $+ %rls $+ $t $+ 8 $+ %site 
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 7)
      writeini fu_counters.ini %site %item %num

    }

  }
  if ( %line != $null ) {
    var %txtline $line(@stats,[ %line ],0)
    if ( $numtok([ %txtline ],9) == 4 ) { rline -h @stats %line %txtline $+ $t $+ 15 $+ %site 
      var %item SCORE
      if ( mp3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 6)
      writeini fu_counters.ini %site %item %num

    }
    if ( $numtok([ %txtline ],9) == 5 ) { rline -h @stats %line %txtline $+ $t $+ 7 $+ %site  
      var %item SCORE
      if ( MP3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 5)
      writeini fu_counters.ini %site %item %num

    }
    if ( $numtok([ %txtline ],9) == 6 ) { rline -h @stats %line %txtline $+ $t $+ 4 $+ %site  
      var %item SCORE
      if ( MP3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 4)
      writeini fu_counters.ini %site %item %num

    }
    if ( $numtok([ %txtline ],9) == 7 ) { rline -h @stats %line %txtline $+ $t $+ 9 $+ %site  
      var %item SCORE
      if ( MP3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 3)
      writeini fu_counters.ini %site %item %num

    }
    if ( $numtok([ %txtline ],9) == 8 ) { rline -h @stats %line %txtline $+ $t $+ 11 $+ %site  
      var %item SCORE
      if ( MP3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 2)
      writeini fu_counters.ini %site %item %num

    }
    if ( $numtok([ %txtline ],9) == 9 ) { rline -h @stats %line %txtline $+ $t $+ 6 $+ %site  
      var %item SCORE
      if ( MP3 isin %sect ) { var %item SCORE-MP3 }
      var %num $readini(fu_counters.ini,[ %site ],[ %item ])
      if ( %num == $null ) { var %num 0 }
      var %num $calc( %num + 1)
      writeini fu_counters.ini %site %item %num
    }
  }
  return $null
}
alias unhide {
  window -w3 $1
}