CLEO Help Cleo keeps working while chatting

[Cole_Sp]

Need this CLEO keeps working while I'm chatting.
doing attack action needed, the virtual key is not necessary.

{$CLEO}
{$INCLUDE SF}
0000:
thread "Punch"

repeat
wait 0
until SAMP.Available()

0B34: "turnon" @on
0B34: "turnoff" @off

WHILE TRUE
WAIT 0

    IF 1@ == 1
    THEN
        IF 00EC:   actor $PLAYER_ACTOR sphere 0 near_point 1666.6652 {x} -1244.3052 {y} radius 5.0 5.0 5.0
        THEN
            wait 500
           

            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
            wait 1050
           
            0C72: set_virtual_key 162 down true
            wait 50
            0C72: set_virtual_key 162 down false
                             
            wait 12000
        END
    END

END

:on
SAMP.IsCommandTyped(20@)
chatmsg "turnned on" -1
1@ = 1
SAMP.CmdRet()

:off
SAMP.IsCommandTyped(20@)
1@ = 0
chatmsg "turnned off" -1
SAMP.CmdRet()

 

[ajom]

Use Opcode 0B21

 

[Cole_Sp]

Use Opcode 0B21

Any way to work while I minimized the game screen?
like making the game screen smaller and then going browse on the internet.

 

[dphome]

{$CLEO .cs}

0000: 'Parazitas'

REPEAT
WAIT 1000
0A8D: 0@ = readMem 0xA444A0 sz 4 vp 0
UNTIL 0@ == 1

0AB1: @memset 3 destination 7623723 value 144 size 8

WHILE TRUE
WAIT 0

IF
0ADC:   test_cheat "AFK"
THEN
    IF
    1@ == FALSE
    THEN
        1@ = TRUE
        0AD1: "ON" 1337
    ELSE
        1@ = FALSE
        0AD1: "OFF" 1337
    END
END

IF 
1@ == TRUE
THEN
    0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1
    0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1
    0AB1: @memset 3 destination 5499528 value 144 size 6 // disable esc when game is minimized
    0AB1: @memset 3 destination 7623723 value 144 size 8 // disable mouse centering
ELSE
    0A8C: write_memory 7634870 size 1 value 0 virtual_protect 1
    0A8C: write_memory 7635034 size 1 value 0 virtual_protect 1
    0AC6: 2@ = label @SOMETHING1 offset
    0AB1: @memcpy 3 destination 5499528 source 2@ size 6
    0AC6: 3@ = label @SOMETHING2 offset
    0AB1: @memcpy 3 destination 7623723 source 3@ size 8
END

END

:memcpy

var
0@ : integer
1@ : integer
2@ : integer
3@ : integer
end

// 0@ - destination, 1@ - source, 2@ - size
// Example: 0AB1: @memcpy 3 destination 0@ source 1@ size 2@

dec(2@)
for 3@ = 0 to 2@
    0A8D: 4@ = read_memory 1@ size 1 virtual_protect 0
    0A8C: write_memory 0@ size 1 value 4@ virtual_protect 0
    1@ += 1
    0@ += 1
end

0AB2: ret 0

:memset

var
0@ : integer
1@ : integer
2@ : integer
3@ : integer
end

// 0@ - destination, 1@ - value, 2@ - size
// Example: 0AB1: @memset 3 destination 0@ value 32 size 1
2@ -= 1
for 3@ = 0 to 2@
0A8C: write_memory 0@ size 1 value 1@ virtual_protect 0
0@ += 1
end

0AB2: ret 0

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

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

 

[Cole_Sp]

{$CLEO .cs}

0000: 'Parazitas'

REPEAT
WAIT 1000
0A8D: 0@ = readMem 0xA444A0 sz 4 vp 0
UNTIL 0@ == 1

0AB1: @memset 3 destination 7623723 value 144 size 8

WHILE TRUE
WAIT 0

IF
0ADC:   test_cheat "AFK"
THEN
    IF
    1@ == FALSE
    THEN
        1@ = TRUE
        0AD1: "ON" 1337
    ELSE
        1@ = FALSE
        0AD1: "OFF" 1337
    END
END

IF
1@ == TRUE
THEN
    0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1
    0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1
    0AB1: @memset 3 destination 5499528 value 144 size 6 // disable esc when game is minimized
    0AB1: @memset 3 destination 7623723 value 144 size 8 // disable mouse centering
ELSE
    0A8C: write_memory 7634870 size 1 value 0 virtual_protect 1
    0A8C: write_memory 7635034 size 1 value 0 virtual_protect 1
    0AC6: 2@ = label @SOMETHING1 offset
    0AB1: @memcpy 3 destination 5499528 source 2@ size 6
    0AC6: 3@ = label @SOMETHING2 offset
    0AB1: @memcpy 3 destination 7623723 source 3@ size 8
END

END

:memcpy

var
0@ : integer
1@ : integer
2@ : integer
3@ : integer
end

// 0@ - destination, 1@ - source, 2@ - size
// Example: 0AB1: @memcpy 3 destination 0@ source 1@ size 2@

dec(2@)
for 3@ = 0 to 2@
    0A8D: 4@ = read_memory 1@ size 1 virtual_protect 0
    0A8C: write_memory 0@ size 1 value 4@ virtual_protect 0
    1@ += 1
    0@ += 1
end

0AB2: ret 0

:memset

var
0@ : integer
1@ : integer
2@ : integer
3@ : integer
end

// 0@ - destination, 1@ - value, 2@ - size
// Example: 0AB1: @memset 3 destination 0@ value 32 size 1
2@ -= 1
for 3@ = 0 to 2@
0A8C: write_memory 0@ size 1 value 1@ virtual_protect 0
0@ += 1
end

0AB2: ret 0

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

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

Thank you so much buddy really appreciate that. I spent hours finding something like that.