Исходник [Revent RP] Оставляю код на доработку

Karbun · 14 Июн 2017

Вообщем, пытался я сделать авто кликер для рыбалки на сервере Revent RP, так и не получилось, оставляю свои исходники на доработку, может кто-то и сможет осилить это...

CLEO:

{$CLEO}
0000:

while not Samp.Available()
wait 100
end

alloc 10@ = 256
alloc 15@ = 256

while true
wait 0
if 0C5D: samp textdraw 2120 is_exists
then
     0C5A: samp textdraw 2120 get_string_to 15@
                                                                                                                                                                         
     if 0C18: 24@ = strstr string1 15@ string2 "LD_BEAT:up"
     then
     for 6@ = 2116 to 2119
     0C5A: samp textdraw 6@ get_string_to 10@
         if 0C18: 24@ = strstr string1 10@ string2 "LD_BEAT:up"
         then
         0af8: "Стрелка вверх" -1
         0af8: "%d" -1 6@
         wait 200
         0BCA: samp send_click_textdraw 6@
         end                                                                       
     end
     end
  

     if 0C18: 24@ = strstr string1 15@ string2 "LD_BEAT:left"
     then
     for 7@ = 2116 to 2119
     0C5A: samp textdraw 7@ get_string_to 10@
         if 0C18: 24@ = strstr string1 10@ string2 "LD_BEAT:left"
         then
         0af8: "Стрелка влево" -1
         0af8: "%d" -1 7@
         wait 200
         0BCA: samp send_click_textdraw 7@

         end
     end
     end
  

     if 0C18: 24@ = strstr string1 15@ string2 "LD_BEAT:right"
     then
     for 8@ = 2116 to 2119
     0C5A: samp textdraw 8@ get_string_to 10@
         if 0C18: 24@ = strstr string1 10@ string2 "LD_BEAT:right"
         then
         0af8: "Стрелка вправо" -1
         0af8: "%d" -1 8@
         wait 200
         0BCA: samp send_click_textdraw 8@

         end
     end
     end
  

     if 0C18: 24@ = strstr string1 15@ string2 "LD_BEAT:down"
     then
     for 9@ = 2116 to 2119
     0C5A: samp textdraw 9@ get_string_to 10@
         if 0C18: 24@ = strstr string1 10@ string2 "LD_BEAT:down"
         then
         0af8: "Стрелка вниз" -1
         0af8: "%d" -1 9@
         wait 200
         0BCA: samp send_click_textdraw 9@
         end
     end
     end
end 
end

iTz_WEEZY · 14 Июн 2017

Karbun написал(а):
пытался я сделать авто мини-игру

может авто кликер?

Нужно нажать на 2120 ? сколько их всего?

Karbun · 14 Июн 2017

iTz_W33Z7 написал(а):
Нужно нажать на 2120 ? сколько их всего?

--------------------------------------------------------
ID ТЕКСТДРАВА: 2116
Текст из текстдрава: LD_BEAT:left
--------------------------------------------------------
ID ТЕКСТДРАВА: 2117
Текст из текстдрава: LD_BEAT:down
--------------------------------------------------------
ID ТЕКСТДРАВА: 2118
Текст из текстдрава: LD_BEAT:right
--------------------------------------------------------
ID ТЕКСТДРАВА: 2119
Текст из текстдрава: LD_BEAT:up
--------------------------------------------------------
ID ТЕКСТДРАВА: 2120
Текст из текстдрава: LD_BEAT:up
--------------------------------------------------------

2120 - это стрелка слева ( на скрине 72 )

Dark_Knight · 15 Июн 2017

За 100 напишу приват бота. За 500 паблик

Karbun · 15 Июн 2017

Dark_Knight написал(а):
За 100 напишу приват бота. За 500 паблик

Тот код, что написан сверху готов на 80%, его бы только немного подкорректировать и будет работать. Не вижу смысла покупать его у кого-то, когда работа почти сделана.

Dark_Knight · 15 Июн 2017

Karbun написал(а):
Тот код, что написан сверху готов на 80%, его бы только немного подкорректировать и будет работать. Не вижу смысла покупать его у кого-то, когда работа почти сделана.

Только твой код работает по определенный текст драв. Мой будет сам находить текстдрав.

Karbun · 15 Июн 2017

Dark_Knight написал(а):
Только твой код работает по определенный текст драв. Мой будет сам находить текстдрав.

Хах, можно просто поставить цикл for от 0 до 3000 и он тоже будет ловить определенный текстдрав.

iTz_WEEZY · 15 Июн 2017

Karbun написал(а):
Хах, можно просто поставить цикл for от 0 до 3000 и он тоже будет ловить определенный текстдрав.

эти текстдравы кликабельны или нужно нажимать стрелки на клаве?

Dark_Knight · 15 Июн 2017

Karbun написал(а):
Хах, можно просто поставить цикл for от 0 до 3000 и он тоже будет ловить определенный текстдрав.

Только определенный текст ты пишешь должен указать в коде, а мой плагин не потребует указание определенного текстдрава.

Karbun · 15 Июн 2017

iTz_W33Z7 написал(а):
эти текстдравы кликабельны или нужно нажимать стрелки на клаве?

Кликабельны

BlackKnigga · 15 Июн 2017

Karbun написал(а):
готов на 80%

