;;;;;;;;;;;;;;Array + charakterbild drehen für Maussteuerung
Dim Mandl(360)
For winkel = 0 To 359 Step 1

   Mandl(winkel) = LoadImage("mandl.bmp")
   RotateImage Mandl(winkel), winkel
   MidHandle Mandl(winkel)
   
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;Winkelberechnung für Maussteuerung -> Charakter dreht sich zur Maus
mx=MouseX()
my=MouseY()

      
      


winkel=(ATan2( ymandl - my,xmandl-mx) +360) Mod 360
If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359


DrawImage Mandl(winkel), xmandl,ymandl
DrawImage ziel, mx,my

If xmandl => graphicsx  Then xmandl = graphicsx - 1
If ymandl => graphicsy  Then ymandl = graphicsy - 1
If xmandl <= 0 Then xmandl = 1
If ymandl <= 0 Then ymandl = 1
;________________________________________________________________


;;;;;;;;;;;;;;Steuerung
If KeyDown(17) Then ;zur Maus hin bewegen
xmandl = xmandl - Cos(winkel)*3
ymandl = ymandl - Sin(winkel)*3
EndIf

If KeyDown(31) Then ;von Maus weg bewegen
xmandl = xmandl + Cos(winkel)*3
ymandl = ymandl + Sin(winkel)*3
EndIf

;____________________________________________________________