Помогите соеденить два клео скрипта

Статус
В этой теме нельзя размещать новые ответы.
А

Андруша.

Известный
Автор темы
44
6
Нужно соеденить эти два Cleo скрипта в один.
 

Вложения

  • DigiInfo.cs
    121.2 KB · Просмотры: 32
  • hud.cs
    20.3 KB · Просмотры: 20
А

Андруша.

Известный
Автор темы
44
6
hud.cs это wallhack.
DigInfo показывает
1. HP/AP/BP
2. Car Health Bar
3. Sprint Bar
 

Вложения

  • sa-mp-082.png
    sa-mp-082.png
    1.1 KB · Просмотры: 299
U

unInstance

Новичок
Проверенный
311
224
Работает?
CLEO: 
{$CLEO .cs}
0000: NOP
call @RUN_CLEO params 1 atLabel @CLEO
//cleo 1#
thread "SPRINGFIELD"
wait 5000
0AB1: call_scm_func @SPRINGFIELD_589 0
31@ = 0

:SPRINGFIELD_39
wait 0
if and
0AB0:   key_pressed 109
0AB0:   key_pressed 109
else_jump @SPRINGFIELD_145
0B12: 31@ = 31@ XOR 1
if
  31@ == 1
else_jump @SPRINGFIELD_112
0AB1: call_scm_func @SPRINGFIELD_210 0
wait 200
jump @SPRINGFIELD_145

:SPRINGFIELD_112
if
  31@ == 0
else_jump @SPRINGFIELD_145
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 200

:SPRINGFIELD_145
if
  31@ == 1
else_jump @SPRINGFIELD_203
if
0AB0:   key_pressed 119
else_jump @SPRINGFIELD_203
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 1000
0AB1: call_scm_func @SPRINGFIELD_210 0

:SPRINGFIELD_203
jump @SPRINGFIELD_39

:SPRINGFIELD_210
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_370
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_589
0AA2: 0@ = load_library "SAMP.DLL" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
0AB2: ret 0

:CLEO
0000:
//cleo 2#
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1

while true
wait 0
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    Player.Defined($PLAYER_ACTOR)
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
        if 25 >= 1@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 66.0 value 1@ R 28@ G 29@ B 30@
        end
        if 2@ > 0
        then
        if 25 >= 2@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 44.0 value 2@ R 28@ G 29@ B 30@
        end
      
        if
        0AB1: call_scm_func @sprint 0 0@
        then
        0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 1
        0092: 0@ = float 0@ to_integer
            if 25 >= 0@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
            0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 0
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            end
        end
    end
end

:drawBar
//0AB1: call_scm_func @drawBar 6 coords_X 3@ coords_Y 4@ value 5@ size X 40.0 Y 4.0 thickness 2.0 // The value must be 100.0 (eg. max_HP = 750.0 ==> max_HP /= 7.5)
    if 6@ == 1
    then
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BB"
    else
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BB"
    end
13@ = 100.0     
0073: 13@ /= 3@ // (float)
0073: 2@ /= 13@ // (float)
0087: 11@ = 3@ // (float)
0087: 12@ = 4@ // (float)
005B: 11@ += 5@  // (float)
005B: 12@ += 5@  // (float)   
038E: draw_box_position 0@ 1@ size 11@ 12@ RGBA 0 0 0 255
038E: draw_box_position 0@ 1@ size 3@ 4@ RGBA 17@ 18@ 19@ 255
0087: 10@ = 2@ // (float)
0017: 10@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 10@  // (float)
0063: 0@ -= 3@  // (float)
038E: draw_box_position 0@ 1@ size 2@ 4@ RGBA 14@ 15@ 16@ 255
0AB2: ret 0

:drawNumber
//0AB1: call_scm_func @drawNumber 6 coords_X 0@ coords_Y 1@ value 2@ R 3@ G 4@ B 5@
0349: set_text_draw_font 1
0342: set_text_draw_centered 1
033F: set_text_draw_letter_size 0.3 0.9
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 3@ 4@ 5@ 255
045A: draw_text_1number 0@ 1@ GXT 'NUMBER' number 2@  // ~1~
0AB2: ret 0

