Const enemy_number:Int = 5	' Change to have more enemies

Type enemy					' New class \"enemy\".
	Field x:Float
	Field y:Float
	Field size:Int
	Field xspeed:Float
	Field yspeed:Float
	
	Method Move()			' Methods...
		x:+ xspeed
		y:+ yspeed
		If x > gfx_x Or x < 0 Then xspeed:* (-1)
		If y > gfx_y Or y < 0 Then yspeed:* (-1)
	End Method
	
	Method Draw()
		DrawOval(x,y,size,size)
	End Method
	
	Function MakeEnemy()	' Functions...
		Global enemy_one:enemy
		enemy_one = New enemy
		enemy_one.x = Rand(10,gfx_x-10)
		enemy_one.y = Rand(10,gfx_y-10)
		enemy_one.size = 10
		enemy_one.xspeed = Rand(1,3)
		enemy_one.yspeed = Rand(1,3)
		ListAddLast(enemy_list,enemy_one)
	End Function
		
End Type

	Global enemy_list:TList = CreateList()	' create a list.

	For Local n:Int = 1 To enemy_number
		enemy.MakeEnemy()					' make as many enemies as you need.
	Next		

		SetColor 0,0,250
		For Local my_enemy:enemy = EachIn enemy_list
			my_enemy.Draw()			
			my_enemy.Move()
		Next

	Function Create()		' create as many enemies as you need.
		For Local n:Int = 1 To enemy_number
			MakeEnemy()					
		Next
	End Function