Inhaltsverzeichnis
cpAddOnBoxenstrafe
Einleitung
Dieser Befehl vergibt einen bestimmten Fahrer eine parametrierbare Boxengassenstrafe.
Syntax
| Befehl | cpAddOnBoxenstrafe(FahrerName, RundenZumReinfahren, Standzeit, RundenAbzugNichtbeachtung,Disqualifikation, RundenStrafeRennende) | |
|---|---|---|
| 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 | wieviel Runden werden nicht gezählt, wenn man nicht innerhalb der RundenZumReinfahren in der Boxengassen war | Integer |
| Disqualifikation | soll bei Nichtbeachtung gleich Disqualifiziert werden? | Boolean |
| RundenStafenRennende | ist die Anzahl der Runden, welche man bei Nichtbeachtung zum Rennende abgezogen bekommt | Integer |
Codebeispiel
Beispiel cpAddOnBoxenstrafe
{ Pascal Script Engine }
var
FahrerName : String;
RundenZumReinfahren : integer;
Standzeit : integer;
RundenAbzugNichtbeachtung : integer;
Disqualifikation : boolean;
RundenStafenRennende : integer;
begin
...
FahrerName := Cockpit.FahrerName;
RundenZumReinfahren := 3;
Standzeit := 50;
RundenAbzugNichtbeachtung := 5;
Disqualifikation := false;
RundenStafenRennende := 5;
...
...
cpAddOnBoxenstrafe(FahrerName,
RundenZumReinfahren,
Standzeit,
RundenAbzugNichtbeachtung,
Disqualifikation,
RundenStrafeRennende);
...
...
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.
Man muss nicht mit Variablen arbeiten, man kann auch „hart“ programmieren:
Beispiel cpAddOnBoxenstrafe
{ Pascal Script Engine }
begin
...
...
cpAddOnBoxenstrafe(Cockpit.FahrerName, 3, 50, 5,false, 5);
...
...
end.
Hinweise
