Perturbatio or anyone

Blitz3D Forums/Blitz3D Beginners Area/Perturbatio or anyone

Malice
 #1
Why do you need to LoadImage twice?


Dim ECFleet(5) 
ECFleet(0) = LoadImage ("ECShipcounter1.bmp") 
ECFleet(1) = LoadImage ("ECShipcounter2.bmp") 
ECFleet(2) = LoadImage ("ECShipcounter3.bmp") 
ECFleet(3) = LoadImage ("ECShipcounter4.bmp") 
ECFleet(4) = LoadImage ("ECShipcounter5.bmp") 

For i = 0 To 4 

NextCounter.Fleetcounter = New Fleetcounter 
NextCounter\X = x 
NextCounter\Y = y 
NextCounter\image = (ECFleet(i)) 
NextCounter\TypeofCounter = i 
Next



and...

Im not 100% on this, but maybe you need some

For i=0 to 4
...
Next

lines in your functions???