Ich habe mit Delphi 6 für die Schule Snake programmiert!
Für den Schlangenkörper, der bis zu 100 teilen lang sein kann, habe ich bisher runde bildchen genommen!
Mein Freund will nun mein Programm mit mehr Grafik aufpeppeln und will auch das ich die Schlange so gestellte, das je nach richtung ein anderes Bild benutz wird!
Ich habe es bereits mit einer TImagelist versucht und es hat auch geklappt aber ich nicht wirklich!
ich habe mit einer if-abfrage gefragt wo das vorherige "Stück" ist, wenn alles zutrifft soll dann jbild 0 kommen!
jetzt macht mir Delphi aber immer nur ein Schlangensück zu diesem bild und beachtet nicht die nächsten stücke!
Daten zum Programm:
bild
variable die immer hochzählt bis sie gleich (laengesnake) ist und dann wieder auf 1 geht!
mit bild verschieb ich immer das letzt bild der schlange nach vorne so das es aussieht als wenn sie läuft!
laengesnake
wenn man ein item aufsammelt wird zu laengesnake eins dazugezählt!
image
array of tImage [0..100]
Delphi-Quellcode:
for i:=1 to 100 do
if ((image[i].Top = image[i+1].Top)
and(image[i].left= image[i+1].Left+17)
and(image[i].Top = image[i-1].Top)
and(image[i].left= image[i-1].Left-17))
then imagelist1.getbipmap(0,image[i].picture.Bitmap);
kann mir da jemand helfen! es will einfach nicht so wie ich!