Raster Prob bei Snake

[Predator]

hi ich hab ein Snake clone gecodet, doch die Schlange geht nie genau über die Banane, sondern immer ein bissel daneben.

Kann mir jemand sagen, bzw. code posten wie ich ein vernünftiges Raster für Schlange und Banane erstellen kann ?

danke.

[Giantics]

Du musst beim Positionieren deiner Schlange oder der Banane die Koordinaten erst "gittergerecht" machen.
Entweder damit:

Delphi-Quellcode:

function GetGridCoord(Value:Integer):Integer;
begin
  Result:= Trunc(((Value+(GridSize/2))/GridSize))*GridSize ;
end;

Oder mit dieser leicht schnelleren Version:

Delphi-Quellcode:

function GetGridCoord(Value:Integer):Integer;
begin
  asm
    add EAX,5
    mov CL,GridSize
    div CL
    mul CL
    //add EAX,1                // noch eins dazu
    mov Result,EAX
  end;
end;

Die globale Variable GridSize sollte vom Typ Byte sein und enthält die Gittergröße (z.B. 10).
Also sieht das quasi später so aus:
Banane.X:=GetGridKoord(irgendwasX);
Banane.Y:=GetGridKoord(irgendwasY);

[Predator]

hi ich weiß net wie du das meinst,

ich hab den cod ehier mal angehängt mit deinen ändnerungen wie ich sie verstanden habe, aber das geht irgendwie net.

Kannst du dann gleich auch das Prob lösen, warum die ersten Teil der Schlange kleiner sind als der letzte Teil ?

danke.

[Giantics]

Ich guck mirs mal an

[Giantics]

So, ich denk mal jetzt isses so, wie du es wolltest.

[Predator]

jippii

danke danke.

Dich trag ich auch in meine BestList ein.