thread 'WEAP'  
:WEAP_21
wait 0  
if  
    Player.Defined($PLAYER_CHAR)
jf @WEAP_21  
if  
02D8:   actor $PLAYER_ACTOR current_weapon == 22  
jf @WEAP_21  
wait 100   
if  
0AB0:   key_pressed 49
jf @WEAP_21  
0653:  3@  = float_stat 69  
jump @WEAP_199

:WEAP_199  
wait 0  
if  
3@ > 300
jf @WEAP_109  
0627: update_integer_stat 69 to 10  
03E6: remove_text_box  
jump @WEAP_21  

:WEAP_109  
wait 0  
if  
not 3@ > 299  
jf @WEAP_199  
01B6: set_weather 1  
0627: update_integer_stat 69 to 1000  
03E6: remove_text_box  
jump @WEAP_21

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
thread 'JPR'   

:JPR_11
wait 0   
if   
     Player.Defined($PLAYER_CHAR)
else_jump @JPR_11   
if   
0AB0:   key_pressed 8   
else_jump @JPR_11   
Model.Load(3065)
Model.Load(3786)

:JPR_56
wait 0   
if and
     Model.Available(3065)
     Model.Available(3786)
else_jump @JPR_56   
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 1.0 -0.5 1.3   
1@ = Object.Create(3065, 11@, 12@, 13@)
2@ += 270.0   
Object.Angle(1@) = 2@
0750: set_object 1@ visibility 0   
19@ = Object.Create(3786, 0.0, 0.0, 0.0)
Object.Angle(19@) = 2@
04D9: object 1@ set_scripted_collision_check 1   
Object.CollisionDetection(1@) = True
0906: set_object 1@ mass_to 30000.0 // float   
0908: set_object 1@ turn_mass_to 30000.0 // float   
069A: attach_object 19@ to_object 1@ with_offset 0.0 0.0 0.0 rotation 0.0 0.0 0.0   
Object.CollisionDetection(19@) = False
2@ = Actor.Angle($PLAYER_ACTOR)
0819: 18@ = actor $PLAYER_ACTOR distance_from_ground   
4@ = 80.1   
02F6: 5@ = cosine 2@ // (float)   
02F7: 6@ = sine 2@ // (float)   
006B: 5@ *= 4@ // (float)   
006B: 6@ *= 4@ // (float)   
5@ *= -1.0   
18@ += 1.0   
Object.ToggleInMovingList(1@) = True
Object.Throw(1@, 5@, 6@, 18@)
33@ = 0   

:JPR_376
wait 0   
if   
     Player.Defined($PLAYER_CHAR)
else_jump @JPR_376   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset 0.0 0.0 0.0   
095C: create_smoke_at 11@ 12@ 13@ velocity 0.0 0.0 0.0 RGBA 1.0 1.0 1.0 1.0 size 0.5 last_factor 0.1   
if or
04DA:   has_object 1@ collided   
    33@ > 7000   
else_jump @JPR_376   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset 0.0 0.0 0.0   
020C: create_explosion_with_radius 3 at 11@ 12@ 13@   
0565: create_soundless_explosion_at 11@ 12@ 13@ type 5   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset 5.0 0.0 0.0   
020C: create_explosion_with_radius 3 at 11@ 12@ 13@   
0565: create_soundless_explosion_at 11@ 12@ 13@ type 5   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset -5.0 0.0 0.0   
020C: create_explosion_with_radius 3 at 11@ 12@ 13@   
0565: create_soundless_explosion_at 11@ 12@ 13@ type 5   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset 0.0 5.0 0.0   
020C: create_explosion_with_radius 3 at 11@ 12@ 13@   
0565: create_soundless_explosion_at 11@ 12@ 13@ type 5   
0400: store_coords_to 11@ 12@ 13@ from_object 1@ with_offset 0.0 -5.0 0.0   
020C: create_explosion_with_radius 3 at 11@ 12@ 13@   
0565: create_soundless_explosion_at 11@ 12@ 13@ type 5   
Model.Destroy(3065)
Model.Destroy(3786)
095C: create_smoke_at 11@ 12@ 13@ velocity 0.0 0.0 0.0 RGBA 0.0 0.0 0.0 0.2 size 3.0 last_factor 0.1   
0682: detach_object 19@ 0.0 0.0 0.0 collision_detection 1   
Object.Destroy(1@)
Object.Destroy(19@)
jump @JPR_11   

0625: decrease_integer_stat 69 by 10

{$CLEO .cs}
0000: NOP  
:TEST_11
wait 0  
if  
    Player.Defined($PLAYER_CHAR)
jf @TEST_11  
wait 1000
if and
00E1: key_pressed 0 16
    Actor.Animation($PLAYER_ACTOR) == "sprint_civi"  
jf @TEST_11
0922: set_camera_zoom_in_factor 70.0 out_factor 100.0 timelimit 1000 mode 0  
jump @TEST_11