richtung = ATan2(PfY -MannY,PfX -MannX)+180

Function KI()
Local newwinkel#=(ATan2(ki\posx# -hero\posy#,ki\posy# - hero\posx#)-180) ; berechnugn des winkels
RotateEntity sprite2,0,0,newwinkel ; rotieren der grafik
ki\winkel=-newwinkel ; speichern des winkels

;oben funzt alles, wenn es alleine steht.
;sobald dieser part kommt, geht nix mehr....
ki\posx# = ki\posx# + Cos(ki\winkel#)*ki\Geschw#
ki\posy# = ki\posy# - Sin(ki\winkel#)*ki\Geschw#
PositionEntity sprite2,ki\posx#,ki\posy#,30

End Function

Graphics 400,400,0,2
SetBuffer BackBuffer()

mx%=0        ;Maus-X-Position
my%=0        ;Maus-Y-Position
xp#=100      ;Gegner-X-Position
yp#=100      ;Gegner-Y-Position
rw#=90       ;Gegner-Ist-Rotationswinkel
rr#=0        ;Gegner-Soll-Rotationswinkel


While Not KeyHit(1)
 mx=MouseX()
 my=MouseY()

 rr=ATan2(my-yp,mx-xp)
 rw=rw+Sgn(Sin(rr-rw))*2

 If Sqr((mx-xp)^2+(my-yp)^2)>40 Then
  xp=xp+Cos(rw)/2
  yp=yp+Sin(rw)/2
 End If

 Color 255,0,0
 Line xp,yp,xp+Cos(rw)*10,yp+Sin(rw)*10
 Color 255,255,255
 Rect mx-4,my-4,9,9,0
 Oval xp-4,yp-4,9,9,0

 Flip
 Cls
Wend
End