Graphics3D 800,600,16,0

Type laser
     Field speed
     Field pos_x,pos_y,pos_z
     Field rotate_x,rotate_y,rotate_z
     Field image
End Type


terr=CreateTerrain(1024)
PositionEntity terr,10,10,10


entity=CreateCone()
       PositionEntity entity,0,0,10
cam=CreateCamera()
PositionEntity cam,0,0,-10

Function createlaser()

a.laser=New laser 
a\image=LoadSprite(\"laser2.bmp\") 
a\speed=2 
a\pos_y=EntityX 
a\pos_z=EntityZ
a\pos_x=EntityY

a\rotate_z=EntityZ
a\rotate_x=EntityZ
a\rotate_y=EntityY

End Function          

    
fuction schuss()
  For a.laser= Each laser 
    If MouseHit(1) Then createlaser() 
    MoveEntity a\image,0,0,a\speed 
  RotateEntity a\image,rotate_y,rotate_x,rotate_z

  Next 
EndIf

While Not KeyDown(1)

If KeyDown(17)  MoveEntity entity,0,0,2
If KeyDown(31)  MoveEntity entity,0,0,-2
If KeyDown(30)  TurnEntity entity,0,2,0
If KeyDown(32)  TurnEntity entity,0,-2,0



      
If MouseDown(1) 
createlaser()        
schuss() 

UpdateWorld
RenderWorld
Flip
Wend
End

Type Laser 
  Field pos_X%,pos_Y%,pos_Z% 
  Field Speed%  
  Field image% 
End Type 

cam=CreateCamera()
PositionEntity cam,0,0,-10


Function createlaser() 
a.laser=New laser 
a\image=LoadSprite(\"laser.bmp\") 
a\speed=2 
a\pos_y=EntityY ;hier
a\pos_z=EntityZ ;soll ein
a\pos_x=EntityX ;fehler sein, welcher weiss ich net
End Function 

Function schuss() 
  For a.laser= Each laser 
    If MouseHit(1) Then createlaser() 
    MoveEntity a\image,0,0,a\speed 
  Next 
End Function 
        
        createlaser() 

        If MouseDown(1) 
        schuss()
EndIf

pos_x=EntityX(blubb)
pos_y=EntityY(blubb)
pos_z=ent...