If g\x<0 Or g\x> 3199 Or g\y<0 Or g\y> 3199 Or g\zielx<0 Or g\zielx> 3199 Or g\ziely<0 Or g\ziely> 3199 Then Stop ;der Test ob sie aus der karte fetzen

Function movegegner(g.gegner,a.player,s.stinkeknoten)
	;sieht er uns?
	g\wziel = ATan2((g\ziely-g\y),(g\zielx-g\x))
	g\wplayer = ATan2((a\y-g\y),(a\x-g\x))
	If g\wziel <0 
		g\wziel=g\wziel+360
	EndIf
	g\sicht = False
	If (a\x-g\x)^2+(a\y-g\y)^2<250000 ;sichtweite player zombie
		g\sicht = rectline(g\x,g\y,a\x,a\y)
	End If

	;line of sight
	If g\sicht = True
		modus(1,g,a,s)
	If g\x<0 Or g\x> 3199 Or g\y<0 Or g\y> 3199 Or g\zielx<0 Or g\zielx> 3199 Or g\ziely<0 Or g\ziely> 3199 Then Stop ;der test ob sie aus der karte fetzen
	End If
	If g\sicht = True Or (a\x-g\x)^2+(a\y-g\y)^2<22500
		drawgegner(g)
	End If
	If g\sicht = False And (g\zielx-g\x)^2+(g\ziely-g\y)^2<25
		modus(2,g,a,s)
	If g\x<0 Or g\x> 3199 Or g\y<0 Or g\y> 3199 Or g\zielx<0 Or g\zielx> 3199 Or g\ziely<0 Or g\ziely> 3199 Then Stop ;der test ob sie aus der karte fetzen
	End If

	;zum ziel gehen
	If g\x<0 Or g\x> 3199 Or g\y<0 Or g\y> 3199 Or g\zielx<0 Or g\zielx> 3199 Or g\ziely<0 Or g\ziely> 3199 Then Stop ;der test ob sie aus der karte fetzen

	If (g\zielx-g\x)^2+(g\ziely-g\y)^2>25

		xspeed#=g\speed# * Cos(g\wziel) 
		yspeed#=g\speed# * Sin(g\wziel)
		g\x = g\x + calc_speed(xspeed) ;GENAU HIER SPRINGT ER WAHNSINNIG HOCH

		g\y = g\y + calc_speed(yspeed)

	End If
	If g\x<0 Or g\x> 3199 Or g\y<0 Or g\y> 3199 Or g\zielx<0 Or g\zielx> 3199 Or g\ziely<0 Or g\ziely> 3199 Then Stop ;der test ob sie aus der karte fetzen
	;Line g\zielx,g\ziely,g\x,g\y
End Function

Function calc_speed#(spd#)
	Return dt*spd/20
End Function