Type TEnemy Extends TCreature

	Global imgEnemy:TImage
	Field imgFrame:Int = 0
	Field resultDegree:Double


	Method LoadEnemyImage()
		SetMaskColor(255, 0, 255)
		imgEnemy = LoadAnimImage(".\graphics\enemy1.png", 32, 32, 0, 24)
	End Method
	
	'// Gradzahl vom Bilddrehen erzeugen
	Method Rotate(newDegree:Int)
  		Self.degree = Self.degree + newDegree
 	EndMethod
	
	Method DrawEnemy(x:Int, y:Int)
		SetRotation(Self.resultDegree)
		Self.creatureX = x
		Self.creatureY = y
		DrawImage(Self.imgEnemy, Self.creatureX, Self.creatureY, imgFrame)
		SetRotation(currentDegree)
	End Method
	
	
	Method Move(pSpeed:Int)
		Self.speed = pSpeed
  		Self.creatureY = Self.creatureY - Cos(Self.resultDegree) * Self.speed
  		Self.creatureX = Self.creatureX + Sin(Self.resultDegree) * Self.speed
	End Method
	
	
	Method TurnObj(destinationX, destinationY, startPointX, startPointY)
		resultDegree = ATan2(destinationY - startPointY, destinationX - startPointX) + 90
		If resultDegree < 0 Then
			resultDegree = resultDegree + 360
		End If
		Return resultDegree
	End Method

       Method UpdateState()
		If ImagesCollide(player.imgPlayer, player.creatureX, player.creatureY, 0, enemy.imgEnemy, enemy.creatureX, enemy.creatureY, enemy.imgFrame) Then
			If enemy.imgFrame < 23 Then
				enemy.imgFrame:+1
			Else
				enemy.imgFrame = 0
			EndIf
		EndIf		
	        enemy.Move(1.0)
	
	        degree = enemy.TurnObj(player.creatureX, player.creatureY, enemy.creatureX, enemy.creatureY)
		
       End Method
End Type

Method TurnObj(destinationX, destinationY, startPointX, startPointY)
Return (ATan2(startPointY-destinationY , startPointX-destinationX ) + 360) Mod 360
End Method

SuperStrict

Type TEntity
	Global list:TList = CreateList() 'globale liste um alle entity zu updaten.
	
	Field x:Float 'position 
	Field y:Float
	
	Field rotation:Float 'richtung
	
	Field speed:Float 'bewegungstempo
	
	Method New()
		speed = Rnd(0.5, 1.5)
		x = Rand(0, GraphicsWidth())
		y = Rand(0, GraphicsHeight())
		
		list.AddLast(Self)
	End Method
	
	Method pointTo(destinationX:Float, destinationY:Float)
		rotation = ATan2(destinationY - y, destinationX - x)
	End Method
	
	Function Update()
		Local mx:Float = MouseX()
		Local my:Float = MouseY()
		For Local ent:TEntity = EachIn list
			ent._update(mx, my)
		Next
	End Function
	Method _update(destX:Float, destY:Float)
		Self.pointTo(destX, destY)
		
		If Pythagoras(x, y, destX, destY) > 30 Then
			
			Self.x:+Cos(rotation) * speed
			Self.y:+Sin(rotation) * speed
			
		EndIf
		
	End Method
	
	Function Draw()
		For Local ent:TEntity = EachIn list
			ent._draw()
		Next
	End Function
	Method _Draw()
		'zum zentrierten rotieren um entity-origin..
		SetOrigin(Self.x, Self.y)
		SetRotation(Self.rotation)
		
		'zeichnen
		DrawRect(-10, -5, 20, 10)
	'	DrawRect(x - 10, y - 5, 20, 10)
			
		'zurücksetzen der matrix
		SetOrigin(0, 0)
		SetRotation(0)
	End Method
End Type

Function Pythagoras:Float(x1:Float, y1:Float, x2:Float, y2:Float)
	Return Sqr((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1))
End Function

Graphics(1024, 768)

For Local i:Int = 0 Until 5
	New TEntity
Next


While Not KeyHit(KEY_ESCAPE) And Not AppTerminate()
	If KeyHit(KEY_SPACE) Then New TEntity
	
	TEntity.Update()
	
	Cls
	
	TEntity.Draw()
	DrawText("hallo! " + MilliSecs(), 5, 5)
	Flip 1
Wend