; SCHUSS
   
   If schussan > 0 Then
      If mklick = 1 Then
         schuss.shoot = New shoot
         
         schuss\shotsprite = CreateSprite()
         schuss\shotsprite = shotsprite
         
         ;ShowEntity shotsprite
         links = links + 1
         schuss\sx = mx + 13 
         schussan = schussan - 1
         schuss\sy = graphicy - 172
      EndIf
   EndIf
   
   For schuss.shoot = Each shoot
      ;DrawImage shot, schuss\sx, schuss\sy
         
      roll = roll + 5
      If roll = 360 Then roll =0
      RotateEntity shotsprite, 0, 0, roll
      
                  
      PositionEntity schuss\shotsprite,  schuss\sx, -schuss\sy,0
      
      
          schuss\sy = schuss\sy - 10
         If schuss\sy < 10 Then FreeEntity schuss\shotsprite Delete schuss.shoot  Exit
   RenderWorld
   Next