Исходник gProject

[gcode]

Тем кому не хватает сообщений, но вам нужен исходник - пишите в лс, но дам далеко не каждому.
Прошу не распространять код. Также попрошу не делать "вырезки" клео скриптов.
Код предоставлен для того, что появилось больше именно проектов на клео. Спасибо.

[hide=450]Даты файлов неверные, хуй на них забейте.

gp.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 15.03.14     "
0662: NOP "gp .:':. Main .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
    SWKEYST = 29
    KEYREST = 30
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF7: get_samp_base_to 30@
30@ += 0x2AE035
0A8C: write_memory 30@ size 2 value 0x0000 virtual_protect 1
0AF7: get_samp_base_to 30@
30@ += 0x5AB2C
0A8C: write_memory 30@ size 4 value 0x90909090 virtual_protect 1
30@ += 4
0A8C: write_memory 30@ size 1 value 0x90 virtual_protect 1
30@ += 9
0A8C: write_memory 30@ size 4 value 0x90909090 virtual_protect 1
30@ += 4
0A8C: write_memory 30@ size 1 value 0x90 virtual_protect 1
0AC8: 31@ = allocate_memory_size 3200
0AF1: write_int 31@ to_ini_file "cleo\gp\gp.sys" section "offset" key "admarr"
0AC8: 31@ = allocate_memory_size 256
0C11: memset destination 31@ value 0 size 256
0AF1: write_int 31@ to_ini_file "cleo\gp\gp.sys" section "offset" key "array"
if
    8AAB: not file_exists "cleo\gp\gp.ini"
then
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Autorun" key "wallhack"
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Autorun" key "esp"
    0AF1: write_int 1 to_ini_file "cleo\gp\gp.ini" section "Autorun" key "asat"
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Autorun" key "godmode"
    0AF1: write_int 113 to_ini_file "cleo\gp\gp.ini" section "Keys" key "mousekey"
    0AF1: write_int 114 to_ini_file "cleo\gp\gp.ini" section "Keys" key "whkey" 
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Keys" key "espkey" 
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Keys" key "asatkey"  
    0AF1: write_int 106 to_ini_file "cleo\gp\gp.ini" section "Keys" key "gmkey"  
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Keys" key "colkey"    
    0AF1: write_int 66 to_ini_file "cleo\gp\gp.ini" section "Keys" key "onfootshkey" 
    0AF1: write_int 18 to_ini_file "cleo\gp\gp.ini" section "Keys" key "incarshkey"    
    0AF3: write_float 58.0 to_ini_file "cleo\gp\gp.ini" section "SpeedHack" key "carmaxspeed"
    0AF3: write_float 1.3 to_ini_file "cleo\gp\gp.ini" section "SpeedHack" key "carspeedmult"
    0AF1: write_int 4 to_ini_file "cleo\gp\gp.ini" section "Keys" key "clickwarpstart"  
    0AF1: write_int 1 to_ini_file "cleo\gp\gp.ini" section "Keys" key "clickwarpgoto" 
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Keys" key "flykey"
    0AF3: write_float 6.0 to_ini_file "cleo\gp\gp.ini" section "Fly" key "maxspeed"    
end
0B6D: render 30@ = create_font "Tahoma" height 10 flags 0x5
0C0F: array 31@ element FONT = 30@
0B6D: render 30@ = create_font "Tahoma" height 8 flags 0x5
0C0F: array 31@ element FONT2 = 30@
0B5A: get_screen_resolution 30@ 29@
0C0F: array 31@ element RESX = 30@
0C0F: array 31@ element RESY = 29@
0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.ini" section "autorun" key "wallhack"
0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.ini" section "autorun" key "esp"
0AF0: 28@ = get_int_from_ini_file "cleo\gp\gp.ini" section "autorun" key "asat"
0AF0: 27@ = get_int_from_ini_file "cleo\gp\gp.ini" section "autorun" key "godmode"
0AF0: 26@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "mousekey"
0C0F: array 31@ element SWWH = 30@
0C0F: array 31@ element SWESP = 29@
0C0F: array 31@ element SWASAT = 28@
0C0F: array 31@ element SWGM = 27@
0C0F: array 31@ element SHSPEED = 105.0
0A92: create_custom_thread "gp\s\gui.s"  
0A92: create_custom_thread "gp\s\wh.s"
0A92: create_custom_thread "gp\s\esp.s"
0A92: create_custom_thread "gp\s\asat.s"  
0A92: create_custom_thread "gp\s\gm.s" 
0A92: create_custom_thread "gp\s\nop.s" 
0A92: create_custom_thread "gp\s\colp.s" 
0A92: create_custom_thread "gp\s\colv.s" 
0A92: create_custom_thread "gp\s\cmd.s"
0A92: create_custom_thread "gp\s\botter.s"
0A92: create_custom_thread "gp\s\dlock.s"
0A92: create_custom_thread "gp\s\keys.s"
0A92: create_custom_thread "gp\s\sh.s"
0A92: create_custom_thread "gp\s\rec.s"
0A92: create_custom_thread "gp\s\mga_arr.s"
0A92: create_custom_thread "gp\s\aafk.s"
0A92: create_custom_thread "gp\s\fly.s"
0A92: create_custom_thread "gp\s\frz.s"
0A92: create_custom_thread "gp\s\kill.s"
0A92: create_custom_thread "gp\s\pick.s"
0B71: render 30@ = load_texture_from_file "cleo\gp\s\gp.bin"
0B5A: get_screen_resolution 29@ 28@
29@ /= 2
28@ /= 2
29@ -= 175
28@ -= 60
27@ = 5
32@ = 0
repeat
    wait 0
    0B73: render draw_texture 30@ pos 29@ 28@ size 350 120 rotation 0 color 0xFFFFFFFF
    if
        0B4C: samp is_dialog_active -1
    then
        Break
    end
until 32@ > 4500
while true
    wait 0
    0B5A: get_screen_resolution 30@ 29@
    0C0F: array 31@ element RESX = 30@
    0C0F: array 31@ element RESY = 29@
    if
        25@ == 1
    then
        0B5D: samp toggle_cursor true
    end    
    if
        0AB0: 26@
    then
        if
            25@ == 0
        then
            25@ = 1
            0C0F: array 31@ element MOUSE = 1
        else
            25@ = 0 
            0B5D: samp toggle_cursor false
            0C0F: array 31@ element MOUSE = 0
        end
        repeat
            wait 0
        until 8AB0: not 26@
    end
    0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Other" key "gui"
    0AF0: 26@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "mousekey"
    0C0F: array 31@ element GUI = 30@
end

aafk.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 12.03.14     "
0662: NOP "gp .:':. Anti-AFK by MogAika .:':. www.gc0de.ru"
// RPCs
const
RPC_CLICKPLAYER = 23
RPC_CLIENTJOIN = 25
RPC_ENTERVEHICLE = 26
RPC_ENTEREDITOBJECT = 27
RPC_SCRIPTCASH = 31
RPC_SERVERCOMMAND = 50
RPC_SPAWN = 52
RPC_DEATH = 53
RPC_NPCJOIN = 54
RPC_DIALOGRESPONSE = 62
RPC_CLICKTEXTDRAW = 83
RPC_SCMEVENT = 96
RPC_WEAPONPICKUPDESTROY = 97
RPC_CHAT = 101
RPC_SRVNETSTATS = 102
RPC_CLIENTCHECK = 103
RPC_DAMAGEVEHICLE = 106
RPC_GIVETAKEDAMAGE = 115
RPC_EDITATTACHEDOBJECT = 116
RPC_EDITOBJECT = 117
RPC_SETINTERIORID = 118
RPC_MAPMARKER = 119
RPC_REQUESTCLASS = 128
RPC_REQUESTSPAWN = 129
RPC_PICKEDUPPICKUP = 131
RPC_MENUSELECT = 132
RPC_VEHICLEDESTROYED = 136
RPC_MENUQUIT = 140
RPC_EXITVEHICLE = 154
RPC_UPDATESCORESPINGSIPS = 155
end

// Packets
const
PACKET_PLAYER_SYNC = 212
PACKET_MARKERS_SYNC = 213
PACKET_UNOCCUPIED_SYNC = 214
PACKET_TRAILER_SYNC = 215
PACKET_PASSENGER_SYNC = 216
PACKET_SPECTATOR_SYNC = 217
PACKET_AIM_SYNC = 218
PACKET_VEHICLE_SYNC = 219
PACKET_RCON_COMMAND = 220
PACKET_RCON_RESPONCE = 221
PACKET_WEAPONS_UPDATE = 222
PACKET_STATS_UPDATE = 223
PACKET_BULLET_SYNC = 224
end

// Gamestates
const 
GAMESTATE_NONE = 0
GAMESTATE_WAIT_CONNECT = 1
GAMESTATE_AWAIT_JOIN = 2
GAMESTATE_CONNECTED = 3
GAMESTATE_RESTARTING = 4
GAMESTATE_DISCONNECTED = 5
end

// BitStream types
const
BS_TYPE_BYTE = 0
BS_TYPE_BOOL = 1
BS_TYPE_SHORT = 2
BS_TYPE_INT = 3
BS_TYPE_FLOAT = 4
BS_TYPE_ARRAY = 5
BS_TYPE_BITSTREAM = 6
end

// Priorities
const
SYSTEM_PRIORITY = 0
PRIORITY_HIGH = 1
MEDIUM_PRIORITY = 2
LOW_PRIORITY = 3
end

// Reliability types
const
UNRELIABLE = 6
UNRELIABLE_SEQUENCED = 7
RELIABLE = 8
RELIABLE_ORDERED = 9
RELIABLE_SEQUENCED = 10
end

// Sendrates
const
ONFOOTSENDRATE = 1
INCARSENDRATE = 2
AIMSENDRATE = 3
end

// SAMP Limits
const
MAX_PLAYERS = 1004
MAX_VEHICLES = 2000
MAX_PICKUPS = 4096
MAX_OBJECTS = 1000
MAX_GANGZONES = 1024
MAX_3DTEXTS = 2048
MAX_TEXTDRAWS = 2048
MAX_CLIENTCMDS = 144
MAX_MENUS = 128
end
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
end
const
    NOP1 = 0
    NOP2 = 1
    NOP3 = 2
    NOP4 = 3
    NOP5 = 4
    NOP6 = 5
    NOP7 = 6
    NOP8 = 7 
    NOP9 = 8   
    NOP10 = 9 
    NOP11 = 10
    NOP12 = 11
    NOP13 = 12   
    NOP14 = 13 
    NOP15 = 14
    NOP16 = 15
    NOP17 = 16   
    NOP18 = 17 
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available 
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
while true
    wait 0
    0C0E: 30@ = array 31@ element SWAFK
    if
        30@ == true
    then
        32@ = 0
        0AC8: 29@ = allocate_memory_size 100
        0AD3: 29@ = format "{FF6600}Внимание!%c{EAEAEA}При включенном Anti-AFK панель читов не реагирует на нажатия." 10
        0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 29@ button_1 "Закрыть" button_2 "" style 0
        0AC9: 29@
        0A8C: write_memory 0x747FB6 size 1 value 1 virtual_protect 1 
        0A8C: write_memory 0x74805A size 1 value 1 virtual_protect 1 
        0C11: memset destination 0x53EA88 value 0x000000000090 size 6 
        0C11: memset destination 0x74542B value 0x0000000000000090 size 8
        while 30@ == true
            wait 0 
            if and
                0256:   player $PLAYER_CHAR defined
                02A0:   actor $PLAYER_ACTOR stopped
                80DF: not actor $PLAYER_ACTOR driving 
            then
                    00A0: store_actor $PLAYER_ACTOR position_to 29@ 28@ 27@
                    0098: 27@ = random_float_in_ranges 1.0 to 3.0
                    0098: 26@ = random_float_in_ranges -3.0 to -1.0
                    0063: 29@ -= 27@
                    0063: 28@ -= 26@
                    0AF0: 21@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr" 
                    0AF0: 13@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr2" 
                    0C0F: array 21@ element NOP1 = 1
                    0B2E: 27@ = read_samp_memory offset 0x41E0 size 1
                    0C0F: array 13@ element NOP1 = 27@
                    0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1 
                    repeat
                        wait 100
                        0AB1: call_scm_func @SendOnfoot 3 29@ 28@ 8
                        wait 100
                        0AB1: call_scm_func @SendOnfoot 3 29@ 28@ 1024
                        0C0E: 30@ = array 31@ element SWAFK
                        if or
                            30@ == 0
                            82A0: not actor $PLAYER_ACTOR stopped
                            00DF: actor $PLAYER_ACTOR driving 
                        then
                            Break
                        end  
                    until 32@ > 300000
                    0C0F: array 21@ element NOP1 = 0
                    0C0E: 27@ = array 13@ element NOP1
                    0B2D: write_samp_memory offset 0x41E0 value 27@ size 1 
                    32@ = 0    
            end 
            if and
                0256:   player $PLAYER_CHAR defined
                00DF: actor $PLAYER_ACTOR driving 
            then
                    repeat
                        wait 0 
                        0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 25@ ped_to 24@
                        if
                            056E:   car 25@ defined
                        then
                            046C: 24@ = car 25@ driver
                        else
                            24@ = 0
                        end
                    until 07D6: 24@ == $PLAYER_ACTOR
                    06A2: get_car 25@ velocity_in_direction_XYZ 24@ 23@ 22@
                    if and
                        24@ == 0.0
                        23@ == 0.0
                        22@ == 0.0
                    then
                        00A0: store_actor $PLAYER_ACTOR position_to 29@ 28@ 27@
                        0098: 27@ = random_float_in_ranges 1.0 to 3.0
                        0098: 26@ = random_float_in_ranges -3.0 to -1.0
                        0063: 29@ -= 27@
                        0063: 28@ -= 26@
                        0AF0: 21@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr" 
                        0AF0: 13@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr2" 
                                0C0F: array 21@ element NOP2 = 1
                                0B2E: 27@ = read_samp_memory offset 0x6140 size 1
                                0C0F: array 13@ element NOP2 = 27@
                                0B2D: write_samp_memory offset 0x6140 value 0xC3 size 1
                        repeat
                            wait 100
                            0C0E: 30@ = array 31@ element SWAFK
                            06A2: get_car 25@ velocity_in_direction_XYZ 24@ 23@ 22@
                            if or
                                30@ == 0
                                80DF: not actor $PLAYER_ACTOR driving 
                                not 24@ == 0.0
                                not 23@ == 0.0
                                not 22@ == 0.0
                            then
                                Break
                            end  
                            0AB1: call_scm_func @SendInCar 2 29@ 28@
                        until 32@ > 300000
                                0C0F: array 21@ element NOP2 = 0
                                0C0E: 27@ = array 13@ element NOP2
                                0B2D: write_samp_memory offset 0x6140 value 27@ size 1 
                        32@ = 0  
                    end 
            end 
            0C0E: 30@ = array 31@ element SWAFK
            if
                30@ == 0
            then
                32@ = 0
                0AC8: 24@ = allocate_memory_size 100
                0AC8: 23@ = allocate_memory_size 100
                0AC8: 22@ = allocate_memory_size 200
                0AD3: 24@ = format "{FF6600}Внимание!%c{EAEAEA}Если вы действительно хотите выключить Anti-AFK, нажмите" 10
                0AD3: 23@ = format " {FF6600}Y{EAEAEA}.%cОкно закроется автоматически, через 5 секунд." 10
                0AD3: 22@ = format "%s%s" 24@ 23@
                0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 22@ button_1 "Не хочу" button_2 "" style 0
                repeat
                    wait 0
                    29@ = 0
                    if
                        0AB0: 89
                    then
                        29@ = 1
                        Break
                    end
                    if
                        8B4C: not samp is_dialog_active 18
                    then
                        29@ = 2
                        Break
                    end
                until 32@ > 1000   
                if
                    29@ == 0
                then
                0AD3: 24@ = format "{FF6600}Внимание!%c{EAEAEA}Если вы действительно хотите выключить Anti-AFK, нажмите" 10
                0AD3: 23@ = format " {FF6600}Y{EAEAEA}.%cОкно закроется автоматически, через 4 секунды." 10
                0AD3: 22@ = format "%s%s" 24@ 23@
                0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 22@ button_1 "Не хочу" button_2 "" style 0
                    repeat
                        wait 0
                        29@ = 0
                        if
                            0AB0: 89
                        then
                            29@ = 1
                            Break
                        end
                        if
                            8B4C: not samp is_dialog_active 18
                        then
                            29@ = 2
                            Break
                        end
                    until 32@ > 2000
                end
                if
                    29@ == 0
                then
                0AD3: 24@ = format "{FF6600}Внимание!%c{EAEAEA}Если вы действительно хотите выключить Anti-AFK, нажмите" 10
                0AD3: 23@ = format " {FF6600}Y{EAEAEA}.%cОкно закроется автоматически, через 3 секунды." 10
                0AD3: 22@ = format "%s%s" 24@ 23@
                0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 22@ button_1 "Не хочу" button_2 "" style 0
                    repeat
                        wait 0
                        29@ = 0
                        if
                            0AB0: 89
                        then
                            29@ = 1
                            Break
                        end
                        if
                            8B4C: not samp is_dialog_active 18
                        then
                            29@ = 2
                            Break
                        end
                    until 32@ > 3000
                end
                if
                    29@ == 0
                then
                0AD3: 24@ = format "{FF6600}Внимание!%c{EAEAEA}Если вы действительно хотите выключить Anti-AFK, нажмите" 10
                0AD3: 23@ = format " {FF6600}Y{EAEAEA}.%cОкно закроется автоматически, через 2 секунды." 10
                0AD3: 22@ = format "%s%s" 24@ 23@
                0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 22@ button_1 "Не хочу" button_2 "" style 0
                    repeat
                        wait 0
                        29@ = 0
                        if
                            0AB0: 89
                        then
                            29@ = 1
                            Break
                        end
                        if
                            8B4C: not samp is_dialog_active 18
                        then
                            29@ = 2
                            Break
                        end
                    until 32@ > 4000
                end
                if
                    29@ == 0
                then
                0AD3: 24@ = format "{FF6600}Внимание!%c{EAEAEA}Если вы действительно хотите выключить Anti-AFK, нажмите" 10
                0AD3: 23@ = format " {FF6600}Y{EAEAEA}.%cОкно закроется автоматически, через 1 секунду." 10
                0AD3: 22@ = format "%s%s" 24@ 23@
                0B3B: samp show_dialog id 18 caption "{FF6600}gProject" text 22@ button_1 "Не хочу" button_2 "" style 0
                    repeat
                        wait 0
                        29@ = 0
                        if
                            0AB0: 89
                        then
                            29@ = 1
                            Break
                        end
                        if
                            8B4C: not samp is_dialog_active 18
                        then
                            29@ = 2
                            Break
                        end
                    until 32@ > 5000
                end
                32@ = 0
                if
                    0B4C: samp is_dialog_active 18
                then
                    0B47: samp close_current_dialog_with_button 1
                end
                if or
                    29@ == 0
                    29@ == 2
                then
                    0C0F: array 31@ element SWAFK = 1  
                    30@ = 1      
                end
            end 
            0AC9: 22@
            0AC9: 24@
            0AC9: 23@
        end 
    else
        0A8C: write_memory 0x747FB6 size 1 value 0 virtual_protect 1 
        0A8C: write_memory 0x74805A size 1 value 0 virtual_protect 1 
        0AC6: 29@ = label @hex1 offset 
        0C10: memcpy destination 0x53EA88 source 29@ size 6
        0AC6: 29@ = label @hex2 offset 
        0C10: memcpy destination 0x74542B source 29@ size 8 
    end
