hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end
{$CLEO .cs}
0000:
{$Include sf}
wait 2500
0AF8: samp add_message_to_chat "Mybot ðàáîòàåò... äëÿ èíôîðìàöèè ââåäèòå /bot_help" 0x00CCFF
0B34: samp register_client_command "bot_store" to_label @2
0B34: samp register_client_command "bot_start" to_label @3
0B34: samp register_client_command "bot_del" to_label @4
0B34: samp register_client_command "bot_help" to_label @5
25@ = 0
:0
wait 0
if
25@ == 1
jf @0
0A9A: 0@ = openfile "Cleo\my.bot" mode "rt"
:1
wait 0
if
0AB0: 78
then
0AF8: samp add_message_to_chat "Çàêîí÷èë" 0x00CCFF
25@ = 0
0A9B: closefile 0@
jump @0
end
if
0AD6: end_of_file 0@ reached
then
0A9B: closefile 0@
jump @0
end
0ADA: 3@ = scan_file 0@ format "%f %f %f %d %d 0xD" 10@ 11@ 12@ 13@ 14@
if
13@ == 1
then
actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
end
if
13@ == 2
then
0AB1: call_scm_func @SendOnfootFakePosition 3 10@ 11@ 12@
end
if
13@ == 3
then
0AB1: call @char_goto 4 XYZ 10@ 11@ 12@ sprint false
end
if
13@ == 4
then
0AB1: call @char_goto 4 XYZ 10@ 11@ 12@ sprint true
end
wait 14@
jump @1
:2
0B35: samp 28@ = get_last_command_params
0C17: 29@ = strlen 28@
if
29@ > 0
then
0AD4: 28@ = scan_string 28@ format "%d %d" 13@ 14@
0A9A: 0@ = openfile "Cleo\my.bot" mode "at"
actor.StorePos($PLAYER_ACTOR, 10@, 11@, 12@)
0AD9: write_formatted_text "%f %f %f %d %d 0xD" in_file 0@ 10@ 11@ 12@ 13@ 14@
0AF8: samp add_message_to_chat "%f %f %f ìîä: %d, îæèäàíèå: %d" 0x00CCFF 10@ 11@ 12@ 13@ 14@
0A9B: closefile 0@
else
0AF8: samp add_message_to_chat "Ôîðìàò ââîäà /bot_store 2 500" 0x00CCFF
0AF8: samp add_message_to_chat "Ãäå 500 âðåìÿ îæèäàíèÿ äî ñëåäóþùåãî áåãà â ìñ." 0x00CCFF
0AF8: samp add_message_to_chat "À 2 ìîä: 1- ÒÏ, 2-synsTP, 3- áåã, 4- ñïðèíò" 0x00CCFF
end
0B43: samp cmd_ret
:3
0AF8: samp add_message_to_chat "Íà÷àë." 0x00CCFF
25@ = 1
0B43: samp cmd_ret
:4
0AF8: samp add_message_to_chat "Ôàéë óäàëåí." 0x00CCFF
0B00: delete_file "CLEO\my.bot"
0B43: samp cmd_ret
:5
0AF8: samp add_message_to_chat "Êîìàíäû:" 0x00CCFF
0AF8: samp add_message_to_chat "/bot_store Çàïîìèíàåò êîîðäèíàòó, íàïèøèòå åå è óçíàåøü," 0x00CCFF
0AF8: samp add_message_to_chat "êàê ïîëüçîâàòüñÿ." 0x00CCFF
0AF8: samp add_message_to_chat "/bot_start Íà÷èíàåò áåã))" 0x00CCFF
0AF8: samp add_message_to_chat "Äëÿ îñòàíîâêè áîòà çàæìèòå N, æåëàòåëüíî â ìîìåíò îñòàíîâêè." 0x00CCFF
0AF8: samp add_message_to_chat "/bot_del Óäàëÿåò ïóòü." 0x00CCFF
0AF8: samp add_message_to_chat "Àâòîð ñêðèïòà: Stas07. Óäà÷è ïà÷àí :ç" 0x00CCFF
0B43: samp cmd_ret
:SendOnFootFakePosition
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
3@ = SAMP.GetPlayerStruct(3@)
3@ += 109
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 5 size 68
0B42: raknet send bit_stream 5@ priority HIGH_PRIORITY reliability UNRELIABLE_SEQUENCED ordering_channel 0
0B3E: raknet delete_bit_stream 5@
0AC9: free_allocated_memory 4@
0ab2: 0
:char_goto
repeat
wait 0
00A0: store_actor $PLAYER_ACTOR position_to 4@ 5@ 2@
0063: 0@ -= 4@
0063: 1@ -= 5@
0604: get_Z_angle_for_point 0@ 1@ store_to 2@
005B: 0@ += 4@
005B: 1@ += 5@
2@ *= 0.01745
0A96: 4@ = actor $PLAYER_ACTOR struct
4@ += 0x558
0A8C: write_memory 4@ size 4 value 2@ virtual_protect 0
0373: set_camera_directly_behind_player
if
3@ == false
then
4@ = 0xB73458
4@ += 0x20
0A8C: write_memory 4@ size 1 value 0 virtual_protect 0
4@ = 0xB73458
4@ += 0x3
0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
else
4@ = 0xB73458
4@ += 0x20
0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
4@ = 0xB73458
4@ += 0x3
0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
end
until 00ED: actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.4 0.4 on_foot
0AB2: ret 0
hex
1A A1
