help

[Sam201]

help me fix this

{$CLEO.cs}
0000:NOP

:Init
wait 100
if
    SAMP.Available
jf @Init
0AC8: 0@ = allocate_memory_size 250
0AC8: 1@ = allocate_memory_size 250
jump @MF @MP

:MF
0ACD: show_text_highpriority "tp on" time 2000
wait 0
for 30@ = 99 downto 94
    0B75: samp get_chat_string 30@ text_to 0@ prefix_to 1@ color_to 2@ prefix_color_to 3@
    0C26: strupr in 0@ out 1@
    if or
        0C18: 2@ = strstr string1 1@ string2 "You bought 20 material package for $550"
        0C18: 2@ = strstr string1 1@ string2 "You bought 20 material package for $550"
        0C18: 2@ = strstr string1 1@ string2 "You bought 20 material package for $550"
        0C18: 2@ = strstr string1 1@ string2 "You bought 20 material package for $550"
        wait 120000
    then
        Actor.PutAt($PLAYER_ACTOR, -1061.90 -217.83 -0.17)
        wait 1500
        Break
    end
end
jump @MP
0ACD: show_text_highpriority "tp on" time 2000
wait 0
for 30@ = 99 downto 94
    0B75: samp get_chat_string 30@ text_to 0@ prefix_to 1@ color_to 2@ prefix_color_to 3@
    0C26: strupr in 0@ out 1@
    if or
        0C18: 2@ = strstr string1 1@ string2 "The factory gave you 500 materials for your delivery"
        0C18: 2@ = strstr string1 1@ string2 "The factory gave you 500 materials for your delivery"
        0C18: 2@ = strstr string1 1@ string2 "The factory gave you 500 materials for your delivery"
        0C18: 2@ = strstr string1 1@ string2 "The factory gave you 500 materials for your delivery"
        wait 120000
    then
        Actor.PutAt($PLAYER_ACTOR, -1543.92 2627.95 55.42)
        wait 1500
        Break
    end
end
Jump @MF

Its a TelePort hack conditioned with a text, when this text appears (You bought 20 material package for $550) it should wait 120secounds then teleport to the cords Actor.PutAt($PLAYER_ACTOR, -1061.90 -217.83 -0.17) then when this appears
( The factory gave you 500 materials for your delivery) waits 120seconds again before teleporting back to a different cords Actor.PutAt($PLAYER_ACTOR, -1543.92 2627.95 55.42)
and eventually should be a loop of tp hack bot

 

[D3.Pheonix]

/bot

{$CLEO}
{$USE bitwise}

0000:

repeat
wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "bot" to_label @bot
0AC8: 0@ = allocate_memory_size 164
0AC8: 1@ = allocate_memory_size 164
0AD3: 1@ = format "You bought 20 material package for $550"

while true
wait 0
    if 31@ == true
    then
        for 3@ = 99 downto 94
        0B75: samp get_chat_string 3@ text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
            if 
            0C18: 2@ = strstr string1 0@ string2 1@
            then
                if
                0C14: strcmp string1 2@ string2 "You bought 20 material package for $550"
                then
                0AD3: 1@ = format "The factory gave you 500 materials for your delivery"
                wait 120000
                00A1: put_actor $PLAYER_ACTOR at -1061.90 -217.83 -0.17
                break
                end
            
                if
                0C14: strcmp string1 2@ string2 "The factory gave you 500 materials for your delivery"
                then
                0AD3: 1@ = format "You bought 20 material package for $550"
                wait 120000
                00A1: put_actor $PLAYER_ACTOR at -1543.92 2627.95 55.42
                break
                end
            end
        end
    end        
end

:bot
0B12: 31@ = 31@ XOR true
if 31@ == true
then
print "bot ~g~ENABLED" 500
else
print "bot ~r~DISABLED" 500
end
0B43: samp cmd_ret

 

[Sam201]

/bot

{$CLEO}
{$USE bitwise}

0000:

repeat
wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "bot" to_label @bot
0AC8: 0@ = allocate_memory_size 164
0AC8: 1@ = allocate_memory_size 164
0AD3: 1@ = format "You bought 20 material package for $550"

while true
wait 0
    if 31@ == true
    then
        for 3@ = 99 downto 94
        0B75: samp get_chat_string 3@ text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
            if
            0C18: 2@ = strstr string1 0@ string2 1@
            then
                if
                0C14: strcmp string1 2@ string2 "You bought 20 material package for $550"
                then
                0AD3: 1@ = format "The factory gave you 500 materials for your delivery"
                wait 120000
                00A1: put_actor $PLAYER_ACTOR at -1061.90 -217.83 -0.17
                break
                end
           
                if
                0C14: strcmp string1 2@ string2 "The factory gave you 500 materials for your delivery"
                then
                0AD3: 1@ = format "You bought 20 material package for $550"
                wait 120000
                00A1: put_actor $PLAYER_ACTOR at -1543.92 2627.95 55.42
                break
                end
            end
        end
    end       
end

:bot
0B12: 31@ = 31@ XOR true
if 31@ == true
then
print "bot ~g~ENABLED" 500
else
print "bot ~r~DISABLED" 500
end
0B43: samp cmd_ret

thank you, can you make it teleport to check point instead of cords?

 

[D3.Pheonix]

thank you, can you make it teleport to check point instead of cords?

{$CLEO}
{$USE bitwise}

0000:

repeat
wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "bot" to_label @bot
0AC8: 0@ = allocate_memory_size 164
0AC8: 1@ = allocate_memory_size 164
0AD3: 1@ = format "You bought 20 material package for $550"

while true
wait 0
    if 31@ == true
    then
        for 3@ = 99 downto 94
        0B75: samp get_chat_string 3@ text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
            if
            0C18: 2@ = strstr string1 0@ string2 1@
            then
                if
                0C14: strcmp string1 2@ string2 "You bought 20 material package for $550"
                then
                    if
                    call @is_cp_active
                    then
                    wait 120000
                    0AD3: 1@ = format "The factory gave you 500 materials for your delivery"
                    call @get_cp_pos 4@ 5@ 6@
                    00A1: put_actor $PLAYER_ACTOR at 4@ 5@ 6@
                    break
                    end
                end
          
                if
                0C14: strcmp string1 2@ string2 "The factory gave you 500 materials for your delivery"
                then
                    if
                    call @is_cp_active
                    then
                    wait 120000
                    0AD3: 1@ = format "You bought 20 material package for $550"
                    call @get_cp_pos 4@ 5@ 6@
                    00A1: put_actor $PLAYER_ACTOR at 4@ 5@ 6@
                    break
                    end
                end
            end
        end
    end      
end

:bot
0B12: 31@ = 31@ XOR true
if 31@ == true
then
print "bot ~g~ENABLED" 500
else
print "bot ~r~DISABLED" 500
end
0B43: samp cmd_ret

// https://www.blast.hk/threads/11063/
:is_cp_active
if 0AA2: 0@ = loadlib "samp.dll"
then 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@
end
0AB2: ret 0

:get_cp_pos
if 0AA2: 0@ = loadlib "samp.dll"
then 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@
end
0AB2: ret 3 2@ 3@ 4@