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

01EG

01EG

Известный
Проверенный
794
452
iTz_XG4M3R написал(а):
CLEO: 
{$CLEO}
0000:

WHILE TRUE
REPEAT
0001: WAIT FALSE
UNTIL 0ADC:   test_cheat "1"
{ ON }
REPEAT
0001: WAIT FALSE
UNTIL 0ADC:   test_cheat "1"
{ OFF }
END

Много как можно. Например так.
Нажмите для раскрытия...
Если у меня 0ab0, и в нем число хранится, как переменная из иника. Через until не получается сделать, SB ошибку выдает ну или я неправильно цикл делаю. В принципе, я бы мог сделать активация и деактивацию на разные клавиши, но не считаю это выходом.
 
01EG

01EG

Известный
Проверенный
794
452
iTz_XG4M3R написал(а):
Какую ошибку?
Нажмите для раскрытия...
Если пытають сделать через until, то Неизвестная команда: until 0ab0: 11@ юНаверное не правильно цикл с repeat начинаю.
Вот код, который пытаюсь сделать.
Код: 
*до этого энный код*
:GmCar_KeyPressedMode
while true
wait 10
if and
Player.Defined($PLAYER_CHAR)
Actor.Driving($PLAYER_ACTOR)
8B21: not samp is_chat_opened
0ab0: key_pressed 11@
then
wait 0
03C0: 0@ = actor $PLAYER_ACTOR car
02AC: set_car 0@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
02AA: set_car 0@ immune_to_nonplayer 1
053F: set_car 0@ tires_vulnerability 0
03F5: set_car 0@ apply_damage_rules 0
if
12@ == 1
then
0ACD: show_text_highpriority "GmCar ON ~n~~b~made Devil1606" time 99999999
wait 1000
else
wait 1000
if or
not Actor.Driving($PLAYER_ACTOR)
until 0ab0: 11@
then
02AA: set_car 0@ immune_to_nonplayer 0
02AC: set_car 0@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
053F: set_car 0@ tires_vulnerability 1
03F5: set_car 0@ apply_damage_rules 1
if
12@ ==1
then
0ACD: show_text_highpriority "GmCar OFF ~n~~b~made Devil1606" time 100
else
wait 500
end
end
end
end
end
Куда мне здесь вставить цикл с repeat until ?
 
DarkP1xel

DarkP1xel

Ухожу в армию... Вернусь через год.
BH Team
3,637
5,060
Бля как ты уёбищно пишешь код.. Юзай табуляцию тебе намного проще будет понимать что не так. until только с repeat юзать можно, а ты его с if'ом используешь
 
  • Нравится
Реакции: Zoxan_Twist
01EG

01EG

Известный
Проверенный
794
452
iTz_XG4M3R написал(а):
Бля как ты уёбищно пишешь код.. Юзай табуляцию тебе намного проще будет понимать что не так. until только с repeat юзать можно, а ты его с if'ом используешь
Нажмите для раскрытия...
Откоментил, то что не работает.
CLEO: 
:GmCar_KeyPressedMode
while true
wait 0
if and
Player.Defined($PLAYER_CHAR)
Actor.Driving($PLAYER_ACTOR)
8B21: not samp is_chat_opened
    repeat
    wait 0 ms
    until 0ab0: key_pressed 11@
    03C0: 0@ = actor $PLAYER_ACTOR car
    02AC: set_car 0@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
    02AA: set_car 0@ immune_to_nonplayer 1
    053F: set_car 0@ tires_vulnerability 0
    03F5: set_car 0@ apply_damage_rules 0
    if
    12@ == 1 // в инике стоит параметр на эту переменную, на нее можешь не обращаться внимания
    then
    0ACD: show_text_highpriority "GmCar ON ~n~~b~made Devil1606" time 99999999
    else
    if
    not Actor.Driving($PLAYER_ACTOR)
    then
    02AA: set_car 0@ immune_to_nonplayer 0
    02AC: set_car 0@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
    053F: set_car 0@ tires_vulnerability 1
    03F5: set_car 0@ apply_damage_rules 1
        else
        repeat 
        wait 0
        until 0ab0: key_pressed 11@ // нажимаю клавишу деактивации, не деактивируется
        02AA: set_car 0@ immune_to_nonplayer 0
        02AC: set_car 0@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
        053F: set_car 0@ tires_vulnerability 1
        03F5: set_car 0@ apply_damage_rules 1
        if
        12@ == 1
        then
        0ACD: show_text_highpriority "GmCar OFF ~n~~b~made Devil1606" time 100
    else
    wait 0
