Вопросы по CLEO-скриптингу

LaRossa · 15 Фев 2018

CLEO:

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()



alloc 16@ 105
alloc 1@ 64
alloc 4@ 25
alloc 5@ 260
alloc 25@ 50




WHILE TRUE
wait 0
for 15@ = 2057 to 2058
    if 0C5D: samp textdraw 15@ is_exists
    then
        0C5A: samp textdraw 15@ get_string_to 16@
        if 0C18: 2@ = strstr string1 16@ string2 "Target:"
        then
        0AA5: call 0x8220AD num_params 6 pop 6 params 4@ 3@v 2@v 1@ "~w~Target: ~r~%[^~]~w~(%d)~n~Distance: ~r~%dm ~w~(%[^)])" 16@
        0B75: samp get_chat_string 99 text_to 5@ prefix_to 0 color_to 0 prefix_color_to 0
          if
             0C18: 18@ = strstr string1 5@ string2 "Dispatch:"
          then
           0AA5: call 0x8220AD num_params 4 pop 4 26@v 25@ "Dispatch: %s[%d] has commited a crime:" 5@
                if
                0C14: strcmp string1 1@ string2 25@
                then      
                 chatmsg  25@ -1
                end
          end
        end
    end
end
end

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
0BE3: raknet setup_incoming_rpc_hook @hook

alloc 16@ 105
alloc 1@ 64
alloc 4@ 25
alloc 5@ 260
alloc 25@ 50


while true
    wait 0
    for 15@ = 2057 to 2058
    if 0C5D: samp textdraw 15@ is_exists
        then
        0C5A: samp textdraw 15@ get_string_to 16@
        if 0C18: 0 = strstr string1 16@ string2 "Target:"
            then
            0AA5: call 0x8220AD num_params 6 pop 6 params 4@ 3@v 2@v 1@ "~w~Target: ~r~%[^~]~w~(%d)~n~Distance: ~r~%dm ~w~(%[^)])" 16@
        end
    end   
end

:hook
0BE5: raknet 0@ = get_hook_param 0
0BE5: raknet 1@ = get_hook_param 1
if 1@ == 93
    then
    0BE7: raknet 2@ = bit_stream_read 0@ type 3
    0BE7: raknet 3@ = bit_stream_read 0@ type 3
    alloc 4@ 257
    0C11: memset destination 4@ value 0 size 257
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@
    if 0C18: 0 = strstr string1 4@ string2 "Dispatch:"
        then
        alloc 10@ 32
        0AA5: call 0x8220AD num_params 4 pop 4 10@ 11@v "Dispatch: %s[%d] has commited a crime:" 4@
        free 10@
        if 003B: 1@ == 11@  // (int)
            then
            msg "%d" -1 11@       
        end
        free 4@
    end                                  
end
0BE0: raknet hook_ret 1

Kristyan · 15 Фев 2018

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

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
0BE3: raknet setup_incoming_rpc_hook @hook

alloc 16@ 105
alloc 1@ 64
alloc 4@ 25
alloc 5@ 260
alloc 25@ 50


while true
    wait 0
    for 15@ = 2057 to 2058
    if 0C5D: samp textdraw 15@ is_exists
        then
        0C5A: samp textdraw 15@ get_string_to 16@
        if 0C18: 0 = strstr string1 16@ string2 "Target:"
            then
            0AA5: call 0x8220AD num_params 6 pop 6 params 4@ 3@v 2@v 1@ "~w~Target: ~r~%[^~]~w~(%d)~n~Distance: ~r~%dm ~w~(%[^)])" 16@
        end
    end  
end

:hook
0BE5: raknet 0@ = get_hook_param 0
0BE5: raknet 1@ = get_hook_param 1
if 1@ == 93
    then
    0BE7: raknet 2@ = bit_stream_read 0@ type 3
    0BE7: raknet 3@ = bit_stream_read 0@ type 3
    alloc 4@ 257
    0C11: memset destination 4@ value 0 size 257
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@
    if 0C18: 0 = strstr string1 4@ string2 "Dispatch:"
        then
        alloc 10@ 32
        0AA5: call 0x8220AD num_params 4 pop 4 10@ 11@v "Dispatch: %s[%d] has commited a crime:" 4@
        free 10@
        if 003B: 1@ == 11@  // (int)
            then
            msg "%d" -1 11@      
        end
        free 4@
    end                                 
