CLEO Help any teleport cleo?

CLEO related

davidel

Well-known member
Joined
Jan 17, 2020
Messages
207
Reaction score
7
Location
Germania
i have tried many teleports but it keep give warnings to admins
even tried something like that, teleporting next to the cp and then into the cp
Code:
{$CLEO .cs}

{$CLEO}
{$USE CLEO}
{$USE bitwise}
{$USE ini}
{$USE file}
0000: NOP

wait 10000

0B34: samp register_client_command "gocp" to_label @cmd_mycmd
10@ = FALSE


while true
wait 0

if
10@ == TRUE
then

    if
    call @is_cp_active 0
    then
        if
        044B:   actor $PLAYER_ACTOR on_foot

        then
        0AF9: samp say_msg "/sleep"
        wait 300
            call @get_cp_pos 0 1@ 2@ 3@
            0AF3: write_float 1@ to_ini_file "cleo\cd.ini" section "POS" key "X"
            0AF3: write_float 2@ to_ini_file "cleo\cd.ini" section "POS" key "Y"
            0AF3: write_float 3@ to_ini_file "cleo\cd.ini" section "POS" key "Z"
            000B: 2@ += 5.1
            00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
            wait 300
            0AF2: 6@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "X"
            0AF2: 7@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "Y"
            0AF2: 8@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "Z"
            wait 1000
             00A1: put_actor $PLAYER_ACTOR at 6@ 7@ 8@
            wait 200
            04D7: set_actor $PLAYER_ACTOR locked 0
            01B4: set_player $PLAYER_CHAR can_move 1
            wait 4000
            10@ = FALSE
        end
    end   
end
end


:is_cp_active
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0x24
0A8D: 1@ = readMem 1@ sz 4 vp 0
IF 1@ == TRUE
THEN 0485:  return_true
ELSE 059A:  return_false
END
0AA3: freelib 0@
0AB2: ret 0

:get_cp_pos
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0xC
0A8D: 2@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 3@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 4@ = readMem 1@ sz 4 vp 0
0AA3: freelib 0@
0AB2: ret 3 2@ 3@ 4@

:cmd_mycmd
0B12: 10@ = 10@ XOR 1
SAMP.CmdRet()

can someone help? i can give server ip in PM because admins are watching here
 

davidel

Well-known member
Joined
Jan 17, 2020
Messages
207
Reaction score
7
Location
Germania
like that?
Code:
{$CLEO .cs}

{$CLEO}
{$USE CLEO}
{$USE bitwise}
{$USE ini}
{$USE file}
0000: NOP

wait 10000

0B34: samp register_client_command "gocp" to_label @cmd_mycmd
10@ = FALSE


while true
wait 0

if
10@ == TRUE
then

    if
    call @is_cp_active 0
    then
        if
        044B:   actor $PLAYER_ACTOR on_foot

        then
        0AF9: samp say_msg "/sleep"
        wait 300
            0B2E: 29@ = read_samp_memory offset 0x41E0 size 1
            0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
            call @get_cp_pos 0 1@ 2@ 3@
            0AF3: write_float 1@ to_ini_file "cleo\cd.ini" section "POS" key "X"
            0AF3: write_float 2@ to_ini_file "cleo\cd.ini" section "POS" key "Y"
            0AF3: write_float 3@ to_ini_file "cleo\cd.ini" section "POS" key "Z"
            000B: 2@ += 5.1
            00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
            wait 300
            0AF2: 6@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "X"
            0AF2: 7@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "Y"
            0AF2: 8@ = get_float_from_ini_file "cleo\cd.ini" section "POS" key "Z"
            wait 1000
             00A1: put_actor $PLAYER_ACTOR at 6@ 7@ 8@
            wait 200
            04D7: set_actor $PLAYER_ACTOR locked 0
            01B4: set_player $PLAYER_CHAR can_move 1
            wait 4000
            10@ = FALSE
        end
    end   
end
end


:is_cp_active
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0x24
0A8D: 1@ = readMem 1@ sz 4 vp 0
IF 1@ == TRUE
THEN 0485:  return_true
ELSE 059A:  return_false
END
0AA3: freelib 0@
0AB2: ret 0

:get_cp_pos
0AA2: 0@ = loadlib "samp.dll"
0A8E: 1@ = 0@ + 0x21A10C
0A8D: 1@ = readMem 1@ sz 4 vp 0
1@ += 0xC
0A8D: 2@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 3@ = readMem 1@ sz 4 vp 0
1@ += 0x4
0A8D: 4@ = readMem 1@ sz 4 vp 0
0AA3: freelib 0@
0AB2: ret 3 2@ 3@ 4@

:cmd_mycmd
0B12: 10@ = 10@ XOR 1
SAMP.CmdRet()
 
Top