:sprint
0A8D: 0@ = read_memory 0xB7CDB4 size 4 virtual_protect 0
0@ /= 31.47000244
0@ += 4.0
0@ *= 0.9615384615384615
0A8D: 1@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
1@ /= 39.97000244
    if and
    1@ > 99.0
    8965:   actor $PLAYER_ACTOR swimming
    80DF:   actor $PLAYER_ACTOR driving
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 1 0@

:carhealth
0A8D: 2@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
2@ /= 39.97000244
    if and
    2@ > 99.9
    Actor.Driving($PLAYER_ACTOR)
    then
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    1@ = Car.Health(0@)
    0093: 1@ = integer 1@ to_float
        if and
        1@ >= 250.0
        1000.0 >= 1@
        then    
        000F: 1@ -= 250.0
        0017: 1@ /= 7.5
        else
            if 1@ >= 1000.0
            then
            1@ = 100.0
            else  
            1@ = 0.0
            end
        end
    0485:  return_true
    else
    1@ = 0.0
    059A:  return_false
    end
0AB2: ret 1 1@


:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
    0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
    000A: 33@ += 4
end
0AB2: ret 0
 

Вложения

  • 2cleo.cs
    28.5 KB · Просмотры: 12
  • Нравится
Реакции: cTapK и Андруша.
А

Андруша.

Известный
Автор темы
44
6
Arkember написал(а):
Работает?
CLEO: 
{$CLEO .cs}
0000: NOP
call @RUN_CLEO params 1 atLabel @CLEO
//cleo 1#
thread "SPRINGFIELD"
wait 5000
0AB1: call_scm_func @SPRINGFIELD_589 0
31@ = 0

:SPRINGFIELD_39
wait 0
if and
0AB0:   key_pressed 109
0AB0:   key_pressed 109
else_jump @SPRINGFIELD_145
0B12: 31@ = 31@ XOR 1
if
  31@ == 1
else_jump @SPRINGFIELD_112
0AB1: call_scm_func @SPRINGFIELD_210 0
wait 200
jump @SPRINGFIELD_145

:SPRINGFIELD_112
if
  31@ == 0
else_jump @SPRINGFIELD_145
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 200

:SPRINGFIELD_145
if
  31@ == 1
else_jump @SPRINGFIELD_203
if
0AB0:   key_pressed 119
else_jump @SPRINGFIELD_203
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 1000
0AB1: call_scm_func @SPRINGFIELD_210 0

:SPRINGFIELD_203
jump @SPRINGFIELD_39

:SPRINGFIELD_210
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_370
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_589
0AA2: 0@ = load_library "SAMP.DLL" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
0AB2: ret 0

:CLEO
0000:
//cleo 2#
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1

while true
wait 0
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    Player.Defined($PLAYER_ACTOR)
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
        if 25 >= 1@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 66.0 value 1@ R 28@ G 29@ B 30@
        end
        if 2@ > 0
        then
        if 25 >= 2@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 44.0 value 2@ R 28@ G 29@ B 30@
        end
     
        if
        0AB1: call_scm_func @sprint 0 0@
        then
        0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 1
        0092: 0@ = float 0@ to_integer
            if 25 >= 0@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
            0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 0
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            end
        end
    end
end

:drawBar
//0AB1: call_scm_func @drawBar 6 coords_X 3@ coords_Y 4@ value 5@ size X 40.0 Y 4.0 thickness 2.0 // The value must be 100.0 (eg. max_HP = 750.0 ==> max_HP /= 7.5)
    if 6@ == 1
    then
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BB"
    else
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BB"
    end
13@ = 100.0    
0073: 13@ /= 3@ // (float)
0073: 2@ /= 13@ // (float)
0087: 11@ = 3@ // (float)
0087: 12@ = 4@ // (float)
005B: 11@ += 5@  // (float)
005B: 12@ += 5@  // (float)  
038E: draw_box_position 0@ 1@ size 11@ 12@ RGBA 0 0 0 255
038E: draw_box_position 0@ 1@ size 3@ 4@ RGBA 17@ 18@ 19@ 255
0087: 10@ = 2@ // (float)
0017: 10@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 10@  // (float)
0063: 0@ -= 3@  // (float)
038E: draw_box_position 0@ 1@ size 2@ 4@ RGBA 14@ 15@ 16@ 255
0AB2: ret 0

