Das deutsche QBasic- und FreeBASIC-Forum

[luemmel]

Hi. vorweg: ich bin absoluter anfänger in qbasic.
zum problem:
ich möchte so etwas wie snake, aber erstmal sehr vereinfacht, in qbasic programmieren.
die schlange (reihe von pixeln) lässt sich bisher mit wasd steuern und das ganze lässt sich mit m abbrechen. das problem ist nun, dass ich alle koordinaten (x,y), die die schlange durchlaufen hat, in 2 feldern ( x(I),y(I) )
"abspeichere" um diese in einem definierten abstand (I - Länge) wieder löschen zu können.I läuft dabei die ganze zeit mit. die felder können jedoch, wie wahrscheinlich bekannt ,nur etwas mehr als 16000 variablen erfassen. das bedeutet, dass nach 16000 gezeichneten pixeln eine fehlermeldung kommt und das spiel abbricht. ein abspeichern der koordinaten in einer datei verlangsamt das programm zu sehr und ließ sich letztlich auch nicht von mir realisieren, da aus einer datei hätte gelesen werden müssen in die gleichzeitig geschrieben wird.
ich habe dazu 2 ideen, die ich bisher aber auch noch nicht geschafft habe zu realisieren.
1. wenn man bei I>5000 ist braucht man die alten werte von x(I) und y(I) ja nicht mehr, das heißt man könnte das feld erneut von vorn belegen.
2. man lässt bevor man I wieder auf eine niedrigere zahl setzt die letzten werte von x und y durch 2 andere felder "mitprotokollieren", aus denen dann die werte zum löschen vom ende der schlange entnommen werden.

hier noch der code:

[dreael]

Ähnliches Projekt von mir früher:

http://www.dreael.ch/Deutsch/Download/Wurmi.html

Ansonsten zu Deinem Fall: Nutze die Tatsache, dass Deine Spielfigur nur immer eine begrenzte Länge besitzt und somit alte X-Y-Tupel nach dem Pixel wegräumen nicht mehr benötigt werden. Somit brauchst Du also nur ein Array in der Grösse der maximalen Schlangenlänge.

Dieses Array musst Du nun als sog. FIFO (First In - First Out)-Speicher benutzen, wofür es zwei Integer braucht, z.B. kopfIndex% und schwanzIndex%. Handhabung sieht in etwa wie folgt aus:

[luemmel]

jo dankeschön
habs mit den 2 Indizes jetzt soweit hinbekommen, dass die schlange potentiell unendlich lange läuft.
probier es gerade mit einer einzigen DO..LOOP schleife ohne die sprungmarken, aber irgendwie hängts noch. er zeichnet 1 pixel und geht dann raus. vielleicht seh ich auch gerade den wald vor lauter bäumen nicht