end
:SendOnfoot
0B2B: samp 3@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B24: samp 3@ = get_remote_player_ptr 3@ 
3@ += 55 // Прибавляем смещение на структуру, в которой храниться текущая onfoot data.
0AC8: 4@ = allocate_memory_size 68 // Выделяем память, равную размеру пакета.
0C10: memcpy destination 4@ source 3@ size 68 // Копируем информацию onfoot, чтобы потом изменить только позиции.
//0C0D: struct 4@ offset 2 size 2 = 0xFF80
0C0D: struct 4@ offset 4 size 2 = 2@
0C0D: struct 4@ offset 6 size 4 = 0@ 
0C0D: struct 4@ offset 10 size 4 = 1@ 
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 // Вписываем туда переменную, в которой onfoot data, с измененными позициями.
0B42: raknet send bit_stream 5@ priority PRIORITY_HIGH reliability UNRELIABLE_SEQUENCED ordering_channel 0 // Отправляем битстрим в котором содержится пакет.
0B3E: raknet delete_bit_stream 5@ // Удаляем битстрим.
0AC9: free_allocated_memory 4@ // Освобождаем память.
0ab2: 0 // Заканчиваем Call функцию.
:SendInCar
0B2B: samp 3@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B24: samp 3@ = get_remote_player_ptr 3@ 
3@ += 201 // Прибавляем смещение на структуру, в которой храниться текущая onfoot data.
0AC8: 4@ = allocate_memory_size 63 // Выделяем память, равную размеру пакета.
0C10: memcpy destination 4@ source 3@ size 63 // Копируем информацию onfoot, чтобы потом изменить только позиции.
//0C0D: struct 4@ offset 2 size 2 = 0xFF80
//0C0D: struct 4@ offset 6 size 2 = 2@
0C0D: struct 4@ offset 24 size 4 = 0@ 
0C0D: struct 4@ offset 28 size 4 = 1@ 
0B3D: raknet 5@ = new_bit_stream // Создаем битстрим.
0B40: raknet bit_stream 5@ write PACKET_VEHICLE_SYNC type BS_TYPE_BYTE size 1
0B40: raknet bit_stream 5@ write 4@ type BS_TYPE_ARRAY size 63
0B42: raknet send bit_stream 5@ priority PRIORITY_HIGH reliability UNRELIABLE_SEQUENCED ordering_channel 0

0B3E: raknet delete_bit_stream 5@ // Удаляем битстрим.
0AC9: free_allocated_memory 4@ // Освобождаем память.
0ab2: 0 // Заканчиваем Call функцию.

:hex1
hex
 0F 84 7B 01 00 00
end

:hex2
hex
 50 51 FF 15 00 83 85 00
end

asat.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 09.03.14     "
0662: NOP "gp .:':. ASAT .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWTP = 8   
    FONT2 = 9       
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0ab1: call @GetSampBase 0 retr_base_to 20@
20@ += 0x21683A
0DB6: 30@ = create_hook from_addr 20@ to_label @antisat pop_count 0 var_to_set_hook 30
0DB7: plant_hook 30@
 
while true
    wait 0
    0C0E: 21@ = array 31@ element SWASAT
end
 
:antisat
0DB9: get_hook 30@ last_param_pntr_to 29@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num -2 to 28@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 1 to 27@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 2 to 26@
0AB1: call @GetCallParam 2 params_pntr 29@ param_num 3 to 24@
0AB1: call @GetPlayerHealth 0 to 25@
0063: 26@ -= 25@
if or
    26@ > -0.9
    26@ < -2.1
    21@ == false
then
    005B: 26@ += 25@
    0DB8: unplant_hook 30@
    0AA6: call_method 20@ struct 28@ num_params 3 pop 3 params 24@ 26@ 27@
    0DB7: plant_hook 30@
end
0D98: callback_retn
 
:GetSampBase
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 0@
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 2@
0AA3: free_library 0@
0ab2: ret 1 2@
 
:GetCallParam
0012: 1@ *= 4
005A: 0@ += 1@
0A8D: 2@ = read_memory 0@ size 4 virtual_protect 1
0AB2: ret 1 2@
 
:GetPlayerHealth
0A96: 0@ = actor $PLAYER_ACTOR struct
0@ += 0x540
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 0
0AB2: ret 1 0@

botter.play.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: "botterp"
thread "botterp"
if
    8AF7: get_samp_base_to 33@
then
    0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
    SWKEYST = 29
end
while true
    wait 0
    0AF0: 30@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
    if
        30@ == true
    then
        0A9A: 30@ = openfile "cleo\gp\botter.bot" mode "rt"
        0AF0: 30@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
        0A9C: 11@ = file 30@ size
        11@ /= 6
        0AC8: 28@ = allocate_memory_size 11@
        0AC8: 27@ = allocate_memory_size 11@
        0AC8: 26@ = allocate_memory_size 11@
        0AC8: 23@ = allocate_memory_size 11@
        0AC8: 22@ = allocate_memory_size 11@
        0AC8: 12@ = allocate_memory_size 11@
        0AC8: 8@ = allocate_memory_size 132
        29@ = 0
        while 0AD7: read_string_from_file 30@ to 8@ size 128 
            wait 0
            if
                0AD4: 11@ = scan_string 8@ format "%f %f %f %d %d %d" 20@ 19@ 18@ 15@ 14@ 13@
            then
                0AD1: show_formatted_text_highpriority "~G~READ. ~W~%f %f %f %d %d %d" time 500 20@ 19@ 18@ 15@ 14@ 13@
                0C0F: array 28@ element 29@ = 20@
                0C0F: array 27@ element 29@ = 19@
                0C0F: array 26@ element 29@ = 18@
                0C0F: array 23@ element 29@ = 15@
                0C0F: array 22@ element 29@ = 14@
                0C0F: array 12@ element 29@ = 13@
                29@ += 1
            end
        end
        29@ -= 1
        0AC9: free_allocated_memory 8@
        0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Началось воспроизведение бота." 0x8156CC
        0AF1: write_int 2 to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play" 
        30@ = 2
        10@ = 1
        while 30@ == 2
            wait 0
            for 21@ = 0 to 29@
                wait 0
                0C0E: 20@ = array 28@ element 21@
                0C0E: 19@ = array 27@ element 21@
                0C0E: 18@ = array 26@ element 21@
                0C0E: 15@ = array 23@ element 21@
                0C0E: 14@ = array 22@ element 21@
                0C0E: 13@ = array 12@ element 21@
                0AB1: call @bot 6 20@ 19@ 18@ info 15@ stop 14@ info 13@
                0AF0: 30@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
                if
                    not 30@ == 2
                then
                    0AC9: free_allocated_memory 28@
                    0AC9: free_allocated_memory 27@
                    0AC9: free_allocated_memory 26@
                    0AC9: free_allocated_memory 23@
                    0AC9: free_allocated_memory 22@
                    0AC9: free_allocated_memory 12@
                    Break
                end
            end
            10@ += 1
            0AF0: 30@ = get_int_from_ini_file "cleo\gp\botter.ini" section "botter" key "cycle"
            if and
                30@ > 0
                001D: 10@ > 30@
            then
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Воспроизведение завершено." 0x8156CC
                0AF1: write_int 0 to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play" 
                0AB3: var 740 = 0
                0687: clear_actor $PLAYER_ACTOR task  
            end
            0AF0: 30@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
        end
    end
end

:bot
wait 0
0AF0: 30@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0AF2: 8@ = get_float_from_ini_file "cleo\gp\botter.ini" section "botter" key "carspeed"
if
    30@ == 2
then
        0330: set_player $PLAYER_CHAR infinite_run true
        00A0: store_actor $PLAYER_ACTOR position_to 7@ 6@ 2@
        0063: 0@ -= 7@
        0063: 1@ -= 6@
        0604: get_Z_angle_for_point 0@ 1@ store_to 2@
        005B: 0@ += 7@
        005B: 1@ += 6@
        if
            80DF: not actor $PLAYER_ACTOR driving
        then
            2@ *= 0.01745
            0A96: 7@ = actor $PLAYER_ACTOR struct
            7@ += 0x558
            0A8C: write_memory 7@ size 4 value 2@ virtual_protect 0
        else
            0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 9@ closest_ped_to 30@
            046C: 7@ = car 9@ driver
            if
                003C:   $PLAYER_ACTOR == 7@
            then
                //05D1: task_car_drive_to_coord $PLAYER_ACTOR car 9@ to 0@ 1@ 2@ speed 50.0 0 unk 0 0
                //00A7: car 9@ drive_to 0@ 1@ 2@
                02C2: car 9@ drive_to 0@ 1@ 2@
                00AF: set_car 9@ driver_behaviour_to 9
                00AD: set_car 9@ max_speed_to 8@
            end 
        end
        0373: set_camera_directly_behind_player   
        0AF0: 8@ = get_int_from_ini_file "cleo\gp\botter.ini" section "botter" key "run"
        if
            8@ == 1
        then
            if
                3@ == 0
            then
                0C0F: array 31@ element SWKEYST = 2    
            else
                0C0F: array 31@ element SWKEYST = 1
            end
        else
            0C0F: array 31@ element SWKEYST = 2
        end 
        if
            80DF: not actor $PLAYER_ACTOR driving
        then
            if
                00ED: actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.4 0.4 on_foot
            else_jump @bot
        else
            if
                00EE: actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 3.0 3.0 in_car
            else_jump @bot
        end
        if 
            4@ == 0
        then
            wait 500
            0C0F: array 31@ element SWKEYST = 0 
            repeat
                wait 0
            until 0B4C: samp is_dialog_active 3@
            0B47: samp close_current_dialog_with_button 5@
            0AB2: ret 0
        end
        if 
            4@ == 2
        then
            wait 500
            0C0F: array 31@ element SWKEYST = 0 
            33@ = 0
            repeat 
                wait 250
            until 001D: 33@ > 3@
            0AB2: ret 0
        end
else
    0C0F: array 31@ element SWKEYST = 0
    if
        00DF: actor $PLAYER_ACTOR driving
    then
        00AA: store_car 9@ position_to 7@ 6@ 2@
        02C2: car 9@ drive_to 7@ 6@ 2@ 
    end    
end  
0AB2: ret 0

botter.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: "botter"
thread "botter"
repeat
    wait 400
until 0AFA: is_samp_structures_available
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
    SWKEYST = 29
    KEYREST = 30
    BOTDI = 31
end
if
    0AAB: file_exists "cleo\botter.cs"
then
    0B00: delete_file "cleo\botter.cs"
    if
        0AAB: file_exists "cleo\botter.bot"
    then
        0B04: copy_file "cleo\botter.bot" to "cleo\gp\botter.bot"
    end  
end
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Введите {8156CC}/bot{EAEAEA}, чтобы начать." 0x8156CC
28@ = false
0AF1: write_int 28@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
0AF1: write_int 28@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
0AF1: write_int 28@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
0A92: create_custom_thread "gp\s\botter.wrt"
0A92: create_custom_thread "gp\s\botter.play"
0B34: samp register_client_command "bot" to_label @bot
while true
    wait 0
    0AF0: 28@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
    0AF0: 27@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
    0AF0: 26@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
    if
        27@ == true
    then   
        0C0F: array 31@ element SWAFK = 0 
    end  
    0C0E: 22@ = array 31@ element SWKEYST
    if
        22@ == 1
    then 
        if
            80DF: not actor $PLAYER_ACTOR driving
        then
            21@ = 0xB73458
            21@ += 0x20 
            0A8C: write_memory 21@ size 1 value 0 virtual_protect 0  
            21@ = 0xB73458
            21@ += 0x3
            0A8C: write_memory 21@ size 1 value 255 virtual_protect 0 
        else
            21@ = 0xB73458
            21@ += 0x20 
            0A8C: write_memory 21@ size 1 value 255 virtual_protect 0  
        end
    end
    if
        22@ == 2
    then
        if
            80DF: not actor $PLAYER_ACTOR driving
        then
            21@ = 0xB73458
            21@ += 0x20 
            0A8C: write_memory 21@ size 1 value 255 virtual_protect 0  
            21@ = 0xB73458
            21@ += 0x3
            0A8C: write_memory 21@ size 1 value 255 virtual_protect 0 
        else
            21@ = 0xB73458
            21@ += 0x20 
            0A8C: write_memory 21@ size 1 value 255 virtual_protect 0  
        end
    end
        0C0E: 22@ = array 31@ element BOTDI
        if
            22@ == 1
        then
            :jumper282
            wait 0
            0AC8: 24@ = allocate_memory_size 128
            repeat
                wait 0
                0B3B: samp show_dialog id 16 caption "{8156CC}Botter" text "{EAEAEA}Введите название бота:" button_1 "Начать" button_2 "" style 1
                repeat
                    wait 0
                    0B4A: samp 24@ = get_current_dialog_editbox_text
                until 8B4C: not samp is_dialog_active 16
                0A8D: 20@ = read_memory 24@ size 1 virtual_protect 1
            until 20@ > 0
            0AC8: 17@ = allocate_memory_size 128
            0AD3: 17@ = format "cleo\gp\%s.bot" 24@
            if
                0AAB: file_exists 17@
            then
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Файл {8156CC}%s.bot {EAEAEA}уже существует." 0x8156CC 24@ 
                0AC9: free_allocated_memory 17@
                0AC9: free_allocated_memory 24@
                jump @jumper282
            else
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Запись в файл {8156CC}/gp/%s.bot {EAEAEA}начата." 0x8156CC 24@
            end
            0AC9: free_allocated_memory 24@
            0A9A: 26@ = openfile 17@ mode "wt+"
            0AC9: free_allocated_memory 17@
            0AF1: write_int 26@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
            28@ = true
            0AF1: write_int 28@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write" 
            0C0F: array 31@ element BOTDI = 0
        end
        if
            22@ == 2
        then
            :jumper228
            wait 0
            0AC8: 24@ = allocate_memory_size 128
            repeat
                wait 0
                0B3B: samp show_dialog id 16 caption "{8156CC}Botter" text "{EAEAEA}Введите название бота:" button_1 "Начать" button_2 "" style 1
                repeat
                    wait 0
                    0B4A: samp 24@ = get_current_dialog_editbox_text
                until 8B4C: not samp is_dialog_active 16
                0A8D: 20@ = read_memory 24@ size 1 virtual_protect 1
            until 20@ > 0           
            0AC8: 17@ = allocate_memory_size 128
            0AD3: 17@ = format "cleo\gp\%s.bot" 24@
            if
                8AAB: not file_exists 17@
            then
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Файл {8156CC}%s.bot {EAEAEA}не найден." 0x8156CC 24@ 
                0AC9: free_allocated_memory 17@
                0AC9: free_allocated_memory 24@
                jump @jumper228
            else
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Считывание из файла {8156CC}%s.bot {EAEAEA}началось." 0x8156CC 24@ 
            end
            0AC9: free_allocated_memory 24@
            0A9A: 26@ = openfile 17@ mode "rt"
            0AC9: free_allocated_memory 17@
            0AF1: write_int 26@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
            27@ = true 
            0AF1: write_int 27@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
            0A8C: write_memory 0x747FB6 size 1 value 1 virtual_protect 1 
            0A8C: write_memory 0x74805A size 1 value 1 virtual_protect 1 
            0C11: memset destination 0x53EA88 value 0x000000000090 size 6 
            0C11: memset destination 0x74542B value 0x0000000000000090 size 8 
            0C0F: array 31@ element BOTDI = 0
        end
end

:bot
0B35: samp 30@ = get_last_command_params
    if 
        0C18: 29@ = strstr string1 30@ string2 "new" 
    then
        if and
            28@ == false
            27@ == false
        then
            0C0F: array 31@ element BOTDI = 1
        else
            0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Сначала завершите воспроизведение/запись." 0x8156CC
        end
    else
        if 
            0C18: 29@ = strstr string1 30@ string2 "stop" 
        then
            if or
                28@ == true
                27@ == 2
            then 
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Запись/воспроизведение завершены." 0x8156CC    
                0A9B: closefile 26@
                28@ = false
                0AF1: write_int 28@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
                if
                    27@ == true
                then
                    0A8C: write_memory 0x747FB6 size 1 value 0 virtual_protect 1 
                    0A8C: write_memory 0x74805A size 1 value 0 virtual_protect 1 
                    0AC6: 29@ = label @hex1 offset 
                    0C10: memcpy destination 0x53EA88 source 29@ size 6
                    0AC6: 29@ = label @hex2 offset 
                    0C10: memcpy destination 0x74542B source 29@ size 8 
                end
                27@ = false
                0AF1: write_int 27@ to_ini_file "cleo\gp\s\botter.tmp" section "botter" key "play"
            else
                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Сначала начните запись/воспроизведение." 0x8156CC
            end
        else
            if
                0C18: 29@ = strstr string1 30@ string2 "play" 
            then
                if and
                    28@ == false
                    27@ == false
                then
                    0C0F: array 31@ element BOTDI = 2
                else
                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Сначала завершите воспроизведение/запись." 0x8156CC
                end 
            else
                if
                    0C18: 29@ = strstr string1 30@ string2 "set" 
                then
                    if
                        0C18: 29@ = strstr string1 30@ string2 "cycle"
                    then
                        if
                            0AD4: 29@ = scan_string 30@ format "set cycle %d" 23@
                        then
                            0AF1: write_int 23@ to_ini_file "cleo\gp\botter.ini" section "botter" key "cycle"
                            0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Настройки сохранены." 0x8156CC   
                        else 
                            0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Неправильное значение." 0x8156CC    
                        end
                    else
                            if
                                0C18: 29@ = strstr string1 30@ string2 "run"
                            then
                                if
                                    0AD4: 29@ = scan_string 30@ format "set run %d" 23@
                                then
                                    if or
                                        23@ == 1
                                        23@ == 0
                                    then
                                        0AF1: write_int 23@ to_ini_file "cleo\gp\botter.ini" section "botter" key "run"
                                        0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Настройки сохранены." 0x8156CC      
                                    else
                                        0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Неправильное значение." 0x8156CC  
                                    end
                                else
                                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Неправильное значение." 0x8156CC
                                end
                            else
                                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot set {8156CC}run {EAEAEA}1/0" 0x8156CC
                                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot set {8156CC}cycle {EAEAEA}[целое напр. 0]" 0x8156CC
                            end 
                    end 
                else
                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot {8156CC}new {EAEAEA}- начать запись бота." 0x8156CC
                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot {8156CC}play {EAEAEA}- начать воспроизведение бота." 0x8156CC
                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot {8156CC}stop {EAEAEA}- остановить запись/воспроизведение." 0x8156CC
                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}/bot {8156CC}set {EAEAEA}- открыть настройки." 0x8156CC
                end
            end
        end
    end
0B43: samp cmd_ret

:hex1
hex
 0F 84 7B 01 00 00
end

:hex2
hex
 50 51 FF 15 00 83 85 00
end

botter.wrt.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: "botterw"
thread "botterw"
if
    8AF7: get_samp_base_to 33@
then
    0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available

