Graphics 1024,768,32

SetBuffer BackBuffer()

Dim player1(360)
Dim player2(360)

x=50
y=50
x2=500
y2=500

fliese=LoadImage(\"../gfx/tileset.bmp\")
waffe=LoadAnimImage(\"../gfx/Pistole.bmp\",64,64,0,8)
MidHandle waffe  
MaskImage waffe,255,0,255
cross=LoadImage(\"../gfx/cross.bmp\")
MaskImage cross,255,0,255

For i=0 To 360

	player1(i)=LoadImage(\"../gfx/player1.bmp\")
		MaskImage player1(i),255,0,255
		MidHandle player1(i)
		RotateImage player1(i),i
		MaskImage player1(i),255,0,255
		
	player2(i)=LoadImage(\"../gfx/player2.bmp\")
		MaskImage player2(i),255,0,255
		MidHandle player2(i)
		RotateImage player2(i),i
		
	Text 0,0,\"Drehen der Bilder schon bei \"+i+\" GRAD!\"
	Flip	
	Cls
		
Next

While Not KeyDown(1)

	TileImage fliese

	DrawImage player1(winkel),x,y
	DrawImage player2(winkel2),x2,y2
	DrawImage cross,cx,cy
	DrawImage cross,cx2,cy2
	
	DrawImage waffe,x,y,wframe
	DrawImage waffe,x2,y2,wframe2
	
	If KeyDown(205) Then winkel=winkel+1
	If KeyDown(203) Then winkel=winkel-1
	If KeyDown(30)  Then winkel2=winkel2-1
	If KeyDown(32)  Then winkel2=winkel2+1 
	
	If winkel=360 Then winkel=0
	If winkel=-1 Then winkel=360
	If winkel2=360 Then winkel2=0
	If winkel2=-1 Then winkel2=360
	
	If winkel>337 Then wframe=0
	If winkel>22 And winkel<45 Then wframe=1
	If winkel>67 And winkel<90 Then wframe=2
	If winkel>112 And winkel<135 Then wframe=3
	If winkel>157 And winkel<180 Then wframe=4
	If winkel>202 And winkel<225 Then wframe=5
	If winkel>247 And winkel<270 Then wframe=6
	If winkel>292 And winkel<315 Then wframe=7
	If winkel2>337 Then wframe2=0
	If winkel2>22 And winkel2<45 Then wframe2=1
	If winkel2>67 And winkel2<90 Then wframe2=2
	If winkel2>112 And winkel2<135 Then wframe2=3
	If winkel2>157 And winkel2<180 Then wframe2=4
	If winkel2>202 And winkel2<225 Then wframe2=5
	If winkel2>247 And winkel2<270 Then wframe2=6
	If winkel2>292 And winkel2<315 Then wframe2=7
	
	Text 0,0,\"Player1:\"+winkel
	Text 0,14,\"Player2:\"+winkel2
	

	Flip
	
	Cls
	
Wend

End

wframe = winkel / 45