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

Dark_Knight

Me, me and me.
Друг
4,083
2,110
А я вот откуда знаю сколько у тебя символов в строке, если я её не видел.
 

coolkid

Новичок
7
0
CLEO:
{$CLEO}
0000:

repeat
wait 0
until samp.Available()
0BE2: raknet setup_outcoming_packet_hook @TP
0BDE: pause_thread 0

:TP
0BE5: raknet 0@ = get_hook_param 1
if and
0@ == 207
0ADC:   test_cheat "JUMP"
then
0BE5: raknet 0@ = get_hook_param 0
0BF1: raknet 2@ = bit_stream 0@ get_write_offset
0BED: raknet bit_stream 0@ set_read_offset 56
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
0B40: raknet bit_stream 0@ write 10@ type 4 size 56
0B40: raknet bit_stream 0@ write 11@ type 4 size 88
0B40: raknet bit_stream 0@ write 12@ type 4 size 120
0BEC: raknet bit_stream 0@ set_write_offset 2@
0BF2: raknet 30@ = bit_stream 0@ get_read_offset
0BE7: raknet 20@ = bit_stream_read 0@ type 4
0BE7: raknet 21@ = bit_stream_read 0@ type 4
0BE7: raknet 22@ = bit_stream_read 0@ type 4
0BEC: raknet bit_stream 0@ set_write_offset 30@
Actor.PutAt($player_actor, 20@, 21@, 22@)
chatmsg "Вы были {00db6a}успешно{ffffff} телепортированы!" -1
else
0BE0: raknet hook_ret 1
end
0BE0: raknet hook_ret 1
должен записывать координаты метки в плеер синк и потом получать оттуда их, и телепортировать на эти корды, но он телепортирует на то же место где стою, значит я неправильно как-то записываю?
 

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
119
CLEO:
{$CLEO}
0000:

repeat
wait 0
until samp.Available()
0BE2: raknet setup_outcoming_packet_hook @TP
0BDE: pause_thread 0

:TP
0BE5: raknet 0@ = get_hook_param 1
if and
0@ == 207
0ADC:   test_cheat "JUMP"
then
0BE5: raknet 0@ = get_hook_param 0
0BF1: raknet 2@ = bit_stream 0@ get_write_offset
0BED: raknet bit_stream 0@ set_read_offset 56
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET
0B40: raknet bit_stream 0@ write 10@ type 4 size 56
0B40: raknet bit_stream 0@ write 11@ type 4 size 88
0B40: raknet bit_stream 0@ write 12@ type 4 size 120
0BEC: raknet bit_stream 0@ set_write_offset 2@
0BF2: raknet 30@ = bit_stream 0@ get_read_offset
0BE7: raknet 20@ = bit_stream_read 0@ type 4
0BE7: raknet 21@ = bit_stream_read 0@ type 4
0BE7: raknet 22@ = bit_stream_read 0@ type 4
0BEC: raknet bit_stream 0@ set_write_offset 30@
Actor.PutAt($player_actor, 20@, 21@, 22@)
chatmsg "Вы были {00db6a}успешно{ffffff} телепортированы!" -1
else
0BE0: raknet hook_ret 1
end
0BE0: raknet hook_ret 1
должен записывать координаты метки в плеер синк и потом получать оттуда их, и телепортировать на эти корды, но он телепортирует на то же место где стою, значит я неправильно как-то записываю?
ты перепутал рид оффсет с врайт оффсетом просто замени в начале на врайт, а когда вернешь в исх. состояние врайт оффсет сделаешь его и для рид оффсета
 
  • Нравится
Реакции: coolkid

Trawer2289

Известный
48
9
Здарова всем, поможете? Почему не работает клео. Суть такова при вводе /chat и текст то пишет визуально белым цветом то что я написал ,а в правом углу (мой ник) [мой ид] но я в скин сиджея попадаю прошу помоги.
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "chat" to_label @chat

repeat
wait 0
    if 0@ == 1
        then
        Samp.IsCommandTyped(1@)
        if 0AD4: 2@ = scan_string 1@ format "%s" 3@
        then
        0B2B: samp 4@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 5@ = get_player_nickname 4@
        chatmsg "%s (%s)[%d]" 3@ 5@ 4@
        else
        0AD0: show_formatted_text_lowpriority "~y~/chat [enter in to text]" time 1337
        end
    0@ = 0
end
until false

:chat
0@ = 1
Samp.CmdRet()
 

Musaigen

