Something wrong...

not490

not490

Well-known member
Joined
Feb 8, 2014
Messages
453
Reaction score
4
What is wrong ?  im trying to make NOP Mute Server Chat to CLEO file, and why i am doing it with mute ? Because that is best way see if my first NOP to CLEO script works, so what i done wrong in this ?
{$CLEO .cs}

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end
//-------------MAIN---------------
0662: printstring "MADE BY not490"

:label
wait 0
if and
Player.Defined($PLAYER_CHAR)
0ADC: test_cheat "NOP"
jf @label
0ACD: show_text_highpriority "~r~ Disable~w~ mute chat" time 0
jump @label_1

:label_5
wait 0
0ACD: show_text_highpriority "OFF" time 500
jump @label

:label_1
wait 0
0ACD: show_text_highpriority "~p~mute chat" time 10000
while true
    wait 0
    if 0AB0: is_key_pressed 0x26
    then
        :disw
        while true
            wait 0
            0ACD: show_text_highpriority "~r~ Disable~w~ mute chat" time 10000
            if and
            0AB0: 0xD
            10@ == 0
            then
                0ACD: show_text_highpriority "~r~ Disable ~w~ mute chat" time 0
                0ab1: call @GetSampBase 0 retr_base_to 0@
                0@ += 0xB110 // Offset
                0A8D: 1@ = read_memory 0@ size 1 virtual_protect 1
                0A8C: write_memory 0@ size 1 value 0xC390 virtual_protect 1 // On
                0ACD: show_text_highpriority "~r~ mute chat  ~p~ enable" time 1000
                0006: 10@ == 1
                jump @label_2
            end
            if 0AB0: 0x28
            then
                jump @enablw
            end
            if
            0ADC: test_cheat "OFF"
            then
                jump @label_5
            end
            if or
            0AB0: 0x25
            0AB0: 0x27
            then
                jump @Label_3
            end   
        end
    end       
    if 0AB0: 0x28
    then
        :enablw
        while true
            wait 0     
            0ACD: show_text_highpriority "~r~ Enable ~w~ mute chat" time 10000
            if and
            0AB0: 0xD
            10@ == 1
            then
                0ACD: show_text_highpriority "~r~ Enable ~w~ mute chat" time 0
                0ab1: call @GetSampBase 0 retr_base_to 0@
                0@ += 0xB110 // Offset
                0A8C: write_memory 0@ size 1 value 1@ virtual_protect 1 // Off
                0ACD: show_text_highpriority "~r~ disable mute chat  ~p~ disable" time 1000
                0006: 10@ == 0
                jump @Label_2
            end
            if 0AB0: 0x26
            then
                jump @disw
            end
            if
            0ADC: test_cheat "OFF"
            then
                jump @label_5
            end
            if or
            0AB0: 0x25
            0AB0: 0x27
            then
                jump @Label_3
            end   
        end   
    end
    if or
    0AB0: 0x25
    0AB0: 0x27
    then
        jump @Label_3
    end
end

:Label_2
wait 1500
0ACD: show_text_highpriority "by ~r~not490~w~ for ~b~acheats.ru~n~~w~and ~b~ blasthack.net" time 2000
jump @label

