{{$CLEO .cs}
{$include /includes/RakNetDefines.txt}
thread "KPAH"
     
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
          wait 100
end

0AF8: samp add_message_to_chat "> ================================== <" color 0x666666
0AF8: samp add_message_to_chat "      > Bot Miner by [CM]KPAH <" color 0x99FF00
0AF8: samp add_message_to_chat "       > Активация: /bot_m. <" color 0x99FF00
0AF8: samp add_message_to_chat "     > Деактивация: /bot_m_off .<" color 0x99FF00
0AF8: samp add_message_to_chat "       > For Cheat-master.ru <" color 0x99FF00
0AF8: samp add_message_to_chat "> ================================== <" color 0x666666

0B34: samp register_client_command "bot_m" to_label @miners
0B34: samp register_client_command "bot_m_off" to_label @off

while true
wait 0
if 12@ == 1
then
wait 500
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
0AB1: call @tp_with_anim 3 X_coord -1859.57 Y_coord -1626.59 Z_coord -81.22
if 0611: actor $PLAYER_ACTOR performing_animation "bat_4"
then
0AB1: call @tp_with_anim 3 X_coord -1860.56 Y_coord -1622.33 Z_coord -72.52
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
wait 0   
0B2D: write_samp_memory offset 0x41E0 value 0x6A size 1        
wait 23000
0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
wait 50
0AB1: call_scm_func @playersynccoord 3 -1866.97 -1612.11 21.76
wait 0
0B2D: write_samp_memory offset 0x41E0 value 0x6A size 1
wait 1000
end
end   
end
          
     
     
:miners
12@ = true
0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1    
0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1    
0AC6: 13@ = label @2 offset    
0C11: memset destination 7623723 value 144 size 8    
0AC6: 14@ = label @1 offset    
0C11: memset destination 5499528 value 144 size 6    
actor.putat($PLAYER_ACTOR, -1860.56, -1622.33, -72.52)
0AF8: samp add_message_to_chat "Бот шахтёра включен" color 0x00CC00
Samp.CmdRet()

:off
12@ = false
0A8C: write_memory 7634870 size 1 value 0 virtual_protect 1    
0A8C: write_memory 7635034 size 1 value 0 virtual_protect 1    
0C10: memcpy destination 7623723 source 13@ size 8    
0C10: memcpy destination 5499528 source 14@ size 6    
0AF8: samp add_message_to_chat "Бот шахтёра выключен" color 0xFF0000
0AB1: call @tp_with_anim 3 X_coord -1864.9104 Y_coord -1560.9286 Z_coord 21.7500
Player.CanMove($PLAYER_CHAR) = True
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
Camera.Restore_WithJumpCut   
018C: play_sound 1139 at 0.0 0.0 0.0
if SAMP.IsDialogActive(109)
then
0B49: samp set_current_dialog_list_item 1
end   
Samp.CmdRet()
     
:playersynccoord
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)   
3@ = SAMP.GetPlayerStruct(3@)
3@ += 55   
0AC8: 4@ = allocate_memory_size 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@   
0B3D: raknet 5@ = new_bit_stream   
0B40: raknet bit_stream 5@ write PACKET_PLAYER_SYNC type BS_TYPE_BYTE size 1
0B40: raknet bit_stream 5@ write 4@ type BS_TYPE_ARRAY size 68   
0B8B: raknet send bit_stream 5@   
0B3E: raknet delete_bit_stream 5@   
0AC9: free_allocated_memory 4@   
0ab2: 0    

:tp_with_anim
0A96: 3@ = actor $PLAYER_ACTOR struct
000A: 3@ += 20
0A8D: 3@ = read_memory 3@ size 4 virtual_protect 0
000A: 3@ += 48
0A8C: write_memory 3@ size 4 value 0@ virtual_protect 0 //0@ - координаты по X
000A: 3@ += 4
0A8C: write_memory 3@ size 4 value 1@ virtual_protect 0 //1@ - координаты по Y
000A: 3@ += 4
0A8C: write_memory 3@ size 4 value 2@ virtual_protect 0 //2@ - координаты по Z
0AB2: ret 0

:1   
hex   
    0F 84 7B 01 00 00   
end   
:2   
hex   
    50 51 FF 15 00 83 85 00   
end