Громко сказано. С таким кодом скрипт зафлудит неправильными нажатиями быстрее, чем будет появляться новый текстдрав слева. Надо хукать изменение левого текстдрава и жать на правые.

Да и вообще не стоит делать это на клео, когда есть луа.

iTz_WEEZY · 15 Июн 2017

Вот код, взял твой же код из вопросов по клео, немного подправил, у меня робит

CLEO:

{$CLEO}


0000:


/////////////////////////////////////////////////
WHILE NOT SAMP.Available()
    WAIT 100
END


WAIT 2500
/////////////////////////////////////////////////
ALLOC 0@ 256
ALLOC 1@ 256
ALLOC 2@ 256
ALLOC 3@ 256
ALLOC 4@ 256
/////////////////////////////////////////////////
MEMSET 0@ 0x0 256
MEMSET 1@ 0x0 256
MEMSET 2@ 0x0 256
MEMSET 3@ 0x0 256
MEMSET 4@ 0x0 256
/////////////////////////////////////////////////
WHILE TRUE
    WAIT 0
        IF 0C5D: samp textdraw 2120 is_exists
            THEN
            0C5A: samp textdraw 2120 get_string_to 0@
            0C5A: samp textdraw 2119 get_string_to 1@
            0C5A: samp textdraw 2118 get_string_to 2@
            0C5A: samp textdraw 2117 get_string_to 3@
            0C5A: samp textdraw 2116 get_string_to 4@     
/////////////////////////////////////////////////
IF 0C14: strcmp string1 1@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2119
 
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 2@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2118
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 3@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2117
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 4@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2116
END
///////////////////////////////////////////////
END
END

//iTz_Weezy

Karbun · 17 Июн 2017

iTz_W33Z7 написал(а):

Вот код, взял твой же код из вопросов по клео, немного подправил, у меня робит

CLEO:

{$CLEO}


0000:


/////////////////////////////////////////////////
WHILE NOT SAMP.Available()
    WAIT 100
END


WAIT 2500
/////////////////////////////////////////////////
ALLOC 0@ 256
ALLOC 1@ 256
ALLOC 2@ 256
ALLOC 3@ 256
ALLOC 4@ 256
/////////////////////////////////////////////////
MEMSET 0@ 0x0 256
MEMSET 1@ 0x0 256
MEMSET 2@ 0x0 256
MEMSET 3@ 0x0 256
MEMSET 4@ 0x0 256
/////////////////////////////////////////////////
WHILE TRUE
    WAIT 0
        IF 0C5D: samp textdraw 2120 is_exists
            THEN
            0C5A: samp textdraw 2120 get_string_to 0@
            0C5A: samp textdraw 2119 get_string_to 1@
            0C5A: samp textdraw 2118 get_string_to 2@
            0C5A: samp textdraw 2117 get_string_to 3@
            0C5A: samp textdraw 2116 get_string_to 4@    
/////////////////////////////////////////////////
IF 0C14: strcmp string1 1@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2119

END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 2@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2118
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 3@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2117
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 4@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2116
END
///////////////////////////////////////////////
END
END

//iTz_Weezy

Не работает

samp is meme · 18 Июн 2017

слон же делал на сф.

marioforte · 21 Июн 2017

iTz_W33Z7 написал(а):

Вот код, взял твой же код из вопросов по клео, немного подправил, у меня робит

CLEO:

{$CLEO}


0000:


/////////////////////////////////////////////////
WHILE NOT SAMP.Available()
    WAIT 100
END


WAIT 2500
/////////////////////////////////////////////////
ALLOC 0@ 256
ALLOC 1@ 256
ALLOC 2@ 256
ALLOC 3@ 256
ALLOC 4@ 256
/////////////////////////////////////////////////
MEMSET 0@ 0x0 256
MEMSET 1@ 0x0 256
MEMSET 2@ 0x0 256
MEMSET 3@ 0x0 256
MEMSET 4@ 0x0 256
/////////////////////////////////////////////////
WHILE TRUE
    WAIT 0
        IF 0C5D: samp textdraw 2120 is_exists
            THEN
            0C5A: samp textdraw 2120 get_string_to 0@
            0C5A: samp textdraw 2119 get_string_to 1@
            0C5A: samp textdraw 2118 get_string_to 2@
            0C5A: samp textdraw 2117 get_string_to 3@
            0C5A: samp textdraw 2116 get_string_to 4@    
/////////////////////////////////////////////////
IF 0C14: strcmp string1 1@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2119

END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 2@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2118
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 3@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2117
END
/////////////////////////////////////////////////
IF 0C14: strcmp string1 4@ string2 0@
    THEN
    WAIT 255
    0BCA: samp send_click_textdraw 2116
END
///////////////////////////////////////////////
END
END

//iTz_Weezy

тут задержка какая? я шото не догнал

Поиск

Поиск

Исходник [Revent RP] Оставляю код на доработку

Karbun

Участник

iTz_WEEZY

Известный

Karbun

Участник

Dark_Knight

Me, me and me.

Karbun

Участник

Dark_Knight

Me, me and me.

Karbun

Участник

iTz_WEEZY

Известный

Dark_Knight

Me, me and me.

Karbun

Участник

BlackKnigga

Известный

iTz_WEEZY

Известный

Karbun

Участник

samp is meme

Активный

marioforte

Новичок

Похожие темы