CLEO Help auto /accept repar

[davidel]

Spoiler: s

{$CLEO .cs}

0000:

repeat
wait 0
until 0afa:

while true
wait 0

FOR 6@ = 98 TO 99
0AC8: 0@ = allocate_memory_size 260 // ALLOCATE MEMORY FOR THE CHAT STRING
0AB1: @GETCHATENTRYTEXT 1 id 6@ to 0@ // THIS IS A FUNCTION THAT STORES THE LAST CHAT STRING INTO 0@

if
0AD4: $NOT_USED = scan_string 0@ format "Tasteaza /accept repair pentru a accepta." $NOT_USED 5@
then
say "/accept repair" 5@
end

END

end


:getChatEntryText
0AF7: samp 1@ = get_base
1@ += 0x21A0E4
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 0x136
0@ *= 252 // size of stChatEntry
005A: 1@ += 0@ // (int)
1@ += 28
0AB2: 1 1@

davidel offered you repair (ID:46) for 1$. Type /accept repair to accept.

i need to detect the last part of the phrase "Type /accept repair to accept."
when it detects to automatically type /accept repair
why it doesnt work? nothing happens.. no error etc

 

[KamikazeSripterul]

If you dont need the id, just get the chat string and once it has the phrase 'offered you repair' say '/accept repair'.

 

[davidel]

how?

 

[Zin]

assuming 0@ == chat line

if 0C29: 1@ = search in_string 0@ this_string "hello"
then printf "found hello in chat" 100
end

also you might have to use the "get chat line" opcode for getting the chatline. With 0c29 you don't have to be specific it basically just means if the string contains that word then the condition is true.

 

[davidel]

can you put it in my code please?

 

[KamikazeSripterul]

can you put it in my code please?

{$CLEO}
{$INCLUDE SF}
0000:

repeat
wait 0
until SAMP.Available()


0BE3: raknet setup_incoming_rpc_hook @chat_hook

WHILE TRUE
WAIT 0

END

:chat_hook
0BE5: raknet 31@ = get_hook_param PARAM_PACKETID
if 31@ == RPC_ScrClientMessage
then 
    alloc 28@ 129
    0C11: memset destination 28@ value 0 size 129
    0BE5: raknet 30@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 27@ = bit_stream_read 30@ type BS_TYPE_INT //color
    0BE7: raknet 29@ = bit_stream_read 30@ type BS_TYPE_INT //lenght
    0BE8: raknet bit_stream 30@ read_array 28@ size 29@ //string
    0C0D: struct 28@ offset 29@ size 1 = 0
    
    IF 0C18: $NOT_STRING = strstr string1 28@ string2 "text" //conditia pentru text
    THEN
        //NOP
        say "/accept repair"
    THEN
    
    free 28@
end
0BE0: raknet hook_ret true

There ya go

 

[Zin]

I imagine that code you posted would spam the chat as it loops through all of the chat so once you have done /repair it will still do /repair until that chatline is gone. It's also a non-sampfuncs equivalent when you clearly are using sampfuncs.

{$CLEO .CS}

THREAD 'AutoRepair'
alloc 0@ 256

REPEAT
    WAIT 0
UNTIL 0AFA:

WHILE TRUE
    WAIT 0
   
    0B75: samp get_chat_string 99 text_to 0@ prefix_to $NOT_USED color_to $NOT_USED prefix_color_to $NOT_USED
    IF
        0C29: $NOT_USED = stristr string1 "Tasteaza /accept repair pentru a accepta." string2 0@
    THEN
        0AF9: samp say_msg "/repair"
        WAIT 3000 // Delay to stop spam while that chat line is still there.
    END
   
END

 

[KamikazeSripterul]

I imagine that code you posted would spam the chat as it loops through all of the chat so once you have done /repair it will still do /repair until that chatline is gone. It's also a non-sampfuncs equivalent when you clearly are using sampfuncs.

