Lists and Class instantiation

Strict

Import mojo.graphics

Class Enemy
	Global enemyList := New List<Enemy>
	Field x:Float, y:Float, speed:Int, timer:Int, shield:Int, shootRate:Int, aim:Bool, img:Image
	
	Method New(x:Float, y:Float, speed:Float, timer:Int, shield:Int, shootRate:Int, aim:Bool, img:Image)
		Self.x = x
		Self.y = y
		Self.speed = speed
		Self.timer = timer
		Self.shield = shield
		Self.shootRate = shootRate
		Self.aim = aim
		Self.img = img		
	End
	
	Method Update:Void(screenWidth:Float)
		For Local i := Eachin enemyList
			If i.x > 0
				i.x -= i.speed
			Else
				i.x = screenWidth
			End
	End
	
error line >>	Method Create:Void(level:Int, screenWidth:Float, screenHeight:Float, img:Image)
		Local tmp:Enemy
		Select level
			Case 1
				For Local i:Int = 0 To 10
					tmp = New Enemy(screenWidth, Rnd(screenHeight), 1000, 300, 15, True, img)
					enemyList.AddLast tmp
				Next
			Case 2
				
		End
	End
	
	Function Draw:Void()
		For Local i := Eachin enemyList
			DrawImage(i.img, i.x, i.y)
		Next
	End

End

Class SpaceWhale Extends App
Field blob:Image
..
Method OnCreate:Int()
blob = LoadImage("ship.png")
Return(0)
End

Method OnUpdate:Int()
..
If joyButton = BUTTON_A
loadEnemies(level)
End
..
Enemy.Update(SCREEN_WIDTH)
..
Return(0)
End

Method OnRender:Int()
..
Enemy.Draw()
..
Return(0)
End

Method loadEnemies:Void(level:Int)
	Select level
		Case 1
			Enemy.Create(level, SCREEN_WIDTH, SCREEN_HEIGHT, blob)
		Case 2
			' Nothing yet	
	End
End