Mesch Ärgere dich nicht

[Andy090778]

Schmeiß die Bedingungen für die Spieler raus und benutze auch noch für allle Player zusammen ein Array:
p: array [1..4] of Integer; Für das Speichern der Positionen nimmst Du den Typ TPoint:
Pos: array [0..99] of TPoint; Zugriff dann so:

Delphi-Quellcode:

Pos[0].X
Pos[0].Y

hier der Code:

Delphi-Quellcode:

// aktuelle position
  p[player] := p[player] + wurf;
  if p[player] > 40 then p[player] := p[player] - 40;

// anzeigen
  edt_points.text := IntToStr( p[player] );

// spielfiguren bewegen
  TImage(FindComponent('s'+IntToStr(player)+'f1') ).Left := Pos[ p[player] ].x; 
  TImage(FindComponent('s'+IntToStr(player)+'f1') ).Top := Pos[ p[player] ].y; 
end;

Jetzt bist Du dran

ToDo:
- Animieren der Züge
- Verbesserung init

Andreas