Ребята, помогите плиз! (Графика 2д)
Задрался с этими типами, опять вроде всё правильно, а показует только один астероид, и мне кажеться что проблема не в типах, а в рендере(если моно так сказать) астероидов...
Code
Type Asteroid
Field x
Field y
Field image
End Type
For i=1 To 25
A.Asteroid = New Asteroid
A\image=LoadImage("Resources\Asteroid.png")
A\X=Rand(0,640)
A\Y=Rand(0,480)
Next
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
DrawImage gfxBackground, 0, 0
DrawImage A\image, A\X, A\Y
Заранее благодарен!
