Помогите сделать [Авто Викторина]

[iTz_WEEZY]

Крч.. такая шняга..

Тема похожа на Авто Математику.
но немного другое
Суть в том что если код видит нужный текст (прописанный в коде) в чате и сразу дает правильный ответ в sms который я напишу в коде


Дайте часть кода чтобы я уже разобрался..
Где будет Текст из чата и ответ на него

Текст из ChatLog

{FFA500} _______________________________________________ Викторина _______________________________________________

{FFA500}Вопрос: Как называются самые маленькие обезьянки? (7 букв). Ответы на номер 7575

{FFA500}_________________________________________________________________________________________________________

я задавал вопрос в теме вопросы по клео скриптингу видимо не так объяснял или что еще но мне не очень помогли

 

[mac]

Откуда-то из раздела клео хелп, меня ломает писать код

{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
0c11: 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

whiletrue
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@// Text
    0C0F: array 4@ element 3@ = 0x00
   if
    0C18: 7@ = strstr string1 4@ string2 "Как называются самые маленькие обезьянки?"
   then
        say "/sms 7575 Игрунка"
   end                                              
end
0BE0: raknet hook_ret true

 

[01EG]

Ну еб твою мать, разве так не будет работать ?

{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
    if
    0C18: 7@ = strstr string1 4@ string2 "Вопрос: Как называются самые маленькие обезьянки? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"
    end                                                  
end
0BE0: raknet hook_ret true

Если так не работает, то добавь цвет из чатлога {FFA500} в 0C18
Если номер на который нужно отвечать всегда меняется, то нужно чуть по другому.
Если нужно хукать несколько разных сообщений, то пишешь if or и ниже после if or создаешь несколько 0c18 с разным текстом.

 

[iTz_WEEZY]

Если так не работает, то добавь цвет из чатлога {FFA500} в 0C18
Если номер на который нужно отвечать всегда меняется, то нужно чуть по другому.
Если нужно хукать несколько разных сообщений, то пишешь if or и ниже после if or создаешь несколько 0c18 с разным текстом.

Это получается так: ?

if
    0C18: 7@ = strstr string1 4@ string2 "Вопрос: Как называются самые маленькие обезьянки? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"
     if 
  0C18: 7@ = strstr string1 4@ string2 "Че за хуйня? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"     
if 
  0C18: 7@ = strstr string1 4@ string2 "Ляляля? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"

Так?

 

[iTz_WEEZY]

Просто там пиздец как дохуя вопросов

 

[01EG]

Это получается так: ?

if
    0C18: 7@ = strstr string1 4@ string2 "Вопрос: Как называются самые маленькие обезьянки? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"
     if
  0C18: 7@ = strstr string1 4@ string2 "Че за хуйня? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"  
if
  0C18: 7@ = strstr string1 4@ string2 "Ляляля? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"

Так?

после каждого then сразу ставь end. Ты же пишешь 3 разные проверки, а не 3 проверки, которые вытекают друг из друга.

{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage

while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
    if
    0C18: 7@ = strstr string1 4@ string2 "Вопрос: Как называются самые маленькие обезьянки? (7 букв). Ответы на номер 7575"
    then
        say "/sms 7575 ОТВЕТ"
    end  
  
    if
    0C18: 7@ = strstr string1 4@ string2 "Вопрос: Какой-то вопрос? (7 букв). Ответы на номер 7575"
    then
    say "bla blabla"
    end

    if
    proverka
    then
    end
                                            
end
0BE0: raknet hook_ret true

И так хуярь проверки сколько тебе нужно и ответы какие тебе нужны.

 

[iTz_WEEZY]

Во всё ништяк а то я думал метки надо хуярить, оказывается все проще чем я думал