RedBoxWhite
Известный
- 337
- 27
Попробуй переустановить sb (точно не помню, с этим связано ли). Или просто замени опкодом 0AC8.
Вопросы по CLEO-скриптингу
- Автор темы MogAika
- Дата начала
Perojek)0
Известный
- 205
- 3
- 4,078
- 2,095
Ресаешь врайт оффсет. Записываешь длину строки, потом саму строку как массив.
- 411
- 268
Что не нужно перезаписывать, но пропустить
0BEA: raknet bit_stream 0@ reset_write_pointer
0BEB: raknet bit_stream 0@ ignore_bits 1@
0BEC: raknet bit_stream 0@ set_write_offset 1@
Напоминание: тут биты, а не байты.
Ну а чтоб записать правильно, то все параметры по очереди записывать в битстрим -> длину строки (BS_TYPE_BYTE), и саму строку (BS_TYPE_ARRAY)
Последнее редактирование:
- 922
- 446
Открываю скрипт нажимаю просто компилировать его не изменяя скрипт, и скрипт перестает работать кто может помочь?
Помогите пожалуйста.
Вылетает при вводе команды /ad "text". Если писать просто /ad например, то все нормально. /ad "text" до сервера доходит, но меня выкидывает из игры. Может кто помочь? Где ошибка в коде?
Код:
{$CLEO .cs}
{$INCLUDE SF}
0000:
repeat
wait 400
until 0AFA: is_samp_structures_available
alloc 5@ 256
0C11: memset destination 5@ value 0 size 256
chatmsg "{ff0000}[Откат OOC] {ebebeb}тудум." 0xffffff
0B34: samp register_client_command "o" @msg
0B34: samp register_client_command "ad" @adrek
0C74: 0@ = create_timer_interval 300000 on_label @timer
0C78: set_timer 0@ active false
0BE3: raknet setup_incoming_rpc_hook @cmsg
while true
wait 0
end
:msg
0B35: samp 2@ = get_last_command_params
if
8C14: not strcmp string1 2@ string2 ""
then
if
0C79: is_timer 0@ active
then
0C7C: 1@ = get_timer 0@ time_left
1@ /= 1000
chatmsg "Анти-флуд (%d сек.)." 0xbfbfbf 1@
else
say "/o %s" 2@
0C76: reset_timer 0@
0C78: set_timer 0@ active true
end
cmdret
:timer
chatmsg "{ff0000}[Откат OOC] {ebebeb}ыыы." color -1
0C78: set_timer 0@ active false
else
say "/o"
end
cmdret
:adrek
0B35: samp 3@ = get_last_command_params
if
0C79: is_timer 0@ active
then
0C7C: 4@ = get_timer 0@ time_left
4@ /= 1000
chatmsg "ыфыв (%d сек.)." 0xbfbfbf 4@
else
say "/ad %s" 3@
0C76: reset_timer 0@
0C78: set_timer 0@ active true
end
cmdret
:cmsg
0BE5: raknet 6@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 7@ = get_hook_param PARAM_PACKETID
if
7@ == RPC_ScrClientMessage
then
0BE7: raknet 9@ = bit_stream_read 6@ type BS_TYPE_INT
0BE7: raknet 10@ = bit_stream_read 6@ type BS_TYPE_INT
0C11: memset destination 5@ value 0 size 256
0BE8: raknet bit_stream 6@ read_array 5@ size 10@
0C0F: array 5@ element 3@ = 0x00
if
0C18: 8@ = strstr string1 5@ string2 "Кто-то уже давал рекламу, жди..."
then
0C76: reset_timer 0@
0C78: set_timer 0@ active false
end
end
0BE0: raknet hook_ret true
- 221
- 359
- 3,635
- 4,982
А вот не подскажешь еще? 0C0F я исправил, все хорошо. Как видишь в коде срабатывает таймер при вообще команды /o "text", сделал чтоб таймер не срабатывал при вводе /o без текста. Тоже самое пытаюсь сделать с /ad командой, но что-то не получается. Я так понял
Код:
if
8C14: not strcmp string1 2@ string2 ""
then
Код:
{$CLEO .cs}
{$INCLUDE SF}
0000:
repeat
wait 400
until 0AFA: is_samp_structures_available
alloc 5@ 256
0C11: memset destination 5@ value 0 size 256
chatmsg "{ff0000}[Откат OOC] {ebebeb}тудум." 0xffffff
0B34: samp register_client_command "o" @msg
0B34: samp register_client_command "ad" @adrek
0C74: 0@ = create_timer_interval 300000 on_label @timer
0C78: set_timer 0@ active false
0BE3: raknet setup_incoming_rpc_hook @cmsg
while true
wait 0
end
:msg
0B35: samp 2@ = get_last_command_params
if
8C14: not strcmp string1 2@ string2 ""
then
if
0C79: is_timer 0@ active
then
0C7C: 1@ = get_timer 0@ time_left
1@ /= 1000
chatmsg "Анти-флуд (%d сек.)." 0xbfbfbf 1@
else
say "/o %s" 2@
0C76: reset_timer 0@
0C78: set_timer 0@ active true
end
cmdret
:timer
chatmsg "{ff0000}[Откат OOC] {ebebeb}ыыы." color -1
0C78: set_timer 0@ active false
else
say "/o"
end
cmdret
:adrek
0B35: samp 3@ = get_last_command_params
if
0C79: is_timer 0@ active
then
0C7C: 4@ = get_timer 0@ time_left
4@ /= 1000
chatmsg "ыфыв (%d сек.)." 0xbfbfbf 4@
else
say "/ad %s" 3@
0C76: reset_timer 0@
0C78: set_timer 0@ active true
end
cmdret
:cmsg
0BE5: raknet 6@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 7@ = get_hook_param PARAM_PACKETID
if
7@ == RPC_ScrClientMessage
then
0BE7: raknet 9@ = bit_stream_read 6@ type BS_TYPE_INT
0BE7: raknet 10@ = bit_stream_read 6@ type BS_TYPE_INT
0C11: memset destination 5@ value 0 size 256
0BE8: raknet bit_stream 6@ read_array 5@ size 10@
0C0F: array 5@ element 10@ = 0x00
if
0C18: 8@ = strstr string1 5@ string2 "Кто-то уже давал рекламу, жди..."
then
0C76: reset_timer 0@
0C78: set_timer 0@ active false
end
end
0BE0: raknet hook_ret trueПодскажите пожалуйста,при компилировании пишет Недостаточно параметров. Ожидалось 2 параметров.
Код:
{$CLEO}
0000:
chatmsg "[TP for mats]:{FFFFFF} TP for mats load. Àâòîð: {FFCC33}[CM]T4WERKA" 16763955
:1
if
0B34: samp register_client_command "tpg" to_label
then
0ACC: show_text_lowpriority "Teleporting..." time 3000
00A1: set_char_coordinates $PLAYER_ACTOR to 2515.9709 -1722.6837 18.5821
0AF9: samp say_msg "/give guns 500"
wait 2000
00A1: set_char_coordinates $PLAYER_ACTOR to 2521.5928 -1686.6742 13.5695
jump @1
- 2,696
- 1,468
У "o" - 0B35: samp 2@ = get_last_command_params
У "ad" - 0B35: samp 3@ = get_last_command_params
