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;