while true
    wait 0
    0AF0: 25@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
    while 25@ == true
        wait 0
        0AF0: 24@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "file"
        if
            0256:   player $PLAYER_CHAR defined
        then
            0AD1: show_formatted_text_highpriority "~R~REC." time 500
            00A0: store_actor $PLAYER_ACTOR position_to 30@ 29@ 28@
            if
                00DF:   actor $PLAYER_ACTOR driving
            then
                0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 11@ closest_ped_to 10@
                046C: 10@ = car 11@ driver
                if
                    003C:   $PLAYER_ACTOR == 10@
                then
                    06A2: get_car 11@ velocity_in_direction_XYZ 15@ 14@ 13@
                    0174: 27@ = car 11@ Z_angle
                end
            else
                083D: get_actor $PLAYER_ACTOR velocity_in_direction_XYZ 15@ 14@ 13@
                0172: 27@ = actor $PLAYER_ACTOR Z_angle
            end
            0509: 19@ = distance_between_XY 30@ 29@ and_XY 21@ 20@
            if or
                15@ > 2.5
                15@ < -2.5
                14@ > 2.5
                14@ < -2.5
                13@ > 2.5
                13@ < -2.5
            then
                if
                    80DF: not actor $PLAYER_ACTOR driving
                then
                    if and
                        8045: not 27@ == 26@
                        19@ > 1.25
                    then
                        0063: 27@ -= 26@
                        if or
                            27@ > 10.0
                            27@ < -10.0
                        then
                            005B: 27@ += 26@
                            0087: 21@ = 30@ 
                            0087: 20@ = 29@ 
                            0087: 26@ = 27@
                            if
                                00E1:   player 0 pressed_key 16
                            then
                                0AD9: write_formatted_text "%f %f %f 0 1 0 %c%c" in_file 24@ 30@ 29@ 28@ 0x0D 0x0A
                            else
                                0AD9: write_formatted_text "%f %f %f 1 1 0 %c%c" in_file 24@ 30@ 29@ 28@ 0x0D 0x0A    
                            end 
                        end
                    end
                else
                    if
                        19@ > 5.0
                    then
                            005B: 27@ += 26@
                            0087: 21@ = 30@ 
                            0087: 20@ = 29@ 
                            0087: 26@ = 27@
                            if
                                00E1:   player 0 pressed_key 16
                            then
                                0AD9: write_formatted_text "%f %f %f 0 1 0 %c%c" in_file 24@ 30@ 29@ 28@ 0x0D 0x0A
                            else
                                0AD9: write_formatted_text "%f %f %f 1 1 0 %c%c" in_file 24@ 30@ 29@ 28@ 0x0D 0x0A    
                            end 
                    end
                end
            else
                33@ = 0
                repeat
                    wait 0
                    0B4E: samp 23@ = get_current_dialog_id 
                    if
                        0B4C: samp is_dialog_active 23@
                    then
                        12@ = false
                        0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Обнаружен диалог. {00CC14}Y {EAEAEA}- записать; {E81717}N {EAEAEA}- не записывать." 0x8156CC
                        repeat
                            wait 0
                            if
                                0ab0: 89
                            then
                                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Диалог будет записан. Закройте его на нужную кнопку." 0x8156CC
                                12@ = true
                                repeat
                                    wait 0
                                    0B3C: samp dialog_respond 23@ button 17@ list_item 0 input_text 0
                                until 8B4C: not samp is_dialog_active 23@
                                0AD1: show_formatted_text_highpriority "~R~REC." time 500
                                33@ = 0
                                0AD9: write_formatted_text "%f %f %f %d 0 %d %c%c" in_file 24@ 30@ 29@ 28@ 23@ 17@ 0x0D 0x0A 
                            end
                            if
                                0ab0: 78
                            then
                                12@ = true
                                0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Диалог не будет записан." 0x8156CC
                                repeat
                                    wait 0
                                until 8B4C: not samp is_dialog_active 23@
                            end
                            if
                                8B4C: not samp is_dialog_active 23@
                            then
                                if
                                    12@ == false
                                then
                                    0AF8: samp add_message_to_chat "[Botter]: {EAEAEA}Диалог не будет записан." 0x8156CC
                                end
                                Break
                            end
                        until false
                    end 
                    if
                        00DF:   actor $PLAYER_ACTOR driving
                    then
                        0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 11@ closest_ped_to 10@
                        046C: 10@ = car 11@ driver
                        if
                            003C:   $PLAYER_ACTOR == 10@
                        then
                            06A2: get_car 11@ velocity_in_direction_XYZ 15@ 14@ 13@
                        end
                    else
                        083D: get_actor $PLAYER_ACTOR velocity_in_direction_XYZ 15@ 14@ 13@
                    end
                    0AF0: 25@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
                    if or
                        15@ > 2.5
                        15@ < -2.5
                        14@ > 2.5
                        14@ < -2.5
                        13@ > 2.5
                        13@ < -2.5
                        25@ == false
                    then
                        Break
                    end
                until false
                0AD9: write_formatted_text "%f %f %f %d 2 0 %c%c" in_file 24@ 30@ 29@ 28@ 33@ 0x0D 0x0A 
            end
        end
        0AF0: 25@ = get_int_from_ini_file "cleo\gp\s\botter.tmp" section "botter" key "write"
    end
end

[/hide]

 

[gcode]

[hide=450]cmd.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 10.03.14     "
0662: NOP "gp .:':. CMD .:':. www.gc0de.ru"
// RPCs
const
RPC_CLICKPLAYER = 23
RPC_CLIENTJOIN = 25
RPC_ENTERVEHICLE = 26
RPC_ENTEREDITOBJECT = 27
RPC_SCRIPTCASH = 31
RPC_SERVERCOMMAND = 50
RPC_SPAWN = 52
RPC_DEATH = 53
RPC_NPCJOIN = 54
RPC_DIALOGRESPONSE = 62
RPC_CLICKTEXTDRAW = 83
RPC_SCMEVENT = 96
RPC_WEAPONPICKUPDESTROY = 97
RPC_CHAT = 101
RPC_SRVNETSTATS = 102
RPC_CLIENTCHECK = 103
RPC_DAMAGEVEHICLE = 106
RPC_GIVETAKEDAMAGE = 115
RPC_EDITATTACHEDOBJECT = 116
RPC_EDITOBJECT = 117
RPC_SETINTERIORID = 118
RPC_MAPMARKER = 119
RPC_REQUESTCLASS = 128
RPC_REQUESTSPAWN = 129
RPC_PICKEDUPPICKUP = 131
RPC_MENUSELECT = 132
RPC_VEHICLEDESTROYED = 136
RPC_MENUQUIT = 140
RPC_EXITVEHICLE = 154
RPC_UPDATESCORESPINGSIPS = 155
end

// Packets
const
PACKET_PLAYER_SYNC = 212
PACKET_MARKERS_SYNC = 213
PACKET_UNOCCUPIED_SYNC = 214
PACKET_TRAILER_SYNC = 215
PACKET_PASSENGER_SYNC = 216
PACKET_SPECTATOR_SYNC = 217
PACKET_AIM_SYNC = 218
PACKET_VEHICLE_SYNC = 219
PACKET_RCON_COMMAND = 220
PACKET_RCON_RESPONCE = 221
PACKET_WEAPONS_UPDATE = 222
PACKET_STATS_UPDATE = 223
PACKET_BULLET_SYNC = 224
end

// Gamestates
const 
GAMESTATE_NONE = 0
GAMESTATE_WAIT_CONNECT = 1
GAMESTATE_AWAIT_JOIN = 2
GAMESTATE_CONNECTED = 3
GAMESTATE_RESTARTING = 4
GAMESTATE_DISCONNECTED = 5
end

// BitStream types
const
BS_TYPE_BYTE = 0
BS_TYPE_BOOL = 1
BS_TYPE_SHORT = 2
BS_TYPE_INT = 3
BS_TYPE_FLOAT = 4
BS_TYPE_ARRAY = 5
BS_TYPE_BITSTREAM = 6
end

// Priorities
const
SYSTEM_PRIORITY = 0
PRIORITY_HIGH = 1
MEDIUM_PRIORITY = 2
LOW_PRIORITY = 3
end

// Reliability types
const
UNRELIABLE = 6
UNRELIABLE_SEQUENCED = 7
RELIABLE = 8
RELIABLE_ORDERED = 9
RELIABLE_SEQUENCED = 10
end

// Sendrates
const
ONFOOTSENDRATE = 1
INCARSENDRATE = 2
AIMSENDRATE = 3
end

// SAMP Limits
const
MAX_PLAYERS = 1004
MAX_VEHICLES = 2000
MAX_PICKUPS = 4096
MAX_OBJECTS = 1000
MAX_GANGZONES = 1024
MAX_3DTEXTS = 2048
MAX_TEXTDRAWS = 2048
MAX_CLIENTCMDS = 144
MAX_MENUS = 128
end
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    KEYREST = 30
end
const
    NOP1 = 0
    NOP2 = 1
    NOP3 = 2
    NOP4 = 3
    NOP5 = 4
    NOP6 = 5
    NOP7 = 6
    NOP8 = 7 
    NOP9 = 8   
    NOP10 = 9 
    NOP11 = 10
    NOP12 = 11
    NOP13 = 12   
    NOP14 = 13 
    NOP15 = 14
    NOP16 = 15
    NOP17 = 16   
    NOP18 = 17 
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available 
0A8C: write_memory 0x866B74 size 4 value 94.0 virtual_protect 0
0A8C: write_memory 0x866B78 size 4 value 94.0 virtual_protect 0
0A8C: write_memory 0x866B70 size 4 value 122.0 virtual_protect 0
0B34: samp register_client_command "dmini" to_label @minidgun
0B34: samp register_client_command "change" to_label @change
0B34: samp register_client_command "goto" to_label @goto
0B34: samp register_client_command "killme" to_label @killme
0B34: samp register_client_command "ghelp" to_label @ghelp
0B34: samp register_client_command "spawn" to_label @spawn
0B34: samp register_client_command "spawncar" to_label @spawncarcmd
0B34: samp register_client_command "sensa" to_label @sensa
0B34: samp register_client_command "gpgui" to_label @gpgui
0B34: samp register_client_command "radarx" to_label @srad
0B34: samp register_client_command "setkey" to_label @setkey
0AF8: samp add_message_to_chat "[gproject]: {EAEAEA}Введите {FF6600}/ghelp{EAEAEA}, чтобы посмотреть все команды." 0xFF6600
if
    0AF2: 30@ = get_float_from_ini_file "cleo\gp\gp.ini" section "Other" key "sensitivity"
then
    30@ /= 1000.0
    0A8C: write_memory 0xB6EC1C size 4 value 30@ virtual_protect 1    
else
    0A8D: 30@ = read_memory 0xB6EC1C size 4 virtual_protect 1 
    30@ *= 1000.0
    0AF3: write_float 30@ to_ini_file "cleo\gp\gp.ini" section "Other" key "sensitivity"   
end
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
while true
    wait 0
    0C0E: 30@ = array 31@ element KEYREST
    if
        30@ > 1
    then
        0B3B: samp show_dialog id 55 caption "www.gc0de.ru" text "{EAEAEA}Нажмите ту клавишу, которую хотели бы установить." button_1 "Не реагир." button_2 "" style 0
        repeat
            wait 50 
            if
                8B4C: not samp is_dialog_active 55
            then
                8@ = 0
                Break
            end
            0AB1: call_scm_func @nowkey 0 8@
            0C0E: 30@ = array 31@ element KEYREST
        until 8@ > 1
        if
            30@ == 2
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "mousekey"
        end
        if
            30@ == 3
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "whkey"
        end
        if
            30@ == 4
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "espkey"
        end
        if
            30@ == 5
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "asatkey"
        end
        if
            30@ == 6
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "gmkey"
        end
        if
            30@ == 7
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "colkey"
        end
        if
            30@ == 8
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "onfootshkey"
        end
        if
            30@ == 9
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "flykey"
        end
        if
            30@ == 10
        then
            0AF1: write_int 8@ to_ini_file "cleo\gp\gp.ini" section "Keys" key "freezekey"
        end
        0C0F: array 31@ element KEYREST = 1
        0B47: samp close_current_dialog_with_button 1
    end
end
:minidgun
0B35: samp 30@ = get_last_command_params
    if
        0AD4: 27@ = scan_string 30@ format "%d %d" 29@ 28@
    then
        if or
            29@ == 17 
            29@ == 23 
            29@ == 24 
            29@ == 25 
            29@ == 29 
            29@ == 5 
            29@ == 11 
        then
            gosub @dgun
        else
            if or
                29@ == 30 
                29@ == 31 
                29@ == 33 
                29@ == 34 
                29@ == 46 
                29@ == 10 
                29@ == 12 
            then
                gosub @dgun
            else
                if or
                    29@ == 14 
                    29@ == 15 
                    29@ == 42 
                    29@ == 43
                    29@ == 41
                    29@ == 13  
                then
                    gosub @dgun
                else
                    0AF8: samp add_message_to_chat " * {EAEAEA}Правильное использование команды: {FF6600}/dmini [id] [патроны]{EAEAEA}. Список разрешённых id:" 0xFF6600
                    0AF8: samp add_message_to_chat " * {EAEAEA}5(Бита), 10-13(Фалосы), 14(Цветы), 15(Палка), 41(Балончик), 42(Огнетушитель), 43(Камера), 46(Парашют)," 0xFF6600 
                    0AF8: samp add_message_to_chat " * {EAEAEA}17(Дымовуха), 23(SD Pistol), 24(Deagle), 25(Shotgun), 29(MP5), 30(AK-47), 31(M4), 33(Rifle), 34(Sniper)." 0xFF6600
                end
            end
        end
    else
        0AF8: samp add_message_to_chat " * {EAEAEA}Правильное использование команды: {FF6600}/dmini [id] [патроны]{EAEAEA}. Список разрешённых id:" 0xFF6600
        0AF8: samp add_message_to_chat " * {EAEAEA}5(Бита), 10-13(Фалосы), 14(Цветы), 15(Палка), 41(Балончик), 42(Огнетушитель), 43(Камера), 46(Парашют)," 0xFF6600 
        0AF8: samp add_message_to_chat " * {EAEAEA}17(Дымовуха), 23(SD Pistol), 24(Deagle), 25(Shotgun), 29(MP5), 30(AK-47), 31(M4), 33(Rifle), 34(Sniper)." 0xFF6600
    end
0B43: samp cmd_ret
:srad 
0B35: samp 30@ = get_last_command_params
if
    0AD4: 30@ = scan_string 30@ format "%f" 29@
then
    29@ *= 94.0
    0A8C: write_memory 0x866B74 size 4 value 29@ virtual_protect 0
    0A8C: write_memory 0x866B78 size 4 value 29@ virtual_protect 0
    29@ -= 94.0
    29@ += 122.0
    0A8C: write_memory 0x866B70 size 4 value 29@ virtual_protect 0
