model.Load(#FAM1)
038B: load_requested_models
09C7: change_player $PLAYER_CHAR model_to #FAM1

// This file was decompiled using SASCM.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:NONAME_2
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @NONAME_2
wait 0
if
0ADC:   test_cheat "KILL"
else_jump @NONAME_2
Model.Load(#SWAT)
Model.Load(#AK47)
038B: load_requested_models
jump @NONAME_64

:NONAME_64
wait 0
if and
Model.Available(#SWAT)
Model.Available(#AK47)
else_jump @NONAME_64
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 5.0 0.0
$IVAN = Actor.Create(CivMale, #SWAT, 1@, 2@, 3@)
wait 3000
01B2: give_actor $IVAN weapon 30 ammo 1000 // Load the weapon model before using this
0850: AS_actor $IVAN follow_actor $PLAYER_ACTOR
05E2: AS_actor $IVAN kill_actor $PLAYER_ACTOR

:NONAME_168
if
Actor.Dead($IVAN)
else_jump @NONAME_168
Player.Money($PLAYER_CHAR) += 10000
0394: play_music 1
jump @NONAME_2

0118:   actor 1@ dead

0394: play_music 1

:NONAME_168
wait 0// нужна задержка

{$CLEO}

0ADF: add_dynamic_GXT_entry "_TEST1" text "~1~"
0ADF: add_dynamic_GXT_entry "_TEST2" text "NO"

while true
wait 0
       if
       0AAA: 0@ = thread 'PLCHUTE' pointer
       then
       01E4: show_text_1number_lowpriority GXT '_TEST1' number 0@ time 1 flag 1     
       else
       00BC: show_text_highpriority GXT '_TEST2' time 1000 flag 1
       end
end

0A93: end_custom_thread

DEFINE OBJECTS 0

DEFINE MISSIONS 0

DEFINE EXTERNAL_SCRIPTS 0

DEFINE UNKNOWN_EMPTY_SEGMENT 0

DEFINE UNKNOWN_THREADS_MEMORY 574

//-------------MAIN---------------

var
$LABELS: array 3 of integer
$THREADNAME: array 3 of string
end

thread 'MAIN'    
fade 0 0    
0629: change_integer_stat 181 to 4    
04E4: refresh_game_renderer_at 2488.562 -1666.864    
Camera.SetAtPos(2488.562, -1666.864, 13.3757)
$PLAYER_CHAR = Player.Create(0, 2488.562, -1666.864, 12.8757)
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group    
0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here    
Player.SetClothes($PLAYER_CHAR, "VEST", "VEST", Torso)
Player.SetClothes($PLAYER_CHAR, "JEANSDENIM", "JEANS", Legs)
Player.SetClothes($PLAYER_CHAR, "SNEAKERBINCBLK", "SNEAKER", Shoes)
Player.SetClothes($PLAYER_CHAR, "PLAYER_FACE", "HEAD", Head)
Player.Build($PLAYER_CHAR)
0793: save_player_clothes    
Actor.Angle($PLAYER_ACTOR) = 262.0
Camera.SetBehindPlayer
Player.CanMove($PLAYER_CHAR) = True
01B7: release_weather    
Player.Money($PLAYER_CHAR) += 25000
016C: restart_if_wasted_at 1180.85 -1325.57 12.58 angle 271.4 town_number 0    
016D: restart_if_busted_at 1550.68 -1675.49 14.51 angle 90.0 town_number 0    
fade 1 1000
wait 1000
03E6: remove_text_box

$LABELS[0] = @THREAD_1
$LABELS[1] = @THREAD_2
$LABELS[2] = @THREAD_3

s$THREADNAME[0] = 'THREAD_1'
s$THREADNAME[1] = 'THREAD_2'
s$THREADNAME[2] = 'THREAD_3'

create_thread @RUNNER
end_thread

:RUNNER
thread 'RUNNER'
1@ = 250

while true
wait 1@
       0209: 0@ = random_int_in_ranges -1 4
       0209: 1@ = random_int_in_ranges 0 5000
       if and
       0@ > -1
       3 > 0@
       then
       0ACE: show_formatted_text_box "OK"
           if
           0AAA: 2@ = thread $THREADNAME[0@] pointer
           then
           0AD1: show_formatted_text_highpriority "NO" time 1@
           else
           create_thread $LABELS[0@]
           end
       end
end

:THREAD_1
thread 'THREAD_1'
0AD1: show_formatted_text_highpriority "Thread 1 active" time 5000
wait 5000
end_thread

:THREAD_2
thread 'THREAD_2'
0AD1: show_formatted_text_highpriority "Thread 2 active" time 4000
wait 4000
end_thread

:THREAD_3
thread 'THREAD_3'
0AD1: show_formatted_text_highpriority "Thread 3 active" time 3000
wait 3000
end_thread