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

astap_

Известный
Всефорумный модератор
626
597
{$CLEO .cs}
0000: NOP
repeat
wait 400
until SAMP.Available
0B34: samp register_client_command "xd" to_label @cmd
0B34: samp register_client_command "xdt" to_label @wait
10@ == 0

while true
wait 10@
0470: 3@ = actor $PLAYER_ACTOR current_weapon
if and
02E0: actor $PLAYER_ACTOR firing_weapon
31@ == 1
then
if and
3@ >= 23
3@ <= 25
then jump @Work
end
if or
3@ == 33
3@ == 34
then jump @Work
end
end
continue
:work
01B2: give_actor $PLAYER_ACTOR weapon 3@ ammo 0 // Load the weapon model before using this
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
2@ += -1.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
end

:Cmd
0B12: 31@ = 31@ XOR 1
SAMP.CmdRet

:wait
0B35: samp 8@ = get_last_command_params
0AD4: 9@ = scan_string 8@ format "%d" 10@
samp.CmdRet()

Подскажите что сюда добавить дабы данный скрипт использовал патроны с обоймы а не списывал общие? Тобишь у меня в дигле 333-7 || 333 это общие 7 это в обойме. Что бы данный код использовал именно эти 7 пт а не 333 :thinking:
убери опкод 01B2. кстати это хуйня а не +с
 

D[a]Ni

Участник
63
3
Как в глобальном диалоге сервера list выбрать какой то пункт, ну например есть меню там 10 строчек, мне нужно 7 строчку выбрать. Забыл опкод
 

хуесос)

Известный
263
63
На моем сервере есть диалог с зведочками, ну типо для паролей, и вы нем я не могу вписать с помошью опкодов
0b4b: и
0B3C:
когда юзаю то просто ничего не происходит.
А когда юзаю например так.
0b4b: "321321", то все прекраснно вводиться.

пример.
CLEO:
alloc 0@ 54
0AF0: 0@ = get_int_from_ini_file "cleo\ebal.ini" section "tvoya" key "mama" 
0B4B: samp set_current_dialog_editbox_text 0@
0B47: samp close_current_dialog_with_button 0
free 0@
 

astap_

Известный
Всефорумный модератор
626
597
На моем сервере есть диалог с зведочками, ну типо для паролей, и вы нем я не могу вписать с помошью опкодов
0b4b: и
0B3C:
когда юзаю то просто ничего не происходит.
А когда юзаю например так.
0b4b: "321321", то все прекраснно вводиться.

пример.
CLEO:
alloc 0@ 54
0AF0: 0@ = get_int_from_ini_file "cleo\ebal.ini" section "tvoya" key "mama"
0B4B: samp set_current_dialog_editbox_text 0@
0B47: samp close_current_dialog_with_button 0
free 0@
доставай из ини строку, а не интежер
 

D[a]Ni

Участник
63
3
Вывод 9983924918 |.....
CLEO:
{$CLEO}
{$INCLUDE SF}
0000:
0BE3: raknet setup_incoming_rpc_hook @1
alloc 9@ 256
alloc 11@ 20

while true
wait 0
    if
    0C18: 0 = 9@ "test"
    then
        0AA5: call 0x8220AD num_params 3 pop 3 params 11@ "<AC> Админ D[a]Ni [%d] (6 LVL): test" 9@
        0AF9: "/a вывод %d | из строки %s" 11@ 9@
    end
    0C11: memset destination 9@ value 0 size 256
end

:1
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID
if
6@ == RPC_ScrClientMessage
then
    0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT
    0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT
    0C11: memset destination 9@ value 0 size 256
    0BE8: raknet bit_stream 5@ read_array 9@ size 8@
    0C0F: array 9@ element 8@ = 0x00
end
0BE0: raknet hook_ret true

Что не так?
 

Claude$$$

Новичок
12
0
Почему при попытке вывести текст на экран он выводится капсом, строчными буквами не получается
Код:
{$CLEO}

0000:

0B6D: render 0@ = create_font "Tahoma" height 13 flags 4 // height 13 flags 4

while true
    wait 0
    0B6F: render font 0@ draw_text "test:" pos 1723 135 /*(600-17=583)*/ color -1
end
 

astap_

Известный
Всефорумный модератор
626
597
Вывод 9983924918 |.....
CLEO:
{$CLEO}
{$INCLUDE SF}
0000:
0BE3: raknet setup_incoming_rpc_hook @1
alloc 9@ 256
alloc 11@ 20

while true
wait 0
    if
    0C18: 0 = 9@ "test"
    then
        0AA5: call 0x8220AD num_params 3 pop 3 params 11@ "<AC> Админ D[a]Ni [%d] (6 LVL): test" 9@
        0AF9: "/a вывод %d | из строки %s" 11@ 9@
    end
    0C11: memset destination 9@ value 0 size 256
end

:1
0BE5: raknet 5@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 6@ = get_hook_param PARAM_PACKETID
if
6@ == RPC_ScrClientMessage
then
    0BE7: raknet 7@ = bit_stream_read 5@ type BS_TYPE_INT
    0BE7: raknet 8@ = bit_stream_read 5@ type BS_TYPE_INT
    0C11: memset destination 9@ value 0 size 256
    0BE8: raknet bit_stream 5@ read_array 9@ size 8@
    0C0F: array 9@ element 8@ = 0x00
end
0BE0: raknet hook_ret true

Что не так?
в опкоде 0aa5 нужно использовать не саму переменную, а указатель на неё.
CLEO:
0AC7: 12@ = var 11@ offset // получаем указатель
0AA5: call 0x8220AD num_params 3 pop 3 params 12@ "<AC> Админ D[a]Ni [%d] (6 LVL): test" 9@
0AF9: "/a вывод %d | из строки %s" 11@ 9@ // а здесь мы уже используем саму переменную
Почему при попытке вывести текст на экран он выводится капсом, строчными буквами не получается
Код:
{$CLEO}

0000:

0B6D: render 0@ = create_font "Tahoma" height 13 flags 4 // height 13 flags 4

while true
    wait 0
    0B6F: render font 0@ draw_text "test:" pos 1723 135 /*(600-17=583)*/ color -1
end
настройки СБ > Форматирование > Регистр букв > "как есть".
 
  • Нравится
Реакции: хуесос)

D[a]Ni

Участник
63
3
в опкоде 0aa5 нужно использовать не саму переменную, а указатель на неё.
CLEO:
0AC7: 12@ = var 11@ offset // получаем указатель
0AA5: call 0x8220AD num_params 3 pop 3 params 12@ "<AC> Админ D[a]Ni [%d] (6 LVL): test" 9@
0AF9: "/a вывод %d | из строки %s" 11@ 9@ // а здесь мы уже используем саму переменную

настройки СБ > Форматирование > Регистр букв > "как есть".
или я что то не так делаю или не пашит) Можешь целиком в коде кинуть
 

The Spark

Известный
653
672
1. Как передвигать текстурки загруженные через .txd (с помощью курсора)
2. Ещё можно как нибудь загрузить в cleo картинку?
 

The Spark

Известный
653
672
На сервере с помощью ТекстДрава сделан банковский счёт, типо поле для ввода пароля от банка. Как мне вбить в этот ТекстДрав пароль, записанный в переменную?