end
0B43: samp cmd_ret
:change
            if
                02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 23
            then
                Model.Load(#DESERT_EAGLE)
                wait 500
                041A: 29@ = get_ammo_in_char_weapon $PLAYER_ACTOR weapon 23
                01B2: give_weapon_to_char $PLAYER_ACTOR weapon 24 ammo 29@
                Model.Destroy(#DESERT_EAGLE)
            else
                if
                    02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 24
                then
                    Model.Load(#SILENCED)
                    wait 500
                    041A: 29@ = get_ammo_in_char_weapon $PLAYER_ACTOR weapon 24
                    01B2: give_weapon_to_char $PLAYER_ACTOR weapon 23 ammo 29@
                    Model.Destroy(#SILENCED)
                end
            end
            if
                02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 30
            then
                Model.Load(#M4)
                wait 500
                01B2: give_weapon_to_char $PLAYER_ACTOR weapon 31 ammo 0
                Model.Destroy(#M4) 
            else
                if
                    02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 31
                then
                    Model.Load(#AK47)
                    wait 500
                    01B2: give_weapon_to_char $PLAYER_ACTOR weapon 30 ammo 0
                    Model.Destroy(#AK47)
                end
            end
            if
                02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 33
            then
                Model.Load(#SNIPER)
                wait 500
                041A: 29@ = get_ammo_in_char_weapon $PLAYER_ACTOR weapon 33
                01B2: give_weapon_to_char $PLAYER_ACTOR weapon 34 ammo 29@
                Model.Destroy(#SNIPER)
            else
                if
                    02D8:   is_char_holding_weapon $PLAYER_ACTOR weapon 34
                then
                    Model.Load(#CUNTGUN)
                    wait 500
                    041A: 29@ = get_ammo_in_char_weapon $PLAYER_ACTOR weapon 34
                    01B2: give_weapon_to_char $PLAYER_ACTOR weapon 33 ammo 29@
                    Model.Destroy(#CUNTGUN)
                end
            end    
0B43: samp cmd_ret
:killme
0223: set_actor $PLAYER_ACTOR health_to 0
0B43: samp cmd_ret
:spawn
0AF6: samp spawn_player
0B43: samp cmd_ret
:gpgui
0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Other" key "gui"
if
    30@ == 0
then
    0AF1: write_int 1 to_ini_file "cleo\gp\gp.ini" section "Other" key "GUI"
else
    0AF1: write_int 0 to_ini_file "cleo\gp\gp.ini" section "Other" key "GUI"
end
0B43: samp cmd_ret
:spawncarcmd
0B35: samp 30@ = get_last_command_params
if                                                                                                         
    0AD4: 30@ = scan_string 30@ format "%d" 29@
then
    0AB1: call_scm_func @spawncar 1 29@
end
0B43: samp cmd_ret
:goto
0B35: samp 30@ = get_last_command_params
if
    0AD4: 30@ = scan_string 30@ format "%d" 29@
then
    if
        0B23: samp is_player_connected 29@
    then
        if
            0B20: samp 30@ = actor_handle_from_samp_playerid 29@
        then
            00A0: store_actor 30@ position_to 29@ 28@ 27@
            27@ += 1.0
            00A1: put_actor $PLAYER_ACTOR at 29@ 28@ 27@
        end
    end
end
0B43: samp cmd_ret
:sensa
0B35: samp 30@ = get_last_command_params
if
    0AD4: 30@ = scan_string 30@ format "%f" 29@
then
    0AF3: write_float 29@ to_ini_file "cleo\gp\gp.ini" section "Other" key "sensitivity"
    29@ /= 1000.0
    0A8C: write_memory 0xB6EC1C size 4 value 29@ virtual_protect 1
else
    0A8D: 30@ = read_memory 0xB6EC1C size 4 virtual_protect 1
    30@ *= 1000.0
    0AF8: samp add_message_to_chat " * {EAEAEA}Текущая чувствительность мышки: {FF6600}%.2f" 0xFF6600 30@
end
0B43: samp cmd_ret
:setkey
0B35: samp 30@ = get_last_command_params
if 
    0C18: 29@ = strstr string1 30@ string2 "mouse" 
then
    0C0F: array 31@ element KEYREST = 2
else
    if 
        0C18: 29@ = strstr string1 30@ string2 "wh" 
    then
        0C0F: array 31@ element KEYREST = 3
    else
        if 
            0C18: 29@ = strstr string1 30@ string2 "esp" 
        then
            0C0F: array 31@ element KEYREST = 4
        else
            if 
                0C18: 29@ = strstr string1 30@ string2 "asat" 
            then
                0C0F: array 31@ element KEYREST = 5
            else
                if 
                    0C18: 29@ = strstr string1 30@ string2 "gm" 
                then
                    0C0F: array 31@ element KEYREST = 6
                else
                    if 
                        0C18: 29@ = strstr string1 30@ string2 "col" 
                    then
                        0C0F: array 31@ element KEYREST = 7
                    else
                        if 
                            0C18: 29@ = strstr string1 30@ string2 "sh" 
                        then
                            0C0F: array 31@ element KEYREST = 8
                        else
                                if 
                                    0C18: 29@ = strstr string1 30@ string2 "fly" 
                                then
                                    0C0F: array 31@ element KEYREST = 9
                                else
                                    if 
                                        0C18: 29@ = strstr string1 30@ string2 "freeze" 
                                    then
                                        0C0F: array 31@ element KEYREST = 10
                                    else
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}mouse {EAEAEA}- вкл/выкл указатель." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}wh {EAEAEA}- вкл/выкл WallHack." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}esp {EAEAEA}- вкл/выкл ESP Hack." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}asat {EAEAEA}- вкл/выкл антисытость." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}gm {EAEAEA}- вкл/выкл GodMode." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}col {EAEAEA}- вкл/выкл коллизию." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}sh {EAEAEA}- вкл/выкл SpeedHack." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}fly {EAEAEA}- вкл/выкл FLY." 0xFF6600
                                        0AF8: samp add_message_to_chat " * {EAEAEA}/setkey {FF6600}freeze {EAEAEA}- вкл/выкл заморозку." 0xFF6600
                                    end
                                end
                        end
                    end
                end
            end
        end
    end
end
0B43: samp cmd_ret
:ghelp
0AF8: samp add_message_to_chat " * /bot {EAEAEA}- запись и воспроизведение ботов." 0xFF6600
0AF8: samp add_message_to_chat " * /dlock {EAEAEA}- помечать открытые машины." 0xFF6600
0AF8: samp add_message_to_chat " * /dmini {EAEAEA}- выдать оружие + Disable Weapon Data (DGUN)." 0xFF6600
0AF8: samp add_message_to_chat " * /change {EAEAEA}- поменять оружие в руке на идентичное." 0xFF6600
0AF8: samp add_message_to_chat " * /goto [id] {EAEAEA}- телепортироваться к игроку в зоне видимости." 0xFF6600
0AF8: samp add_message_to_chat " * /gopick {EAEAEA}- работа с пикапами (отобразить и телепортироваться)." 0xFF6600
0AF8: samp add_message_to_chat " * /reconnect [время] {EAEAEA}- переподключиться к серверу через n сек." 0xFF6600  
0AF8: samp add_message_to_chat " * /nick [ник] {EAEAEA}- переподключиться к серверу с новым именем." 0xFF6600
0AF8: samp add_message_to_chat " * /kill [id] {EAEAEA}- убить игрока." 0xFF6600
0AF8: samp add_message_to_chat " * /killme {EAEAEA}- самоубийство." 0xFF6600
0AF8: samp add_message_to_chat " * /stun [id] {EAEAEA}- оглушать игрока (не сможет ходить)." 0xFF6600
0AF8: samp add_message_to_chat " * /spawn {EAEAEA}- отправить пакет о респауне." 0xFF6600
0AF8: samp add_message_to_chat " * /spawncar [id] {EAEAEA}- отправить пакет о респауне машины." 0xFF6600
0AF8: samp add_message_to_chat " * /sensa [чувств.] {EAEAEA}- изменяет чувствительность мыши." 0xFF6600
0AF8: samp add_message_to_chat " * /gpgui {EAEAEA}- изменить позицию GUI (полоски)." 0xFF6600
0AF8: samp add_message_to_chat " * /radarx [увеличение] {EAEAEA}- изменить размер радара; напр.: 0.5 или 2.25." 0xFF6600
0AF8: samp add_message_to_chat " * /setkey {EAEAEA}- настройка клавиатуры." 0xFF6600
0B43: samp cmd_ret

:dgun
                        Model.Load(#SILENCED)
                        Model.Load(#DESERT_EAGLE)
                        Model.Load(#CHROMEGUN)
                        Model.Load(#M4)
                        Model.Load(#AK47)
                        Model.Load(#MP5LNG)
                        Model.Load(#CUNTGUN)
                        Model.Load(#SNIPER)
                        Model.Load(#TEARGAS)
                        Model.Load(#GUN_DILDO1)
                        Model.Load(#GUN_DILDO2)
                        Model.Load(#GUN_VIBE1)
                        Model.Load(#GUN_VIBE2)
                        Model.Load(#BAT)
                        Model.Load(#GUN_PARA)
                        Model.Load(#FLOWERA)
                        Model.Load(#GUN_CANE)
                        Model.Load(#SPRAYCAN)
                        Model.Load(#FIRE_EX)
                        Model.Load(#CAMERA)
                        wait 300 
                        0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr" 
                        0AF0: 13@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr2" 
                        0C0F: array 31@ element NOP3 = 1
                        0B2E: 27@ = read_samp_memory offset 0x5530 size 1
                        0C0F: array 13@ element NOP3 = 27@
                        0B2D: write_samp_memory offset 0x5530 value 0xC3 size 1 
                        01B2: give_actor $PLAYER_ACTOR weapon 29@ ammo 28@
                        Model.Destroy(#SILENCED)
                        Model.Destroy(#DESERT_EAGLE)
                        Model.Destroy(#CHROMEGUN)
                        Model.Destroy(#M4)
                        Model.Destroy(#AK47)
                        Model.Destroy(#MP5LNG)
                        Model.Destroy(#CUNTGUN)
                        Model.Destroy(#SNIPER)
                        Model.Destroy(#TEARGAS)
                        Model.Destroy(#GUN_DILDO1)
                        Model.Destroy(#GUN_DILDO2)
                        Model.Destroy(#GUN_VIBE1)
                        Model.Destroy(#GUN_VIBE2)
                        Model.Destroy(#BAT)
                        Model.Destroy(#GUN_PARA)
                        Model.Destroy(#FLOWERA)
                        Model.Destroy(#GUN_CANE)
                        Model.Destroy(#SPRAYCAN)
                        Model.Destroy(#FIRE_EX)
                        Model.Destroy(#CAMERA)
return

:spawncar
0B3D: raknet 1@ = new_bit_stream
0B40: raknet bit_stream 1@ write 0@ type BS_TYPE_INT size 4
0B41: raknet send_rpc RPC_VEHICLEDESTROYED bit_stream 1@ priority PRIORITY_HIGH reliability RELIABLE_SEQUENCED ordering_channel 0 shift_timestamp false
0B3E: raknet delete_bit_stream 1@ 
0ab2: 0

:nowkey
wait 0
repeat
    wait 0 
until 8ab0: not 13
1@ = 0
for 0@ = 1 to 222
    if
        0ab0: 0@
    then
        0085: 1@ = 0@
    end
end
0ab2: 1 1@

colp.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 09.03.14     "
0662: NOP "gp .:':. Collision .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17  
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array" 

while true
    wait 0
    if
        0256:   player $PLAYER_CHAR defined
    then
        0A8D: 29@ = read_memory 0xB74490 size 4 virtual_protect 0
        000A: 29@ += 0x4
        0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
        for 30@ = 0 to 35584 step 0x100
            0A8D: 28@ = read_memory 29@ size 1 virtual_protect 0
            000A: 29@ += 0x1
            if and
                0029:  28@ >= 0x00
                001B:  0x80 > 28@
            then
                005A: 28@ += 30@
                if
                    803C:  not  $PLAYER_ACTOR == 28@ // (int)
                then
                    0C0E: 27@ = array 31@ element SWCOL
                    if
                        27@ == true
                    then
                        0619: enable_actor 28@ collision_detection 0
                    else
                        if
                            80DF: not actor 28@ driving
                        then
                            0619: enable_actor 28@ collision_detection 1
                        end    
                    end
                end
            end
        end
    end
end

colv.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 10.03.14     "
0662: NOP "gp .:':. Collision .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17  
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array" 

while true
    wait 0
    if
        0256:   player $PLAYER_CHAR defined
    then
        00A0: store_actor $PLAYER_ACTOR position_to 30@ 29@ 28@
        if
            0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 0 pass_wrecked 1
        then
            0C0E: 26@ = array 31@ element SWCOL
            if
                26@ == true
            then
                046C: 25@ = car 27@ driver
                if
                    87D6: not 25@ == $PLAYER_ACTOR
                then 
                    099A: set_car 27@ collision_detection 0
                        if
                            856D: not actor 25@ defined
                        then
                            0519: set_car 27@ locked 1
                        else
                            0519: set_car 27@ locked 0
                        end
                end
                while 0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 1 pass_wrecked 1
                    wait 0
                    046C: 25@ = car 27@ driver
                    if
                        87D6: not 25@ == $PLAYER_ACTOR
                    then 
                        099A: set_car 27@ collision_detection 0
                        if
                            856D: not actor 25@ defined
                        then
                            0519: set_car 27@ locked 1
                        else
                            0519: set_car 27@ locked 0
                        end
                    end
                    if and
                        80DF: not actor $PLAYER_ACTOR driving 
                        00E1: key_pressed 0 15
                    then
                        0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 26@ closest_ped_to 0@
                        00AA: store_car 26@ position_to 25@ 24@ 23@
                        00A0: store_actor $PLAYER_ACTOR position_to 22@ 21@ 20@
                        0509: 23@ = distance_between_XY 22@ 21@ and_XY 25@ 24@
                        046C: 20@ = car 26@ driver
                        if and
                            23@ < 10.0
                            856D: not actor 20@ defined
                        then
                            09B3: get_car_door_lock_status 26@ store_to 23@
                            if
                                23@ == 0
                            then
                                0B2C: samp 23@ = get_vehicle_id_by_car_handle 26@
                                0B30: samp send_enter_vehicle 23@ as_passenger false
                                wait 200
                                072A: put_actor $PLAYER_ACTOR into_car 26@ driverseat
                            end
                        end
                    end
                    if and
                        80DF: not actor $PLAYER_ACTOR driving 
                        0AB0: key_pressed 71
                        8B21: not samp is_chat_opened
                    then
                        0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 26@ closest_ped_to 0@
                        00AA: store_car 26@ position_to 25@ 24@ 23@
                        00A0: store_actor $PLAYER_ACTOR position_to 22@ 21@ 20@
                        0509: 23@ = distance_between_XY 22@ 21@ and_XY 25@ 24@
                        if
                            23@ < 10.0
                        then
                            09B3: get_car_door_lock_status 26@ store_to 23@
                            if
                                23@ == 0
                            then
                                0B2C: samp 23@ = get_vehicle_id_by_car_handle 26@
                                0B30: samp send_enter_vehicle 23@ as_passenger true
                                wait 200
                                072B: put_actor $PLAYER_ACTOR into_car 26@ passengerseat -1
                            end
                        end
                    end    
                end
            else
                099A: set_car 27@ collision_detection 1
                0519: set_car 27@ locked 0
                while 0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 1 pass_wrecked 1
                    wait 0
                    099A: set_car 27@ collision_detection 1
                    0519: set_car 27@ locked 0
                end
                repeat
                    wait 0
                    0C0E: 26@ = array 31@ element SWCOL
                until 26@ == 1
            end
        end
    end
end

dlock.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 09.03.14     "
0662: NOP "gp .:':. DLOCK .:':. www.gc0de.ru"
repeat
    wait 400
until 0AFA: is_samp_structures_available
0B34: samp register_client_command "dlock" to_label @dlock
0AC8: 0@ = allocate_memory_size 4864

while true
    wait 0
            for 29@ = 0 to 24@ 
                wait 0
                0C0E: 28@ = array 0@ element 29@
                if
                    0B46: samp 3d_text 28@ defined 
                then
                    0B45: samp destroy_3d_text 28@
                end
            end
            24@ = 0
        if
            30@ == 1
        then
            wait 0
            Actor.StorePos($PLAYER_ACTOR,28@,27@,26@)
            if
                0AE2: 29@ = random_vehicle_near_point 28@ 27@ 26@ in_radius 150.0 find_next 0 pass_wrecked 0
            then
                    0B2C: samp 25@ = get_vehicle_id_by_car_handle 29@
                    09B3: get_car_door_lock_status 29@ store_to 29@
                    if
                        29@ == 0
                    then
                        0B44: samp 29@ = create_3d_text "Открыта" color 0xCC00CE00 position 0.0 0.0 0.8 view_distance 300.0 show_behind_walls true attached_to_player -1 attached_to_vehicle 25@ 
                        0C0F: array 0@ element 24@ = 29@
                        24@ += 1
                    end
                    
                while 0AE2: 29@ = random_vehicle_near_point 28@ 27@ 26@ in_radius 150.0 find_next 1 pass_wrecked 0
                        wait 0
                        0B2C: samp 25@ = get_vehicle_id_by_car_handle 29@
                        09B3: get_car_door_lock_status 29@ store_to 29@
                        if
                            29@ == 0
                        then
                            0B44: samp 29@ = create_3d_text "Открыта" color 0xCC00CE00 position 0.0 0.0 0.8 view_distance 150.0 show_behind_walls true attached_to_player -1 attached_to_vehicle 25@ 
                            0C0F: array 0@ element 24@ = 29@
                            24@ += 1
                        end
                        if
                            30@ == 0
                        then
                            Break
                        end
                end
            end
            32@ = 0
            repeat
                wait 0
                if
                    30@ == 0
                then
                    Break
                end
            until 32@ > 3333
        end
end

:dlock
    if
        30@ == 0 
    then
        30@ = 1
    else
        30@ = 0
    end
0B43: samp cmd_ret

esp.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 09.03.14     "
0662: NOP "gp .:':. ESP .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWTP = 8   
    FONT2 = 9       
end
const
  WIDTH      = 640.0
  HEIGHT      = 448.0
  HALF_WIDTH  = 320.0
  HALF_HEIGHT = 224.0
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array" 
while true
    wait 0
    0C0E: 30@ = array 31@ element SWESP
    if
        30@ == true
    then
        0A8D: 29@ = read_memory 0xB74490 size 4 virtual_protect 0
        000A: 29@ += 0x4
        0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
        for 27@ = 0 to 35584 step 0x100
            0A8D: 28@ = read_memory 29@ size 1 virtual_protect 0
            000A: 29@ += 0x1
            if and
                0029:  28@ >= 0x00
                001B:  0x80 > 28@
            then                                     
                005A: 28@ += 27@
                if and
                    02CB:  actor 28@ bounding_sphere_visible
                    803C:  not  $PLAYER_ACTOR == 28@ // (int)
                then
                    03F0: enable_text_draw 1
                    04C4: store_coords_to 1@ 2@ 3@ from_actor 28@ with_offset 0.0 0.0 0.0
                    04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
                    050A: 20@ = distance_between_XYZ 1@ 2@ 3@ and_XYZ 7@ 8@ 9@
                    0AB1: call_scm_func @getScreenXYFrom3DCoords 3 coords_XYZ 1@ 2@ 3@ store_to 4@ 5@
                    if
                        20@ < 99.0
                    then
                        20@ *= -1.0
                        20@ += 100.0
                        0087: 21@ = 20@
                        21@ *= 0.5
                        0087: 22@ = 20@   
                        22@ *= 0.2
                        0087: 23@ = 20@ 
                        23@ *= 0.1
                        0087: 24@ = 20@
                        24@ *= 0.25
                    else
                        21@ = 0.5
                        22@ = 0.2
                        23@ = 0.1
                        24@ = 0.25
                    end  
                    if
                        06BD:  no_obstacles_between 7@ 8@ 9@ and 1@ 2@ 3@ solid 1 car 1 actor 0 object 1 particle 0
                    then
                        0087: 1@ = 4@ // (float)
                        005B: 1@ += 23@
                        038E: draw_box_position 1@ 5@ size 0.9 21@ RGBA 55 255 25 204
                        0087: 1@ = 4@ // (float)
                        0063: 1@ -= 23@
                        038E: draw_box_position 1@ 5@ size 0.9 21@ RGBA 55 255 25 204
                        0087: 1@ = 5@ // (float)
                        005B: 1@ += 24@
                        038E: draw_box_position 4@ 1@ size 22@ 0.9 RGBA 55 255 25 204
                        0087: 1@ = 5@ // (float)
                        0063: 1@ -= 24@
                        038E: draw_box_position 4@ 1@ size 22@ 0.9 RGBA 55 255 25 204
                    else
                        0087: 1@ = 4@ // (float)
                        005B: 1@ += 23@
                        038E: draw_box_position 1@ 5@ size 0.9 21@ RGBA 255 55 25 204
                        0087: 1@ = 4@ // (float)
                        0063: 1@ -= 23@
                        038E: draw_box_position 1@ 5@ size 0.9 21@ RGBA 255 55 25 204
                        0087: 1@ = 5@ // (float)
                        005B: 1@ += 24@
                        038E: draw_box_position 4@ 1@ size 22@ 0.9 RGBA 255 55 25 204
                        0087: 1@ = 5@ // (float)
                        0063: 1@ -= 24@
                        038E: draw_box_position 4@ 1@ size 22@ 0.9 RGBA 255 55 25 204
                    end
                end
            end
        end
    end
end

:getScreenXYFrom3DCoords
0AB1: call_scm_func @getLocalVarOffset 1 var 0 store_to 12@
0AB1: call_scm_func @getLocalVarOffset 1 var 3 store_to 13@
0AB1: call_scm_func @getLocalVarOffset 1 var 6 store_to 14@
0AB1: call_scm_func @getLocalVarOffset 1 var 9 store_to 15@
0AA5: call 0x70CE30 num_params 6 pop 6 bNearClip 0 bFarClip 0 pMultY 15@ pMultX 14@ pScreen 13@ pCoords 12@
0AB1: call_scm_func @getFullScreenXY 2 coords_XY 3@ 4@ store_to 3@ 4@
0AB2: ret 2 3@ 4@
 
:get3DCoordsFromScreenXY
0A8D: 3@ = read_memory 0x8D5038 size 4 virtual_protect 0 // field of view
3@ *= 0.5
02F6: 4@ = sine 3@
02F7: 5@ = cosine 3@
0073: 4@ /= 5@
6@ = 1.0
0@ /= HALF_WIDTH // half screen X
0063: 6@ -= 0@
006B: 6@ *= 4@
7@ = 1.0
1@ /= HALF_HEIGHT // half screen Y
0063: 7@ -= 1@
006B: 7@ *= 4@
0A8D: 8@ = read_memory 0xC3EFA4 size 4 virtual_protect 0 // screen aspect ratio
0073: 7@ /= 8@
006B: 6@ *= 2@
006B: 7@ *= 2@
0087: 9@ = 6@
0087: 10@ = 2@
0087: 11@ = 7@
0A8D: 12@ = read_memory 0xB6F03C size 4 virtual_protect 0 // camera matrix
0AB1: call_scm_func @getLocalVarOffset 1 var 9 store_to 13@
0AA5: call 0x59C790 num_params 3 pop 3 pOffsets 13@ pMatrix 12@ pResult 13@ // CPlaceable__getMatrixAbsOffsets
12@ += 0x30
0A8D: 14@ = read_memory 12@ size 4 virtual_protect 0 // camera X position
12@ += 0x4
0A8D: 15@ = read_memory 12@ size 4 virtual_protect 0 // camera Y position
12@ += 0x4
0A8D: 16@ = read_memory 12@ size 4 virtual_protect 0 // camera Z position
005B: 14@ += 9@
005B: 15@ += 10@
005B: 16@ += 11@
0AB2: ret 3 14@ 15@ 16@
 
:getFullScreenXY
2@ = WIDTH // screen X
0A8D: 4@ = read_memory 0xC17044 size 4 virtual_protect 0 // full screen X
0093: 4@ = integer 4@ to_float
0073: 2@ /= 4@
006B: 0@ *= 2@
3@ = HEIGHT // screen Y
0A8D: 5@ = read_memory 0xC17048 size 4 virtual_protect 0 // full screen Y
0093: 5@ = integer 5@ to_float
0073: 3@ /= 5@
006B: 1@ *= 3@
0AB2: ret 2 0@ 1@
 
:getLocalVarOffset
0A9F: 1@ = current_thread_pointer
0@ *= 0x4
0A8E: 2@ = 1@ + 0xDC // mission flag
if
  2@ == 1
then
  0@ += 0xA48960
else
  005A: 0@ += 1@
  0@ += 0x3C
end
0AB2: ret 1 0@

fly.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 16.03.14     "
0662: NOP "gp .:':. Fly .:':. www.gc0de.ru"
// RPCs
const
RPC_CLICKPLAYER = 23
RPC_CLIENTJOIN = 25
RPC_ENTERVEHICLE = 26
RPC_ENTEREDITOBJECT = 27
RPC_SCRIPTCASH = 31
RPC_SERVERCOMMAND = 50
RPC_SPAWN = 52
RPC_DEATH = 53
RPC_NPCJOIN = 54
RPC_DIALOGRESPONSE = 62
RPC_CLICKTEXTDRAW = 83
RPC_SCMEVENT = 96
RPC_WEAPONPICKUPDESTROY = 97
RPC_CHAT = 101
RPC_SRVNETSTATS = 102
RPC_CLIENTCHECK = 103
RPC_DAMAGEVEHICLE = 106
RPC_GIVETAKEDAMAGE = 115
RPC_EDITATTACHEDOBJECT = 116
RPC_EDITOBJECT = 117
RPC_SETINTERIORID = 118
RPC_MAPMARKER = 119
RPC_REQUESTCLASS = 128
RPC_REQUESTSPAWN = 129
RPC_PICKEDUPPICKUP = 131
RPC_MENUSELECT = 132
RPC_VEHICLEDESTROYED = 136
RPC_MENUQUIT = 140
RPC_EXITVEHICLE = 154
RPC_UPDATESCORESPINGSIPS = 155
end

// Packets
const
PACKET_PLAYER_SYNC = 212
PACKET_MARKERS_SYNC = 213
PACKET_UNOCCUPIED_SYNC = 214
PACKET_TRAILER_SYNC = 215
PACKET_PASSENGER_SYNC = 216
PACKET_SPECTATOR_SYNC = 217
PACKET_AIM_SYNC = 218
PACKET_VEHICLE_SYNC = 219
PACKET_RCON_COMMAND = 220
PACKET_RCON_RESPONCE = 221
PACKET_WEAPONS_UPDATE = 222
PACKET_STATS_UPDATE = 223
PACKET_BULLET_SYNC = 224
end

// Gamestates
const 
GAMESTATE_NONE = 0
GAMESTATE_WAIT_CONNECT = 1
GAMESTATE_AWAIT_JOIN = 2
GAMESTATE_CONNECTED = 3
GAMESTATE_RESTARTING = 4
GAMESTATE_DISCONNECTED = 5
end

// BitStream types
const
BS_TYPE_BYTE = 0
BS_TYPE_BOOL = 1
BS_TYPE_SHORT = 2
BS_TYPE_INT = 3
BS_TYPE_FLOAT = 4
BS_TYPE_ARRAY = 5
BS_TYPE_BITSTREAM = 6
end

// Priorities
const
SYSTEM_PRIORITY = 0
PRIORITY_HIGH = 1
MEDIUM_PRIORITY = 2
LOW_PRIORITY = 3
end

// Reliability types
const
UNRELIABLE = 6
UNRELIABLE_SEQUENCED = 7
RELIABLE = 8
RELIABLE_ORDERED = 9
RELIABLE_SEQUENCED = 10
end

// Sendrates
const
ONFOOTSENDRATE = 1
INCARSENDRATE = 2
AIMSENDRATE = 3
end

// SAMP Limits
const
MAX_PLAYERS = 1004
MAX_VEHICLES = 2000
MAX_PICKUPS = 4096
MAX_OBJECTS = 1000
MAX_GANGZONES = 1024
MAX_3DTEXTS = 2048
MAX_TEXTDRAWS = 2048
MAX_CLIENTCMDS = 144
MAX_MENUS = 128
end
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
end
const
    NOP1 = 0
    NOP2 = 1
    NOP3 = 2
    NOP4 = 3
    NOP5 = 4
    NOP6 = 5
    NOP7 = 6
    NOP8 = 7 
    NOP9 = 8   
    NOP10 = 9 
    NOP11 = 10
    NOP12 = 11
    NOP13 = 12   
    NOP14 = 13 
    NOP15 = 14
    NOP16 = 15
    NOP17 = 16   
    NOP18 = 17 
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available 
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0AF2: 23@ = get_float_from_ini_file "cleo\gp\gp.ini" section "Fly" key "maxspeed"
0087: 22@ = 23@
22@ *= -1.0
while true
    wait 0
    0C0E: 30@ = array 31@ element SWFLY
    if
        30@ == true
    then
        if
            80DF: not actor $PLAYER_ACTOR driving
        then
            0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr" 
            0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "noparr2" 
            0C0F: array 30@ element NOP1 = 1
            0B2E: 28@ = read_samp_memory offset 0x41E0 size 1
            0C0F: array 29@ element NOP1 = 28@
            0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1 
            Model.Load(#JETPACK)
            repeat
                wait 0
            until Model.Available(#JETPACK)
            07A7: put_jetpack_on_actor $PLAYER_ACTOR
            repeat
                wait 100
                if
                    00DF: actor $PLAYER_ACTOR driving
                then
                    Break
                end  
                00A0: store_actor $PLAYER_ACTOR position_to 28@ 27@ 26@
                0AB1: call_scm_func @SendOnfoot 3 28@ 27@ 26@
                083D: get_actor $PLAYER_ACTOR velocity_in_direction_XYZ 28@ 27@ 26@
                if
                    0025:   28@ > 23@
                then
                    0087: 28@ = 23@
                end
                if
                    0025:   22@ > 28@
                then
                    0087: 28@ = 22@
                end
                if
                    0025:   27@ > 23@
                then
                    0087: 27@ = 23@
                end
                if
                    0025:   22@ > 27@
                then
                    0087: 27@ = 22@
                end
                if
                    0025:   26@ > 23@
                then
                    0087: 26@ = 23@
                end
                if
                    0025:   22@ > 26@
                then
                    0087: 26@ = 22@
                end
                083C: set_actor $PLAYER_ACTOR velocity_in_direction_XYZ 28@ 27@ 26@  
                0C0E: 30@ = array 31@ element SWFLY     
            until 30@ == false 
            0C0F: array 30@ element NOP1 = 0
            0C0E: 28@ = array 29@ element NOP1
            0B2D: write_samp_memory offset 0x41E0 value 28@ size 1  
        else
                0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 30@ ped_to 29@
                if
                    056E:   car 30@ defined
                then
                    046C: 29@ = car 30@ driver
                    if
                        07D6: 29@ == $PLAYER_ACTOR
                    then
                        repeat
                            wait 0
                            099A: set_car 30@ collision_detection 0
                            0C0E: 29@ = array 31@ element SWFLY 
                            if
                                29@ == 0
                            then
                                Break
                            end    
                        until 80DF: not actor $PLAYER_ACTOR driving
                        099A: set_car 30@ collision_detection 1
                    end
                end
        end  
    else
        if
            00DF: actor $PLAYER_ACTOR driving
        then
                0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 30@ ped_to 29@
                if
                    056E:   car 30@ defined
                then
                    046C: 29@ = car 30@ driver
                    if
                        07D6: 29@ == $PLAYER_ACTOR
                    then
                        099A: set_car 30@ collision_detection 1
                        repeat
                            wait 0
                            0C0E: 30@ = array 31@ element SWFLY 
                            if
                                30@ == 1
                            then
                                Break
                            end  
                        until 00DF: actor $PLAYER_ACTOR driving  
                    end
                end
        end
    end
end

:SendOnfoot
0B2B: samp 3@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B24: samp 3@ = get_remote_player_ptr 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@ // Изменяем позиции игрока по оси X. Размер 4, так как тип float имеет 4 байта.
0C0D: struct 4@ offset 10 size 4 = 1@ // Offset будет 10, так как 6 + 4 = 10
0C0D: struct 4@ offset 14 size 4 = 2@ // 10 + 4 = 14 
0C0D: struct 4@ offset 37 size 1 = 0
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 
0B42: raknet send bit_stream 5@ priority PRIORITY_HIGH reliability UNRELIABLE_SEQUENCED ordering_channel 0 
0B3E: raknet delete_bit_stream 5@ 
0AC9: free_allocated_memory 4@ 
0ab2: 0

frz.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 10.03.14     "
0662: NOP "gp .:':. SpeedHack .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
while true
    wait 0
    0C0E: 28@ = array 31@ element SWFREE
    if
        28@ == true
    then
        0B2D: write_samp_memory offset 0x9780 value 0xC20400 size 3
        0B2D: write_samp_memory offset 0x94B0 value 0xC20400 size 3
        0B2D: write_samp_memory offset 0x8A70 value 0xC20400 size 3  
        0B2D: write_samp_memory offset 0x8880 value 0xC20400 size 3
        00A0: store_actor $PLAYER_ACTOR position_to 30@ 29@ 28@
        if
            0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 0 pass_wrecked 1
        then
            if
                80DB: not actor $PLAYER_ACTOR in_car 27@
            then 
                0519: set_car 27@ locked 1
            else
                0519: set_car 27@ locked 0
            end
            while 0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 1 pass_wrecked 1
                wait 0
                if
                    80DB: not actor $PLAYER_ACTOR in_car 27@
                then 
                    0519: set_car 27@ locked 1
                else
                    0519: set_car 27@ locked 0
                end
            end
        end
        0A8D: 29@ = read_memory 0xB74490 size 4 virtual_protect 0
        000A: 29@ += 0x4
        0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
        for 30@ = 0 to 35584 step 0x100
            0A8D: 28@ = read_memory 29@ size 1 virtual_protect 0
            000A: 29@ += 0x1
            if and
                0029:  28@ >= 0x00
                001B:  0x80 > 28@
            then
                005A: 28@ += 30@
                if
                    803C:  not  $PLAYER_ACTOR == 28@ // (int)
                then
                    if
                        80DF: not actor 28@ driving
                    then
                        04D7: set_actor 28@ locked 1
                    end    
                end
            end
        end 
    else
        0B2D: write_samp_memory offset 0x9780 value 0x6AFF68 size 3
        0B2D: write_samp_memory offset 0x94B0 value 0x6AFF68 size 3
        0B2D: write_samp_memory offset 0x8A70 value 0x6AFF68 size 3
        0B2D: write_samp_memory offset 0x8880 value 0x6AFF68 size 3
        00A0: store_actor $PLAYER_ACTOR position_to 30@ 29@ 28@
        if
            0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 0 pass_wrecked 1
        then
            0519: set_car 27@ locked 0
            while 0AE2: 27@ = random_vehicle_near_point 30@ 29@ 28@ in_radius 500.0 find_next 1 pass_wrecked 1
                wait 0
                0519: set_car 27@ locked 0
            end
        end
        0A8D: 29@ = read_memory 0xB74490 size 4 virtual_protect 0
        000A: 29@ += 0x4
        0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
        for 30@ = 0 to 35584 step 0x100
            0A8D: 28@ = read_memory 29@ size 1 virtual_protect 0
            000A: 29@ += 0x1
            if and
                0029:  28@ >= 0x00
                001B:  0x80 > 28@
            then
                005A: 28@ += 30@
                if
                    803C:  not  $PLAYER_ACTOR == 28@ // (int)
                then
                    if
                        80DF: not actor 28@ driving
                    then
                        04D7: set_actor 28@ locked 0
                    end    
                end
            end
        end
        repeat 
            wait 0
            0C0E: 28@ = array 31@ element SWFREE
        until 28@ == true
    end    
end

[/hide]

 

[gcode]

[hide=450]gm.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "    CLEO gproject 09.03.14    "
0662: NOP "gp .:':. GM .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7
    SWNOP = 8 
    FONT2 = 9
    MOUSE = 10
    CHBX = 11
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0C0F: array 31@ element GMBP = 1
0C0F: array 31@ element GMFP = 1
0C0F: array 31@ element GMEP = 0
0C0F: array 31@ element GMCP = 1
while true
    wait 0
    0C0E: 30@ = array 31@ element SWGM
    if
        0256:  player $PLAYER_CHAR defined
    then
        if
            30@ == 1
        then
            if
                00DF:  actor $PLAYER_ACTOR driving
            then
                0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 30@ ped_to 29@
                if
                    056E:  car 30@ defined
                then
                    046C: 29@ = car 30@ driver
                    if
                        07D6: 29@ == $PLAYER_ACTOR
                    then
                        053F: set_car 30@ tires_vulnerability 0
                        03F5: set_car 30@ apply_damage_rules 0
                        0852: set_car 30@ damages_visible 0
                        02AC: set_car 30@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
                        0A8C: write_memory 0x969164 size 1 value 1 virtual_protect 0
                        08C6: set_actor $PLAYER_ACTOR stay_on_bike 1
                    end
                end
            end
            0C0E: 30@ = array 31@ element GMBP
            0C0E: 29@ = array 31@ element GMFP
            0C0E: 28@ = array 31@ element GMEP
            0C0E: 27@ = array 31@ element GMCP
            02AB: set_actor $PLAYER_ACTOR immunities BP 30@ FP 29@ EP 28@ CP 27@ MP 1
            if
                30@ == 1
            then
                0B2D: write_samp_memory offset 0x8880 value 0xC20400 size 3
            else
                0B2D: write_samp_memory offset 0x8880 value 0x6AFF68 size 3
            end
        else
            if
                00DF:  actor $PLAYER_ACTOR driving
            then
                0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 30@ ped_to 29@
                if
                    056E:  car 30@ defined
                then
                    046C: 29@ = car 30@ driver
                    if
                        07D6: 29@ == $PLAYER_ACTOR
                    then
                        053F: set_car 30@ tires_vulnerability 1
                        08C6: set_actor $PLAYER_ACTOR stay_on_bike 0
                        03F5: set_car 30@ apply_damage_rules 1
                        0852: set_car 30@ damages_visible 1
                        02AC: set_car 30@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
                        0A8C: write_memory 9867620 size 1 value 0 virtual_protect 0
                        08C6: set_actor $PLAYER_ACTOR stay_on_bike 0
                    end
                end
            end
            0B2D: write_samp_memory offset 0x8880 value 0x6AFF68 size 3
            02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 0 MP 0
            repeat
                wait 0
                0C0E: 30@ = array 31@ element SWGM
            until 30@ == 1 
        end
    end
end

gui.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "    CLEO gproject 15.03.14    "
0662: NOP "gp .:':. GUI .:':. www.gc0de.ru"
const
    FCR_NONE = 0x0
    FCR_BOLD = 0x1
    FCR_ITALICS = 0x2
    FCR_BORDER = 0x4
    FCR_SHADOW = 0x8
    FCR_UNDERLINE = 0x10
    FCR_STRIKEOUT = 0x20
end
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7
    SWNOP = 8 
    FONT2 = 9
    MOUSE = 10
    CHBX = 11
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16 
    SWCOL = 17
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0C0E: 29@ = array 31@ element RESX
0C0E: 28@ = array 31@ element RESY
29@ -= 20
28@ -= 37
0B80: dialog 30@ = create "checkbox"
0C0F: array 31@ element CHBX = 30@
0B83: dialog 30@ add_checkbox id 1 text " " pos_XY 29@ 28@ size 18 18
0B83: dialog 30@ add_checkbox id 2 text " " pos_XY -20 -20 size 1 1
0B9E: dialog 30@ checkbox 1 set_checked true
while true
    wait 0
    0C0E: 30@ = array 31@ element MOUSE
    0C0E: 29@ = array 31@ element CHBX 
    0BA5: dialog 29@ set_focus_on_control 2
    if or
        30@ == 1
        0B92: dialog 29@ checkbox 1 is_checked
    then
        0C0E: 19@ = array 31@ element GUI
        //
        // MAIN BOX + CLICK BOXES + TEXT
        //
        0B86: dialog 29@ set_visible true
        0C0E: 30@ = array 31@ element RESX
        0C0E: 29@ = array 31@ element RESY
        30@ -= 20
        if
            19@ == 1
        then
            29@ = -16
        else
            29@ -= 37
        end
        0C0E: 22@ = array 31@ element CHBX
        0BA8: dialog 22@ set_control 1 pos_XY 30@ 29@
        0C0E: 30@ = array 31@ element RESX
        0C0E: 29@ = array 31@ element RESY
        0C0E: 22@ = array 31@ element FONT
        0C0E: 25@ = array 31@ element FONT2
        if
            8AB0: not 1
        then
            0C0F: array 31@ element LMB = 0   
        end
        29@ -= 22
        if
            19@ == 1
        then
            29@ = 0
        end
        30@ += 1
        0B69: render draw_box_pos -1 29@ size 30@ 22 color 0xBF000000
        0B6A: render draw_box_with_border_pos 0 29@ size 72 21 color 0 border_size 1 border_color 0xFF000000
        //
        // HP AP TEXT
        //
        0AB1: call @GetPlayerHealth 0 to_var 24@
        0092: 24@ = float 24@ to_integer
        0AC8: 23@ = allocate_memory_size 32
        0AD3: 23@ = format "HP: %d%c" 24@ 0x25
        0B6F: render 25@ draw_text 23@ pos 5 29@ color 0xBFCC3300
        29@ += 8
        04DD: 24@ = actor $PLAYER_ACTOR armour
        0AD3: 23@ = format "AP: %d%c" 24@ 0x25
        0B6F: render 25@ draw_text 23@ pos 5 29@ color 0xBFD9D9D9
        0AC9: free_allocated_memory 23@
        28@ = 72
        29@ -= 8
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 50 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWWH
                if
                    27@ == false
                then                               
                    0C0F: array 31@ element SWWH = 1
                else
                    0C0F: array 31@ element SWWH = 0
                end     
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 50 21 color 0 border_size 1 border_color 0xFF000000
        //
        // WALLHACK TEXT
        //
        0AC6: 21@ = label @strwallhack offset
        0C0E: 26@ = array 31@ element SWWH
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 12
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 50
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 60 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWESP
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWESP = 1
                else
                    0C0F: array 31@ element SWESP = 0
                end       
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 60 21 color 0 border_size 1 border_color 0xFF000000
        //
        // ESP TEXT
        //
        0AC6: 21@ = label @stresp offset
        0C0E: 26@ = array 31@ element SWESP
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 16
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 60
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 111 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWASAT
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWASAT = 1
                else
                    0C0F: array 31@ element SWASAT = 0
                end       
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 111 21 color 0 border_size 1 border_color 0xFF000000
        //
        // ASAT TEXT
        //
        0AC6: 21@ = label @strasat offset
        0C0E: 26@ = array 31@ element SWASAT
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 7
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 111
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 50 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWGM
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWGM = 1
                else
                    0C0F: array 31@ element SWGM = 0
                end     
            end
        end
        0C0E: 27@ = array 31@ element RESY
        0C0E: 26@ = array 31@ element FONT2
        0C0E: 21@ = array 31@ element SWGM
        if
            19@ == 1
        then
            27@ = 21
        else
            27@ -= 41
        end
        if
            21@ == 1
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 50 21 0@ 0@
            then           
                0B6A: render draw_box_with_border_pos -1 27@ size 404 21 color 0xBF000000 border_size 1 border_color 0xFF000000
                0B6A: render draw_box_with_border_pos 0 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                0B6A: render draw_box_with_border_pos 101 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                0B6A: render draw_box_with_border_pos 202 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                0B6A: render draw_box_with_border_pos 303 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                27@ += 3
                0AC6: 21@ = label @strbp offset
                0C0E: 24@ = array 31@ element GMBP
                if
                    24@ == true
                then
                    24@ = 0xBF33CC00
                else
                    24@ = 0xBFEAEAEA
                end
                0B6F: render 26@ draw_text 21@ pos 27 27@ color 24@
                0AC6: 21@ = label @strfp offset
                0C0E: 24@ = array 31@ element GMFP
                if
                    24@ == true
                then
                    24@ = 0xBF33CC00
                else
                    24@ = 0xBFEAEAEA
                end
                0B6F: render 26@ draw_text 21@ pos 128 27@ color 24@
                0AC6: 21@ = label @strep offset
                0C0E: 24@ = array 31@ element GMEP
                if
                    24@ == true
                then
                    24@ = 0xBF33CC00
                else
                    24@ = 0xBFEAEAEA
                end
                0B6F: render 26@ draw_text 21@ pos 217 27@ color 24@
                0AC6: 21@ = label @strcp offset
                0C0E: 24@ = array 31@ element GMCP
                if
                    24@ == true
                then
                    24@ = 0xBF33CC00
                else
                    24@ = 0xBFEAEAEA
                end
                0B6F: render 26@ draw_text 21@ pos 318 27@ color 24@
                27@ -= 3
                0C0F: array 31@ element GMOVER = 1
            else
                0C0E: 21@ = array 31@ element GMOVER
                if
                    21@ == 1
                then
                    if
                        0AB1: call @is_cursor_here 4 start 0 27@ end_offset 405 21 0@ 0@
                    then
                        0B6A: render draw_box_with_border_pos -1 27@ size 404 21 color 0xBF000000 border_size 1 border_color 0xFF000000
                        0B6A: render draw_box_with_border_pos 0 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                        0B6A: render draw_box_with_border_pos 101 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                        0B6A: render draw_box_with_border_pos 202 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                        0B6A: render draw_box_with_border_pos 303 27@ size 101 21 color 0 border_size 1 border_color 0xFF000000
                        27@ += 3
                        0AC6: 21@ = label @strbp offset
                        0C0E: 24@ = array 31@ element GMBP
                        if
                            24@ == true
                        then
                            24@ = 0xBF33CC00
                        else
                            24@ = 0xBFEAEAEA
                        end
                        0B6F: render 26@ draw_text 21@ pos 27 27@ color 24@
                        0AC6: 21@ = label @strfp offset
                        0C0E: 24@ = array 31@ element GMFP
                        if
                            24@ == true
                        then
                            24@ = 0xBF33CC00
                        else
                            24@ = 0xBFEAEAEA
                        end
                        0B6F: render 26@ draw_text 21@ pos 128 27@ color 24@
                        0AC6: 21@ = label @strep offset
                        0C0E: 24@ = array 31@ element GMEP
                        if
                            24@ == true
                        then
                            24@ = 0xBF33CC00
                        else
                            24@ = 0xBFEAEAEA
                        end
                        0B6F: render 26@ draw_text 21@ pos 217 27@ color 24@
                        0AC6: 21@ = label @strcp offset
                        0C0E: 24@ = array 31@ element GMCP
                        if
                            24@ == true
                        then
                            24@ = 0xBF33CC00
                        else
                            24@ = 0xBFEAEAEA
                        end
                        0B6F: render 26@ draw_text 21@ pos 318 27@ color 24@
                        27@ -= 3   
                        0C0E: 21@ = array 31@ element LMB
                        if and
                            21@ == false
                            0AB0: 1
                        then
                            if
                                0AB1: call @is_cursor_here 4 start 0 27@ end_offset 101 21 0@ 0@
                            then
                                0C0F: array 31@ element LMB = 1
                                0C0E: 21@ = array 31@ element GMBP
                                if
                                    21@ == 0
                                then
                                    0C0F: array 31@ element GMBP = 1
                                else
                                    0C0F: array 31@ element GMBP = 0
                                end
                            end
                        end
                        0C0E: 21@ = array 31@ element LMB
                        if and
                            21@ == false
                            0AB0: 1
                        then
                            if
                                0AB1: call @is_cursor_here 4 start 101 27@ end_offset 101 21 0@ 0@
                            then
                                0C0F: array 31@ element LMB = 1
                                0C0E: 21@ = array 31@ element GMFP
                                if
                                    21@ == 0
                                then
                                    0C0F: array 31@ element GMFP = 1
                                else
                                    0C0F: array 31@ element GMFP = 0
                                end
                            end
                        end
                        0C0E: 21@ = array 31@ element LMB
                        if and
                            21@ == false
                            0AB0: 1
                        then
                            if
                                0AB1: call @is_cursor_here 4 start 202 27@ end_offset 101 21 0@ 0@
                            then
                                0C0F: array 31@ element LMB = 1
                                0C0E: 21@ = array 31@ element GMEP
                                if
                                    21@ == 0
                                then
                                    0C0F: array 31@ element GMEP = 1
                                else
                                    0C0F: array 31@ element GMEP = 0
                                end
                            end
                        end
                        0C0E: 21@ = array 31@ element LMB
                        if and
                            21@ == false
                            0AB0: 1
                        then
                            if
                                0AB1: call @is_cursor_here 4 start 303 27@ end_offset 101 21 0@ 0@
                            then
                                0C0F: array 31@ element LMB = 1
                                0C0E: 21@ = array 31@ element GMCP
                                if
                                    21@ == 0
                                then
                                    0C0F: array 31@ element GMCP = 1
                                else
                                    0C0F: array 31@ element GMCP = 0
                                end
                            end
                        end
                    else
                        0C0F: array 31@ element GMOVER = 0
                    end
                end
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 50 21 color 0 border_size 1 border_color 0xFF000000
        //
        // GM TEXT
        //
        0AC6: 21@ = label @strgm offset
        0C0E: 26@ = array 31@ element SWGM
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 13
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 50
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 60 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWNOP
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWNOP = 1
                else
                    0C0F: array 31@ element SWNOP = 0
                end     
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 60 21 color 0 border_size 1 border_color 0xFF000000
        //
        // NOP TEXT
        //
        0AC6: 21@ = label @strnop offset
        0C0E: 26@ = array 31@ element SWNOP
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 16
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 60
       
       
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 90 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWCOL
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWCOL = 1
                else
                    0C0F: array 31@ element SWCOL = 0
                end       
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 90 21 color 0 border_size 1 border_color 0xFF000000
        //
        // COLLISION TEXT
        //
        0AC6: 21@ = label @strcol offset
        0C0E: 26@ = array 31@ element SWCOL
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 14
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 90
       
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 50 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWSH
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWSH = 1
                else
                    0C0F: array 31@ element SWSH = 0
                end       
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 50 21 color 0 border_size 1 border_color 0xFF000000
        //
        // SH TEXT
        //
        0AC6: 21@ = label @strsh offset
        0C0E: 26@ = array 31@ element SWSH
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 14
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 50
       
        0C0E: 27@ = array 31@ element LMB
        if and
            0AB0: 1
            27@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 90 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWAFK
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWAFK = 1
                else
                    0C0F: array 31@ element SWAFK = 0
                end       
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 90 21 color 0 border_size 1 border_color 0xFF000000
        //
        // AAFK TEXT
        //
        0AC6: 21@ = label @straafk offset
        0C0E: 26@ = array 31@ element SWAFK
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 12
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 90
       
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 60 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWFLY
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWFLY = 1
                else
                    0C0F: array 31@ element SWFLY = 0
                end     
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 60 21 color 0 border_size 1 border_color 0xFF000000
        //
        // FLY TEXT
        //
        0AC6: 21@ = label @strfly offset
        0C0E: 26@ = array 31@ element SWFLY
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 17
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 60
       
        0C0E: 27@ = array 31@ element LMB
        0C0E: 24@ = array 31@ element SWAFK
        if and
            0AB0: 1
            27@ == false
            24@ == false
        then
            if
                0AB1: call @is_cursor_here 4 start 28@ 29@ end_offset 83 21 0@ 0@
            then
                0C0F: array 31@ element LMB = 1
                0C0E: 27@ = array 31@ element SWFREE
                if
                    27@ == false
                then
                    0C0F: array 31@ element SWFREE = 1
                else
                    0C0F: array 31@ element SWFREE = 0
                end     
            end
        end
        0B6A: render draw_box_with_border_pos 28@ 29@ size 83 21 color 0 border_size 1 border_color 0xFF000000
        //
        // FREEZE TEXT
        //
        0AC6: 21@ = label @strfreeze offset
        0C0E: 26@ = array 31@ element SWFREE
        if
            26@ == true
        then
            26@ = 0xBF33CC00
        else
            26@ = 0xBFEAEAEA
        end
        0085: 20@ = 28@
        20@ += 17
        29@ += 2
        0B6F: render 22@ draw_text 21@ pos 20@ 29@ color 26@
        29@ -= 2
        28@ += 83
    else
        0B86: dialog 29@ set_visible false
    end
end
 
:is_cursor_here
    0AB1: call @GetCursorPos 0 4@ 5@
    if and
        001D: 4@ > 0@
        001D: 5@ > 1@
    then
        005A: 0@ += 2@
        005A: 1@ += 3@
        if and
            001D: 0@ > 4@
            001D: 1@ > 5@
        then
            0485:  return_true
        else
            059A:  return_false
        end
        0062: 0@ -= 2@
        0062: 1@ -= 3@
    else
        059A:  return_false
    end
    0062: 4@ -= 0@
    0062: 5@ -= 1@
0AB2: ret 2 4@ 5@
 
:GetCursorPos
0AA2: 0@ = load_library "user32.dll"
0AA4: 1@ = get_proc_address "GetCursorPos" library 0@
0AC8: 2@ = allocate_memory_size 8
0AA5: call 1@ num_params 1 pop 0 2@
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0
2@ += 4
0A8D: 4@ = read_memory 2@ size 4 virtual_protect 0
0AC9: free_memory 2@
0AA3: free_library 0@
0AB2: ret 2 3@ 4@
 
:GetPlayerHealth
0A96: 0@ = actor $PLAYER_ACTOR struct
0@ += 0x540
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 0
0AB2: ret 1 0@
 
:strwallhack
hex
    "WH" 00
end
 
:stresp
hex
    "ESP" 00
end
 
:strasat
hex
    "Антисытость" 00
end
 
:strgm
hex
    "GM" 00
end
 
:strnop
hex
    "NOP" 00
end
 
:strsh
hex
    "SH" 00
end
 
:strcol
hex
    "Collision" 00
end
 
:straafk
hex
    "Anti-AFK" 00
end
 
:strfly
hex
    "FLY" 00
end
 
:strfreeze
hex
    "Freeze" 00
end
 
:strbp
hex
    "От" 20 "пуль" 00
end
 
:strfp
hex
    "От" 20 "огня" 00
end
 
:strep
hex
    "От" 20 "взрывов" 00
end
 
:strcp
hex
    "От" 20 "падений" 00
end

keys.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "    CLEO gproject 12.03.14    "
0662: NOP "gp .:':. Keys .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7
    SWNOP = 8 
    FONT2 = 9
    MOUSE = 10
    CHBX = 11
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16 
    SWCOL = 17
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
    SWKEYST = 29
    KEYREST = 30
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "whkey"
0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "espkey"
0AF0: 28@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "asatkey"
0AF0: 27@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "gmkey"
0AF0: 26@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "colkey"
0AF0: 25@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "onfootshkey"
0AF0: 23@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "flykey"
0AF0: 22@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "freezekey"
0AF0: 21@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "unfreezekey"
// 20@ занят
while true
    wait 0
    0C0E: 20@ = array 31@ element KEYREST
    if
        20@ == 1
    then
        0AF0: 30@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "whkey"
        0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "espkey"
        0AF0: 28@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "asatkey"
        0AF0: 27@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "gmkey"
        0AF0: 26@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "colkey"
        0AF0: 25@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "onfootshkey"
        0AF0: 23@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "flykey"
        0AF0: 22@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "freezekey"
        0AF0: 21@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "unfreezekey"
        0C0F: array 31@ element KEYREST = 0
    end
    0C0E: 24@ = array 31@ element SWAFK
    0B4E: samp 13@ = get_current_dialog_id               
    if and
        24@ == 0
        8B4C: not samp is_dialog_active 13@
    then
        if
            30@ > 0
        then
            if and
                0AB0: 30@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWWH
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWWH = 1
                else
                    0C0F: array 31@ element SWWH = 0
                end
                repeat
                    wait 0
                until 8AB0: not 30@
            end
        end
        if
            29@ > 0
        then
            if and
                0AB0: 29@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWESP
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWESP = 1
                else
                    0C0F: array 31@ element SWESP = 0
                end
                repeat
                    wait 0
                until 8AB0: not 29@
            end
        end
        if
            28@ > 0
        then
            if and
                0AB0: 28@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWASAT
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWASAT = 1
                else
                    0C0F: array 31@ element SWASAT = 0
                end
                repeat
                    wait 0
                until 8AB0: not 28@
            end
        end
        if
            27@ > 0
        then
            if and
                0AB0: 27@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWGM
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWGM = 1
                else
                    0C0F: array 31@ element SWGM = 0
                end
                repeat
                    wait 0
                until 8AB0: not 27@
            end
        end
        if
            26@ > 0
        then
            if and
                0AB0: 26@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWCOL
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWCOL = 1
                else
                    0C0F: array 31@ element SWCOL = 0
                end
                repeat
                    wait 0
                until 8AB0: not 26@
            end
        end
        if
            25@ > 0
        then
            if and
                0AB0: 25@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWSH
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWSH = 1
                else
                    0C0F: array 31@ element SWSH = 0
                end
                repeat
                    wait 0
                until 8AB0: not 25@
            end
        end
        0C0E: 24@ = array 31@ element SWSH
        if and
            24@ == 1
            8B21: not samp is_chat_opened
        then
            if
                0ab0: 188 // < 
            then
                0C0E: 24@ = array 31@ element SHSPEED
                if
                    24@ > 60.0
                then
                    24@ -= 15.0
                    0C0F: array 31@ element SHSPEED = 24@   
                end
                repeat
                    wait 0
                until 8ab0: not 188
            end
            if
                0ab0: 190 // > 
            then
                0C0E: 24@ = array 31@ element SHSPEED
                24@ += 15.0
                0C0F: array 31@ element SHSPEED = 24@   
                repeat
                    wait 0
                until 8ab0: not 190
            end
        end
        if
            23@ > 0
        then
            if and
                0AB0: 23@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWFLY
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWFLY = 1
                else
                    0C0F: array 31@ element SWFLY = 0
                end
                repeat
                    wait 0
                until 8AB0: not 23@
            end
        end
        if
            22@ > 0
        then
            if and
                0AB0: 22@
                8B21: not samp is_chat_opened
            then
                0C0E: 24@ = array 31@ element SWFREE
                if
                    24@ == 0
                then
                    0C0F: array 31@ element SWFREE = 1
                else
                    0C0F: array 31@ element SWFREE = 0
                end
                repeat
                    wait 0
                until 8AB0: not 22@
            end
        end
        if
            21@ > 0
        then
            if and
                0AB0: 21@
                8B21: not samp is_chat_opened
            then
                if
                    80DF: not actor $PLAYER_ACTOR driving
                then
                    04D7: set_actor $PLAYER_ACTOR locked 0
                end
                repeat
                    wait 0
                until 8AB0: not 21@
            end
        end
    end
end

kill.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "    CLEO gproject 09.03.14    "
0662: NOP "gp .:':. Kill .:':. www.gc0de.ru"
// BitStream types
const
    BS_TYPE_BYTE = 0
    BS_TYPE_BOOL = 1
    BS_TYPE_SHORT = 2
    BS_TYPE_INT = 3
    BS_TYPE_FLOAT = 4
    BS_TYPE_ARRAY = 5
    BS_TYPE_BITSTREAM = 6
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7
    SWNOP = 8 
    FONT2 = 9
    MOUSE = 10
    CHBX = 11
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16 
    SWCOL = 17
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
    SWKEYST = 29
    SWKILL = 30
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0B34: samp register_client_command "kill" to_label @kill
0B34: samp register_client_command "stun" to_label @stun
while true
    wait 0
    0C0E: 29@ = array 31@ element SWKILL
    if
        29@ == 1
    then
        0662: NOP "KILL"
        repeat
            wait 250
            if
                0B23: samp is_player_connected 28@
            then
                if
                    0B20: samp 27@ = actor_handle_by_samp_player_id 28@
                then 
                    0C0E: 29@ = array 31@ element SWKILL
                    if
                        29@ == 0
                    then
                        Break
                    end
                    if
                        856D: not actor 27@ defined
                    then
                        Break
                    end
                    if
                        0AB1: call @no_obstacles_between 7 actor1 $PLAYER_ACTOR actor2 27@ solid 1 car 0 actor 0 object 1 particle 0
                    then
                        0AB1: call @SendBullet 1 28@
                    else
                        0AD1: show_formatted_text_highpriority "~R~MISS" time 300
                    end
                else
                    Break
                end
            else
                Break
            end 
        until 0118:  actor 27@ dead
        0C0F: array 31@ element SWKILL = 0
    end
end
 
:kill
if
    82D8: not actor $PLAYER_ACTOR current_weapon == 0
then
    0B35: samp 30@ = get_last_command_params
    if
        0AD4: 29@ = scan_string 30@ format "%d" 28@
    then
        if
            0B23:  samp is_player_connected 28@
        then
            if
                0B20: samp 27@ = actor_handle_by_samp_player_id 28@
            then
                28@ *= 1
                0C0F: array 31@ element SWKILL = 1
            end
        end
    else 
        0C0F: array 31@ element SWKILL = 0
    end
else
    0AF8: samp add_message_to_chat " * {EAEAEA}В руке должно быть любое оружие." 0x00CCFF
end
0B43: samp cmd_ret
 
:stun
if
    02D8: actor $PLAYER_ACTOR current_weapon == 0
then
    0B35: samp 30@ = get_last_command_params
    if
        0AD4: 29@ = scan_string 30@ format "%d" 28@
    then
        if
            0B23:  samp is_player_connected 28@
        then
            if
                0B20: samp 27@ = actor_handle_by_samp_player_id 28@
            then
                28@ *= 1
                0C0F: array 31@ element SWKILL = 1
            end
        end
    else 
        0C0F: array 31@ element SWKILL = 0
    end
else
    0AF8: samp add_message_to_chat " * {EAEAEA}В руке не должно быть оружия." 0x00CCFF
end
0B43: samp cmd_ret
 
:SendBullet
if
    0B20: samp 7@ = actor_handle_by_samp_player_id 0@
then
    00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ 3@
    00A0: store_actor 7@ position_to 4@ 5@ 6@
    0AC8: 7@ = allocate_memory_size 39
    0C0D: struct 7@ offset 0 size 1 = 1
    0C0D: struct 7@ offset 1 size 2 = 0@
    0C0D: struct 7@ offset 3 size 4 = 1@
    0C0D: struct 7@ offset 7 size 4 = 2@
    0C0D: struct 7@ offset 11 size 4 = 3@
    0C0D: struct 7@ offset 15 size 4 = 4@
    0C0D: struct 7@ offset 19 size 4 = 5@
    0C0D: struct 7@ offset 23 size 4 = 6@
    0C0D: struct 7@ offset 27 size 4 = 0.025
    0C0D: struct 7@ offset 31 size 4 = 0.025
    0C0D: struct 7@ offset 35 size 4 = 0.05
    0B3D: raknet 0@ = new_bit_stream
    0B40: raknet bit_stream 0@ write 224 type BS_TYPE_BYTE size 1
    0B40: raknet bit_stream 0@ write 7@ type BS_TYPE_ARRAY size 39
    0B42: raknet send bit_stream 0@ priority 1 reliability 7 ordering_channel 0
    0B3E: raknet delete_bit_stream 0@
    0AC9: free_allocated_memory 7@
end
0AB2: ret 0
 
:no_obstacles_between         
00A0: store_actor 0@ position_to 7@ 8@ 9@
00A0: store_actor 1@ position_to 10@ 11@ 12@
if
    06BD:  no_obstacles_between 7@ 8@ 9@ and 10@ 11@ 12@ solid 2@ car 3@ actor 4@ object 5@ particle 6@
then
    0485:  return_true
else
    059A:  return_false
end
0AB2: ret 0

mga_arr.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "    CLEO gproject 10.03.14    "
0662: NOP "gp .:':. MGA_ARROW by MogAika .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7
    SWNOP = 8 
    FONT2 = 9
    MOUSE = 10
    CHBX = 11
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16 
    SWCOL = 17
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
end
wait 0
0AF0: 22@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
23@ = 0.0
:Noname_6
Model.Load(1318)
038B: load_requested_models
wait 0
if
  Model.Available(1318)
jf @Noname_6
25@ = Object.Create(1318, -1000.0, -1000.0, -1000.0)
08D2: set_object_scale 25@ to 0.6
:Noname_56
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @Noname_56
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
gosub @Noname_1706
0C0E: 19@ = array 22@ element MOUSE
if and
0AB0:  key_pressed 32@
19@ == 0
jf @Noname_153
 
:Noname_107
wait 0
gosub @Noname_1706
if
8AB0:  not key_pressed 32@
jf @Noname_107
0AB1: call_scm_func @Noname_1622 1 0 
jump @Noname_160
 
:Noname_153
jump @Noname_56
 
:Noname_160
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @Noname_1579
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
gosub @Noname_1706
0C0E: 19@ = array 22@ element MOUSE
if and
0AB0:  key_pressed 32@
19@ == 0
jf @Noname_245
 
:Noname_211
wait 0
gosub @Noname_1706
if
8AB0:  not key_pressed 32@
jf @Noname_211
jump @Noname_1579
 
:Noname_245
068D: get_camera_position_to 7@ 8@ 9@
068E: get_camera_target_point_to 1@ 2@ 3@
0063: 1@ -= 7@ // (float)
0063: 2@ -= 8@ // (float)
0063: 3@ -= 9@ // (float)
006B: 1@ *= 31@ // (float)
006B: 2@ *= 31@ // (float)
006B: 3@ *= 31@ // (float)
005B: 7@ += 1@ // (float)
005B: 8@ += 2@ // (float)
005B: 9@ += 3@ // (float)
068D: get_camera_position_to 1@ 2@ 3@
if
  Actor.Driving($PLAYER_ACTOR)
jf @Noname_381
0@ = Actor.CurrentCar($PLAYER_ACTOR)
099A: set_car 0@ collision_detection 0
 
:Noname_381
if
86BD:  not no_obstacles_between 1@ 2@ 3@ and 7@ 8@ 9@ solid 1 car 1 actor 0 object 1 particle 0
jf @Noname_1521
0@ = 1
 
:Noname_429
0087: 4@ = 1@ // (float)
0087: 5@ = 2@ // (float)
0087: 6@ = 3@ // (float)
005B: 4@ += 7@ // (float)
005B: 5@ += 8@ // (float)
005B: 6@ += 9@ // (float)
4@ /= 2.0
5@ /= 2.0
6@ /= 2.0
if
86BD:  not no_obstacles_between 1@ 2@ 3@ and 4@ 5@ 6@ solid 1 car 1 actor 0 object 1 particle 0
jf @Noname_579
0087: 7@ = 4@ // (float)
0087: 8@ = 5@ // (float)
0087: 9@ = 6@ // (float)
jump @Noname_603
 
:Noname_579
0087: 1@ = 4@ // (float)
0087: 2@ = 5@ // (float)
0087: 3@ = 6@ // (float)
 
:Noname_603
0@ += 1
001D:  0@ > 30@ // (int)
jf @Noname_429
20@ = 0
if and
86BD:  not no_obstacles_between 1@ 2@ 3@ and 7@ 8@ 9@ solid 0 car 1 actor 0 object 0 particle 0
  not Actor.Driving($PLAYER_ACTOR)
jf @Noname_805
if
0AE2: 21@ = random_vehicle_near_point 4@ 5@ 6@ in_radius 32.0 find_next 0 pass_wrecked 1 //IF and SET
jf @Noname_805
 
:Noname_712
099A: set_car 21@ collision_detection 0
if
06BD:  no_obstacles_between 1@ 2@ 3@ and 7@ 8@ 9@ solid 0 car 1 actor 0 object 0 particle 0
jf @Noname_768
0085: 20@ = 21@ // (int)
 
:Noname_768
099A: set_car 21@ collision_detection 1
8AE2:  not 21@ = random_vehicle_near_point 4@ 5@ 6@ in_radius 32.0 find_next 1 pass_wrecked 1 //IF and SET
jf @Noname_712
 
:Noname_805
if
  Actor.Driving($PLAYER_ACTOR)
jf @Noname_836
0@ = Actor.CurrentCar($PLAYER_ACTOR)
099A: set_car 0@ collision_detection 1
 
:Noname_836
0087: 4@ = 1@ // (float)
0087: 5@ = 2@ // (float)
0087: 6@ = 3@ // (float)
005B: 4@ += 7@ // (float)
005B: 5@ += 8@ // (float)
005B: 6@ += 9@ // (float)
4@ /= 2.0
5@ /= 2.0
6@ /= 2.0
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
050A: 0@ = distance_between_XYZ 1@ 2@ 3@ and_XYZ 4@ 5@ 6@
if
  20@ == 0
jf @Noname_1000
0AD1: show_formatted_text_highpriority "~G~Distance: ~W~%.1f" time 1 0@ 
jump @Noname_1099
 
:Noname_1000
0407: store_coords_to 4@ 5@ 6@ from_car 20@ with_offset 0.0 0.0 0.8
046C: 21@ = car 20@ driver
if
056D:  actor 21@ defined
jf @Noname_1081
09B3: get_car_door_lock_status 20@ store_to 24@
if
    24@ == 0
then
    0AD1: show_formatted_text_highpriority "to ~B~Passanger" time 1
else
    0AD1: show_formatted_text_highpriority "on ~R~Locked" time 1   
end 
jump @Noname_1099
 
:Noname_1081
09B3: get_car_door_lock_status 20@ store_to 24@
if
    24@ == 0
then
    0AD1: show_formatted_text_highpriority "to ~G~Driver" time 1
else
    0AD1: show_formatted_text_highpriority "on ~R~Locked" time 1
end 
 
:Noname_1099
6@ += 0.5
Object.PutAt(25@, 4@, 5@, 6@)
if
    23@ > -360.0
then
    23@ -= 5.0
else
    23@ = 0.0
end
Object.Angle(25@) = 23@
04D5: create_corona_at 4@ 5@ 6@ radius 0.4 type 0 flare 1 RGB 28@ 27@ 26@
0C0E: 19@ = array 22@ element MOUSE
if and
0AB0:  key_pressed 29@
19@ == 0
jf @Noname_1514
if
  20@ == 0
jf @Noname_1431
if
  Actor.Driving($PLAYER_ACTOR)
jf @Noname_1335
0@ = Actor.CurrentCar($PLAYER_ACTOR)
02E3: 1@ = car 0@ speed
Car.StorePos(0@, 10@, 11@, 12@)
0087: 13@ = 4@ // (float)
0087: 14@ = 5@ // (float)
0063: 13@ -= 10@ // (float)
0063: 14@ -= 11@ // (float)
0604: get_Z_angle_for_point 13@ 14@ store_to 12@
Car.PutAt(0@, 4@, 5@, 6@)
Car.Angle(0@) = 12@
Car.SetSpeedInstantly(0@, 1@)
jump @Noname_1424
 
:Noname_1335
Actor.StorePos($PLAYER_ACTOR, 10@, 11@, 12@)
0087: 13@ = 4@ // (float)
0087: 14@ = 5@ // (float)
0063: 13@ -= 10@ // (float)
0063: 14@ -= 11@ // (float)
0604: get_Z_angle_for_point 13@ 14@ store_to 12@
6@ -= 1.0
Actor.PutAt($PLAYER_ACTOR, 4@, 5@, 6@)
Actor.Angle($PLAYER_ACTOR) = 12@
 
:Noname_1424
jump @Noname_1480
 
:Noname_1431
046C: 21@ = car 20@ driver
if
056D:  actor 21@ defined
jf @Noname_1472
09B3: get_car_door_lock_status 20@ store_to 24@
if
    24@ == 0
then
    0B2C: samp 24@ = get_vehicle_id_by_car_handle 20@
    0B30: samp send_enter_vehicle 24@ as_passenger true
    wait 100
    072B: put_actor $PLAYER_ACTOR into_car 20@ passengerseat -1
else
    0407: store_coords_to 28@ 27@ 26@ from_car 20@ with_offset 0.0 0.0 0.8
    Actor.PutAt($PLAYER_ACTOR, 28@, 27@, 26@)
    28@ = 255
    27@ = 102
    26@ = 0 
end
jump @Noname_1480
 
:Noname_1472
09B3: get_car_door_lock_status 20@ store_to 24@
if
    24@ == 0
then
    0B2C: samp 24@ = get_vehicle_id_by_car_handle 20@
    0B30: samp send_enter_vehicle 24@ as_passenger false
    wait 100
    072A: put_actor $PLAYER_ACTOR into_car 20@ driverseat
else
    0407: store_coords_to 28@ 27@ 26@ from_car 20@ with_offset 0.0 0.0 0.8
    Actor.PutAt($PLAYER_ACTOR, 28@, 27@, 26@)
    28@ = 255
    27@ = 102
    26@ = 0 
end
:Noname_1480
wait 0
gosub @Noname_1706
if
8AB0:  not key_pressed 29@
jf @Noname_1480
jump @Noname_1579
 
:Noname_1514
jump @Noname_1572
 
:Noname_1521
Object.PutAt(25@, -1000.0, -1000.0, -1000.0)
if
  Actor.Driving($PLAYER_ACTOR)
jf @Noname_1572
0@ = Actor.CurrentCar($PLAYER_ACTOR)
099A: set_car 0@ collision_detection 1
 
:Noname_1572
jump @Noname_160
 
:Noname_1579
wait 0
0AB1: call_scm_func @Noname_1622 1 1 
Object.PutAt(25@, -1000.0, -1000.0, -1000.0)
jump @Noname_56
 
:Noname_1622
0A96: 1@ = actor $PLAYER_ACTOR struct
1@ += 1140
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
if
  not 0@ == 0
jf @Noname_1682
08C3: clear 2@ bit 1
jump @Noname_1689
 
:Noname_1682
08BD: set 2@ bit 1
 
:Noname_1689
0A8C: write_memory 1@ size 4 value 2@ virtual_protect 0
0AB2: ret 0
 
:Noname_1706
0AF0: 32@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "clickwarpstart" 
31@ = 300.0
30@ = 16
0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "clickwarpgoto" 
28@ = 255
27@ = 102
26@ = 0
return

[/hide]

 

[gcode]

[hide=450]
nop.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 12.03.14     "
0662: NOP "gp .:':. NOP .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
end
const
    NOP1 = 0
    NOP2 = 1
    NOP3 = 2
    NOP4 = 3
    NOP5 = 4
    NOP6 = 5
    NOP7 = 6
    NOP8 = 7 
    NOP9 = 8   
    NOP10 = 9 
    NOP11 = 10
    NOP12 = 11
    NOP13 = 12   
    NOP14 = 13 
    NOP15 = 14
    NOP16 = 15
    NOP17 = 16   
    NOP18 = 17 
    NOP19 = 18
    NOP20 = 19   
    NOP21 = 20 
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available 
0AC8: 13@ = allocate_memory_size 128
0AF1: write_int 13@ to_ini_file "cleo\gp\gp.sys" section "offset" key "noparr"
0AC8: 14@ = allocate_memory_size 128
0AF1: write_int 14@ to_ini_file "cleo\gp\gp.sys" section "offset" key "noparr2"
for 30@ = 0 to 17
    wait 0
    0C0F: array 13@ element 30@ = 0
    0C0F: array 14@ element 30@ = 0
end 
0C0F: array 13@ element NOP15 = 1
0B2E: 27@ = read_samp_memory offset 0x13650 size 2
0C0F: array 14@ element NOP15 = 27@
0B2D: write_samp_memory offset 0x13650 value 0xC390 size 2 
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
while true
    wait 0
    0C0E: 30@ = array 31@ element SWNOP
    0C0E: 29@ = array 31@ element CHBX
    if
        30@ == 1
    then
        0C0E: 30@ = array 31@ element MOUSE
        if or
            30@ == 1
            0B92: dialog 29@ checkbox 1 is_checked
        then
            0C0E: 30@ = array 31@ element RESY
            0C0E: 28@ = array 31@ element FONT2 
            0C0E: 19@ = array 31@ element GUI
            if
                19@ == 1
            then 
                30@ = 21
            else              
                30@ -= 253
            end
            0B6A: render draw_box_with_border_pos -1 30@ size 405 232 color 0xBF000000 border_size 1 border_color 0xFF000000
            // 1 block = 135x33
            
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP1
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP1 = 1
                        0B2E: 27@ = read_samp_memory offset 0x41E0 size 1
                        0C0F: array 14@ element NOP1 = 27@
                        0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1 
                    else
                        0C0F: array 13@ element NOP1 = 0
                        0C0E: 27@ = array 14@ element NOP1
                        0B2D: write_samp_memory offset 0x41E0 value 27@ size 1 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @stronfoot offset
            0C0E: 29@ = array 13@ element NOP1
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP2
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP2 = 1
                        0B2E: 27@ = read_samp_memory offset 0x6140 size 1
                        0C0F: array 14@ element NOP2 = 27@
                        0B2D: write_samp_memory offset 0x6140 value 0xC3 size 1 
                    else
                        0C0F: array 13@ element NOP2 = 0
                        0C0E: 27@ = array 14@ element NOP2
                        0B2D: write_samp_memory offset 0x6140 value 27@ size 1 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strincar offset
            0C0E: 26@ = array 13@ element NOP2
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP3
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP3 = 1
                        0B2E: 27@ = read_samp_memory offset 0x5530 size 1
                        0C0F: array 14@ element NOP3 = 27@
                        0B2D: write_samp_memory offset 0x5530 value 0xC3 size 1 
                    else
                        0C0F: array 13@ element NOP3 = 0
                        0C0E: 27@ = array 14@ element NOP3
                        0B2D: write_samp_memory offset 0x5530 value 27@ size 1 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strweap offset
            0C0E: 26@ = array 13@ element NOP3
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 291 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 291 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP20
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP20 = 1
                        0B2E: 27@ = read_samp_memory offset 0x5BB0 size 3
                        0C0F: array 14@ element NOP20 = 27@
                        0B2D: write_samp_memory offset 0x5BB0 value 0xC21000 size 3
                    else
                        0C0F: array 13@ element NOP20 = 0
                        0C0E: 27@ = array 14@ element NOP20
                        0B2D: write_samp_memory offset 0x5BB0 value 27@ size 3
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strgived offset
            0C0E: 26@ = array 13@ element NOP20
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 163 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 163 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP21
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP21 = 1
                        0B2E: 27@ = read_samp_memory offset 0x5AA0 size 3
                        0C0F: array 14@ element NOP21 = 27@
                        0B2D: write_samp_memory offset 0x5AA0 value 0xC21000 size 3 
                    else
                        0C0F: array 13@ element NOP21 = 0
                        0C0E: 27@ = array 14@ element NOP21
                        0B2D: write_samp_memory offset 0x5AA0 value 27@ size 3 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strtaked offset
            0C0E: 26@ = array 13@ element NOP21
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP19
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP19 = 1
                        0B2E: 27@ = read_samp_memory offset 0x14F00 size 2
                        0C0F: array 14@ element NOP19 = 27@
                        0B2D: write_samp_memory offset 0x14F00 value 0xC390 size 2
                    else
                        0C0F: array 13@ element NOP19 = 0
                        0C0E: 27@ = array 14@ element NOP19
                        0B2D: write_samp_memory offset 0x14F00 value 27@ size 2
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strctrl offset
            0C0E: 29@ = array 13@ element NOP19
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP4
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP4 = 1
                        0B2E: 27@ = read_samp_memory offset 0x4A90 size 2
                        0C0F: array 14@ element NOP4 = 27@
                        0B2D: write_samp_memory offset 0x4A90 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP4 = 0
                        0C0E: 27@ = array 14@ element NOP4
                        0B2D: write_samp_memory offset 0x4A90 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strsendd offset
            0C0E: 29@ = array 13@ element NOP4
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 36 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 36 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP5
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP5 = 1
                        0B2E: 27@ = read_samp_memory offset 0x36D0 size 2
                        0C0F: array 14@ element NOP5 = 27@
                        0B2D: write_samp_memory offset 0x36D0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP5 = 0
                        0C0E: 27@ = array 14@ element NOP5
                        0B2D: write_samp_memory offset 0x36D0 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strspawnp offset
            0C0E: 26@ = array 13@ element NOP5
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 163 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 163 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP6
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP6 = 1
                        0B2E: 27@ = read_samp_memory offset 0x13FA0 size 2
                        0C0F: array 14@ element NOP6 = 27@
                        0B2D: write_samp_memory offset 0x13FA0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP6 = 0
                        0C0E: 27@ = array 14@ element NOP6
                        0B2D: write_samp_memory offset 0x13FA0 value 27@ size 2 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strsppos offset
            0C0E: 26@ = array 13@ element NOP6
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP7
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP7 = 1
                        0B2E: 27@ = read_samp_memory offset 0x141D0 size 2
                        0C0F: array 14@ element NOP7 = 27@
                        0B2D: write_samp_memory offset 0x141D0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP7 = 0
                        0C0E: 27@ = array 14@ element NOP7
                        0B2D: write_samp_memory offset 0x141D0 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strsphp offset
            0C0E: 29@ = array 13@ element NOP7
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 19 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 19 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP8
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP8 = 1
                        0B2E: 27@ = read_samp_memory offset 0x155C0 size 2
                        0C0F: array 14@ element NOP8 = 27@
                        0B2D: write_samp_memory offset 0x155C0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP8 = 0
                        0C0E: 27@ = array 14@ element NOP8
                        0B2D: write_samp_memory offset 0x155C0 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strspanim offset
            0C0E: 26@ = array 13@ element NOP8
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 143 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 143 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP9
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP9 = 1
                        0B2E: 27@ = read_samp_memory offset 0x13FA0 size 2
                        0C0F: array 14@ element NOP9 = 27@
                        0B2D: write_samp_memory offset 0x13B50 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP9 = 0
                        0C0E: 27@ = array 14@ element NOP9
                        0B2D: write_samp_memory offset 0x13B50 value 27@ size 2 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strspaw offset
            0C0E: 26@ = array 13@ element NOP9
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 287 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 287 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP10
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP10 = 1
                        0B2E: 27@ = read_samp_memory offset 0x12E10 size 2
                        0C0F: array 14@ element NOP10 = 27@
                        0B2D: write_samp_memory offset 0x12E10 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP10 = 0
                        0C0E: 27@ = array 14@ element NOP10
                        0B2D: write_samp_memory offset 0x12E10 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strrpw offset
            0C0E: 29@ = array 13@ element NOP10
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 25 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 25 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP11
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP11 = 1
                        0B2E: 27@ = read_samp_memory offset 0x13550 size 2
                        0C0F: array 14@ element NOP11 = 27@
                        0B2D: write_samp_memory offset 0x13550 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP11 = 0
                        0C0E: 27@ = array 14@ element NOP11
                        0B2D: write_samp_memory offset 0x13550 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strspvel offset
            0C0E: 26@ = array 13@ element NOP11
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 149 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 149 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP12
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP12 = 1
                        0B2E: 27@ = read_samp_memory offset 0x14280 size 2
                        0C0F: array 14@ element NOP12 = 27@
                        0B2D: write_samp_memory offset 0x14280 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP12 = 0
                        0C0E: 27@ = array 14@ element NOP12
                        0B2D: write_samp_memory offset 0x14280 value 27@ size 2 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strppiv offset
            0C0E: 26@ = array 13@ element NOP12
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 297 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP13
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP13 = 1
                        0B2E: 27@ = read_samp_memory offset 0x12D60 size 2
                        0C0F: array 14@ element NOP13 = 27@
                        0B2D: write_samp_memory offset 0x12D60 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP13 = 0
                        0C0E: 27@ = array 14@ element NOP13
                        0B2D: write_samp_memory offset 0x12D60 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strrpfv offset
            0C0E: 29@ = array 13@ element NOP13
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 8 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 8 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP14
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP14 = 1
                        0B2E: 27@ = read_samp_memory offset 0x148F0 size 2
                        0C0F: array 14@ element NOP14 = 27@
                        0B2D: write_samp_memory offset 0x148F0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP14 = 0
                        0C0E: 27@ = array 14@ element NOP14
                        0B2D: write_samp_memory offset 0x148F0 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strsvpos offset
            0C0E: 26@ = array 13@ element NOP14
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP15
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP15 = 1
                        0B2E: 27@ = read_samp_memory offset 0x13650 size 2
                        0C0F: array 14@ element NOP15 = 27@
                        0B2D: write_samp_memory offset 0x13650 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP15 = 0
                        0C0E: 27@ = array 14@ element NOP15
                        0B2D: write_samp_memory offset 0x13650 value 27@ size 2 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strsvvel offset
            0C0E: 26@ = array 13@ element NOP15
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 281 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 281 30@ color 0xBF33CC00
            end
            30@ -= 10
            //
            30@ += 33
            //
            0B6A: render draw_box_with_border_pos 0 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000
            0C0E: 29@ = array 31@ element LMB
            if and
                0AB0: 1
                29@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 0 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP16
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP16 = 1
                        0B2E: 27@ = read_samp_memory offset 0x78560 size 3
                        0C0F: array 14@ element NOP16 = 27@
                        0B2D: write_samp_memory offset 0x78560 value 0xC20400 size 3 
                    else
                        0C0F: array 13@ element NOP16 = 0
                        0C0E: 27@ = array 14@ element NOP16
                        0B2D: write_samp_memory offset 0x78560 value 27@ size 3 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strses offset
            0C0E: 29@ = array 13@ element NOP16
            if
                29@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 23 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 135 30@ size 135 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 135 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP17
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP17 = 1
                        0B2E: 27@ = read_samp_memory offset 0x15C00 size 2
                        0C0F: array 14@ element NOP17 = 27@
                        0B2D: write_samp_memory offset 0x15C00 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP17 = 0
                        0C0E: 27@ = array 14@ element NOP17
                        0B2D: write_samp_memory offset 0x15C00 value 27@ size 2 
                    end         
                end
            end
            30@ += 10
            0AC6: 27@ = label @strdt offset
            0C0E: 26@ = array 13@ element NOP17
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 160 30@ color 0xBF33CC00
            end
            30@ -= 10
            
            0B6A: render draw_box_with_border_pos 270 30@ size 134 33 color 0 border_size 1 border_color 0xFF000000 
            0C0E: 27@ = array 31@ element LMB
            if and
                0AB0: 1
                27@ == false
            then
                if
                    0AB1: call @is_cursor_here 4 start 270 30@ end_offset 135 33 0@ 0@
                then
                    0C0F: array 31@ element LMB = 1
                    0C0E: 29@ = array 13@ element NOP18
                    if
                        29@ == false
                    then
                        0C0F: array 13@ element NOP18 = 1
                        0B2E: 27@ = read_samp_memory offset 0xB2C0 size 2
                        0C0F: array 14@ element NOP18 = 27@
                        0B2D: write_samp_memory offset 0xB2C0 value 0xC390 size 2 
                    else
                        0C0F: array 13@ element NOP18 = 0
                        0C0E: 27@ = array 14@ element NOP18
                        0B2D: write_samp_memory offset 0xB2C0 value 27@ size 2 
                    end      
                end
            end
            30@ += 10
            0AC6: 27@ = label @strswea offset
            0C0E: 26@ = array 13@ element NOP18
            if
                26@ == false
            then
                0B6F: render 28@ draw_text 27@ pos 298 30@ color 0xBFD9D9D9
            else
                0B6F: render 28@ draw_text 27@ pos 298 30@ color 0xBF33CC00
            end
            30@ -= 10

        end 
    end
end

:stronfoot
hex
    "Disable" 20 "OnFoot" 00
end
:strincar
hex
    "Disable" 20 "InCar" 00
end
:strweap
hex
    "Disable" 20 "Weapon" 00
end 
:strctrl
hex
    "Toggle" 20 "Control" 00
end
:strgived
hex
    "Give" 20 "Damage" 00
end
:strtaked
hex
    "Take" 20 "Damage" 00
end       
:strsendd
hex
    "SendDeath" 00
end
:strspawnp
hex
    "SpawnPlayer" 00
end
:strsppos
hex
    "SetPlayerPos" 00
end
:strsphp
hex
    "SetPlayerHealth" 00
end
:strspanim
hex
    "SetPlayerAnimation" 00
end
:strspaw
hex
    "SetArmedWeapon" 00
end
:strrpw
hex
    "ResetWeapons" 00
end
:strspvel
hex
    "SetPlayerVelocity" 00
end
:strppiv
hex
    "PutInVehicle" 00
end
:strrpfv
hex
    "RemoveFromVehicle" 00
end
:strsvpos
hex
    "SetVehiclePos" 00
end
:strsvvel
hex
    "Антиограничитель" 00
end
:strses
hex
    "SetEngineState" 00
end
:strdt
hex
    "DetachTrailer" 00
end
:strswea
hex
    "SetWeather" 00
end

:is_cursor_here
0AB1: call @GetCursorPos 0 4@ 5@
if and
    001D: 4@ > 0@
    001D: 5@ > 1@
then
    005A: 0@ += 2@
    005A: 1@ += 3@
    if and
        001D: 0@ > 4@
        001D: 1@ > 5@
    then
        0485:  return_true
    else
        059A:  return_false
    end
    0062: 0@ -= 2@
    0062: 1@ -= 3@
else
    059A:  return_false
end
0062: 4@ -= 0@
0062: 5@ -= 1@
0AB2: ret 2 4@ 5@
 
:GetCursorPos
0AA2: 0@ = load_library "user32.dll"
0AA4: 1@ = get_proc_address "GetCursorPos" library 0@
0AC8: 2@ = allocate_memory_size 8
0AA5: call 1@ num_params 1 pop 0 2@
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0
2@ += 4
0A8D: 4@ = read_memory 2@ size 4 virtual_protect 0
0AC9: free_memory 2@
0AA3: free_library 0@
0AB2: ret 2 3@ 4@

pick.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 15.03.14     "
0662: NOP "gp .:':. PickUp .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
    SWAFK = 21
    SWAFKA = 22
    SWADM = 23
    SWADMST = 24
    ADMCNT = 25
    SWFLY = 26
    GUI = 27
    SWFREE = 28
end
repeat
    wait 400
until 0AFA: is_samp_structures_available
0B34: samp register_client_command "gopick" to_label @gopick
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array" 
while true
    wait 0
        if
            13@ == 1
        then
            0C0E: 23@ = array 31@ element FONT2
            0AC8: 22@ = allocate_memory_size 32
            for 30@ = 0 to 3999
                0B51: samp 29@ = pickup_handle_by_id 30@
                065B: store_pickup 29@ position_to 28@ 27@ 26@
                if
                    00C2:   sphere_onscreen 28@ 27@ 26@ radius 1.5
                then
                    0B55: convert_3D_coords 28@ 27@ 26@ to_screen 25@ 24@
                    00A0: store_actor $PLAYER_ACTOR position_to 15@ 14@ 12@
                    050A: 11@ = distance_between_XYZ 28@ 27@ 26@ and_XYZ 15@ 14@ 12@
                    if
                        11@ < 50.0
                    then
                        11@ = 0xBF33CC00             
                    else
                        11@ = 0xBFCC3300    
                    end    
                    0AD3: 22@ = formatstr "/gopick %d" 30@
                    0B6F: render 23@ draw_text 22@ pos 25@ 24@ color 11@
                end
                if
                    13@ == 0
                then
                    Break
                end
            end
            0AC9: 22@
        end
end
:gopick
0B35: samp 21@ = get_last_command_params
if
    0AD4: 21@ = scan_string 21@ format "%d" 20@
then
    0B51: samp 19@ = pickup_handle_by_id 20@
    065B: store_pickup 19@ position_to 18@ 17@ 16@
    0AB1: call_scm_func @SendOnfootFakePosition 3 18@ 17@ 16@
    0B3D: raknet 21@ = new_bit_stream
    0B40: raknet bit_stream 21@ write 20@ type 3 size 4
    0B8A: raknet send_rpc 131 bit_stream 21@
    0B3E: raknet delete_bit_stream 21@
else
    if
        13@ == 0
    then
        13@ = 1
    else
        13@ = 0
    end    
end
0B43: samp cmd_ret

:SendOnfootFakePosition
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 212 type 0 size 1 
0B40: raknet bit_stream 5@ write 4@ type 5 size 68 
0B42: raknet send bit_stream 5@ priority 1 reliability 7 ordering_channel 0
0B3E: raknet delete_bit_stream 5@ 
0AC9: free_allocated_memory 4@ 
0ab2: 0

rec.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 10.03.14     "
0662: NOP "gp .:':. Reconnect .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16     
end
const
    NOP1 = 0
    NOP2 = 1
    NOP3 = 2
    NOP4 = 3
    NOP5 = 4
    NOP6 = 5
    NOP7 = 6
    NOP8 = 7 
    NOP9 = 8   
    NOP10 = 9 
    NOP11 = 10
    NOP12 = 11
    NOP13 = 12   
    NOP14 = 13 
    NOP15 = 14
    NOP16 = 15
    NOP17 = 16   
    NOP18 = 17 
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available 
0B34: samp register_client_command "reconnect" to_label @recon
0B34: samp register_client_command "nick" to_label @nick
while true
    wait 0
    if
        28@ == 1
    then
        0AC8: 27@ = allocate_memory_size 64
        0B39: samp get_current_server_address 27@ port 26@    
        0B28: samp disconnect_with_reason 0
        32@ = 0
        repeat
            wait 0
        until 001D: 32@ > 29@
        0B38: samp connect_to_server 27@ port 26@
        0AC9: free_allocated_memory 27@
        28@ = 0
    end
end

:recon
0B35: samp 30@ = get_last_command_params
if
    0AD4: 30@ = scan_string 30@ format "%d" 29@
then
    0AF8: samp add_message_to_chat " * {EAEAEA}Переподключение через %d секунд." 0xFF6600 29@
    29@ *= 1000
    28@ = 1
else
    0AF8: samp add_message_to_chat " * {EAEAEA}Переподключение через 15 секунд." 0xFF6600
    29@ = 15000
    28@ = 1
end
0B43: samp cmd_ret
:nick
0B35: samp 30@ = get_last_command_params
if
    30@ > 0
then
    0AF8: samp add_message_to_chat " * {EAEAEA}Переподключение с ником %s." 0xFF6600 30@
    0B29: samp set_local_name 30@
    29@ = 1500
    28@ = 1
end
0B43: samp cmd_ret

sh.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 10.03.14     "
0662: NOP "gp .:':. SpeedHack .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWNOP = 8   
    FONT2 = 9 
    MOUSE = 10
    CHBX = 11 
    GMOVER = 12
    GMBP = 13
    GMFP = 14
    GMEP = 15
    GMCP = 16   
    SWCOL = 17 
    SWSH = 18
    SHGM = 19
    SHSPEED = 20
end
const
self = $PLAYER_ACTOR
speed = 0@
PI = 3.14159265358979323844
actor_state = 3@
speed_x = 4@
speed_y = 5@
angle = 17@
end
0A96: 11@ = actor self struct
0A8E: actor_state = 11@ + 0x46C // int
0A8E: speed_x = 11@ + 0x550 // int
0A8E: speed_y = 11@ + 0x554 // int
0A8E: angle = 11@ + 0x558 // in
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array"
0AF0: 29@ = get_int_from_ini_file "cleo\gp\gp.ini" section "Keys" key "incarshkey" 
0AF2: 30@ = get_float_from_ini_file "cleo\gp\gp.ini" section "SpeedHack" key "carmaxspeed"
0AF2: 26@ = get_float_from_ini_file "cleo\gp\gp.ini" section "SpeedHack" key "carspeedmult"
while true
    wait 0
    0C0E: 28@ = array 31@ element SWSH
    if
        28@ == true
    then
        if and
        not actor.Dead(self)
        not actor.Driving(self)
        not actor.Stopped(self)
        8818:   not actor self in_air
        then
            0C0E: 28@ = array 31@ element SWGM
            if
                28@ == 0
            then
                02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 1 MP 0 
                0C0F: array 31@ element SHGM = 1
            else
                0C0F: array 31@ element GMCP = 1
                0C0F: array 31@ element SHGM = 0
            end
            0C0E: 0@ = array 31@ element SHSPEED
            20@ = 180.0
            20@ /= PI
            0A8D: 21@ = read_memory angle size 4 virtual_protect 0
            006B: 21@ *= 20@ // (float) 
            Actor.Angle(self) = 21@
            083D: get_actor self velocity_in_direction_XYZ 8@ 9@ 10@
            0A8D: 8@ = read_memory speed_x size 4 virtual_protect 0
            0A8D: 9@ = read_memory speed_y size 4 virtual_protect 0
            006B: 8@ *= 0@
            006B: 9@ *= 0@
            083C: set_actor self velocity_in_direction_XYZ 8@ 9@ 10@
            if not Actor.Animation(self) == "KO_skid_back"
            then
                0A8C: write_memory actor_state size 1 value 0 virtual_protect 0
            end
         end
    else
        0C0E: 28@ = array 31@ element SHGM
        if
            28@ == 1
        then
            02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 0 MP 0 
            0C0F: array 31@ element SHGM = 0
        end
    end    
    if and 
        actor.Driving(self)
        8B21: not samp is_chat_opened
    then    
        while 0ab0: 29@
                wait 150
                0AB5: store_closest_entities $PLAYER_ACTOR vehicle_to 28@ ped_to 1@
                if
                    056E:   car 28@ defined
                then
                    046C: 27@ = car 28@ driver
                    if
                        07D6: 27@ == $PLAYER_ACTOR
                    then
                        02E3: 27@ = car 28@ speed 
                        if
                            27@ > 3.0
                        then
                            006B: 27@ *= 26@ 
                            if 
                                0025: 27@ > 30@
                            then
                                0087: 27@ = 30@
                            end
                        else
                            27@ = 8.0
                        end
                        Car.SetSpeedInstantly(28@, 27@)
                    end
                end
        end
    end
end

wh.cs

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
{$CLEO .cs}
0662: NOP "     CLEO gproject 09.03.14     "
0662: NOP "gp .:':. WallHack .:':. www.gc0de.ru"
const
    RESX = 0
    RESY = 1
    SWWH = 2
    SWESP = 3
    SWASAT = 4
    FONT = 5
    SWGM = 6
    LMB = 7 
    SWTP = 8   
    FONT2 = 9       
end
wait 0
repeat
    wait 400
until 0AFA: is_samp_structures_available
0AF0: 31@ = get_int_from_ini_file "cleo\gp\gp.sys" section "offset" key "array" 
0ab1: call @GetSampBase 0 retr_base_to 26@
26@ += 0x212A80
0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
if
    not 26@ == 0
then
    26@ += 0x3D5
    0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
    0A8E: 25@ = 26@ + 39
    0A8D: 29@ = read_memory 25@ size 4 virtual_protect 0    
end
while true
    wait 0
    0C0E: 30@ = array 31@ element SWWH
    if
        30@ == true
    then
        if
            28@ == 0
        then
            27@ = 0
            28@ = 1
            0ab1: call @GetSampBase 0 retr_base_to 26@
            26@ += 0x212A80
            0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
            if
                not 26@ == 0
            then
                26@ += 0x3D5
                0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
                0A8E: 25@ = 26@ + 47
                0A8C: write_memory 25@ size 1 value 0 virtual_protect 0 
                0A8E: 25@ = 26@ + 56
                0A8C: write_memory 25@ size 1 value 1 virtual_protect 0 
                0A8E: 25@ = 26@ + 39
                0A8C: write_memory 25@ size 4 value 1500.0 virtual_protect 0     
            end
        end
    else
        if
            27@ == 0
        then
            28@ = 0
            27@ = 1
            0ab1: call @GetSampBase 0 retr_base_to 26@
            26@ += 0x212A80
            0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
            if
                not 26@ == 0
            then
                26@ += 0x3D5
                0A8D: 26@ = read_memory 26@ size 4 virtual_protect 0
                0A8E: 25@ = 26@ + 47
                0A8C: write_memory 25@ size 1 value 1 virtual_protect 0 
                0A8E: 25@ = 26@ + 56
                0A8C: write_memory 25@ size 1 value 1 virtual_protect 0 
                0A8E: 25@ = 26@ + 39
                0A8C: write_memory 25@ size 4 value 29@ virtual_protect 0     
            end
        end
    end
end
 
:GetSampBase
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 0@
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 2@
0AA3: free_library 0@
0ab2: ret 1 2@

[/hide]

 

[fiendshadow]

Пузато,однако.

 

[Streamer]

Пузато,однако.

Это нормально для исходника клео собейта...

 

[SR_team]

Это нормально для исходника клео собейта...

Это еще не все

 

[assault912]

дай исходник, начинающий, только разбираюсь, сделал 1 скрипт тп для нубо-рп, был очень рад :D, хочу попробывать сделать типо сборку читов

 

[SR_team]

дай исходник, начинающий, только разбираюсь, сделал 1 скрипт тп для нубо-рп, был очень рад :D, хочу попробывать сделать типо сборку читов

не потянешь

 

[assault912]

не потянешь

ну хочу попробывать, вам жалко чтоли

 

[Stas07]

Можно под hide или в личку?

 

[SR_team]

ну хочу попробывать, вам жалко чтоли

Мне то не жалко - код не мой, и поэтому я не кину. Да и gc0de думаю не просто так хайд поставил.

 

[Roman #29]

Зря ты выложил. Лалки сливать будут -_-

 

[Dark_Knight]

Зря ты выложил. Лалки сливать будут -_-

Мало у кого есть 450 постов.

 

[RimTanaka]

Gcode, можешь пожалуйста дать исходник клео собейта?
Я хочу попробовать дополнить туда скрипты такие как
переворот машины
-Nop Disable (dl) distance limit
добавить регулировку расстояния /dlock, так же попробовать совместить в /dlock что бы показывало название Машины и ее ид
-Чекер админов

Хоть я и начинающий скриптер, но очень упорный ;3

p.S. Дай шанс попробовать нубу ;33​