shitposter
Проверенный
1,659
1,476
Здарова всем, поможете? Почему не работает клео. Суть такова при вводе /chat и текст то пишет визуально белым цветом то что я написал ,а в правом углу (мой ник) [мой ид] но я в скин сиджея попадаю прошу помоги.
Форматировать текст опкодом 0AD4 нельзя.
 

romanblinov2013

RB_PRO
Проверенный
212
196
Здарова всем, поможете? Почему не работает клео. Суть такова при вводе /chat и текст то пишет визуально белым цветом то что я написал ,а в правом углу (мой ник) [мой ид] но я в скин сиджея попадаю прошу помоги.
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "chat" to_label @chat

repeat
wait 0
    if 0@ == 1
        then
        Samp.IsCommandTyped(1@)
        if 0AD4: 2@ = scan_string 1@ format "%s" 3@
        then
        0B2B: samp 4@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 5@ = get_player_nickname 4@
        chatmsg "%s (%s)[%d]" 3@ 5@ 4@
        else
        0AD0: show_formatted_text_lowpriority "~y~/chat [enter in to text]" time 1337
        end
    0@ = 0
end
until false

:chat
0@ = 1
Samp.CmdRet()
Слышь, слушайте, дети.
  1. Соблюдай табуляцию.
  2. Repeat в теле выглядит ужасно.
  3. Форматируешь опкодом 0AD3

Теперь я тебе покажу, как нужно это делать, а ты запоминай!
CLEO:
{$CLEO}
{$NOSOURCE}
0000: NOP
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "cmd" to_label @SetImagePosition

while true
wait 0
    if 30@ == 1
    then
    // Тело
    end
end

:SetImagePosition
0AC8: 7@ = allocate_memory_size 32
0B35: samp 7@ = get_last_command_params
if 0AD4: 24@ = scan_string 7@ format "%d" 8@
then
    if 8@ > 0
    then
    // ну тут просто чекай
    else
    0AF8: samp add_message_to_chat "Вы ввели значение меньше 0" color 0xf4c99c
    end 
else
0AF8: samp add_message_to_chat "Ошибка. Укажите параметр. По примеру /cmd 64" color 0xf4c99c
end
0AC9: 7@
samp.CmdRet()
 
Последнее редактирование:
  • Нравится
Реакции: Trawer2289

Trawer2289

Известный
48
9
Не понимаю почему не работает
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "alogin" to_label @ALogin

repeat
wait 0
    if 0@ == 1
    then
        Samp.IsCommandTyped(1@)
        if and
        0B3C:  samp is_dialog_responded id 23333 button 1@ list_item 0 input_text 82624
        1@ == 1
        0B3B: samp show_dialog id 23333 caption "{00CED1}Админ авторизация" text "Введите Ваш пароль от админки в поле ниже" button_1 "Вход" button_2 "Отмена" style 1
        then
        0AF8: samp add_message_to_chat "Вы вошли как старший администратор" color 0xFFFF00
        end
    0@ = 0
end
until false

:alogin
0@ = 1
Samp.CmdRet()
 

Azller Lollison

ещкере
Друг
1,380
2,423
Не понимаю почему не работает
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "alogin" to_label @ALogin

repeat
wait 0
    if 0@ == 1
    then
        Samp.IsCommandTyped(1@)
        if and
        0B3C:  samp is_dialog_responded id 23333 button 1@ list_item 0 input_text 82624
        1@ == 1
        0B3B: samp show_dialog id 23333 caption "{00CED1}Админ авторизация" text "Введите Ваш пароль от админки в поле ниже" button_1 "Вход" button_2 "Отмена" style 1
        then
        0AF8: samp add_message_to_chat "Вы вошли как старший администратор" color 0xFFFF00
        end
    0@ = 0
end
until false

:alogin
0@ = 1
Samp.CmdRet()


CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "alogin" to_label @ALogin

while true
wait 0
    if 0@ == 1
    then
        Samp.IsCommandTyped(1@)
        if and
        0B3C:  samp is_dialog_responded id 23333 button 1@ list_item 0 input_text 82624
        1@ == 1
        0B3B: samp show_dialog id 23333 caption "{00CED1}Админ авторизация" text "Введите Ваш пароль от админки в поле ниже" button_1 "Вход" button_2 "Отмена" style 1
        then
        0AF8: samp add_message_to_chat "Вы вошли как старший администратор" color 0xFFFF00
        end
    0@ = 0
end
end

:ALogin
0@ = 1
Samp.CmdRet()

попробуй так
 
  • Нравится
Реакции: Trawer2289

Trawer2289

Известный
48
9
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "alogin" to_label @ALogin

while true
wait 0
    if 0@ == 1
    then
        Samp.IsCommandTyped(1@)
        if and
        0B3C:  samp is_dialog_responded id 23333 button 1@ list_item 0 input_text 82624
        1@ == 1
        0B3B: samp show_dialog id 23333 caption "{00CED1}Админ авторизация" text "Введите Ваш пароль от админки в поле ниже" button_1 "Вход" button_2 "Отмена" style 1
        then
        0AF8: samp add_message_to_chat "Вы вошли как старший администратор" color 0xFFFF00
        end
    0@ = 0
end
end

:ALogin
0@ = 1
Samp.CmdRet()

попробуй так
Не реагирует на пароль 82624, точнее допустим ввожу /alogin не работает типа вошли как старший администратор ,а когда второй раз ввожу то пишет типа вошли как старший адм. Но мне нужно чтобы когда /alogin и ввели пароль 82624 тогда писало вошли как старший адм.
 
1,417
1,037
Не реагирует на пароль 82624, точнее допустим ввожу /alogin не работает типа вошли как старший администратор ,а когда второй раз ввожу то пишет типа вошли как старший адм. Но мне нужно чтобы когда /alogin и ввели пароль 82624 тогда писало вошли как старший адм.
CLEO:
{$CLEO .cs}
0000: NOP
repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "alogin" to_label @ALogin

while true
wait 0
    if 0@ == 1
    then
        if 0B3C:  samp is_dialog_responded id 23333 button 1@ list_item 0 input_text 2@
        then
            if 1@ == 1
            then
                if 2@ == 82624
                then
                    0AF8: samp add_message_to_chat "Вы вошли как старший администратор" color 0xFFFF00
                else
                    0AF8: samp add_message_to_chat "Неверный пароль." color 0xFFFF00   
                end       
            end
        0@ = 0
        end
    end
end

:ALogin
0@ = 1
0B3B: samp show_dialog id 23333 caption "{00CED1}Админ авторизация" text "Введите Ваш пароль от админки в поле ниже" button_1 "Вход" button_2 "Отмена" style 1
Samp.CmdRet()
 
  • Нравится
Реакции: Trawer2289
D

deleted-user-54924

Гость
Вопрос в том,как доделать,мне нужно использования функций "%d" "%s".Зачем оно мне надо если есть биндер? Я отвечу - командой удобнее.
CLEO:
{$CLEO}
0B34: samp register_client_command "hl" to_label @hl
0B34: samp register_client_command "tm" to_label @tm
0B34: samp register_client_command "lc" to_label @lc
0BDE: pause_thread 0

:hl
0C8F: samp process_chat_input "От головной боли я выпишу Вам лекарство Цитрамон."
wait 2100
Его цена: %d. // тут должно писать цену которую ты указал в команде /hl ID цена.
wait 2100
0C8F: samp process_chat_input "/me открыл сумку и достал лекарство"
wait 2100
0C8F: samp process_chat_input "/me передал лекарство пациенту"
wait 2100
0C8F: samp process_chat_input "/heal id цена" // вместо ид и цены должно писать то что ты ввел после команды /hl ID цена
0B43: samp cmd_ret

:tm
0C8F: samp process_chat_input "/time"
0B43: samp cmd_ret

:lc
0C8F: samp process_chat_input "/lock"
0B43: samp cmd_ret
 

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
119
Вопрос в том,как доделать,мне нужно использования функций "%d" "%s".Зачем оно мне надо если есть биндер? Я отвечу - командой удобнее.
CLEO:
{$CLEO}
0B34: samp register_client_command "hl" to_label @hl
0B34: samp register_client_command "tm" to_label @tm
0B34: samp register_client_command "lc" to_label @lc
0BDE: pause_thread 0

:hl
0C8F: samp process_chat_input "От головной боли я выпишу Вам лекарство Цитрамон."
wait 2100
Его цена: %d. // тут должно писать цену которую ты указал в команде /hl ID цена.
wait 2100
0C8F: samp process_chat_input "/me открыл сумку и достал лекарство"
wait 2100
0C8F: samp process_chat_input "/me передал лекарство пациенту"
wait 2100
0C8F: samp process_chat_input "/heal id цена" // вместо ид и цены должно писать то что ты ввел после команды /hl ID цена
0B43: samp cmd_ret

:tm
0C8F: samp process_chat_input "/time"
0B43: samp cmd_ret

:lc
0C8F: samp process_chat_input "/lock"
0B43: samp cmd_ret
посмотри этот говнокод, может поймешь свои ошибки, ну а вообще поучи форматирование