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

R

#ripper

Новичок
17
0
пытался сделать подмену текста, хук блокируется, пакет не эмулируется, подскажите в чем проблема
CLEO: 
{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
0c11: 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 "Алеша"
    then
        0AC8: 20@ = allocate_memory_size 256
        0AC8: 11@ = allocate_memory_size 25
        0B2B: samp 10@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 11@ = get_player_nickname 10@
        0C11: memset destination 20@ value 0 size 256
        0AD3: 20@ = format "Валера под ником %s[%d]" 11@ 10@
        0C17: 12@ = strlen 20@
        0C0F: array 20@ element 12@ = 0x00
  
 
        0B3D: raknet 13@ = new_bit_stream
        0B40: raknet bit_stream 13@ write 2@ type BS_TYPE_INT size 4  // color
        0B40: raknet bit_stream 13@ write 12@ type BS_TYPE_INT size 4  // strLen
        0B40: raknet bit_stream 13@ write 20@ type BS_TYPE_ARRAY size 12@// Text
        0BF7: raknet emul_packet_receive 93 bit_stream 13@
        0B3E: raknet delete_bit_stream 13@

  
        0AC9: free_allocated_memory 20@
        0AC9: free_allocated_memory 11@
        0BE0: raknet hook_ret false
    end                                      
end
0BE0: raknet hook_ret true
 
Последнее редактирование:
V

VLnet

Новичок
16
0
Народ, как достать\нарисовать иконку оружия (именно стандартную, из gta3.img) в другом месте?
 
R

#ripper

Новичок
17
0
#ripper написал(а):
пытался сделать подмену текста, хук блокируется, пакет не эмулируется, подскажите в чем проблема
CLEO: 
{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
0c11: 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 "Алеша"
    then
        0AC8: 20@ = allocate_memory_size 256
        0AC8: 11@ = allocate_memory_size 25
        0B2B: samp 10@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 11@ = get_player_nickname 10@
        0C11: memset destination 20@ value 0 size 256
        0AD3: 20@ = format "Валера под ником %s[%d]" 11@ 10@
        0C17: 12@ = strlen 20@
        0C0F: array 20@ element 12@ = 0x00


        0B3D: raknet 13@ = new_bit_stream
        0B40: raknet bit_stream 13@ write 2@ type BS_TYPE_INT size 4  // color
        0B40: raknet bit_stream 13@ write 12@ type BS_TYPE_INT size 4  // strLen
        0B40: raknet bit_stream 13@ write 20@ type BS_TYPE_ARRAY size 12@// Text
        0BF7: raknet emul_packet_receive 93 bit_stream 13@
        0B3E: raknet delete_bit_stream 13@


        0AC9: free_allocated_memory 20@
        0AC9: free_allocated_memory 11@
        0BE0: raknet hook_ret false
    end                                    
end
0BE0: raknet hook_ret true
Нажмите для раскрытия...
возможно вы подумали что я ебнутый, аля, зачем эмулировать SendMessage, когда есть опкод
0AF8. прост хотел попробовать эмуляцию
 
R

#ripper

Новичок
17
0
#ripper написал(а):
пытался сделать подмену текста, хук блокируется, пакет не эмулируется, подскажите в чем проблема
CLEO: 
{$CLEO}
{$INCLUDE SF}
0000:

wait 2000

alloc 4@ 256
0c11: 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 "Алеша"
    then
        0AC8: 20@ = allocate_memory_size 256
        0AC8: 11@ = allocate_memory_size 25
        0B2B: samp 10@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 11@ = get_player_nickname 10@
        0C11: memset destination 20@ value 0 size 256
        0AD3: 20@ = format "Валера под ником %s[%d]" 11@ 10@
        0C17: 12@ = strlen 20@
        0C0F: array 20@ element 12@ = 0x00
 

        0B3D: raknet 13@ = new_bit_stream
        0B40: raknet bit_stream 13@ write 2@ type BS_TYPE_INT size 4  // color
        0B40: raknet bit_stream 13@ write 12@ type BS_TYPE_INT size 4  // strLen
        0B40: raknet bit_stream 13@ write 20@ type BS_TYPE_ARRAY size 12@// Text
        0BF7: raknet emul_packet_receive 93 bit_stream 13@
        0B3E: raknet delete_bit_stream 13@

 
        0AC9: free_allocated_memory 20@
        0AC9: free_allocated_memory 11@
        0BE0: raknet hook_ret false
    end                                     
end
0BE0: raknet hook_ret true
Нажмите для раскрытия...
помогите плс
 
H

Hidich

Известный
5
0
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "ebalscripti"


:NONAME_17
   not SAMP.Available
else_jump @NONAME_220
wait 1337
chatmsg "{00FF00}[PRIVATE] {ffffff}Активация: {00FF00}/hui{ffffff}.." 16777215
chatmsg "{00FF00}[PRIVATE] {ffffff}Спасибо: {00FF00}SlonoBoyko{ffffff} за помощь." 16777215
jump @NONAME_17

:NONAME_220
0B34: samp register_client_command "gmp" to_label @NONAME_250
0BE2: raknet setup_outcoming_packet_hook -406

:NONAME_239
wait 0
jump @NONAME_239

:NONAME_250
0B12: 1@ = 1@ XOR 1
if
  1@ == 1
else_jump @NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} включён." 16777215
jump @NONAME_404

:NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} выключен." 16777215

