Create Beginners - Class Array.monkey2

Author: Pakz001

Beginners - Class Array.monkey2

@@ -0,0 +1,64 @@
+#Import "<std>"
+#Import "<mojo>"
+
+Using std..
+Using mojo..
+
+' This the enemy class
+Class enemy
+	' position x and y
+	Field px:Int,py:Int
+	' This is called when the class is created
+	Method New(x:Int,y:Int)
+		' Set the position
+		Self.px = x
+		Self.py = y
+	End Method
+	' Method to modify the px and py
+	Method move(x:Int,y:Int)
+		px += x
+		py += y
+	End Method
+End Class
+
+Class MyWindow Extends Window
+	' How many enemies are there
+	Field numenemies:Int=10
+	' The array class
+	Field myenemy:enemy[]
+	'
+	Method New()
+		' Create our class array
+		myenemy = New enemy[numenemies]	
+		' Create our enemies inside the class array
+		For Local i:Int=0 Until numenemies
+			myenemy[i] = New enemy(Rnd(Width),Rnd(Height))
+		Next
+	End method
+	
+	Method OnRender( canvas:Canvas ) Override
+		App.RequestRender() ' Activate this method 
+		'
+		' We can read/modify/call anything inside the class array
+		myenemy[0].move(5,0)
+		If myenemy[0].px > Width Then myenemy[0].px = -32
+		'
+		' Draw the enemies to the screen
+		canvas.Clear(Color.Black)
+		canvas.Color = Color.White
+		' Loop through everything inside the array
+		For Local i:=Eachin myenemy
+			' i is used to run/read/modify the class array
+			canvas.DrawRect(i.px,i.py,32,32)
+		Next
+		' if key escape then quit
+		If Keyboard.KeyReleased(Key.Escape) Then App.Terminate()		
+	End Method	
+	
+End	Class
+
+Function Main()
+	New AppInstance		
+	New MyWindow
+	App.Run()
+End Function