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

[kawa operand]

командный блок должен заканчиваться samp.cmdret
и в нем не может быть задержек, следовательно беск. циклов тоже

 

[randazzo]

Помогите, не могу понять как сделать.
Я сделал команду /kunnpy, и по идее ТОЛЬКО после её написания должен выводится диалог, но он просто так вылезает, что мне делать?
Код:


Попробовал сделать так, но ничего не получилось:

{$CLEO}
0000: NOP 
repeat
wait 0
until 0AFA:
chatmsg "[CLEO BY KUNNPY] SCRIPT BY KUNNPY LOADED!" 52224
0B34: samp register_client_command "kunnpy" to_label @NONAME32
0BDE: pause_thread 0 // останавливает поток, но команды и хуки работают
:NONAME32
0AC6: 0@ = label @text offset 
0B3B: samp show_dialog id 1@ caption "Name" text 0@ button_1 "Click" button_2 "Chanel" style 5@
0B43: samp cmd_ret
:text
hex
"Test\n"
"String\n"
"End\0"
end

такое редактирование текста не будет работать, используй хекс вставки

 

[randazzo]

Помогите пожалуйста, заранее спасибо!
1. Как сделать бег на координаты?
2. Как перенести строку в "0B3B: samp show_dialog"
3. Почему у меня chatmsg, всё БОЛЬШИМИ буквами, хотя я писал маленькими!