:NONAME_404
SAMP.CmdRet
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
if and
  1@ == 1
  11@ == 206
else_jump @NONAME_450
0BE0: raknet hook_ret 0

:NONAME_450
0BE0: raknet hook_ret 1
Как правильно убрать надписи? При удалении строчки сразу же крашит
 
R

#ripper

Новичок
17
0
Hidich написал(а):
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "ebalscripti"


:NONAME_17
   not SAMP.Available
else_jump @NONAME_220
wait 1337
chatmsg "{00FF00}[PRIVATE] {ffffff}Активация: {00FF00}/hui{ffffff}.." 16777215
chatmsg "{00FF00}[PRIVATE] {ffffff}Спасибо: {00FF00}SlonoBoyko{ffffff} за помощь." 16777215
jump @NONAME_17

:NONAME_220
0B34: samp register_client_command "gmp" to_label @NONAME_250
0BE2: raknet setup_outcoming_packet_hook -406

:NONAME_239
wait 0
jump @NONAME_239

:NONAME_250
0B12: 1@ = 1@ XOR 1
if
  1@ == 1
else_jump @NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} включён." 16777215
jump @NONAME_404

:NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} выключен." 16777215

:NONAME_404
SAMP.CmdRet
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
if and
  1@ == 1
  11@ == 206
else_jump @NONAME_450
0BE0: raknet hook_ret 0

:NONAME_450
0BE0: raknet hook_ret 1
Как правильно убрать надписи? При удалении строчки сразу же крашит
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000: NOP

repeat
wait 0
until SAMP.Available()

0BE2: raknet setup_outcoming_packet_hook @hook

while true
wait 0
    if 0AB0: 17
    then
        while 0AB0: 17
        wait 0
        end
        2@ = true
        repeat
        wait 0
        until 0AB0: 17
        while 0AB0: 17
        wait 0
        end
    2@ = false
    end
end

:hook
if 2@ == true
then
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
    if
    11@ == 206
    then
    0BE0: raknet hook_ret false
    else
    0BE0: raknet hook_ret true
    end
end
0BE0: raknet hook_ret true
активация - пока держишь CTRL
 

Вложения

  • privadepodstava_Strontes.cs
    18 KB · Просмотры: 4
Perojek)0

Perojek)0

Известный
205
3
Возможно ли как-то получить определённую инфу с какого-нибудь сайта? Например, какая погода)
 
BlackKnigga

BlackKnigga

Известный
BH Team
922
445
Perojek)0 написал(а):
Как можно отрендерить градиент или что-то подобное?
Нажмите для раскрытия...
Ищи алгоритмы рисования в интернете да рисуй. Чтоб нарисовать один пиксель можешь попробовать нарисовать линию, с толщиной 1 и координатами начала и конца в одной точке.
 
  • Нравится
Реакции: Perojek)0
Dark_Knight

Dark_Knight

Me, me and me.
Друг
4,062
2,078
Perojek)0 написал(а):
Как можно отрендерить градиент или что-то подобное?
Нажмите для раскрытия...
Могу на плюсах дать.
Код: 
Render->Begin(D3DPT_TRIANGLELIST);
Render->Color(color1);
Render->Vertex(x, y);
Render->Color(color2);
Render->Vertex(x + Length, y);
Render->Vertex(x + Length, y + h);
Render->Color(color1);
Render->Vertex(x, y);
Render->Color(color2);
Render->Vertex(x + Length, y + h);
Render->Color(color1);
Render->Vertex(x, y + h);
Render->End();
 
  • Нравится
Реакции: Perojek)0
R

romacaddy

Известный
Проверенный
234
206
раньше отправлял пули через 0BC4: samp send_bullet_data
стали интересно, можно- ли как-то еще их отправлять?
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    21
    Просмотры
    2K
    Общение
    ARMOR
    ARMOR
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    20K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    54
    Просмотры
    8K
    Общение
    GrishaMazzlov
    GrishaMazzlov
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    2K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу