{$CLEO}
wait 0
while true
      wait 0
      if
          not player.Defined($PLAYER_CHAR)
      then
          continue
      end
      if
          not Actor.HasWeapon($PLAYER_ACTOR, 46)
      then
          model.Load(#GUN_PARA)
          repeat
              wait 0
          until model.Available(#GUN_PARA)
          01B2: give_actor $PLAYER_ACTOR weapon 46 ammo 1 // Load the weapon model before using this
          model.Destroy(#GUN_PARA)
      end      
end

{$CLEO .cs}

//-------------MAIN---------------
thread 'GRAVITY'  

:GRAVITY_11
wait 0  
if  
    Player.Defined($PLAYER_CHAR)
else_jump @GRAVITY_645  
if  
00E1:   player 0 pressed_key 10  
else_jump @GRAVITY_645  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
2@ -= 1.5  
3@ = Object.Create(2064, 0@, 1@, 2@)
Object.CollisionDetection(3@) = False
4@ = Actor.Angle($PLAYER_ACTOR)
Object.Angle(3@) = 4@
0400: store_coords_to 5@ 6@ 7@ from_object 3@ with_offset 0.0 50.0 0.0  
26@ = Object.Create(2064, 5@, 6@, 7@)
$1SDFQ23FA23 = Marker.CreateAboveObject(26@)
4@ -= 180.0  
Object.Angle(26@) = 4@
33@ = 45.0  
32@ = 9.8  
0453: set_object 26@ XY_rotation 33@ 0.0 angle 0.0  
050A: 10@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 5@ 6@ 7@  
0453: set_object 3@ XY_rotation 33@ 0.0 angle 0.0  
02F7: 8@ = sine 33@ // (float)  
02F6: 9@ = cosine 33@ // (float)  
0087: 20@ = 10@ // (float)  
0087: 21@ = 8@ // (float)  
0087: 22@ = 9@ // (float)  
006B: 10@ *= 8@ // (float)  
10@ *= 2.0  
0073: 10@ /= 9@ // (float)  
0073: 10@ /= 32@ // (float)  
01FB: 11@ = square_root 10@  
0073: 20@ /= 22@ // (float)  
0073: 20@ /= 11@ // (float)  
0087: 23@ = 20@ // (float)  
006B: 20@ *= 22@ // (float)  
006B: 23@ *= 21@ // (float)  
wait 5000  
0400: store_coords_to 27@ 28@ 29@ from_object 3@ with_offset 0.0 0.0 0.0  
30@ = Object.Create(1636, 27@, 28@, 29@)
$1SDFQ23FA2387 = Marker.CreateAboveObject(30@)
Object.CollisionDetection(30@) = True
Object.ToggleInMovingList(30@) = True
Object.Throw(30@, 0.0, 20@, 23@)
wait 5000  
Object.StorePos(30@, 27@, 28@, 29@)
050A: 10@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 27@ 28@ 29@  
28@ = 50.0  
0073: 28@ /= 10@ // (float)  
0092: 28@ = float 28@ to_integer  
Object.Destroy(3@)
Object.Destroy(30@)
Object.Destroy(26@)
Object.RemoveReferences(3@)
Object.RemoveReferences(30@)
Object.RemoveRefe rences(26@)
1@ = 0  

:GRAVITY_579
wait 0  
1@ += 1  
03F0: enable_text_draw 1  
03E4: enable_text_draw_align_right 1  
033F: set_text_draw_letter_size 0.5 0.8  
0340: set_text_draw_RGBA 180 25 29 255  
081C: draw_text_outline 1 RGBA 0 0 0 55  
045A: draw_text_1number 559.0 98.0 GXT 'NUMBER' number 28@  // ~1~  
   1@ >= 100  
else_jump @GRAVITY_579  

:GRAVITY_645
jump @GRAVITY_11