1. Полезные сниппеты и SCM-функции^{(https://blast.hk/threads/897/page-3#post-53752)}
2. можно через форматирование
3. Настройки Sanny Builder > Форматирование > Регистр букв - "Как есть"

 

[randazzo]

Вылетает когда ввожу команду которая должны показывать диалог, что делать?
И как сделать что бы можно было писать на русском, а то каракули какие то?

Заранее спасибо, с меня плюсик если поможете!

код кидай

 

[randazzo]

{$CLEO}
{$INCLUDE SF}//тут хранятся константы, в данный момент нам требуется для стиля диалога(можно без инклуда, просто вместо DIALOG_STYLE_LIST написать 2)
0000: NOP  // советую открыть файл SF блокнотом и ознакомиться с содержимым

repeat
wait 0
until 0AFA:

0B34: samp register_client_command "kunnpybot" to_label @kunnpybotcmd
0BDE: pause_thread 0

:kunnpybotcmd
alloc 2@ 128
format 2@ "Яблочный бот%cАпельсиновый бот%c" 10 0
0B3B: samp show_dialog id 2 caption "Боты от Kunnpy" text 2@ button_1 "Открыть" button_2 "Закрыть" style DIALOG_STYLE_LIST
free 2@
0B43: samp cmd_ret

нельзя использовать форматирование без освобождения памяти, после использования обязательно нужно освободить память, иначе будут утечки памяти, почитай справку сб перед тем как что-то делать и посмотри уроки от таира, DarkP1xel^{(https://www.youtube.com/user/xX0xC0D3RXx)}

Как поставить метку (или чекпоинт как в /gps на серверах) на нужные мне координаты? Заранее спасибо!

:ch_on  //0AB1: call_scm_func @ch_on 3 4@ 5@ 6@
0B3D: raknet 30@ = new_bit_stream
0B40: raknet bit_stream 30@ write 0@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 2@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 8.0 type BS_TYPE_FLOAT size 4
0BF6: raknet emul_rpc_receive RPC_SCRSETCHECKPOINT bit_stream 30@
0B3E: raknet delete_bit_stream 30@
ret 0  

:ch_off // 0AB1: call_scm_func @ch_off 0
0B3D: raknet 1@ = new_bit_stream
0BF6: raknet emul_rpc_receive RPC_SCRDISABLECHECKPOINT bit_stream 1@
0B3E: raknet delete_bit_stream 1@
ret 0

 

[randazzo]

:ch_on  //0AB1: call_scm_func @ch_on 3 4@ 5@ 6@
0B3D: raknet 30@ = new_bit_stream
0B40: raknet bit_stream 30@ write 0@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 2@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 8.0 type BS_TYPE_FLOAT size 4
0BF6: raknet emul_rpc_receive RPC_SCRSETCHECKPOINT bit_stream 30@
0B3E: raknet delete_bit_stream 30@
ret 0

:ch_off // 0AB1: call_scm_func @ch_off 0
0B3D: raknet 1@ = new_bit_stream
0BF6: raknet emul_rpc_receive RPC_SCRDISABLECHECKPOINT bit_stream 1@
0B3E: raknet delete_bit_stream 1@
ret 0

А где же координаты писать?[/QUOTE]
Вставляешь :ch_on и :ch_off подальше от цикла, чтобы поставить чекпоинт - 0AB1: call_scm_func @ch_on 3 4@ 5@ 6@, вместо 4@ 5@ 6@ свои переменные или координаты, чтобы убрать чекпоинт - 0AB1: call_scm_func @ch_off 0

 

[randazzo]

Как сделать что бы проверял текст в чате, если будет такой тогда ... и функция моя идёт

И как сделать при нажатии в диалоге на первый выбор, происходила функция?

Информация - Гайд - Создание локальных диалогов^{(https://blast.hk/threads/506/)}
CLEO^{(https://blast.hk/forums/12/?prefix_id=39)}

 

[randazzo]

Как сделать чтобы сразу после авторизации на сервере писало слово ПРИВЕТ

{$CLEO}
0000:
repeat
wait 0
until 0B61:  samp is_local_player_spawned
0AF8: samp add_message_to_chat "qq" color -1
0A93: end_custom_thread

ну или если на сервере есть сообщение с приветствием, ставить на него хук и при появлении выводить нужный текст в чат

 

[CLEONewBie]

Как отправить на сервер фейк-нажатие(ну или не фейк, как угодно) ПКМ?

 

[kawa operand]

если не фейк то через пакеты или рпц не помню а если тупо эмулировать то там какойт опкод есть или winapi keybd_event вроде ну короче да

 

[CLEONewBie]

если не фейк то через пакеты или рпц не помню а если тупо эмулировать то там какойт опкод есть или winapi keybd_event вроде ну короче да

То что через пакеты я и сам знаю, а вот как именно хз :sad_frog2:

 

[randazzo]

То что через пакеты я и сам знаю, а вот как именно хз :sad_frog2:

PACKET_AIM_SYNC = 203
// struct stAimData ( size = 32 )
//BYTE byteCamMode; +0 // вот это, вроде
//float vecAimf1[3]; +1
//float vecAimPos[3]; +13
//float fAimZ; +25
//BYTE byteCamExtZoom : 6; +29 
//BYTE byteWeaponState : 2; +30
//BYTE bUnk; +31

 

[kawa operand]

// не знаю

а зря, в таких блоках игнорируются задержки

А как сделать проверку на интерьер. Типо если текущий интерьер ид 23 ТО ...

077E: get_active_interior_to 0@

Как сделать так, что бы после определённого сообщения в чате, выполнялось моё действие?

0B75: samp get_chat_string 1@ text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@

И я так и не понял, как сделать что бы если в диалоге нажал на кнопку что то вылезало (DIALOG_STYLE_LIST)

ищи сам тутор по диалогам я заебался

 

[kawa operand]

{$cleo .cs}
0000: NOP

var
$cycleStatus: int
end


repeat
    wait 0
until samp.Available()
$cycleStatus = 0
0B34: samp register_client_command "example" to_label @command

while true
    wait 0
    if $cycleStatus == 1
    then
    // тут хоть нахуй иди ваще пох
    $cycleStatus = 0
    end
end

:command
0B12: $cycleStatus = $cycleStatus XOR 1
samp.cmdret

 

[kawa operand]

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