EachIn

Strict

Graphics 640,480,0
Global AppTitle$="AAAAAAARRRRRRRRGGGGGGHHHHHHHHH WTF Lists..."

Global backdrop=LoadImage ("Backdrop\backdrop1.jpg")


Type unit
	Field o,ai
	Field x#,z#,f#
End Type
Global shipList:TList=CreateList()




createPlayers(10)
'function MainLoop
	Local ship:unit

	While Not KeyDown(KEY_ESCAPE)
		For ship=EachIn shipList
			DebugLog("SHIP LOOP ACTIVE")
			Select ship.ai
				Case 0
					control(ship)
					camera(ship)
				Case 1
					ai(ship)
				Default
			End Select
		Next
		For ship=EachIn shipList
			moveShip(ship)
		Next	
	
		Flip
		Cls
	Wend
	End
'end function



Function LIVE_SHIPS_____________________________________________________________________________________________()
End Function
Function control(ship:unit)
End Function
Function ai(ship:unit)
End Function
Function moveShip(ship:unit)
End Function



Function LIVE_GENERAL_PURPOSE__________________________________________________________________________________()
End Function
Function camera(ship:unit)
	'Centres display on Ship
	SetScale 5,5
	DrawImage backdrop,-(ship.x + (GraphicsWidth()/2)) , -(ship.z + (GraphicsHeight()/2))
	SetScale 1,1
End Function




Function SETUP_________________________________________________________________________________________________()
End Function
Function createPlayers(qty=10)
	For Local n=1 To 10
		Local ship:unit=New unit
		ship.o=LoadImage("Ship\7.png")
		If n>1 Then ship.ai=1 'Make First Ship the Human Player

		ship.x=Rnd(0)
		ship.z=Rnd(0)
	Next
End Function

Function createPlayers(qty=10)
	For Local n=1 To 10
		Local ship:unit=New unit
		ship.o=LoadImage("Ship\7.png")
		If n>1 Then ship.ai=1 'Make First Ship the Human Player

		ship.x=Rnd(0)
		ship.z=Rnd(0)
		ListAddLast shipList,ship
	Next
End Function

local g:Tlist=createlist()

local o:myObject=new myObject
local o1:another = new another

listaddlast(g,"hello")
listaddlast(g,o)
listaddlast(g,o1)

for local i:object=eachin g
   if string(i)<>null
      print "it's a string "+string(i)
  elseif myObject(i)<>null
      print "it's a myObject"
  elseif another(i)<>null
      print "it's another."
  endif
next

Global shipList:Tlist=CreateList()

Type baseUnit
	Field name$
	Field x#,y#,f#
	
	' whenever you make a new object, this method will get called
	' add to the shipList so we don't have to later on.
	'Method New() 
	'	ListAddLast(shipList,Self) 
	'End Method
	
	Method update()
		f:+1 
	End Method
End Type

Type playerUnit Extends baseUnit
	Method update()
		super.update() ' will perform what baseUnit.update() does
		' update keypresses, etc for player
	End Method
End Type

Type AIUnit Extends baseUnit
	Method update()
		super.update() ' will perform what baseUnit.update() does
		
		'do IA code here
	End Method
End Type

Function updateShips()
	For Local i:baseUnit=EachIn shipList
		i.update()
	Next
End Function


' --------------------------------
Local i:playerUnit=New playerUnit
	i.name="player"
	ListAddLast(shipList,i)
	
Local j:AIunit=New AIUnit
	j.name="AI 1"
	ListAddLast(shipList,j)	


While KeyHit(KEY_ESCAPE)=0
Cls

	updateShips()

Flip
Wend
End