end
end
end
end
 
X

Xample

Новичок
89
1
Всем привет, можно как-нибудь реализовать подгрузку процессора в CLEO? а то у меня игра вечно виснет, если проц не подгружен до 50%. приходится использовать прогу, но вечно забываю её включить

M6X7BuFjNJE.jpg
 
W

woksonal

Известный
Проверенный
268
154
Xample написал(а):
Всем привет, можно как-нибудь реализовать подгрузку процессора в CLEO? а то у меня игра вечно виснет, если проц не подгружен до 50%. приходится использовать прогу, но вечно забываю её включить

M6X7BuFjNJE.jpg
Нажмите для раскрытия...
это не нормально, лучше разберись почему глючит игра

Devil1606 написал(а):
Откоментил, то что не работает.
CLEO: 
:GmCar_KeyPressedMode
while true
wait 0
if and
Player.Defined($PLAYER_CHAR)
Actor.Driving($PLAYER_ACTOR)
8B21: not samp is_chat_opened
    repeat
    wait 0 ms
    until 0ab0: key_pressed 11@
    03C0: 0@ = actor $PLAYER_ACTOR car
    02AC: set_car 0@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
    02AA: set_car 0@ immune_to_nonplayer 1
    053F: set_car 0@ tires_vulnerability 0
    03F5: set_car 0@ apply_damage_rules 0
    if
    12@ == 1 // в инике стоит параметр на эту переменную, на нее можешь не обращаться внимания
    then
    0ACD: show_text_highpriority "GmCar ON ~n~~b~made Devil1606" time 99999999
    else
    if
    not Actor.Driving($PLAYER_ACTOR)
    then
    02AA: set_car 0@ immune_to_nonplayer 0
    02AC: set_car 0@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
    053F: set_car 0@ tires_vulnerability 1
    03F5: set_car 0@ apply_damage_rules 1
        else
        repeat
        wait 0
        until 0ab0: key_pressed 11@ // нажимаю клавишу деактивации, не деактивируется
        02AA: set_car 0@ immune_to_nonplayer 0
        02AC: set_car 0@ immunities BP 0 FP 0 EP 0 CP 0 MP 0
        053F: set_car 0@ tires_vulnerability 1
        03F5: set_car 0@ apply_damage_rules 1
        if
        12@ == 1
        then
        0ACD: show_text_highpriority "GmCar OFF ~n~~b~made Devil1606" time 100
    else
    wait 0
end
end
end
end
Нажмите для раскрытия...
вот пример скрипта с активацией на клавишу https://www.blast.hk/threads/11145/
 
N

next23012

Новичок
59
6
CLEO: 
0C45: samp create_3d_text id 1 text 3@ color 0xFFFFFFFF position 0.0 0.0 0.0 view_distance 50.0 show_behind_walls true attached_to_player 4@ attached_to_vehicle -1
Как правильно прикрепить к своему игроку? В 4@ должен быть ID?
 
А

АндрейЧотак

Известный
80
10
Чё эта хня рисует мне на координатах моего экрана а не на координатах игры?

CLEO: 
{$CLEO}

0000:

wait 2000

0B5A: get_screen_resolution 0@ 1@
0B5F: convert_window_screen_coords 0@ 1@ to_game_screen_coords 2@ 3@  
2@ = 0
3@ = 440

while true
 wait 0
    0B6A: render draw_box_with_border_pos 2@ 3@ size 50 21 color 0 border_size 2 border_color 0xFF000000
    if 0AB1: call @is_cursor_here 4 start 2@ 3@ end_offset 50 21 30@ 30@
    then
     if 0AB1: call_scm_func @KeyJustPressed 1 _vkey 1
     then
     0AF8: samp add_message_to_chat "kekekekekekeke" color -1
     end
    end
end

:is_cursor_here
    0AB1: call @GetCursorPos 0 4@ 5@
    if and
        001D: 4@ > 0@
        001D: 5@ > 1@
    then
        005A: 0@ += 2@
        005A: 1@ += 3@
        if and
            001D: 0@ > 4@
            001D: 1@ > 5@
        then
            0485:  return_true
        else
            059A:  return_false
        end
        0062: 0@ -= 2@
        0062: 1@ -= 3@
    else
        059A:  return_false
    end
    0062: 4@ -= 0@
    0062: 5@ -= 1@