:Label_3
wait 0
0ACD: show_text_highpriority "~p~SendDeath" time 10000
while true
    wait 0
    if 0AB0: is_key_pressed 0x26
    then
        :dissd
        while true
            wait 0
            0ACD: show_text_highpriority "~r~ NOP ~w~ SendDeath" time 10000
            if and
            0AB0: 0xD
            11@ == 0
            then
                0ACD: show_text_highpriority "~r~ Disable ~w~ mute chat" time 0
                0ab1: call @GetSampBase 0 retr_base_to 15@
                15@ += 0xB110 // Offset
                0A8D: 16@ = read_memory 15@ size 2 virtual_protect 1
                0A8C: write_memory 15@ size 2 value 0xC390 virtual_protect 1 // On
                0ACD: show_text_highpriority "~r~ NOP ~w~ SendDeath ~g~ ON" time 1000
                0006: 11@ == 1
                jump @label_2
            end
            if 0AB0: 0x28
            then
                jump @enabsd
            end
            if
            0ADC: test_cheat "OFF"
            then
                jump @label_5
            end
            if or
            0AB0: 0x25
            0AB0: 0x27
            then
                jump @Label_1
            end 
        end
    end       
    if 0AB0: 0x28
    then
        :enabsd
        while true
            wait 0     
            0ACD: show_text_highpriority "~g~ Enable ~b~ Send Death" time 10000
            if and
            0AB0: 0xD
            11@ == 1
            then
                0ACD: show_text_highpriority "~r~ enale ~w~ mute chat" time 0
                0A8C: write_memory 15@ size 2 value 16@ virtual_protect 1 // Off
                0ACD: show_text_highpriority "~w~NOP ~b~ off" time 1000
                0006: 11@ == 0
                jump @Label_2
            end
            if 0AB0: 0x26
            then
                jump @dissd
            end
            if
            0ADC: test_cheat "OFF"
            then
                jump @label_5
            end
            if or
            0AB0: 0x25
            0AB0: 0x27
            then
                jump @Label_1
            end 
        end   
    end
    if or
    0AB0: 0x25
    0AB0: 0x27
    then
        jump @Label_1
    end
end

:GetSampBase
wait 0
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@
0ab2: ret 1 2@
//0A8C: write_memory 0@ size 1 value 0xC3 virtual_protect 1 // On

:GetSampBase2
wait 0
0AA2: 15@ = load_library "kernel32.dll"
0AA4: 16@ = get_proc_address "GetModuleHandleA" library 15@
0AA7: call_function 16@ num_params 1 pop 0 "samp.dll" 17@
0ab2: ret 1 17@
Click to expand...
 
springfield

springfield

God
Joined
Feb 18, 2005
Messages
2,965
Reaction score
271
not490 link said:
0ACD: show_text_highpriority "by ~r~not490~w~ for ~b~acheats.ru~n~~w~and ~b~ blasthack.net" time 2000
Click to expand...
:face_palm:

Code: 
{$CLEO}
03A4: "SPRGFLD"
0000: "ugbase.eu"
0@ = 0
0AA2: 1@ = load_library "samp.dll" 
000A: 1@ += 0xB110 //MuteSvrCh
0A8D: 2@ = read_mem 1@ size 2 vp 0 

WHILE TRUE
wait 0
if
    0ADC: "NOP"
then
    if 
        0@ == 0
    then
        0AD1: "Mute chat ON" 1500
        0@ = 1             
        0A8C: write_memory 1@ size 2 value 0xC390 vp 1
    else
        0AD1: "Mute chat OFF" 1500
        0@ = 0
        0A8C: write_memory 1@ size 2 value 2@ vp 1
    end
end
end

TYPE NOP for ON/OFF, or change 0ADC with 0AB0.
 
N

Naganaga

Active member
Joined
Apr 13, 2013
Messages
103
Reaction score
0
SPRGFLD link said:
[quote author=not490 link=topic=5995.msg34054#msg34054 date=1394727328]
0ACD: show_text_highpriority "by ~r~not490~w~ for ~b~acheats.ru~n~~w~and ~b~ blasthack.net" time 2000
Click to expand...
:face_palm:

Code: 
{$CLEO}
03A4: "SPRGFLD"
0000: "ugbase.eu"
0@ = 0
0AA2: 1@ = load_library "samp.dll" 
000A: 1@ += 0xB110 //MuteSvrCh
0A8D: 2@ = read_mem 1@ size 2 vp 0 

WHILE TRUE
wait 0
if
    0ADC: "NOP"
then
    if 
        0@ == 0
    then
        0AD1: "Mute chat ON" 1500
        0@ = 1             
        0A8C: write_memory 1@ size 2 value 0xC390 vp 1
    else
        0AD1: "Mute chat OFF" 1500
        0@ = 0
        0A8C: write_memory 1@ size 2 value 2@ vp 1
    end
end
end

TYPE NOP for ON/OFF, or change 0ADC with 0AB0.
[/quote]


When I compile this, it says ''unknown directive''?
 
You must log in or register to reply here.
Top