end
0BE0: raknet hook_ret 1

вылетает игра после загрузки

Ты вообще понял что мне нужно?

san0 · 15 Фев 2018

Kristyan написал(а):
Ты вообще понял что мне нужно?

1) scanf format string - Wikipedia^{(https://en.wikipedia.org/wiki/Scanf_format_string#Format_string_specifications)}

CLEO:

0C3A: 1@ = string "Dispatch: Example_Nickname[123] has commited a crime: Grand theft auto" pointer
0C2A: 2@ = strchr 1@ char 0x5B
0A8C: write_memory 2@ size 1 value 0x20 virtual_protect 0
   
alloc 2@ 25
0AA5: call 0x8220AD num_params 4 pop 4 3@v 2@ "%*s %24s %3u" 1@
0af8: "\"%s\" with id %u" -1 2@ 3@
free  2@

2) Плохой код: начиная с того, что можно все сделать на хуках, заканчивая тем, что можно обойтись без sscanf (вышеиспользуемым strchr и указателями, например)
3) C регулярными выражениями на луа твой скрипт будет в ~ 15-20 строк. Без головной боли с выделением памяти, удалением символов и т.д.

grandpafromghetto · 15 Фев 2018

посоветуйте опкодов для написания простенького бота
p.s мне надо просто, чтоб бегал туда-сюда и все

romanblinov2013 · 16 Фев 2018

old_ghetto_ написал(а):
посоветуйте опкодов для написания простенького бота
p.s мне надо просто, чтоб бегал туда-сюда и все

BotFOpi/Bot at master · RB-PRO/BotFOpi · GitHub^{(https://github.com/RB-PRO/BotFOpi/blob/master/Bot)}
Можешь доработать эту быдлоту.

kawa operand · 16 Фев 2018

Удалённый пользователь 126082 · 16 Фев 2018

Как вообще пишут стиллеры? Я не чмо, которое заливает стиллеры и тд, я просто хочу узнать как они кидают данные на сайт.

kawa operand · 16 Фев 2018

Через хук получают введенную хуйню и отправляют на сервак средствами wininet(чаще всего)
InternetOpenA
InternetOpenUrlA

Но для этого надо знать php чтобы банально принять пришедший пароль и логин

D3ix · 16 Фев 2018

Всем привет. Помогите сделать скрипт "Автоответ". К примеру, в департамент пишет: "*Нажал красную кнопку*" или без звёздочек. (два варианата). После этого сообщения, я сразу пишу в чат: "/r Принял." задержка 1200 млс
"/d Передайте мой номер похитителям: "xx-xx-xx" задержка 1200 млс "/r Агенты, строй в гараже."
Если сделаешь такой скрипт, то заплачу аккаунтом :) SRP 09 and 04, 10 уровни есть. Ниже будут скриншоты с примером сообщения в чат => https://imgur.com/a/0IkQg
У меня есть пример старого автоответчика, может пригодиться :)

Код:

{$CLEO} 
{$INCLUDE SF} 
0000: 
0BE3: raknet setup_incoming_rpc_hook @1 
alloc 9@ 256 
alloc 11@ 20 

while true 
wait 0 
if and 
0C18: 0 = 9@ "SMS:" 
0C18: 0 = 9@ "Привет" 
then 
0AA5: call 0x8220AD num_params 4 pop 4 params 12@v 11@ "SMS: Привет | Отправитель: %s [т.%d]" 9@ 
0AF9: "/sms %d И тебе привет" 12@ 
end 
0C11: memset destination 9@ value 0 size 256 
end 

:1 
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM 
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID 
if 
6@ == RPC_ScrClientMessage 
then 
0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT 
0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT 
0C11: memset destination 9@ value 0 size 256 
0BE8: raknet bit_stream 5@ read_array 9@ size 8@ 
0C0F: array 9@ element 8@ = 0x00 
end 
0BE0: raknet hook_ret true

