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

Dark_Knight

Dark_Knight

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

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
должен записывать координаты метки в плеер синк и потом получать оттуда их, и телепортировать на эти корды, но он телепортирует на то же место где стою, значит я неправильно как-то записываю?
 
G

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
120
coolkid написал(а):
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
T

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

Musaigen

dead eyes
Проверенный
1,664
1,485
Trawer2289 написал(а):
Здарова всем, поможете? Почему не работает клео. Суть такова при вводе /chat и текст то пишет визуально белым цветом то что я написал ,а в правом углу (мой ник) [мой ид] но я в скин сиджея попадаю прошу помоги.
Нажмите для раскрытия...
Форматировать текст опкодом 0AD4 нельзя.
 
romanblinov2013

romanblinov2013

RB_PRO
Проверенный
212
196
Trawer2289 написал(а):
Здарова всем, поможете? Почему не работает клео. Суть такова при вводе /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
T

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

Azller Lollison

ещкере
Друг
1,382
2,449
Trawer2289 написал(а):
Не понимаю почему не работает
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
T

Trawer2289

Известный
48
9
Azller Lollison написал(а):
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 тогда писало вошли как старший адм.
 
randazzo

randazzo

.
1,417
1,037
Trawer2289 написал(а):
Не реагирует на пароль 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
 
G

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
120
superpershing991 написал(а):
Вопрос в том,как доделать,мне нужно использования функций "%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
Нажмите для раскрытия...
посмотри этот говнокод, может поймешь свои ошибки, ну а вообще поучи форматирование
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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