Snake Spiel

[haentschman]

du mußt natürlich die procedure noch unter private deklarieren...

Delphi-Quellcode:

private
    { Private-Deklarationen }
    map: Array [0..BSB] of Array [0..HSB] of Integer;
    kopf,
    richtung,
    fressen: TPoint;
    LaengeSnake: Integer;
    PunkteZaehler: Integer;
    ende: Boolean;


    procedure AktiviereButtons(status: Boolean);
    procedure FarbeSpielfeld;
    procedure BewegungSchlange;
    procedure NeuesFressen;
    procedure SpielEnde;
    procedure Initialisierung;

  public