:drawNumber
//0AB1: call_scm_func @drawNumber 6 coords_X 0@ coords_Y 1@ value 2@ R 3@ G 4@ B 5@
0349: set_text_draw_font 1
0342: set_text_draw_centered 1
033F: set_text_draw_letter_size 0.3 0.9
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 3@ 4@ 5@ 255
045A: draw_text_1number 0@ 1@ GXT 'NUMBER' number 2@  // ~1~
0AB2: ret 0

:sprint
0A8D: 0@ = read_memory 0xB7CDB4 size 4 virtual_protect 0
0@ /= 31.47000244
0@ += 4.0
0@ *= 0.9615384615384615
0A8D: 1@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
1@ /= 39.97000244
    if and
    1@ > 99.0
    8965:   actor $PLAYER_ACTOR swimming
    80DF:   actor $PLAYER_ACTOR driving
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 1 0@

:carhealth
0A8D: 2@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
2@ /= 39.97000244
    if and
    2@ > 99.9
    Actor.Driving($PLAYER_ACTOR)
    then
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    1@ = Car.Health(0@)
    0093: 1@ = integer 1@ to_float
        if and
        1@ >= 250.0
        1000.0 >= 1@
        then   
        000F: 1@ -= 250.0
        0017: 1@ /= 7.5
        else
            if 1@ >= 1000.0
            then
            1@ = 100.0
            else 
            1@ = 0.0
            end
        end
    0485:  return_true
    else
    1@ = 0.0
    059A:  return_false
    end
0AB2: ret 1 1@


:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
    0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
    000A: 33@ += 4
end
0AB2: ret 0
Нажмите для раскрытия...


Да, работает отлично. Большое спасибо :)
 
  • Нравится
Реакции: cTapK и deddosouru
А

Андруша.

Известный
Автор темы
44
6
Склей пожалуйста этот Вх еще с этим файлом)
 

Вложения

  • FPS_shw.cs
    17.3 KB · Просмотры: 7
  • Нравится
Реакции: cTapK
U

unInstance

Новичок
Проверенный
311
224
Андруша. написал(а):
Склей пожалуйста этот Вх еще с этим файлом)
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000: NOP
call @RUN_CLEO params 1 atLabel @CLEO
call @RUN_CLEO params 1 atLabel @CLEO3
//cleo 1#
thread "SPRINGFIELD"
wait 5000
0AB1: call_scm_func @SPRINGFIELD_589 0
31@ = 0

:SPRINGFIELD_39
wait 0
if and
0AB0:   key_pressed 109
0AB0:   key_pressed 109
else_jump @SPRINGFIELD_145
0B12: 31@ = 31@ XOR 1
if
  31@ == 1
else_jump @SPRINGFIELD_112
0AB1: call_scm_func @SPRINGFIELD_210 0
wait 200
jump @SPRINGFIELD_145

:SPRINGFIELD_112
if
  31@ == 0
else_jump @SPRINGFIELD_145
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 200

:SPRINGFIELD_145
if
  31@ == 1
else_jump @SPRINGFIELD_203
if
0AB0:   key_pressed 119
else_jump @SPRINGFIELD_203
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 1000
0AB1: call_scm_func @SPRINGFIELD_210 0

:SPRINGFIELD_203
jump @SPRINGFIELD_39

:SPRINGFIELD_210
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_370
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_589
0AA2: 0@ = load_library "SAMP.DLL" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
0AB2: ret 0

:CLEO
0000:
//cleo 2#
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1

while true
wait 0
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    Player.Defined($PLAYER_ACTOR)
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
        if 25 >= 1@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 66.0 value 1@ R 28@ G 29@ B 30@
        end
        if 2@ > 0
        then
        if 25 >= 2@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 44.0 value 2@ R 28@ G 29@ B 30@
        end
     
        if
        0AB1: call_scm_func @sprint 0 0@
        then
        0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 1
        0092: 0@ = float 0@ to_integer
            if 25 >= 0@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
            0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 0
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            end
        end
    end
