Snake--> HILFE!

[Mavarik]

Hallo!

DP <> Hausaufgabenerledigung...!

Um Euch auf den "richtigen" Weg zu bringen...

Delphi-Quellcode:

type
   TSnakeElem   = record
                    Bild : TImage;
                    Richtung : TRichtung; (links,rechts,hoch,runter);
                    Position : TPoint;
                  end;

   TFutter      = record
                    Bild : TImage;
                    Position : TPoint;
                  end;

var
  Snake_Element : Array of TSnakeElem;
  WayPoints     : Array of TPoint;
  Futter        : Array of TFutter;

Procedure MoveSnake;
var
  i : integer;
begin
  for i:=0 to high(Snake_Element) do
    begin
      Case Snake_Element.Richtung do
        links : ...
        rechts : ...
        
      end; // of case

      // Testen ob Snake_Element . Position in WayPoints...
      // Neue Richtung vorgeben.
      // Testen ob letztes Element an letztem Waypoint vorbei.. Waypoint löschen...
    end;
end;

Ach ja.. die Schlange sollte immer laufen, auch wenn keine Taste gedrückt wird...

Frank