Вот соурс бот грузчик от DubStep_
Код
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
03A4: name_thread "nonameawr"
00D6: if
0AF7: samp 0@ = get_base
004D: jump_if_false @nonameawr_46
:nonameawr_46
8AFA: not is_samp_available
004D: jump_if_false @nonameawr_66
0001: wait 100 ms
0002: jump @nonameawr_46
:nonameawr_66
0B34: samp register_client_command "work" to_label @nonameawr_1472
0B34: samp register_client_command "work_tp" to_label @nonameawr_1095
0002: jump @nonameawr_390
:nonameawr_390
0001: wait 0 ms
00D6: if
8039: not 28@ == 1
004D: jump_if_false @nonameawr_2708
00D6: if
0039: 29@ == 1
004D: jump_if_false @nonameawr_1088
00D6: if
0039: 7@ == 0
004D: jump_if_false @nonameawr_526
0AC8: 30@ = allocate_memory_size 68
0AD3: 30@ = format "MEWKOB: %d" 9@
0ACD: show_text_highpriority 30@ time 8888
0AC9: free_allocated_memory 30@
0AB1: call_scm_func @nonameawr_2583 3 2232.74 -2288.06 13.38
0001: wait 1500 ms
0006: 7@ = 1
:nonameawr_526
00D6: if
0039: 7@ == 1
004D: jump_if_false @nonameawr_609
0AB1: call_scm_func @nonameawr_2583 3 2232.2 -2286.61 13.55
0001: wait 50 ms
0AB1: call_scm_func @nonameawr_2583 3 2232.74 -2288.06 13.38
0001: wait 50 ms
0006: 7@ = 2
:nonameawr_609
00D6: if
0039: 7@ == 2
004D: jump_if_false @nonameawr_925
0209: $rand = random_int_in_ranges 1 4
00D6: if
8038: not $rand == 1
004D: jump_if_false @nonameawr_715
00D6: if
8038: not $rand == 2
004D: jump_if_false @nonameawr_766
00D6: if
8038: not $rand == 3
004D: jump_if_false @nonameawr_817
00D6: if
8038: not $rand == 4
004D: jump_if_false @nonameawr_868
0002: jump @nonameawr_868
:nonameawr_715
0209: $z = random_int_in_ranges 70 90
0AB1: call_scm_func @nonameawr_2583 3 2180.8 -2255.76 $z
0001: wait 4800 ms
0006: 7@ = 3
0002: jump @nonameawr_925
:nonameawr_766
0209: $z = random_int_in_ranges 70 90
0AB1: call_scm_func @nonameawr_2583 3 2203.97 -2278.97 $z
0001: wait 4800 ms
0006: 7@ = 3
0002: jump @nonameawr_925
:nonameawr_817
0209: $z = random_int_in_ranges 70 90
0AB1: call_scm_func @nonameawr_2583 3 2191.67 -2267.24 $z
0001: wait 4800 ms
0006: 7@ = 3
0002: jump @nonameawr_925
:nonameawr_868
0209: $z = random_int_in_ranges 70 90
0208: $x = random_float_in_ranges 2194.0 2198.0
0AB1: call_scm_func @nonameawr_2583 3 $x -2257.19 $z
0001: wait 4800 ms
0006: 7@ = 3
:nonameawr_925
00D6: if
0039: 7@ == 3
004D: jump_if_false @nonameawr_980
0AB1: call_scm_func @nonameawr_2583 3 2171.54 -2257.82 12.85
0001: wait 1500 ms
0006: 7@ = 4
:nonameawr_980
00D6: if
0039: 7@ == 4
004D: jump_if_false @nonameawr_1088
0AB1: call_scm_func @nonameawr_2583 3 2171.67 -2255.39 12.62
0001: wait 50 ms
0AB1: call_scm_func @nonameawr_2583 3 2171.54 -2257.82 12.85
0001: wait 50 ms
0006: 7@ = 0
000E: 9@ -= 1
00D6: if
8039: not 9@ == 0
004D: jump_if_false @nonameawr_1268
:nonameawr_1088
0002: jump @nonameawr_390
:nonameawr_1095
0006: 28@ = 1
0001: wait 2000 ms
0AC8: 3@ = allocate_memory_size 460
0AC8: 14@ = allocate_memory_size 70
0AD3: 14@ = format "{FFCD00}Ïîìîùü"
0AD3: 3@ = format "{EAEAEA}×òîáû îñòàíîâèòü òåëåïîðòàöèþ ïðîïèøèòå {FFCD00}NO {EAEAEA}íà êëàâèàòóðå"
0B3B: samp show_dialog id 197 caption 14@ text 3@ button_1 "Çàêðûòü" button_2 "" style 0
0AC9: free_allocated_memory 14@
0AC9: free_allocated_memory 3@
0B43: samp cmd_ret
:nonameawr_1268
0001: wait 700 ms
0AB1: call_scm_func @nonameawr_2583 3 2166.73 -2275.69 9.24
0001: wait 700 ms
0AB1: call_scm_func @nonameawr_2583 3 2132.32 -2277.83 23.88
0001: wait 700 ms
0AB1: call_scm_func @nonameawr_2583 3 2127.54 -2275.08 18.67
0001: wait 100 ms
0B3D: raknet 1@ = new_bit_stream
0B40: raknet bit_stream 1@ write 1487 type 3 size 4
0B8A: raknet send_rpc 131 bit_stream 1@
0B3E: raknet delete_bit_stream 1@
0001: wait 700 ms
0AB1: call_scm_func @nonameawr_2583 3 2166.73 -2275.69 9.24
0001: wait 700 ms
0AF0: 9@ = get_int_from_ini_file "CLEO\work.set" section "Settings" key "Meshki"
0002: jump @nonameawr_1088
:nonameawr_1472
00D6: if
0039: 29@ == 0
004D: jump_if_false @nonameawr_1891
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 9@
00D6: if
0019: 0@ > 0
004D: jump_if_false @nonameawr_1779
00D6: if
0019: 9@ > 0
004D: jump_if_false @nonameawr_1779
0006: 29@ = 1
0AF1: write_int 9@ to_ini_file "CLEO\work.set" section "Settings" key "Meshki"
0AB1: call_scm_func @nonameawr_2341 0 18@ 19@ 20@ 21@ 22@ 23@ 24@ 25@
0AF8: samp add_message_to_chat " {0FFF00}[DubStep_ cleo]: {FFFFFF}Áîò ãðóç÷èê âêëþ÷åí. Êîëè÷åñòâî ìåøêîâ: {FFFF00}%d." color 16777215 9@
0B2E: 8@ = read_samp_memory offset 82384 size 2
0B2D: write_samp_memory offset 82384 value 50064 size 2
0B2E: 6@ = read_samp_memory offset 16864 size 2
0B2D: write_samp_memory offset 16864 value 50064 size 2
0002: jump @nonameawr_1884
:nonameawr_1779
0AF8: samp add_message_to_chat " Ïðàâèëüíûé ââîä: /work [êîë-âî ìåøêîâ]" color 229229229
0002: jump @nonameawr_1884
0AF8: samp add_message_to_chat " Âû ñëèøêîì äàëåêî îò ðàáîòû ãðóç÷èêîâ." color 229229229
:nonameawr_1884
0002: jump @nonameawr_2339
:nonameawr_1891
0006: 29@ = 0
0B2D: write_samp_memory offset 82384 value 8@ size 2
0B2D: write_samp_memory offset 16864 value 6@ size 2
0ACD: show_text_highpriority "OFF" time 1
0AF8: samp add_message_to_chat " {0FFF00}[Info-Cheat.Clan.su]: {FFFFFF}Áîò ãðóç÷èê âûêëþ÷åí" color 16777215
0B00: delete_file "CLEO\work.set" // IF and SET
0AB1: call_scm_func @nonameawr_2341 0 11@ 12@ 20@ 21@ 18@ 17@ 19@ 30@
0AB1: call_scm_func @nonameawr_2341 0 11@ 12@ 20@ 21@ 1@ 2@ 5@ 30@
0062: 18@ -= 22@ // (int)
0062: 17@ -= 23@ // (int)
0062: 19@ -= 24@ // (int)
0AC8: 3@ = allocate_memory_size 460
0AC8: 14@ = allocate_memory_size 70
0AD3: 14@ = format "{FFCD00}Cleo script made by DubStep_"
0AD3: 3@ = format "{EAEAEA}Áîò áûë âêëþ÷åí â: %d:%d:%d%c{EAEAEA}Ñåé÷àñ âðåìåíè: %d:%d:%d%c{EAEAEA}Áîò ïðîðàáîòàë: %d:%d:%d" 22@ 23@ 24@ 10 1@ 2@ 5@ 10 18@ 17@ 19@
0B3B: samp show_dialog id 197 caption 14@ text 3@ button_1 "Çàêðûòü" button_2 "" style 0
0AC9: free_allocated_memory 14@
0AC9: free_allocated_memory 3@
:nonameawr_2339
0B43: samp cmd_ret
:nonameawr_2341
0AA2: 15@ = load_library "kernel32.dll" // IF and SET
0AA4: 16@ = get_proc_address "GetLocalTime" library 15@ // IF and SET
0AC8: 17@ = allocate_memory_size 32
0AA5: call 16@ num_params 1 pop 0 17@
0A8D: 18@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 19@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 20@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 21@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 22@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 23@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 24@ = read_memory 17@ size 2 virtual_protect 0
000A: 17@ += 2
0A8D: 25@ = read_memory 17@ size 2 virtual_protect 0
000E: 17@ -= 30
0AB2: ret 8 18@ 19@ 20@ 21@ 22@ 23@ 24@ 25@
:nonameawr_2583
0B2B: samp 3@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B24: samp 3@ = get_player_struct_ptr 3@
000A: 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 212 type 0 size 1
0B40: raknet bit_stream 5@ write 4@ type 5 size 68
0B8B: raknet send bit_stream 5@
0B3E: raknet delete_bit_stream 5@
0AC9: free_allocated_memory 4@
0AB2: ret 0
:nonameawr_2708
0001: wait 0 ms
00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
0007: 3@ = 2139.23
0007: 4@ = -2289.72
0509: 11@ = distance_between_XY 3@ 4@ and_XY 0@ 1@
00D6: if
8031: not 11@ >= 50.0
004D: jump_if_false @nonameawr_2860
0007: 12@ = 20.3
00A1: put_actor $PLAYER_ACTOR at 3@ 4@ 12@
0006: 28@ = 0
04D7: set_actor $PLAYER_ACTOR locked 0
00D6: if
056E: car 30@ defined
004D: jump_if_false @nonameawr_390
03C0: 30@ = actor $PLAYER_ACTOR car
0519: set_car 30@ locked 0
0002: jump @nonameawr_390
:nonameawr_2860
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0604: get_Z_angle_for_point 3@ 4@ store_to 6@
0173: set_actor $PLAYER_ACTOR Z_angle_to 6@
04D7: set_actor $PLAYER_ACTOR locked 1
00D6: if
00DF: actor $PLAYER_ACTOR driving
004D: jump_if_false @nonameawr_2941
03C0: 30@ = actor $PLAYER_ACTOR car
0175: set_car 30@ Z_angle_to 6@
0519: set_car 30@ locked 1
:nonameawr_2941
04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 50.1 0.0
00A1: put_actor $PLAYER_ACTOR at 8@ 9@ -80.1
0001: wait 700 ms
00D6: if
0ADC: test_cheat "NO"
004D: jump_if_false @nonameawr_2708
0002: jump @nonameawr_3015
:nonameawr_3015
0001: wait 0 ms
0006: 28@ = 0
00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
02CE: 2@ = ground_z_at 0@ 1@ 999.0
00A1: put_actor $PLAYER_ACTOR at 0@ 1@ 2@
04D7: set_actor $PLAYER_ACTOR locked 0
00D6: if
056E: car 30@ defined
004D: jump_if_false @nonameawr_390
03C0: 30@ = actor $PLAYER_ACTOR car
0519: set_car 30@ locked 0
0002: jump @nonameawr_390