Graphics 640, 480, 16, 2
SetBuffer BackBuffer ()

Dim RoboW(359)

Global x1, x2, y1, y2, winkel1, winkel2, w, w1, w2

x2 = 300
y2 = 300

TFormFilter 0 

For i = 0 To 359
	
	RoboW(i) = LoadImage (\"Robo1.bmp\")
	
	MidHandle RoboW(i)
	
	RotateImage RoboW(i), i

	MaskImage RoboW(i), 0, 0, 0
	
Next

Repeat

Cls

Bewegen ()

Wertekorrigieren ()

DrawImage RoboW(winkel1), x1, y1
DrawImage RoboW(winkel2), x2, y2

anzeiger= Sichtfeld ()
Drehen_zu ()

Flip

Until KeyDown (1)

End

Function Sichtfeld ()
	
	w = (ATan2(y2 - y1, x2 - x1) + 360) Mod 360
	w = (w - 90) Mod 360
	
	w1 = w - 85
	w2 = w + 85
	
	If w1 < winkel2 And w2 > winkel2 Then
	
		Return 1
		
	EndIf
		
End Function

Function Drehen_zu ()

	winkel =ATan2(y1 -y2, X1 - X2)+90
 
	If winkel < 0 Then winkel = winkel+360 

	
   If winkel2 > Winkel  And  winkel2-180 < Winkel  Then winkel2= winkel2-1 
   If winkel2 > Winkel  And  winkel2-180 > Winkel  Then winkel2= winkel2 +1 
   If winkel2< Winkel  And  winkel2+180 < Winkel  Then winkel2= winkel2-1 
   If winkel2< Winkel  And  winkel2+180 > Winkel  Then winkel2= winkel2+1 
   If winkel2= Winkel -180  Or winkel2-180  = Winkel  Then winkel2= winkel2+1 

End Function

Function Bewegen ()

	If KeyDown (200) Then Vorwaerts ()	
	
	If KeyDown (208) Then Rueckwaerts ()

	;Drehen
	
	If KeyDown (205) Then Drehen_Rechts ()
	
	If KeyDown (203) Then Drehen_Links()
		

		
End Function

Function Drehen_Links ()
	
		winkel1 = winkel1 - 1 
		
End Function

;-----------------------------------------------------------------------------------------------------

Function Drehen_Rechts ()

		winkel1 = winkel1 + 1 
		
End Function

;-----------------------------------------------------------------------------------------------------

Function Rueckwaerts ()
	
	x1 = x1 - Sin(Winkel1) * 2

	y1 = y1 + Cos(winkel1) * 2	
	
End Function

;-----------------------------------------------------------------------------------------------------

Function Vorwaerts ()

	x1 = x1 + Sin(Winkel1) * 2

	y1 = y1 - Cos(winkel1) * 2
	
End Function

Function WerteKorrigieren ()
	
	If winkel1 > 359 Then winkel1 = 0
	If winkel1 < 0 Then winkel1 = 359
	
	If winkel2 > 359 Then winkel2 = 0
	If winkel2 < 0 Then winkel2 = 359
	
	If x1 > 630 Then x1 = 630
	If x1 < 10 Then x1 = 10
	
	If y1 > 470 Then y1 = 470
	If y1 < 10 Then y1 = 10
		
End Function

Type enemey
 Field id
 Field x, y, z
End Type

ai_cam = CreateCamera()

For enemey = Each enemy
 PositionEntity ai_cam, enemey\x, enemey\y, enemey\z
 If EntityInView(player\mesh, ai_cam) Then
   found_player = True
 End If
Next

DeleteCam ai_cam (oder was auch immer, ich habe keinen blassen Dunst von 3D, progge ja nur 2D ^^)

If Abs(DeltaYaw(enemy,player))<45 And Abs(DeltaPitch(enemy,player))<45
	enemyseeyou=1
EndIf