Graphics3D 800,600,16,1
SetBuffer BackBuffer()

sprite=LoadSprite("helikopter.bmp")
maus = LoadSprite("maus1.bmp")

x=3
y=3

Dim schuss#(20,4)


PositionEntity sprite,x,y,5
ScaleSprite sprite,-1,-1

cam=CreateCamera()
PositionEntity cam,3,3,-5

timer = CreateTimer(20)

While Not KeyHit(1)
 Cls
 mx#=MouseX()
 my#=MouseY()
 winkel=ATan2(MouseX()-x*100,y*100-MouseY())
 RotateSprite sprite,winkel*-1
 PositionEntity maus,mx/100,(600-my)/100,5
 For i=0 To 20
  If MouseHit(1)
   If schuss(i,0)=0
    schuss(i,0)=1
    schuss(i,1)=x
    schuss(i,2)=y
    schuss(i,3)=LoadSprite("ball.bmp")
    schuss(i,4)=winkel
    ScaleSprite schuss(i,3),0.1,0.1
   EndIf
  EndIf
  If schuss(i,0)=1
   schuss(i,1)=schuss(i,1)+(Cos(schuss(i,4))/10)
   schuss(i,2)=schuss(i,2)-(Sin(schuss(i,4))/10)
   PositionEntity schuss(i,3),schuss(i,1),schuss(i,2),5
   EndIf
 
 Next
 UpdateWorld
 RenderWorld
 Flip
Wend