Zitat von
MarkusUhl:
Habe dieses Muster hier gefunden und mich daran gehalten. Wie würdest du es machen..
Am besten immer auf Zitat klicken, sonst weiss man nie worauf Du antwortest...
Na irgendwie sowas...:
Delphi-Quellcode:
for i:=1
to Schlange.laenge
do
begin
case Schlange.Element[i].Richtung
of
Links :
dec(Schlange.Element[i].Position.X)
Rechts: inc(Schlange.Element[i].Position.X);
runter: inc(Schlange.Element[i].Position.Y);
hoch :
dec(Schlange.Element[i].Position.Y);
for k:=1
to MaxWegpunkte
do
begin
if (Schlange.Element[i].Position.x = WegPunkt[k].Position.x)
and
(Schlange.Element[i].Position.y = WegPunkt[k].Position.y)
then
Schlange.Element[i].Richtung := WegPunkt[k].Richtung
end;
end;
// of case
end;
* Nicht vollständig!!
Frank
