ALso ich verwende nur Wine, aber B1 hat Problemlos funktioniert nur ab der B2 funktioniert die Leertaste irgendwie nicht?!
Aber zum Sourccode:
- if erwartet einen Boolean, heißt, du musst in if nicht auf = true oder = false überprüfen: if Boolean then reicht (= true) oder if not Boolean then für = false
- Ich würde eine Hintergrundmap machen (mit allen was sich nicht verändert, also Weiße Fläche + Hindernisse). Dann bei jedem neuzeichnen Hintergrundmap reinkopieren und dann Schlange einzeichnen.
BitBtl könnte dir behilflich sein.
- Um zu überprüfen ob sich die Schlange eingekesselt hat ist das etwas problematischer. Ich würde zuerst mal ein Pathfinding Algorithmus suchen (z.B. A-Star). Allerdings kann es ja sein, dass sie dennoch rausfinden könnte... Also müsste man irgendwie den modifizieren. Mehr fällt mir gerade leider nicht ein.
- Kann es rein theoretisch sein, dass die Schlange nur von Wänden umgeben ist? Dann würde sich ein Pathfinding vielleicht lohnen (um zu überprüfen, ob die Schlange überhaupt zum Futter kommt)
Das waren erstmal meine Anmerkungen.
Zum 1. Punkt:
Delphi-Quellcode:
// Place food on the map
procedure tform1.PlaceFood;
var ok: boolean;
i, j: smallint;
begin
repeat
food.x := random(cols-6)+3;
food.y := random(rows-6)+3;
ok := true;
for i := -1 to 1 do
for j := -1 to 1 do
ok := ok and not(belegt[food.X+i, food.Y+j]); // Alternative:
// wenn belegt, dann ist not() false => ok and false = false
// ansonsten: ok and true = ok
until ok; // Statt auf "ok = true" zu prüfen reicht ein "ok"
// Drawing food
image1.canvas.brush.Color := clblue;
Drawspace(food.x,food.y);
end;
edit #1: Statt i und j : smallint,
könnte man auch i, j : Byte nehmen, und dann statt von -1 -> 1 laufen von 0 -> 2 laufen lassen und dann jeweils immer
food.X/Y + i/j - 1 So richtig bringen wird dir das nichts
Und zu den 180° Problem: Merke dir die letzte Richtung (
Enumeration) und gucke nun jeweils max 90° versetzt.
MfG
xZise
PS: fuknersascha ?