Заранее спасибо за помощь :)

babulya_headdyson · 16 Фев 2018

как создавать числа с 0 до ... по порядку

randazzo · 16 Фев 2018

iPhoneSeven написал(а):
как создавать числа с 0 до ... по порядку

CLEO:

FOR 0@ = 0 to 100
    msg "%d" 0@
END

romanblinov2013 · 16 Фев 2018

iPhoneSeven написал(а):
как создавать числа с 0 до ... по порядку

CLEO:

1@ = 1
while 1@ < 101
0af8: "%d" -1 1@
1@ += 1
end

Как тебе такие технологии, @randazzo ?

CLEO:

:1
wait 0
001B:   101 > 1@
jf @2
0A93: end_custom_thread

:2
0AF8: "%d" -1 1@
1@ += 1
jump @1

А такие?

randazzo · 16 Фев 2018

romanblinov2013 написал(а):
CLEO:

1@ = 1 while 1@ < 101 0af8: "%d" -1 1@ 1@ += 1 end

Как тебе такие технологии, @randazzo ?

технологии(костыли)

@Zhenek1515 можно, использовав хук на showdialog.

LaRossa · 16 Фев 2018

Zhenek1515 написал(а):
Вопрос такой, нажимаю на alt+2 , он пишет автомат. /capture,после открывается диалоговое окно, где выбирает он 3 пункт. Все работает, но можно ли как то ускорить вот это "Открывается диалоговое окно и он быстро чтоб выбирал 3 пункт"?

CLEO:

{$CLEO} {$NOSOURCE} 0000: NOP repeat wait 0 until samp.Available() WHILE TRUE wait 0 IF AND 0AB0: key_pressed 18 {alt 18} 0AB0: key_pressed 50 {2 52} THEN 0AF9: samp say_msg "/capture" wait 0 if 0B4C: samp is_dialog_active -1 then 0B49: samp set_current_dialog_list_item 2 0B47: samp close_current_dialog_with_button 1 end END END

CLEO:

{$CLEO}{$NOSOURCE}
0000:

while not Samp.Available()
    wait 0
end

while true
    wait 0
    if and
    0AB0:   key_pressed 18 {alt 18}
    0AB0:   key_pressed 50 {2 52}
        then
        say "/capture"

        repeat
        wait 0
        until 0B4C:  samp is_dialog_active -1
           
        0B49: samp set_current_dialog_list_item 2
        0B47: samp close_current_dialog_with_button 1
    end
end

Kristyan · 16 Фев 2018

Как можно чтобы текст из chatmsg выполнился только один раз?

CLEO:

repeat
    wait 0
until SAMP.Available()




WHILE TRUE
WAIT 0
            if
            call @is_cp_active_LS 0
            then
                call @get_cp_pos_LS 0 0@ 1@ 2@
            if and
            0@ ==  1554.532104
            1@ ==  -1675.580688
            2@ ==  16.195313
            then
                018C: play_sound 1052 at 0.0 0.0 0.0
                chatmsg "text1" -1
        else
            if and
            0@ ==  2287.257813
            1@ ==  2431.447998
            2@ ==  10.820302
            then
                018C: play_sound 1052 at 0.0 0.0 0.0
                chatmsg "text2" -1
        else
            if and
            0@ ==  -1605.046143
            1@ ==  711.501038
            2@ ==  13.867177
            then
                018C: play_sound 1052 at 0.0 0.0 0.0
                chatmsg "text3" -1
                end
            end
        end
    end
end
end



:is_cp_active_LS
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_LS
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@

Поиск

Поиск

Вопросы по CLEO-скриптингу

LaRossa

Потрачен

Kristyan

Известный

san0

Известный

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ

romanblinov2013

RB_PRO

kawa operand

перерывпятьминут

Удалённый пользователь 126082

Гость

kawa operand

перерывпятьминут

D3ix

Новичок

babulya_headdyson

KARELLI

randazzo

.

romanblinov2013

RB_PRO

randazzo

.

LaRossa

Потрачен

Kristyan

Известный

Похожие темы