Program eGlide_Elapsed_time_scoring;

const 
  UseHandicaps = 2;   // set to: 0 to disable handicapping, 1 to use handicaps, 2 is auto (handicaps only for club and multi-seat)
  PowerTreshold = 20; // In Watts [W]. If Current*Voltage is less than that, it won't count towards consumed energy.
  RefVoltage = 110;   // Fallback if nothing else is known about voltage used when engine is running
  RefCurrent = 200;   // Fallback if nothing is known about current consumption
  FreeAllowance = 2000; // Watt-hours. No penalty if less power was consumed
  EnginePenaltyPerSec = 1000/15/60;    // Penalty in seconds per Watt-hour consumed over Free Allowance. 1000 Wh of energy allows you to cruise for 15 minutes.
  Fa = 1.2;           // Amount of time penalty for next finisher / outlander

var
  Dm, D1,
  Dt, n1, n2, n3, n4, N, D0, Vo, T0, Tm, Hmin,
  Pm, Pdm, Pvm, Pn, F, Fcr, Day: Double;

  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime, PilotEnergyConsumption, CurrentPower, PilotEngineTime, EnginePenalty  : double;
  
  i,j, minIdx : integer;
  str : String;
  Interval, NumIntervals, GateIntervalPos, NumIntervalsPos, PilotStartInterval, PilotStartTime, PilotPEVStartTime, StartTimeBuffer : Integer;
  AAT : boolean;
  Auto_Hcaps_on : boolean;


begin
  // initial checks
  if GetArrayLength(Pilots) <= 1 then
    exit;

  Hmin := 100000;  // Lowest Handicap of all competitors in the class
  T0 := 10000000;
  Tm := 0; // slowest finisher time
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].start := Task.NoStartBeforeTime;
	if Pilots[i].finish > 0 Then
	begin
	  Pilots[i].speed := Pilots[i].dis / (Pilots[i].finish-Pilots[i].start);
	end;
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap < Hmin Then Hmin := Pilots[i].Hcap; // Lowest Handicap of all competitors in the class
	end;
  end;
  If Hmin=0 Then begin
          Info1 := '';
	  Info2 := 'Error: Lowest handicap is zero!';
  	Exit;
  end;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
	begin
      // Find the lowest task time
      T := (Pilots[i].finish-Pilots[i].start) * Pilots[i].Hcap/Hmin;
      If (T < T0) and (Pilots[i].finish > 0) Then
      begin
        T0 := T;
		minIdx := i;
      end;

      // Find the slowest finisher
	  if T > Tm Then
	  begin
	    Tm := T;
	  end;
    end;
  end;
  
  // Energy Consumption by pilot on task
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].Warning := '';
    PilotEnergyConsumption := 0;
	PilotEngineTime := 0;

	for j := 0 to GetArrayLength(Pilots[i].Fixes)-1 do
	begin
	  if (Pilots[i].Fixes[j].Tsec > Pilots[i].start) and (Pilots[i].Fixes[j].Tsec < Pilots[i].finish) Then
	  begin
	    // If pilot has Cur and Vol
		if Pilots[i].HasCur then
		begin
			if not Pilots[i].HasVol Then
				Pilots[i].Fixes[j].Vol := RefVoltage;
			if (Pilots[i].Fixes[j].Cur > 0) and (Pilots[i].Fixes[j].Vol > 0) then
			begin
				CurrentPower := Pilots[i].Fixes[j].Cur * Pilots[i].Fixes[j].Vol;
				If CurrentPower > PowerTreshold then
				begin
					PilotEngineTime := PilotEngineTime + Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec;
	//				Pilots[i].Warning := Pilots[i].Warning + IntToStr(Round(Pilots[i].Fixes[j].Cur))+ ' * ' + IntToStr(Round(Pilots[i].Fixes[j].Vol)) + ' * ' + IntToStr(Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec) + #10;
					PilotEnergyConsumption := PilotEnergyConsumption + CurrentPower * (Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec) / 3600;
					Pilots[i].td1 := PilotEnergyConsumption;
				end;
			end;
		end
		else
		begin
			If Pilots[i].Fixes[j].EngineOn Then
			begin
				CurrentPower := RefCurrent * RefVoltage;
				PilotEngineTime := PilotEngineTime + Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec;
