Dieser Befehl fragt die aktuell einem Fahrer zugewiesenen Strafpunkte aus dem Strafkatalog ab. In Kombination mit cpSetStrafkatalog lässt sich auch addieren.

var
  slot : Integer;
  sFahrerName : String;
  strafPunkte1 : Integer;
  strafPunkte2 : Integer;
  msg : String;
  mitStrafe : Boolean;
  
begin

  // Variablen initialisieren
  msg := '';
  
  // Fahrernamen speichern
  sFahrerName := 'slot-xtreme';
  
  // Mit Bestrafung bei Erreichen Punktelimit
  // abhängig vom Fahrernamen :-)
  if sFahrerName = 'Ralph525' then
    mitStrafe := True
  else
    mitStrafe := False;

  // Strafpunkte vergeben
  cpSetStrafkatalog(sFahrerName, 2);
  
  // Aktuellen Punktestand abfragen
  strafPunkte1 := cpGetStrafkatalog(sFahrerName);
  
  // Meldung erweitern
  msg := msg + 'Fahrer ' + sFahrerName +  ' - ';
  msg := msg + IntToStr(strafPunkte1) + ' Punkte';
  msg := msg + Chr(13) + Chr(10);
  
  // Fahrer bekommt weitere Punkte und ggfs. Strafe
  cpAddStrafkatalog(sFahrerName, 11, mitStrafe);

  // Neuen Punktestand abfragen
  strafPunkte2 := cpGetStrafkatalog(sFahrerName);
  
  // Meldung erweitern
  msg := msg + 'Fahrer ' + sFahrerName +  ' - ';
  msg := msg + IntToStr(strafPunkte2) + ' Punkte';
  msg := msg + Chr(13) + Chr(10);
  
  cpShowMessage(msg);

end.

Zeigt die folgende Meldung. Mit cpSetStrafkatalog erhält der Fahrer erst einmal 2 Strafpunkte. Der Punktestand wird fest gesetzt. Sollte der Fahrer z.B. 5 Punkte auf dem Konto haben, ist der Kontostand nachher 2 Punkte!

Der Befehl cpGetStrafkatalog fragt den aktuellen Punktestand ab. Möchte man mit cpSetStrafkatalog Punkte addieren, müsste man im ersten Schritt den Punktestand abfragen, anschließend Strafpunkte addieren und dann den errechneten neuen Wert setzen.

Einfacher ist das per cpAddStrafkatalog möglich, da dieser Befehl Punkte zum aktuellen Stand addiert.

Derzeit ist noch ein Fehler im Befehl cpAddStrafkatalog. Er funktioniert nur wie erwartet, wenn BestrafungStrafkatalog auf False gesetzt ist. Mit True erfolgt KEINE Bestrafung und auch KEINE Addition der Punkte.

Start - FAQ - Glossar - Sitemap - Impressum