end

:drawBar
//0AB1: call_scm_func @drawBar 6 coords_X 3@ coords_Y 4@ value 5@ size X 40.0 Y 4.0 thickness 2.0 // The value must be 100.0 (eg. max_HP = 750.0 ==> max_HP /= 7.5)
    if 6@ == 1
    then
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BB"
    else
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BB"
    end
13@ = 100.0    
0073: 13@ /= 3@ // (float)
0073: 2@ /= 13@ // (float)
0087: 11@ = 3@ // (float)
0087: 12@ = 4@ // (float)
005B: 11@ += 5@  // (float)
005B: 12@ += 5@  // (float)  
038E: draw_box_position 0@ 1@ size 11@ 12@ RGBA 0 0 0 255
038E: draw_box_position 0@ 1@ size 3@ 4@ RGBA 17@ 18@ 19@ 255
0087: 10@ = 2@ // (float)
0017: 10@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 10@  // (float)
0063: 0@ -= 3@  // (float)
038E: draw_box_position 0@ 1@ size 2@ 4@ RGBA 14@ 15@ 16@ 255
0AB2: ret 0

:drawNumber
//0AB1: call_scm_func @drawNumber 6 coords_X 0@ coords_Y 1@ value 2@ R 3@ G 4@ B 5@
0349: set_text_draw_font 1
0342: set_text_draw_centered 1
033F: set_text_draw_letter_size 0.3 0.9
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 3@ 4@ 5@ 255
045A: draw_text_1number 0@ 1@ GXT 'NUMBER' number 2@  // ~1~
0AB2: ret 0

:sprint
0A8D: 0@ = read_memory 0xB7CDB4 size 4 virtual_protect 0
0@ /= 31.47000244
0@ += 4.0
0@ *= 0.9615384615384615
0A8D: 1@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
1@ /= 39.97000244
    if and
    1@ > 99.0
    8965:   actor $PLAYER_ACTOR swimming
    80DF:   actor $PLAYER_ACTOR driving
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 1 0@

:carhealth
0A8D: 2@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
2@ /= 39.97000244
    if and
    2@ > 99.9
    Actor.Driving($PLAYER_ACTOR)
    then
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    1@ = Car.Health(0@)
    0093: 1@ = integer 1@ to_float
        if and
        1@ >= 250.0
        1000.0 >= 1@
        then   
        000F: 1@ -= 250.0
        0017: 1@ /= 7.5
        else
            if 1@ >= 1000.0
            then
            1@ = 100.0
            else 
            1@ = 0.0
            end
        end
    0485:  return_true
    else
    1@ = 0.0
    059A:  return_false
    end
0AB2: ret 1 1@

:CLEO3
0000: NOP
//cleo 3#
0001: wait 0 ms
0006: 2@ = 30

:Noname_11
0001: wait 0 ms
0006: 1@ = 0
0006: 32@ = 0

:Noname_29
0001: wait 0 ms
000A: 1@ += 1
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 2@
00D6: if
0019:   32@ > 999
004D: jump_if_false @Noname_29
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 1@
0085: 2@ = 1@ // (int)
0002: jump @Noname_11


:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
    0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
    000A: 33@ += 4
end
0AB2: ret 0
 

Вложения

  • 3cleo.cs
    29.2 KB · Просмотры: 7
  • Нравится
Реакции: cTapK и Андруша.
А

Андруша.

Известный
Автор темы
44
6
Arkember написал(а):
CLEO: 
{$CLEO .cs}
0000: NOP
call @RUN_CLEO params 1 atLabel @CLEO
call @RUN_CLEO params 1 atLabel @CLEO3
//cleo 1#
thread "SPRINGFIELD"
wait 5000
0AB1: call_scm_func @SPRINGFIELD_589 0
31@ = 0

:SPRINGFIELD_39
wait 0
if and
0AB0:   key_pressed 109
0AB0:   key_pressed 109
else_jump @SPRINGFIELD_145
0B12: 31@ = 31@ XOR 1
if
  31@ == 1
