Zu viele Sprites? [Gelößt]

[Vermilion]

Oh, tut mir Leid, du hast Recht. Das ist mir sogar peinlich, da ich einer von denen bin, die Britisches Englisch dem Amerikanischen gegenüber bevorzugen.
Wobei mir "defence" noch nie über den Weg gelaufen ist und ich trotzdem als erstes "Entzäunung" verstehen würde.

[Raphi]

Mache eine Funktion, die die ganzen Grafiken auf den Screen zeichnet.
In dieser Funktion und zwar wirklich nur hier gibts es die Grafikbefehle.

hatte ich am anfang auch, hatte die WegFindung() Procedure mit im der Drawing() drin, dann wurder aber noch nicht mal der hintergrund gezeichnet und es gab gleich einen WhiteScreen.

Glückwunsch, ich habe noch nie so viele Delay(nnn) wie in Deinen Program gesehen.
Schmeiß die erstmal raus.

Ich wollt eigentlich nur die CPU etwas entlasten?

Goto: In deinem Quelltext benutzt du Goto. Das ist ein Befehl, den nicht nur jeder kennt (auch außerhalb von PureBasic), sondern den auch kaum jemand benutzt. Du solltest dir das nicht angewöhnen, denn schon bei einem etwas komplexeren Projekt (nicht-linear abgearbeiteter Code) kann dies Kopfzerbrechen auslösen.

Was soll ich den sonst benutzen?

[Vermilion]

Das, was du größtenteils schon benutzt hast, Prozeduren oder Schleifen (While : Wend, Repeat : Until).

[Raphi]

Das, was du größtenteils schon benutzt hast, Prozeduren oder Schleifen (While : Wend, Repeat : Until).

Jo danke, das war mir jetzt nicht so klar wie ich das einbauen sollte ;D

Geht warsch in dem Fall am besten mit der While Wend schleife.

Code: Alles auswählen

Procedure StartZiel() ; Findet einen Zufälligen Start und Zielpunkt
  
 While StartX=ZielX And StartY=ZielY  
  
  StartX=Random(15) 
  
If Not StartX=0 Or StartX=15
  
  StartY=Random(1)
  
  If StartY=1
    
    StartY=11
    
  EndIf
  
Else
  
  StartY=Random(11)
  
EndIf 

Delay(100)

ZielGeneration:

  ZielX=Random(15) 
  
If Not StartX=0 Or StartX=15
  
  ZielY=Random(1)
  
  If ZielY=1
    
    ZielY=11
    
  EndIf
  
Else
  
  StartY=Random(11)
  
EndIf  

  
Wend


  
EndProcedure

[c4s]

Hast du deine neuste Version von der Procedure StartZiel() überhaupt ausprobiert?

[Raphi]

Jo hatt ich , aber da StartX=ZielX und StarY=ZielY nicht der Fall war hab ichs warscheinlich nicht gleich gemerkt.

Hab Korigiert

Aber ich habe immer noch das Problem mit den Sprites.

Kann da niemand helfen?

[DrShrek]

Kann da niemand helfen?

Doch. Aber wir wollen nicht Dein Spiel programmieren, sondern Dir bei Deinen Problem helfen.

Also eher Denkanstösse und nicht gleich die Lösung.

Schick mal Deine aktuelle Sourcen (zip) hierher

[Raphi]

http://www.file-upload.net/download-361 ... l.zip.html

So, hab aber eig nich viel verändert.

Doch. Aber wir wollen nicht Dein Spiel programmieren, sondern Dir bei Deinen Problem helfen.

Ich will doch auch nur wissen warum es nicht funktioniert, wenn ich beide Sprites anzeigen lasse und wie ich es lösen kann.

[DrShrek]

So, hab aber eig nich viel verändert.

Mitarbeit ist aber erwünscht.

[Raphi]

Mitarbeit ist aber erwünscht.

Man wie soll ich denn was verändern wenn ich nicht weiß was falsch ist?????