0AB2: ret 2 4@ 5@

:GetCursorPos
0AA2: 0@ = load_library "user32.dll"
0AA4: 1@ = get_proc_address "GetCursorPos" library 0@
0AC8: 2@ = allocate_memory_size 8
0AA5: call 1@ num_params 1 pop 0 2@
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0
2@ += 4
0A8D: 4@ = read_memory 2@ size 4 virtual_protect 0
0AC9: free_memory 2@
0AA3: free_library 0@
0AB2: ret 2 3@ 4@ 

:KeyJustPressed

if
    0AB0: key_pressed 0@
then
    while 0AB0: key_pressed 0@
        wait 0
    end
    0485: return_true
    0AB2: ret 0
end
059A: return_false
0AB2: ret 0
 
itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,472
Может патому чта она принимает экранные координаты?
 
А

АндрейЧотак

Известный
80
10
legend2360 написал(а):
Может патому чта она принимает экранные координаты?
Нажмите для раскрытия...
Решил по другому это проблему)
Теперь вот чё. В начале цикла скрипт рисует текст, а далее при изменение значения переменной он должен менять цвет текста на красный, он и меняет его но на доли секунды и потом обратно на зелёный. Как решить эту херню?

[SHOWTOGROUPS=8,3,4,6,5]
CLEO: 
{$CLEO}

0000:
wait 2000
0B5A: get_screen_resolution 0@ 1@
0@ = 0
1@ /= 1.023
0B6D: render $RENDER = create_font "Arial" height 10 flags 5
while true
wait 0
    0B6A: render draw_box_with_border_pos 0@ 1@ size 50 17 color 0 border_size 2 border_color 0xFF000000
    0AC6: 28@ = label @Kek offset
    27@ = 0xFF00FF00
    0B6F: render $RENDER draw_text 28@ pos 0@ 1@ color 27@
    if 0AB1: call @is_cursor_here 4 start 0@ 1@ end_offset 50 17 30@ 30@
    then
    if 0AB1: call_scm_func @KeyJustPressed 1 _vkey 1
    then
      if 29@ == true
      then
      29@ = false
      0AF8: samp add_message_to_chat "kekekekekekeke" color -1
      27@ = 0xFFFF0000 
      else
      29@ = true
      0AF8: samp add_message_to_chat "kokokokokokoko" color -1
      27@ = 0xFF00FF00 
      end
    end
    end
end
:Kek
hex
    "Kek" 00
end
:is_cursor_here
    0AB1: call @GetCursorPos 0 4@ 5@
    if and
        001D: 4@ > 0@
        001D: 5@ > 1@
    then
        005A: 0@ += 2@
        005A: 1@ += 3@
        if and
            001D: 0@ > 4@
            001D: 1@ > 5@
        then
            0485:  return_true
        else
            059A:  return_false
        end
        0062: 0@ -= 2@
        0062: 1@ -= 3@
    else
        059A:  return_false
    end
    0062: 4@ -= 0@
    0062: 5@ -= 1@
0AB2: ret 2 4@ 5@
:GetCursorPos
0AA2: 0@ = load_library "user32.dll"
0AA4: 1@ = get_proc_address "GetCursorPos" library 0@
0AC8: 2@ = allocate_memory_size 8
0AA5: call 1@ num_params 1 pop 0 2@
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0
2@ += 4
0A8D: 4@ = read_memory 2@ size 4 virtual_protect 0
0AC9: free_memory 2@
0AA3: free_library 0@
0AB2: ret 2 3@ 4@
:KeyJustPressed
if
    0AB0: key_pressed 0@
then
    while 0AB0: key_pressed 0@
        wait 0
    end
    0485: return_true
    0AB2: ret 0
end
059A: return_false
0AB2: ret 0
[/cleo]
[/SHOWTOGROUPS]
[/SHOWTOGROUPS]
 
itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,472
Убрать присваивание переменной на зеленый цвет?
 
AWRage

AWRage

Активный
642
141
Есть функция получения костей? Например, головы. Или подскажите как это сделать.
 
DarkP1xel

DarkP1xel

Ухожу в армию... Вернусь через год.
BH Team
3,637
5,060
CLEO: 
0A96: 25@ = actor 0@ struct
0AA6: call_method 0x5E4280 struct 25@ num_params 3 pop FALSE updateSkinBones TRUE BoneID 6 outPosition 25@v // CPed__getBonePosition

96C846.jpg
 
  • Нравится
Реакции: AWRage
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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