Graphics 640, 480, 16, 1

Dim player(119, 3)
Dim map1(100, 100)

player(0,0)=CreateImage(10,10)
SetBuffer ImageBuffer(player(0,0))
Rect 0,0,10,10

map=CreateImage(100,100)
SetBuffer ImageBuffer(map)
Color 0,255,0
Rect 0,0,100,100
Color 255,0,0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Type spieler
Field Drehung
End Type
Global spieler.spieler= New spieler

SetBuffer BackBuffer()

MoveMouse 310, 210

For w = 1 To 119
player(w,0)=CopyImage(player(0,0))
RotateImage(player(w,0),w*3)
Next

For x1 = 0 To 100
For y1 = 0 To 100
map1(x1, y1) = 1
Next
Next

While Not KeyHit(1)
scrollx=280
scrolly=210

x_kor = MouseX()
y_kor = MouseY()
t1$ = "X:"
t2$ = " Y:"
t3$ = t1$ + x_kor
t4$ = t2$ + y_kor
t5$ = t3$ + t4$
spieler\drehung=(ATan2(y_kor-scrolly,x_kor-scrollx)+270) Mod 360 ; Winkel berechnen
If spieler\drehung>357 Then spieler\drehung=357

Cls

For x = 0 To 100
For y = 0 To 100
If map1(x,y) = 1 Then DrawImage map, x*100+viewx, y*100+viewy
Next
Next


If KeyDown(17) Then
viewy = viewy +1
If MilliSecs() > t_player + 100 Then
t_player=MilliSecs()
f_player=(f_player + 1) Mod 3
EndIf
EndIf
If KeyDown(31)Then
viewy = viewy -1
If MilliSecs() > t_player + 100 Then
t_player=MilliSecs()
f_player=(f_player + 1) Mod 3
EndIf
EndIf

If KeyDown(30)Then viewx = viewx +1
If KeyDown(32)Then viewx = viewx -1

DrawImage player(spieler\drehung/3,0), scrollx, scrolly
Text 20, 20, t5$

Plot x_kor,y_kor

Flip
Wend

End

player(0,0)=CreateImage(10,10)