//				Pilots[i].Warning := Pilots[i].Warning + IntToStr(Round(Pilots[i].Fixes[j].Cur))+ ' * ' + IntToStr(Round(Pilots[i].Fixes[j].Vol)) + ' * ' + IntToStr(Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec) + #10;
				PilotEnergyConsumption := PilotEnergyConsumption + CurrentPower * (Pilots[i].Fixes[j+1].Tsec - Pilots[i].Fixes[j].Tsec) / 3600;
				Pilots[i].td1 := PilotEnergyConsumption;
			end;
		end;
	  end;
	end;

//	// Debug output
//	if Pilots[i].HasCur Then 
//      Pilots[i].Warning := Pilots[i].Warning + 'HasCur = 1'+#10
//	else
//      Pilots[i].Warning := Pilots[i].Warning + 'HasCur = 0'+#10;
//	if Pilots[i].HasVol Then 
//      Pilots[i].Warning := Pilots[i].Warning + 'HasVol = 1'+#10
//	else
//      Pilots[i].Warning := Pilots[i].Warning + 'HasVol = 0'+#10;
//	if Pilots[i].HasEnl Then 
//      Pilots[i].Warning := Pilots[i].Warning + 'HasEnl = 1'+#10
//	else
//      Pilots[i].Warning := Pilots[i].Warning + 'HasEnl = 0'+#10;
//	if Pilots[i].HasMop Then 
//      Pilots[i].Warning := Pilots[i].Warning + 'HasMop = 1'+#10
//	else
//      Pilots[i].Warning := Pilots[i].Warning + 'HasMop = 0'+#10;
	Pilots[i].Warning := Pilots[i].Warning + 'EngineTime = ' + IntToStr(Round(PilotEngineTime)) + ' s' + #10;
	Pilots[i].Warning := Pilots[i].Warning + 'PowerConsumption = ' + IntToStr(Round(PilotEnergyConsumption)) + ' Wh' +#10;
	if PilotEnergyConsumption > FreeAllowance then
	  Pilots[i].Warning := Pilots[i].Warning 
	    + 'Engine Penalty = ' + IntToStr(Round(PilotEnergyConsumption-FreeAllowance)) + ' Wh = ' 
	    + FormatFloat('0.00',((PilotEnergyConsumption - FreeAllowance) * EnginePenaltyPerSec / 60)) + ' minutes' 
		+#10;
  end;

  
  // ELAPSED TIME SCORING
  for i:=0 to GetArrayLength(Pilots)-1 do 
  begin
    if Pilots[i].finish > 0 then
	begin
      Pilots[i].Points := -1.0*((Pilots[i].finish - Pilots[i].start)*Pilots[i].Hcap/Hmin - T0)/60;
	end
	else
	begin
	  // Outlanders get 1.2 x the slowest finisher
      Pilots[i].Points := (-1.0*Tm*Fa + T0)/60;
	end;

    // Engine penalty
    PilotEnergyConsumption := Pilots[i].td1;
    if PilotEnergyConsumption > FreeAllowance then
	begin
	  EnginePenalty := (PilotEnergyConsumption - FreeAllowance) * EnginePenaltyPerSec / 60; // Penalty in minutes
	  Pilots[i].Points := Pilots[i].Points - EnginePenalty;
	end;
	
	//Worst score a pilot can get is 1.2 times the last finisher's time.
	if Pilots[i].Points < (-1.0*Tm*Fa+T0)/60 Then
	  Pilots[i].Points := (-1.0*Tm*Fa+T0)/60;
	  
	Pilots[i].Points := Round((Pilots[i].Points- Pilots[i].Penalty/60)*100)/100; // Expected penalty is in seconds
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
//  Pilots[minIdx].Points := Round(T0/60*100)/100;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Elapsed time race';
  Info1 := Info1 + ', results in minutes behind leader, handicapped'; 

end.