if 0@ = SAMP.Base()
then
      while not SAMP.Available()
          wait 500
      end
else end_thread
end

{$VERSION 3.1.0027}  
{$CLEO .cs}  

//-------------MAIN---------------  
03A4: name_thread "KAHA-47[CM]"    
0662: NOP "KAHA-47[CM]"   
if 0@ = SAMP.Base()  
then  
       while not SAMP.Available()  
           wait 500  
       end  
else end_thread  
end  

:FLOOD_2  
wait 0 ms    
if  
Actor.Defined($Player_Actor)    
jf @FLOOD_3
if and
0AB0: key_pressed 90  // Проверка нажатий клавиш  
0AB0: key_pressed 49    
jf @FLOOD_3    
0AF9: samp say_msg "/startfight"  
wait 1100                            
0AF9: samp say_msg "/startfight"
wait 1100         
0AF9: samp say_msg "/startfight"  
wait 1100
                      
:FLOOD_3  
wait 0
jump @FLOOD_2

// 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---------------   
0000: NOP   
           
thread 'ALEKILL'
:1     
wait 0     
if     
0ADC: test_cheat "q" // Если не нажата клавиша 'q' то возращяемся и ждём активации
jf @1     
actor.storepos($PLAYER_ACTOR, 1@ 2@ 3@)  // Если нажата то записываем координаты игрока в переменные 1 2 3
if     
0AE2: 0@ = random_vehicle_near_point 1@ 2@ 3@ in_radius 100.0 find_next 0 pass_wrecked 1 //IF and SET    // Ищем поблизости рандомную машину тп в неё  
jf @1    
Car.Health($car) = 0.0 // Даём кару 0 хп  
wait 1000  // Ждём 1 сек  
0622: AS_actor $PLAYER_ACTOR bail_car 0@  // Выходим из кара  
wait 1000  // Ждём 1 сек
actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@ ) // Телепортируемся на позицию 1 2 3 тоесть с которой начали
jump @1   
0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to $NO_USE

{$CLEO .cs}
const
X = 3@
Y = 4@
Z = 5@
XU = 0// Вместо 0 пишешь свои координату X
YU = 0// Вместо 0 пишешь свои координатy Y
ZU = 0// Вместо 0 пишешь свои координатy Z
key = 0 // Вместо 0 код нужной клавишы
time = 1000// Время, котрое клавиша будет нажата в мс
end
0000:
thread "Urri"
0662: "Made by includelow"
if  
   8AF7: get_samp_base_to SAMP_BASE
then  
     0A93: end_custom_thread
end
repeat  
     wait 400
until 0AFA: is_samp_structures_available
if  
     0AA2: 0@ = load_library "User32.dll" // IF and SET  
jf @error_load_user32
if  
     0AA4: 1@ = get_proc_address "keybd_event" library 0@ // IF and SET  
jf @error_proc_keybd_event

while true
wait 0
     if  
         Actor.Defined($Player_Actor)
         then
             Actor.StorePos($Player_Actor X Y Z)
             if and
                 X = XU// Сверяем текщие координаты с нужными
                 Y = YU
                 Z = ZU
                 then
                     0AA5: call 1@ num_params 4 pop 0 0 0 0 key       //Нажали клавишу
                     wait time
                     0AA5: call 1@ num_params 4 pop 0 0 0x02 0 key    //Отпустили клавишу
             end
     end
end

:error_proc_keybd_event  
  0AA3: free_library 0@  
:error_load_user32  
  0A93: end_custom_thread