else_jump @SPRINGFIELD_112
0AB1: call_scm_func @SPRINGFIELD_210 0
wait 200
jump @SPRINGFIELD_145

:SPRINGFIELD_112
if
  31@ == 0
else_jump @SPRINGFIELD_145
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 200

:SPRINGFIELD_145
if
  31@ == 1
else_jump @SPRINGFIELD_203
if
0AB0:   key_pressed 119
else_jump @SPRINGFIELD_203
0AB1: call_scm_func @SPRINGFIELD_370 0
wait 1000
0AB1: call_scm_func @SPRINGFIELD_210 0

:SPRINGFIELD_203
jump @SPRINGFIELD_39

:SPRINGFIELD_210
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_370
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_589
0AA2: 0@ = load_library "SAMP.DLL" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
0AB2: ret 0

:CLEO
0000:
//cleo 2#
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1

while true
wait 0
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    Player.Defined($PLAYER_ACTOR)
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
        if 25 >= 1@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 66.0 value 1@ R 28@ G 29@ B 30@
        end
        if 2@ > 0
        then
        if 25 >= 2@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 44.0 value 2@ R 28@ G 29@ B 30@
        end
  
        if
        0AB1: call_scm_func @sprint 0 0@
        then
        0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 1
        0092: 0@ = float 0@ to_integer
            if 25 >= 0@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
            0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 0
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            end
        end
    end
end

:drawBar
//0AB1: call_scm_func @drawBar 6 coords_X 3@ coords_Y 4@ value 5@ size X 40.0 Y 4.0 thickness 2.0 // The value must be 100.0 (eg. max_HP = 750.0 ==> max_HP /= 7.5)
    if 6@ == 1
    then
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BB"
    else
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BB"
    end
13@ = 100.0 
0073: 13@ /= 3@ // (float)
0073: 2@ /= 13@ // (float)
0087: 11@ = 3@ // (float)
0087: 12@ = 4@ // (float)
005B: 11@ += 5@  // (float)
005B: 12@ += 5@  // (float)
038E: draw_box_position 0@ 1@ size 11@ 12@ RGBA 0 0 0 255
038E: draw_box_position 0@ 1@ size 3@ 4@ RGBA 17@ 18@ 19@ 255
0087: 10@ = 2@ // (float)
0017: 10@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 10@  // (float)
0063: 0@ -= 3@  // (float)
038E: draw_box_position 0@ 1@ size 2@ 4@ RGBA 14@ 15@ 16@ 255
0AB2: ret 0

:drawNumber
//0AB1: call_scm_func @drawNumber 6 coords_X 0@ coords_Y 1@ value 2@ R 3@ G 4@ B 5@
0349: set_text_draw_font 1
0342: set_text_draw_centered 1
033F: set_text_draw_letter_size 0.3 0.9
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 3@ 4@ 5@ 255
045A: draw_text_1number 0@ 1@ GXT 'NUMBER' number 2@  // ~1~
0AB2: ret 0

:sprint
0A8D: 0@ = read_memory 0xB7CDB4 size 4 virtual_protect 0
0@ /= 31.47000244
0@ += 4.0
0@ *= 0.9615384615384615
0A8D: 1@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
1@ /= 39.97000244
    if and
    1@ > 99.0
    8965:   actor $PLAYER_ACTOR swimming
    80DF:   actor $PLAYER_ACTOR driving
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 1 0@

:carhealth
0A8D: 2@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
2@ /= 39.97000244
    if and
    2@ > 99.9
    Actor.Driving($PLAYER_ACTOR)
    then
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    1@ = Car.Health(0@)
    0093: 1@ = integer 1@ to_float
        if and
        1@ >= 250.0
        1000.0 >= 1@
        then
        000F: 1@ -= 250.0
        0017: 1@ /= 7.5
        else
            if 1@ >= 1000.0
            then
            1@ = 100.0
            else
            1@ = 0.0
            end
        end
    0485:  return_true
    else
    1@ = 0.0
    059A:  return_false
    end
0AB2: ret 1 1@

:CLEO3
0000: NOP
//cleo 3#
0001: wait 0 ms
0006: 2@ = 30

