Mesch Ärgere dich nicht

[Discjoggy]

Blöd ist nur, wie ich das jetz herauslese, dass ich von jedem Spieler eine Figur bewegen kann Glücklicherweise gibt es ja 4x4 Figuren unter 4 Spielern unterteilt

Aber an sich funktioniert die ganze sache. Danke Dir auch vielmals dafür !

und nein, sry ich habe noch nicht die größte Ehrfahrung von Objekt Orientierte Programmierung gemacht aber was meinste warum ich so aus spaß ein MÄDN -Spiel mit eigenen Regeln programmieren möchte ?



Kurz zurück zu Michael's Gedanken:

Zitat:

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;

Wie wäre es einfach so:

p1, p2, p3, p4: array [1..4] of Integer; Also das ich [1..4] für die Figuren nehme und p1 selbst als "Spieler1" z.b.

Als Beispiel dann noch eine "Var player, figure: byte;"

Delphi-Quellcode:

  
TImage(FindComponent('s'+IntToStr(player)+'f'+IntToStr(figure)) ).Left := Pos[ p2[player] ].x;
TImage(FindComponent('s'+IntToStr(player)+'f'+IntToStr(figure)) ).Top  := Pos[ p2[player] ].y;