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

jenekbueno · 17 Фев 2018

FeaVor228 написал(а):
А каким мне образом сделать, чтобы цвета менялись раз в 2 секунды?

ну например

CLEO:

0B34: samp register_client_command "cheatallRGB" to_label @1
while true
wait 0
    if 31@ == true
    then
        // выполняешь свой код
    end
end
:1
31@ = true
samp.CmdRet()

Удалённый пользователь 126082 · 17 Фев 2018

И типо где редактировать задержку?

romanblinov2013 · 17 Фев 2018

FeaVor228 написал(а):
И типо где редактировать задержку?

CLEO:

wait 2000

LaRossa · 17 Фев 2018

FeaVor228 написал(а):

Почему у меня цвета не меняются, а сменяется на 1 цвет и следующие изменения не происходят?

CLEO:

{$CLEO   .cs}
0000:

:av
wait 0
0AFA:  is_samp_available
jf @av
0B34: samp register_client_command "cheatallRGB" to_label @1
0B34: samp register_client_command "cheatallRGBOFF" to_label @2
0BDE: pause_thread 0


:1
wait 0
if
00DF:   actor $PLAYER_ACTOR driving
jf @1
0811: 0@ = actor $PLAYER_ACTOR used_car
0229: set_car 0@ primary_color_to 1 secondary_color_to 211
wait 2000
0229: set_car 0@ primary_color_to 2 secondary_color_to 1
wait 1000
0229: set_car 0@ primary_color_to 3 secondary_color_to 2
wait 2000
0229: set_car 0@ primary_color_to 4 secondary_color_to 3
wait 1000
0229: set_car 0@ primary_color_to 5 secondary_color_to 4
wait 3000
0229: set_car 0@ primary_color_to 6 secondary_color_to 5
0B43: samp cmd_ret


:2
wait 0
0229: set_car 0@ primary_color_to 1 secondary_color_to 211
0B43: samp cmd_ret

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
0B34: samp register_client_command "cheatallRGB" to_label @cmd

while true
    wait 0
    if and
    0@ == 1
    00DF: actor $PLAYER_ACTOR driving
        then
        0811: 1@ = actor $PLAYER_ACTOR used_car
        0229: set_car 1@ primary_color_to 1 secondary_color_to 211
        wait 2000
        0229: set_car 1@ primary_color_to 2 secondary_color_to 1
        wait 1000
        0229: set_car 1@ primary_color_to 3 secondary_color_to 2
        wait 2000
        0229: set_car 1@ primary_color_to 4 secondary_color_to 3
        wait 1000
        0229: set_car 1@ primary_color_to 5 secondary_color_to 4
        wait 3000
        0229: set_car 1@ primary_color_to 6 secondary_color_to 5
    end
end

:cmd
0B12: 0@ = 0@ XOR 1
if 0@ == 1
    then
    msg "ON" -1
else
    msg "OFF" -1
end
Samp.CmdRet()

Lord · 18 Фев 2018

Возможно ли подобное?
Вводишь команду, а затем выполняется одно рандомное действие из нескольких указанных. Тип не if or, а then or.

LaRossa · 18 Фев 2018

lordpower написал(а):
Возможно ли подобное?
Вводишь команду, а затем выполняется одно рандомное действие из нескольких указанных. Тип не if or, а then or.

CLEO:

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
cmd "rand" @cmd
0BDE: pause_thread 0

:cmd
0099: 0@ = random_int_in_ranges 0 5

if 0@ == 1
    then
    msg "1" -1
end

if 0@ == 2
    then
    msg "2" -1
end

if 0@ == 3
    then
    msg "3" -1
end

if 0@ == 4
    then
    msg "4" -1
end

if 0@ == 5
    then
    msg "5" -1
end
Samp.CmdRet()

Удалённый пользователь 126082 · 18 Фев 2018

Не работает, 1 цвет меняет и все.

MArkoas_Gonzaleees · 18 Фев 2018

Ребят, помогите с кодом. Хочу сделать личку с возвратом. Типа пишешь /mats тебя ТПхает на военку, ждёт 1 секунду, ТПхает обратно. Но у меня при входе в игру, игра зависает или крашится. Что делать?

Код:

{$CLEO .cs}
0000: NOP

repeat
wait 100
until Samp.Available()

0B34: samp register_client_command "mats" to_label @label1

:label1
wait 100
if and
044B:   actor $PLAYER_ACTOR on_foot
056D:   actor $PLAYER_ACTOR defined
jf @label1
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 1.0
wait 1000
Actor.PutAt($PLAYER_ACTOR, 153.80, 1845.53, 17.64)
wait 1000
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Samp.CmdRet()

DarkL1ght · 18 Фев 2018

MArkoas_Gonzaleees написал(а):
Ребят, помогите с кодом. Хочу сделать личку с возвратом. Типа пишешь /mats тебя ТПхает на военку, ждёт 1 секунду, ТПхает обратно. Но у меня при входе в игру, игра зависает или крашится. Что делать?

Код:

{$CLEO .cs} 0000: NOP repeat wait 100 until Samp.Available() 0B34: samp register_client_command "mats" to_label @label1 :label1 wait 100 if and 044B: actor $PLAYER_ACTOR on_foot 056D: actor $PLAYER_ACTOR defined jf @label1 04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 1.0 wait 1000 Actor.PutAt($PLAYER_ACTOR, 153.80, 1845.53, 17.64) wait 1000 Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@) Samp.CmdRet()

CLEO:

{$CLEO .cs}
0000: NOP

