{$CLEO .cs}
0000: NOP  

0662: printstring "by slonoboyko"   
wait 4000   
0AF8: samp add_message_to_chat "[SlonoBot final] Автор скрипта SlonoBoyko" color 0x99FF00
0AF8: samp add_message_to_chat "[SlonoBot final] Чтобы посмотреть команды введи /comands" color 0x99FF00
0AF8: samp add_message_to_chat "[SlonoBot final] Подписывайся на канал SlonoBoyko Cheating Team" color 0x99FF00

0B34: samp register_client_command "boton" to_label @slonobot
0B34: samp register_client_command "botoff" to_label @botoff
0B34: samp register_client_command "zp" to_label @zp
0B34: samp register_client_command "adm" to_label @adm
0B34: samp register_client_command "comands" to_label @comands
20@ = 0

repeat  
wait 0  
     if 0@ == 1    
     then  
     wait 1000
     Actor.PutAt($Player_Actor, -1859.45, -1625.72, -79.20)
     0AB1: call_scm_func @bot 3 -1859.45 -1625.72 -78.22
     wait 1500
     Actor.PutAt($PLAYER_ACTOR, -1856.60, -1628.80, -79.20)
     0AB1: call_scm_func @bot 3 -1859.45 -1625.72 -78.22
     wait 500
     Actor.LockInCurrentPosition($Player_Actor) = true
     wait 18000  
     Actor.LockInCurrentPosition($Player_Actor) = false
     wait 8000
     0AB1: call_scm_func @bot 3 -1866.83 -1612.35 21.76   
     20@ += 1
     0AF0: 21@ = read_int_from_ini_file "CLEO\INI\SlonoBot.ini" section "Count" key "Replays"
         if 003B: 20@ == 21@
         then
         20@ = 0    
             if  
             0AB1: call_scm_func @picup 1 model 1275 id_to 2@
             then
             0BD1: samp send_picked_up_pickup 2@
             wait 1000
                 if
                 0B4C: samp is_dialog_active 110
                 then
                 wait 1000
                 0B47: samp close_current_dialog_with_button 1
                 wait 500
                     if  
                     0AB1: call_scm_func @picup 1 model 1275 id_to 2@
                     then
                     0BD1: samp send_picked_up_pickup 2@
                     wait 500     
                         if
                         0B4C: samp is_dialog_active 109
                         then
                         wait 1000
                         0B47: samp close_current_dialog_with_button 1
                         10@ = 0
                         end
                     end
                 end     
             end         
         end             
     end                 
     if 1@ == 1
     then
     wait 1000     
         for 29@ = 0 to 100
         0AD3: string_format 4@v format "%d" 29@ //4  
         0AC8: 5@ = allocate_memory_size 256  
             if 0AF4: 5@ = read_string_from_ini_file "CLEO\INI\SlonoBot.ini" section "Admins" key 4@v
             then
             0AD3: string_format 5@v format "%s" 5@
                 for 30@ = 0 to 1000
                     if 0B23: samp is_player_connected 30@
                     then
                     0B36: samp 10@ = get_player_nickname 30@
                     0AD3: string_format 10@v format "%s" 10@
                         if and
                         5@v == 10@v
                         6@v == 11@v
                         then
                         31@ = SAMP.GetPlayerScore(30@)
                             if not 31@ == 0
                             then
                             0AF8: samp add_message_to_chat "[SlonoBot final] Админ появился в сети. Бот завершает работу" color 0x99FF00     
                    if
                    0AB1: call_scm_func @picup 1 model 1275 id_to 2@
                    then
                    0BD1: samp send_picked_up_pickup 2@
                    wait 1000
                    if
                    0B4C: samp is_dialog_active 110
                    then
                    wait 1000
                    0B47: samp close_current_dialog_with_button 1
                    wait 500
                    0B28: samp disconnect_with_reason 0
                    1@ = 0
                    end     
                    end
                             end
                         end
                     end
                 end     
             end
         0AC9: free_allocated_memory 5@
         end
     end                     
until false

:slonobot  
wait 0
0665: get_actor $PLAYER_ACTOR model_to 8@
if and  
not 0@ == 1
8@ == 16   
then  
chatmsg "[SlonoBot final] {FFFF00}Бот шахтера by slonoboyko для Advance RP | {00FF00}Запущен" 16768685
wait 10
Actor.PutAt($PLAYER_ACTOR, -1856.60, -1628.80, -79.20)
0@ = 1
20@ = 0
end     
0B43: samp cmd_ret

:botoff
wait 0
if  
0@ == 1   
then  
0@ = 0
chatmsg "[SlonoBot final] {FFFF00}Бот шахтера by slonoboyko для Advance RP | {FF0000}Остановлен" 16768685
wait 20
Actor.LockInCurrentPosition($Player_Actor) = false
wait 50
Actor.PutAt($PLAYER_ACTOR, -1862.90, -1627.80, -78.22)
end     
0B43: samp cmd_ret

:zp
wait 0
if  
0AB1: call_scm_func @picup 1 model 1275 id_to 2@
then
0BD1: samp send_picked_up_pickup 2@
end     
0B43: samp cmd_ret

:adm
wait 0
if and
not 1@ == 1
0@ == 1
then
1@ = 1
chatmsg "[SlonoBot final] {FFFF00}Автовыключение если админ в сети | {00FF00}Включено" 16768685
else
1@ = 0
chatmsg "[SlonoBot final] {FFFF00}Автовыключение если админ в сети | {FF0000}Выключено" 16768685
end
0B43: samp cmd_ret

:comands
wait 0
chatmsg "[SlonoBot final] {FFFF00}Включить бота | {0000FF}/boton" 16768685
chatmsg "[SlonoBot final] {FFFF00}Выключить бота | {0000FF}/botoff" 16768685
chatmsg "[SlonoBot final] {FFFF00}Завершить работу | {0000FF}/zp" 16768685
chatmsg "[SlonoBot final] {FFFF00}Автовыключение, если админ в сети | {0000FF}/adm" 16768685
0B43: samp cmd_ret

:bot
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
3@ = SAMP.GetPlayerStruct(3@)
3@ += 55  
alloc 4@ 68  
0C10: memcpy destination 4@ source 3@ size 68  
0C0D: struct 4@ offset 6 size 4 = 0@  
0C0D: struct 4@ offset 10 size 4 = 1@  
0C0D: struct 4@ offset 14 size 4 = 2@  
5@ = RakNet.NewBitStream()
BitStream.Write(5@, 212, BS_TYPE_BYTE, 1)
BitStream.Write(5@, 4@, BS_TYPE_ARRAY, 68)
RakNet.LiteSend(5@)
RakNet.DeleteBitStream(5@)
free 4@  
ret 0  

:picup
0BB9: samp 1@ = get_pickup_pool_ptr
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0  
if 2@ > 0
then
     0A8E: 2@ = 1@ + 0x4  
     0A8E: 3@ = 1@ + 0xF004  
     for 4@ = 0 to 4095 step 1
         0A90: 5@ = 4@ * 4
         005A: 5@ += 2@
         0A8D: 5@ = read_memory 5@ size 4 virtual_protect 0
         if 5@ <> 0
         then
             0A90: 5@ = 4@ * 20
             005A: 5@ += 3@
             0A8D: 5@ = read_memory 5@ size 4 virtual_protect 0  
             if 003b: 5@ == 0@
             then
                 0485:  return_true
                 0AB2: ret 1 4@
             end
         end
     end
end
059A:  return_false
0AB2: ret 1 -1