Snake

[ichbins]

Ich glaub ich hab einen schlechten Tipp gegeben wenn du die Musiklisten leerst, kommt beim Starten eine Fehlermeldung. Hier eine Version, die keine Sounds verwendet (habe ich schon mal aus Speicherplatzgründen geschrieben): :wink:

[Nicolai1234]

Zitat:

Zitat von ichbins

Delphi-Quellcode:

if random(100)<10 then 
  spielfeld[i,j]:=zeitfutter 
else 
  spielfeld[i,j]:=futter

Änder das lieber in

Delphi-Quellcode:

random(10) = 1 then

Die Wahrscheinlichkeit bleibt gleich, aber es müssen nicht so hohe Zufalszahlen erstellt werden...

[ichbins]

Nein das geht nicht weil ich habe die 10 nämlich im Konstantenabschnitt meiner Unit deklariert und wenn ich jetz mal eine 5-Prozentige Wahrscheinlichkeit draus machen will, muss ich nicht erst gleich die ganze Prozedur suchen sondern kann einfach aus der 10 eine 5 machen. Die CPU-Auslastung kann man auch vernachlässigen weil er das ja nur, jenachdem wie lang der User durchhält, 200 mal über das ganze Spiel verteit machen muss.