:Noname_11
0001: wait 0 ms
0006: 1@ = 0
0006: 32@ = 0

:Noname_29
0001: wait 0 ms
000A: 1@ += 1
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 2@
00D6: if
0019:   32@ > 999
004D: jump_if_false @Noname_29
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 1@
0085: 2@ = 1@ // (int)
0002: jump @Noname_11


:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
    0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
    000A: 33@ += 4
end
0AB2: ret 0
Нажмите для раскрытия...
Не так обьяснил, извини. Нужно было склеить Fps_show с вх(Без Dig Info) Если не сложно переделай пожалуйста :З
 

Вложения

  • FPS_shw.cs
    17.3 KB · Просмотры: 6
  • hud.cs
    20.3 KB · Просмотры: 6
  • Нравится
Реакции: cTapK
U

unInstance

Новичок
Проверенный
311
224
Андруша. написал(а):
Не так обьяснил, извини. Нужно было склеить Fps_show с вх(Без Dig Info) Если не сложно переделай пожалуйста :З
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000: NOP
call @RUN_CLEO params 1 _atLabel @CLEO
0001: wait 0 ms
0006: 2@ = 30

:Noname_11
0001: wait 0 ms
0006: 1@ = 0
0006: 32@ = 0

:Noname_29
0001: wait 0 ms
000A: 1@ += 1
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 2@
00D6: if
0019:   32@ > 999
004D: jump_if_false @Noname_29
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
0340: set_text_draw_RGBA 180 180 180 255
045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 1@
0085: 2@ = 1@ // (int)
0002: jump @Noname_11


:CLEO
0000: NOP
thread "SPRINGFIELD"
wait 5000
0AB1: call_scm_func @SPRINGFIELD_589 0 
31@ = 0

:SPRINGFIELD_39
wait 0
if and
0AB0:   key_pressed 109
0AB0:   key_pressed 109
else_jump @SPRINGFIELD_145
0B12: 31@ = 31@ XOR 1
if
  31@ == 1
else_jump @SPRINGFIELD_112
0AB1: call_scm_func @SPRINGFIELD_210 0 
wait 200
jump @SPRINGFIELD_145

:SPRINGFIELD_112
if
  31@ == 0
else_jump @SPRINGFIELD_145
0AB1: call_scm_func @SPRINGFIELD_370 0 
wait 200

:SPRINGFIELD_145
if
  31@ == 1
else_jump @SPRINGFIELD_203
if
0AB0:   key_pressed 119
else_jump @SPRINGFIELD_203
0AB1: call_scm_func @SPRINGFIELD_370 0 
wait 1000
0AB1: call_scm_func @SPRINGFIELD_210 0 

:SPRINGFIELD_203
jump @SPRINGFIELD_39

:SPRINGFIELD_210
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_370
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_589
0AA2: 0@ = load_library "SAMP.DLL" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
0AB2: ret 0

:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
    0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
    000A: 33@ += 4
end
0AB2: ret 0
 

Вложения

  • null.cs
    21.6 KB · Просмотры: 10
  • Нравится
Реакции: cTapK
Статус
В этой теме нельзя размещать новые ответы.

Похожие темы

  1. santa_eph
    • Закрыта
    Помогите пж!
    Ответы
    4
    Просмотры
    980
    Архив
    santa_eph
    santa_eph
  2. ic3berg
    • Закрыта
    Помогите с CLEO, легкая просьба!
      • Нравится
    Ответы
    2
    Просмотры
    23K
    Другое
    ic3berg
    ic3berg
  3. kravetc
    • Решено
    Помогите соединить несколько скриптов
    Ответы
    1
    Просмотры
    498
    Помощь
    CaJlaT
    CaJlaT
  4. BaronKelon
    • Вопрос
    Помогите соединить 3 скрипта в один, функция у всех одна и та же
    Ответы
    1
    Просмотры
    395
    Помощь
    hellobudyy
    hellobudyy
  5. DreamDim_
    • Решено
    [RakSamp] Помощь в коде
    Ответы
    2
    Просмотры
    599
    Помощь
    DreamDim_
    DreamDim_
Сверху Снизу