repeat
    wait 0
until Samp.Available()

0B34: samp register_client_command "mats" to_label @mats

repeat
wait 0
    if 0@ == 1
            then
            if 044B:   actor $PLAYER_ACTOR on_foot
            then
            if 056D:   actor $PLAYER_ACTOR defined
            then
            00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ 3@
            wait 1000
            04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 1.0
            wait 1000
            Actor.PutAt($PLAYER_ACTOR, 153.80, 1845.53, 17.64)
            wait 1000
            00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ 3@
            end
        end
    0@ = 0
end
until false

:mats
0@ = 1
0B43: samp cmd_ret

Удалённый пользователь 126082 · 18 Фев 2018

Почему меня крашит при вводе команды?

CLEO:

{$CLEO  .cs}
0000:

:AV
wait 0
0AFA:  is_samp_available
jf @AV
0B34: samp register_client_command "rgb" to_label @1

0BDE: pause_thread 0


:1
wait 0
if
00DF:   actor $PLAYER_ACTOR driving
jf @error
0811: 0@ = actor $PLAYER_ACTOR used_car
0AD4: 2@ = scan_string 1@ format "%d" 3@
0229: set_car 0@ primary_color_to 1@ secondary_color_to 3@
0B43: samp cmd_ret


:Error
wait 0
0AF8: samp add_message_to_chat "[RGB]Ñÿäüòå â ìàøèíóþ" color 0xFF0000
0B43: samp cmd_ret

randazzo · 18 Фев 2018

FeaVor228 написал(а):

Почему меня крашит при вводе команды?

CLEO:

{$CLEO  .cs}
0000:

:AV
wait 0
0AFA:  is_samp_available
jf @AV
0B34: samp register_client_command "rgb" to_label @1

0BDE: pause_thread 0


:1
wait 0
if
00DF:   actor $PLAYER_ACTOR driving
jf @error
0811: 0@ = actor $PLAYER_ACTOR used_car
0AD4: 2@ = scan_string 1@ format "%d" 3@
0229: set_car 0@ primary_color_to 1@ secondary_color_to 3@
0B43: samp cmd_ret


:Error
wait 0
0AF8: samp add_message_to_chat "[RGB]Ñÿäüòå â ìàøèíóþ" color 0xFF0000
0B43: samp cmd_ret

CLEO:

{$CLEO}
0000:
repeat
wait 0
until 0AFA:

0B34: samp register_client_command "rgb" to_label @1
0BDE: pause_thread 0

:1
0B35: samp 1@ = get_last_command_params
if 00DF:   actor $PLAYER_ACTOR driving
then
    if 0AD4: 2@ = scan_string 1@ format "%d" 3@
    then
        03C0: 0@ = actor $PLAYER_ACTOR car
        0229: set_car 0@ primary_color_to 3@ secondary_color_to 3@
    else
        0AF8: samp add_message_to_chat "[RGB] Введите цвет." color 0xFF0000   
    end
else
    0AF8: samp add_message_to_chat "[RGB] Сядьте в машиную." color 0xFF0000
end
0B43: samp cmd_ret

grandpafromghetto · 18 Фев 2018

как сделать так, чтоб серверная анимка не сбивала as опкоды?

D3.Pheonix · 18 Фев 2018

old_ghetto_ написал(а):
как сделать так, чтоб серверная анимка не сбивала as опкоды?

CLEO:

repeat
wait 0
until SAMP.Available()
0BE3: raknet setup_incoming_rpc_hook @anim
0BDE: pause_thread 0

:anim
0BE5: raknet 0@ = get_hook_param 1
if 0@ == 86 // RPC_SCRAPPLYANIMATION
then
0BE0: raknet hook_ret 0 // отклоняет все серверные анимки
end
0BE0: raknet hook_ret 1

А дальше под себя ебашь

YaGGod · 19 Фев 2018

CLEO:

:Noname_2374
00D6: if
0039:   13@ == 2
004D: jump_if_false @Noname_2501
0AF4: 1@v = read_string_from_ini_file "cleo\config.ini" section "1" key "3"
0AF4: 2@v = read_string_from_ini_file "cleo\config.ini" section "2" key "3"
0AD3: 18@ = format "/%s" 1@
0006: 20@ = 2@
0006: 23@ = 1

Память для переменной освобождена в начале скрипта, все переменные прописаны в .ini файле, однако на практике приводит к этому:

randazzo · 19 Фев 2018

YaGGod написал(а):
CLEO:

:Noname_2374 00D6: if 0039: 13@ == 2 004D: jump_if_false @Noname_2501 0AF4: 1@v = read_string_from_ini_file "cleo\config.ini" section "1" key "3" 0AF4: 2@v = read_string_from_ini_file "cleo\config.ini" section "2" key "3" 0AD3: 18@ = format "/%s" 1@ 0006: 20@ = 2@ 0006: 23@ = 1

Память для переменной освобождена в начале скрипта, все переменные прописаны в .ini файле, однако на практике приводит к этому:Посмотреть вложение 11919

выдели через alloc и лучше кидай полный код.

Поиск

Поиск

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

jenekbueno

Известный

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

Гость

romanblinov2013

RB_PRO

LaRossa

Потрачен

Lord

Новичок

LaRossa

Потрачен

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

Гость

MArkoas_Gonzaleees

Новичок

DarkL1ght

Новичок

Вложения

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

Гость

randazzo

.

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ

D3.Pheonix

🎹

YaGGod

Новичок

randazzo

.

Похожие темы