Dieser Befehl vergibt einen bestimmten Fahrer eine parametrierbare Boxengassenstrafe.
| Befehl | cpAddOnBoxenstrafe2(FahrerName, RundenZumReinfahren, Standzeit, RundenAbzugNichtbeachtung,Disqualifikation, RundenStrafeRennende, TankenNachBoxenStrafe) | |
|---|---|---|
| FahrerName | vergibt eine Boxengassenstrafe für den angegebenen Fahrer | String |
| RundenZumReinfahren | innerhalb dieser Runden muss die Boxengasse angefahren werden | Integer |
| Standzeit | wie lange muss innerhalb der Boxengasse gewartet werden [Angaben in 1/10-tel Sekunden] | Integer |
| RundenAbzugNichtbeachtung | wieviele Runden werden nicht gezählt, wenn man nicht innerhalb der RundenZumReinfahren in der Boxengasse war | Integer |
| Disqualifikation | soll bei Nichtbeachtung disqualifiziert werden? | Boolean |
| RundenStafenRennende | Anzahl der Runden, welche man bei Nichtbeachtung zum Rennende abgezogen bekommt | Integer |
| TankenNachBoxenStrafe | ist Tanken direkt nach dem Absitzen erlaubt? | Boolean |
Beispiel cpAddOnBoxenstrafe2
{ Pascal Script Engine }
var
FahrerName : String;
RundenZumReinfahren : integer;
Standzeit : integer;
RundenAbzugNichtbeachtung : integer;
Disqualifikation : boolean;
RundenStafenRennende : integer;
TankenNachBoxenStrafe : boolean;
begin
...
FahrerName := Cockpit.FahrerName;
RundenZumReinfahren := 3;
Standzeit := 50;
RundenAbzugNichtbeachtung := 5;
Disqualifikation := false;
RundenStafenRennende := 5;
TankenNachBoxenStrafe := false;
...
...
cpAddOnBoxenstrafe2(FahrerName,
RundenZumReinfahren,
Standzeit,
RundenAbzugNichtbeachtung,
Disqualifikation,
RundenStrafeRennende,
TankenNachBoxenStrafe);
...
...
end.
Obiger Code vergibt für den aktuellen Fahrer eine Boxengassenstrafe welche man innerhalb der nächsten 3 Runden anfahren muss. Dann muss man mind. 5 Sekunden (50*1/10 sek.) absitzen. Beachtet man die Strafe nicht, fährt also nicht innerhalb der 3 Runden in die Boxengasse zum Absitzen werden die nächsten 5 Runden NICHT gezählt. Es wird nicht gleich Disqualifiziert und bei Rennende werden 5 Runden abgezogen, wenn die Strafe nicht angetreten wurde. Tanken nach Absitzen ist nicht erlaubt und startet somit auch nicht automatisch. Zum Tanken muss man die Box nochmals anfahren.
Man muss nicht mit Variablen arbeiten, man kann auch „hart“ programmieren:
Beispiel cpAddOnBoxenstrafe
{ Pascal Script Engine }
begin
...
...
cpAddOnBoxenstrafe2(Cockpit.FahrerName, 3, 50, 5,false, 5, false);
...
...
end.