Ich habe hier noch ein Programm mit der folgenden Auswertefunktion rumliegen (falls dir das lesbar genug ist):
Code
procedure Auswerten(const a, b: TSetzdaten; var sa: TScore);
begin
if (b.push = 0) or (b.run = 0) then begin
sa.tries := round(Double(a.pass * a.push * a.run)
/ Double(2));
end else begin
sa.tries := round(Double(a.pass * a.push * a.run)
/ Double(b.push * b.run * 2));
end;
if b.push = 0 then begin
sa.goals := round(Double(a.kick * a.push)
/ Double(2));
end else begin
sa.goals := round(Double(a.kick * a.push)
/ Double(b.push * 2));
end;
sa.score := 5 * sa.tries + 3 * sa.goals;
end;
Alles anzeigen
Ich kann natürlich nicht dafür garantieren, dass die Originalregeln darin hundertprozentig korrekt interpretiert sind.