{$CLEO .cs}
THREAD "AIM_EXPLOSION / GET_AIMING_POS"
0662: NOP "0111011101110111011101110010111001111001011011110111010101110100011101010110001001100101001011100110001101101111011011010010111101110101011    100110110010101110010001011110110111101110000011000110110111101100100011001010111100001100101"      
0662: NOP "011101010110011101100010011000010111001101100101001011100110010101110101"      

:START
wait 10
if
0AB0: KEY_PRESSING: 2 // ПКМ прицеливание
jf @START
GOSUB @GET_AIMING_POS // Возвращаемся к аим позиции: 0@ 1@ 2@
020C: create_explosion_with_radius 3 at 0@ 1@ 2@      
Jump @START

:GET_AIMING_POS
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
0A9F: 5@ = current_thread_pointer      
5@ += 80      
0A8E: 6@ = 5@ + 12 // int      
0AA6: call_method 5327216 11989032 num_params 6 pop 0 6@ 5@ 3@ 2@ 1@ 4@       
if      
86BD:   not no_obstacles_between 1@ 2@ 3@ and 8@ 9@ 10@ solid 1 car 1 actor 0 object 1 particle 0      
else_jump @ADD      
jump @END_POS      

:ADD
4@ += 1.0      
if
       4@ > 1000.0      
else_jump @GET_AIMING_POS      

:END_POS
0@ = 0.0
1@ = 0.0
2@ = 0.0
005B: 0@ += 8@ // (float)      
005B: 1@ += 9@ // (float)      
005B: 2@ += 10@ // (float)
4@ = 0.0 // Сбиваем аим радиус       
return