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

У

Удалённый пользователь 123482

Гость
и оно работает?
Scan string не работает, не понимаю почему. Рендерит все, что вижу(3д тексты)
CLEO:
0AC8: 3@ = allocate_memory_size 260
0AC8: 31@ = allocate_memory_size 260
    FOR 4@ = 0 TO 2048
        IF 0B46:     samp 3d_text 4@ defined
        THEN 
        0C46: samp get_3d_text_info_by_id 4@ string_ptr 5@ color 6@ position 7@ 8@ 9@ view_distance 10@ show_behind_walls 11@ attached_to_player 12@ attached_to_vehicle 13@
            IF 0AD4: 5@ = scan_string 5@ format "+1 ïðîäóêò"
            //0AD4: 14@ = scan_string 5@ format "Èñõîäíûå ìàòåðèàëû:\nÒîïëèâî: %d / 1000000 ë\nÌåòàëë: %d / 1000000 êã\n\nÏðîäóêòû: %d øò."
            THEN 
//                0AD4: 14@ = scan_string 31@ format "Èñõîäíûå ìàòåðèàëû:\nÒîïëèâî: %d" 15@
//                0AD3: 3@ = format "Ìåòàëëà íà ñêëàäå - %d / 1000000 êã" 15@
                0B6F: render font 0@ draw_text 5@ pos 1@ 2@ color 0xFFFFFFFF
                //0ACD: show_text_highpriority "~G~Vse verno" time 100
            END
        END
   END
0AC9: free_allocated_memory 3@
0AC9: free_allocated_memory 31@
 

hnnssy

Известный
Друг
2,684
2,751
Это не то, это как узнать номер
сложно ведь сверку этого номера накодить, да?
CLEO:
{$CLEO}
0000:

wait 2000

0ab1: call @GetSN 0 retr_to 0@

if not 0@ == 12345 // вместо 12345 серийник лоха, которому продаёшь клео
then
    0A93: end_thread
end

while true
wait 0
    //
end

:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
0051: ret 1 0@
 
Последнее редактирование модератором:
  • Нравится
Реакции: kraft1k

romanblinov2013

RB_PRO
Проверенный
212
196
Добрый вечер.
Как мне можно установить маркер(ПКМ) на карту через код?
Заранее спасибо за ответ. Ваш Роман.
 

D3.Pheonix

🎹
Модератор
2,821
1,600
  • Нравится
Реакции: romanblinov2013

ErikSekret

Новичок
21
1
сложно ведь сверку этого номера накодить, да?
CLEO:
{$CLEO}
0000:

wait 2000

0ab1: call @GetSN 0 retr_to 0@

if not 0@ == 12345 // вместо 12345 серийник лоха, которому продаёшь клео
then
    0A93: end_thread
end

while true
wait 0
    //
end

:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
0051: ret 1 0@
Не работает
 

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ
Проверенный
335
119
где можно найти функцию, которая будет поворачивать кар в корды?