{$CLEO .CS}

THREAD 'AutoRepair'

REPEAT
    WAIT 0
UNTIL 0AFA:

WHILE TRUE
    WAIT 0
   
    0B75: samp get_chat_string 99 text_to 0@ prefix_to $NOT_USED color_to $NOT_USED prefix_color_to $NOT_USED
    IF
        0C29: $NOT_USED = stristr string1 "Tasteaza /accept repair pentru a accepta." string2 0@
    THEN
        0AF9: samp say_msg "/repair"
        WAIT 3000 // Delay to stop spam while that chat line is still there.
    END
   
END

don't you have to allocate some memory for that?

 

[Zin]

don't you have to allocate some memory for that?

Oh yeah lemme add. Also you literally posted yours like a second before me.

 

[KamikazeSripterul]

Oh yeah lemme add. Also you literally posted yours like a second before me.

I know but he might not be using sampfuncs so it's good that he has both, at least we both have an idea so it's 100% solved.

 

[davidel]

Both works, thank you guyss

 

[davidel]

{$CLEO}
{$INCLUDE SF}
0000:

repeat
wait 0
until SAMP.Available()


0BE3: raknet setup_incoming_rpc_hook @chat_hook

WHILE TRUE
WAIT 0

END

:chat_hook
0BE5: raknet 31@ = get_hook_param PARAM_PACKETID
if 31@ == RPC_ScrClientMessage
then
    alloc 28@ 129
    0C11: memset destination 28@ value 0 size 129
    0BE5: raknet 30@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 27@ = bit_stream_read 30@ type BS_TYPE_INT //color
    0BE7: raknet 29@ = bit_stream_read 30@ type BS_TYPE_INT //lenght
    0BE8: raknet bit_stream 30@ read_array 28@ size 29@ //string
    0C0D: struct 28@ offset 29@ size 1 = 0
   
    IF 0C18: $NOT_STRING = strstr string1 28@ string2 "text" //conditia pentru text
    THEN
        //NOP
        say "/accept repair"
    THEN
   
    free 28@
end
0BE0: raknet hook_ret true

There ya go

how can i make to activate with 0B34: samp register_client_command ? i tried and i cant get it done
uknown server command..

 

[KamikazeSripterul]

how can i make to activate with 0B34: samp register_client_command ? i tried and i cant get it done
uknown server command..

{$CLEO}
{$INCLUDE SF}
0000:
repeat
wait 0
until SAMP.Available()

0BE3: raknet setup_incoming_rpc_hook @chat_hook
30@ = 0
0B34: "autorepair" @status
WHILE TRUE
WAIT 0
END
:chat_hook
0BE5: raknet 31@ = get_hook_param PARAM_PACKETID
if 31@ == RPC_ScrClientMessage
then  
    alloc 28@ 129
    0C11: memset destination 28@ value 0 size 129
    0BE5: raknet 30@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 27@ = bit_stream_read 30@ type BS_TYPE_INT //color
    0BE7: raknet 29@ = bit_stream_read 30@ type BS_TYPE_INT //lenght
    0BE8: raknet bit_stream 30@ read_array 28@ size 29@ //string
    0C0D: struct 28@ offset 29@ size 1 = 0
   
    IF 0C18: $NOT_STRING = strstr string1 28@ string2 "text" //conditia pentru text
    THEN
        IF 30@ == 1
        THEN
            //NOP
            say "/accept repair"
        END
    END
   
    free 28@
end
0BE0: raknet hook_ret true
:status
SAMP.IsCommandTyped(20@)
0B12: 30@ = 30@ XOR 1
IF 30@ == 1
THEN
    chatmsg "{ffff00}[AutoRepair]: {cecece}Autorepair on!" -1
ELSE
    chatmsg "{ffff00}[AutoRepair]: {cecece}Autorepair off!" -1
END
SAMP.CmdRet()

not 100% sure it works but try it.