[blitzmax] Errore in blitmax

[Sogeking_87]

Ma Rand è uguale in più esecuzioni? Altrimenti non avranno mai lo stesso output...

No no è sempre diverso...

io credo che il problema sia dovuto dal fatto che solo l'ultimo loadimage detiene veramente l'immagine (dato che è sempre la stessa)
E quindi solo il suo print funziona...
Sto cercando da giorni altri esempi in giro da cui capire il problema, ma sembra che io stia facendo giusto e mi sfugga qualcosa...

Grazie...

[Scara95]

No no è sempre diverso...

io credo che il problema sia dovuto dal fatto che solo l'ultimo loadimage detiene veramente l'immagine (dato che è sempre la stessa)
E quindi solo il suo print funziona...
Sto cercando da giorni altri esempi in giro da cui capire il problema, ma sembra che io stia facendo giusto e mi sfugga qualcosa...

Grazie...

Non credo proprio dato che LoadBank carica tutto in memoria...

[Sogeking_87]

Vi propongo il mio problema ufficiale.... Io vorrei creare dei sprites nel mio gioco , ad intervalli di 5 - 20 secondi l'uno dall'altro... Il problema è che , non appena si crea uno sprite, il precedente scompare.... Non so piu' dove sbattere la testa... Spero in un miracolo...

Graphics 800,600
Global image:TImage = LoadImage("pascal.bmp")
Global endtime:Int
Global spawn:Int = 1
Global PasList:TList = CreateList()
Type Pascal 
 Global x#
 Global y#
 Global dir:Int
 Global speed#
 
 Function crea:Pascal()
  Local p:Pascal = New Pascal
  p.x = Rand(50,750)
  p.y = Rand(400,550)
  p.dir = Rand(0,360)
  p.speed = RndFloat() + 0.2
  Return p  
 End Function  
End Type
While Not KeyDown(Key_escape) 
 Cls
 
 If spawn=1 
  endtime = MilliSecs() + Rand(5000,20000)
  Local pas:Pascal = Pascal.crea()
  ListAddLast PasList , pas
  spawn=0
 EndIf
 
 If MilliSecs() > endtime 
  spawn=1
 EndIf 
                                                       'fà muovere i pascal 
 For pas:Pascal=EachIn PasList
  If pas.x => 750 pas.dir=Rand(90,270)
  If pas.y => 550 pas.dir=Rand(180,360)
  If pas.x <= 50 pas.dir=Rand(0,90)
  If pas.y <= 400 pas.dir=Rand(0,180)
  pas.x:+pas.speed*Cos(pas.dir)
  pas.y:+pas.speed*Sin(pas.dir)
  DrawImage(image,pas.x,pas.y)
 Next
 
 Flip
       
Wend