...field or Method of Null object. What am not getting. I don't see my mistake.
Strict
Graphics 640,480,0
'instantiate objects
Global imgBlue:Image= image.Create("gfx/blue.bmp")
Global imgGreen:Image = Image.Create("gfx\green.bmp")
Global imgYellow:Image = Image.Create("gfx\yellow.bmp")
Global imgRed:Image = Image.Create("gfx\red.bmp")
Global imgOrange:Image = Image.Create("gfx\orange.bmp")
Global imgPurple:Image = Image.Create("gfx\purple.bmp")
Global ImageList:TList = New TList
Global ParticleList:TList = New TList
Type Image
Global ImageListCount:Int =0
Field xpos,ypos:Int
Field _image:TPixmap = New TPixmap
Field AlphaLevel:Int
'create
Function Create:Image(strPath:String)
Local img:Image = New Image
img._image = LoadPixmap(strPath)
ImageList.AddLast img
Return img
End Function
'constructor
Method New()
ImageListCount:+1
xpos = (GraphicsWidth() / 2)
ypos = (GraphicsHeight() / 2)
End Method
End Type
Local xpos,ypos:Int
While Not KeyDown(KEY_ESCAPE)
xpos:+1
ypos:+1
DrawPixmap imgBlue._image, xpos, ypos
Flip
Wend
|