Graphics 640,480
SetBuffer BackBuffer()
AppTitle "SpaceWar"
Dim alien1(359)
Dim alien2(359)
TFormFilter=0
p1=LoadImage("p1.bmp")
p2=LoadImage("p2.bmp")
For winkel1=0 To 359
alien1(winkel1)=CopyImage(p1)
RotateImage alien1(winkel1), winkel1 - 90
MidHandle alien1(winkel1)
Next
For winkel2=0 To 359
alien2(winkel2)=CopyImage(p2)
RotateImage alien2(winkel2), winkel - 90
MidHandle alien2(winkel2)
Next
ge1=3
x1#=300
y1#=220
ge2=3
x2#=400
y2#=400

Repeat
Cls
DrawImage p1,x1,y1
If KeyDown(203) Then winkel1= winkel1 - 1 ; Links - Winkel wird verkleinert
If KeyDown(205) Then winkel1= winkel1 + 1 ; Rechts - Winkel wird erhöht
If winkel1 > 359 Then winkel1 = 0
If winkel2 < 0   Then winkel2 = 359
If KeyDown(200) Then ; Hoch
X1=X1 - Cos(winkel1) * ge1
Y1=Y1 - Sin(winkel1) * ge1
EndIf
If KeyDown(208) Then ; Runter
X1=X1+Cos(winkel1) * ge1
Y1=Y1+Sin(winkel1) * ge1
EndIf
DrawImage alien1(winkel1),X1,Y1
Flip
Until KeyHit(1)
;p2 steuerrung
Repeat
Cls
DrawImage p2,x2,y2

If KeyDown(30) Then winkel2= winkel2 - 1 ; Links - Winkel wird verkleinert
If KeyDown(32) Then winkel2= winkel2 + 1 ; Rechts - Winkel wird erhöht
If winkel2 > 359 Then winkel2 = 0
If winkel2 < 0   Then winkel2 = 359
If KeyDown(17) Then ; Hoch
X2=X2 - Cos(Winkel) * ge2
Y2=Y2 - Sin(Winkel) * ge2
EndIf
If KeyDown(31) Then ; Runter
X2=X2+2 Cos(winkel2) * ge2
Y2=Y2+2 Sin(winkel2) * ge2
EndIf
DrawImage alien2(winkel2),X2,Y2
Flip
Until KeyHit(1)

If winkel2 < 0  Then winkel2 = 359