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

Trawer2289 · 17 Янв 2018

Помогите что у меня не так и исправьте пожалуйста

CLEO:

{$CLEO .cs}
0000: NOP
repeat
    wait 400
until samp.Available()
0B34: samp register_client_command "test" to_label [USER=63112]@Kek[/USER]
0BDE: pause_thread 0
repeat
wait 0
    if 0@ == 1
    then
    if 0449:   actor $PLAYER_ACTOR in_a_car
    then
    018C: play_sound 1058 at 0.0 0.0 0.0
    msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться в транспорте!" -1
    else
    077E: get_active_interior_to 1@
    if
    1@ == 1
    then
    018C: play_sound 1058 at 0.0 0.0 0.0
    msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться на улице!" -1
    else
    077E: get_active_interior_to 2@
    if
    2@ == 0
    then
    018C: play_sound 1058 at 0.0 0.0 0.0
    msg "{7FD76F}[Внимание] {ffffff}Покиньте интерьер!" -1
    else
    if
    2@ == 1
    Actor.PutAt($PLAYER_ACTOR, 137.331, 1881.63,17.8359)
    wait 1000
    0AF6: samp spawn_player
    end
   end
  end
 end
end
until false
:kek
0@ = 1
Samp.CmdRet()

randazzo · 17 Янв 2018

@Trawer2289

CLEO:

{$CLEO}
0000: NOP
repeat
    wait 400
until samp.Available()
0B34: samp register_client_command "test1" to_label @cmd

WHILE TRUE
wait 0
    IF 0@ == 1
    THEN
        IF 0449:   actor $PLAYER_ACTOR in_a_car
        then
            018C: play_sound 1058 at 0.0 0.0 0.0
            msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться в транспорте!" -1
        else
            077E: get_active_interior_to 1@
            IF 1@ == 0
            THEN
                018C: play_sound 1058 at 0.0 0.0 0.0
                msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться на улице!" -1
            ELSE
                018C: play_sound 1058 at 0.0 0.0 0.0
                msg "{7FD76F}[Внимание] {ffffff}Покиньте интерьер!" -1
              
                repeat
                    wait 0
                    077E: get_active_interior_to 1@
                until 8019: 1@ > 0
              
                Actor.PutAt($PLAYER_ACTOR, 137.331, 1881.63,17.8359)
                wait 1000
                0AF6: samp spawn_player
            END
        END      
        0@ = 0
    END
END

:cmd
0@ = 1
Samp.CmdRet()

@biovolk
Вопрос - Вопросы по CLEO-скриптингу^{(https://blast.hk/threads/13410/page-343#post-172500)}

Lord · 17 Янв 2018

Опкод пожалуйста, который создает метку (сферу) на карте и в самой игре.

biovolk · 17 Янв 2018

@randazzo

CLEO:

{$CLEO}
0000:

IF AND
  0AB0:  key_pressed 90
  0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
THEN
  0B2B: samp 1@ = get_player_id_by_actor_handle 0@
  say "/take weapons %d" 1@
  wait 1
  say "/ad %d" 1@
  wait 500
  say "/ac %d" 1@
  wait 500 
  say "/ea %d" 1@
  wait 500 
  say "/dd %d" 1@
  wait 500
END

Имеем допустим такой скрипт, который при наводке прицела на человека, будет срабатывание команд данных выше. Вопрос : работать будет только с sampfuncs? (есть ли возможность чтобы без него?)
Возможно что-то не правильное в коде, просьба сказать.

MaIIoy · 17 Янв 2018

lordpower написал(а):
Опкод пожалуйста, который создает метку (сферу) на карте и в самой игре.

if 0AB6: store_target_marker_coords_to 0@ 1@ 2@ (проверка имеется ли метка), если да тогда Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@) (нас телепортирует на нее)

randazzo · 17 Янв 2018

biovolk написал(а):
@randazzo

CLEO:

{$CLEO} 0000: IF AND 0AB0: key_pressed 90 0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET THEN 0B2B: samp 1@ = get_player_id_by_actor_handle 0@ say "/take weapons %d" 1@ wait 1 say "/ad %d" 1@ wait 500 say "/ac %d" 1@ wait 500 say "/ea %d" 1@ wait 500 say "/dd %d" 1@ wait 500 END

Имеем допустим такой скрипт, который при наводке прицела на человека, будет срабатывание команд данных выше. Вопрос : работать будет только с sampfuncs? (есть ли возможность чтобы без него?)
Возможно что-то не правильное в коде, просьба сказать.

Только с сф, возможность есть, перепиши функции получения id по хендлу и вывода сообщения в чат.

CLEO:

{$CLEO}
0000:

WHILE TRUE
wait 0
IF AND
  0AB0:  key_pressed 90
  0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
THEN
  0B2B: samp 1@ = get_player_id_by_actor_handle 0@
  say "/take weapons %d" 1@
  wait 1
  say "/ad %d" 1@
  wait 500
  say "/ac %d" 1@
  wait 500
  say "/ea %d" 1@
  wait 500
  say "/dd %d" 1@
  wait 500
END
END

если на сервере антифлуд есть, то задержку больше надо ставить.

biovolk · 17 Янв 2018

randazzo написал(а):
Только с сф, возможность есть, перепиши функции получения id по хендлу и вывода сообщения в чат.

CLEO:

{$CLEO} 0000: WHILE TRUE wait 0 IF AND 0AB0: key_pressed 90 0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET THEN 0B2B: samp 1@ = get_player_id_by_actor_handle 0@ say "/take weapons %d" 1@ wait 1 say "/ad %d" 1@ wait 500 say "/ac %d" 1@ wait 500 say "/ea %d" 1@ wait 500 say "/dd %d" 1@ wait 500 END END

если на сервере антифлуд есть, то задержку больше надо ставить.

Можешь пожалуйста помочь с перепиской? Антифлуда на данные команды нет.

randazzo · 17 Янв 2018

MaIIoy написал(а):
if 0AB6: store_target_marker_coords_to 0@ 1@ 2@ (проверка имеется ли метка), если да тогда Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@) (нас телепортирует на нее)

который создает метку

@lordpower можно через emul rpc

CLEO:

:ch_on
0B3D: raknet 30@ = new_bit_stream
0B40: raknet bit_stream 30@ write 0@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 2@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 8.0 type BS_TYPE_FLOAT size 4
0BF6: raknet emul_rpc_receive RPC_SCRSETCHECKPOINT bit_stream 30@
0B3E: raknet delete_bit_stream 30@
ret 0  

:ch_off
0B3D: raknet 1@ = new_bit_stream
0BF6: raknet emul_rpc_receive RPC_SCRDISABLECHECKPOINT bit_stream 1@
0B3E: raknet delete_bit_stream 1@
ret 0

или через

CLEO:

03BC: 149@ = create_sphere_at 2596.589 2758.158 22.862 radius 1.0

D3.Pheonix · 17 Янв 2018

Тут такое дело, короче SB не сохраняет исходник в скрипте, nosource я не прописываю, ессно.

Lord · 17 Янв 2018

MaIIoy написал(а):
if 0AB6: store_target_marker_coords_to 0@ 1@ 2@ (проверка имеется ли метка), если да тогда Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@) (нас телепортирует на нее)

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

@lordpower можно через emul rpc

CLEO:

:ch_on
0B3D: raknet 30@ = new_bit_stream
0B40: raknet bit_stream 30@ write 0@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 2@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 30@ write 8.0 type BS_TYPE_FLOAT size 4
0BF6: raknet emul_rpc_receive RPC_SCRSETCHECKPOINT bit_stream 30@
0B3E: raknet delete_bit_stream 30@
ret 0 

:ch_off
0B3D: raknet 1@ = new_bit_stream
0BF6: raknet emul_rpc_receive RPC_SCRDISABLECHECKPOINT bit_stream 1@
0B3E: raknet delete_bit_stream 1@
ret 0

или через

CLEO:

03BC: 149@ = create_sphere_at 2596.589 2758.158 22.862 radius 1.0

Спасибо, но вы неправильно поняли. Сферу создал, ок. А как сделать чтоб в том же месте на карте красным высвечивалось?

CLEONewBie · 17 Янв 2018

Как понял, мод на квадратный радар изменяет какое-то значение в памяти игры.
Внимание, вопрос: можно-ли сделать такое же на cleo?

Trawer2289 · 18 Янв 2018

Всем привет хотел написать телепорт через инту и написал ,а дальше скомпилировал но в игре сиджеи. Помогите пожалуйста, вот код:

CLEO:

{$CLEO .cs}
0000: NOP
repeat
    wait 400
until samp.Available()
0B34: samp register_client_command "itp" to_label [USER=63112]@Kek[/USER]
while true
wait 0
    if 0@ == 1
    then
        if 0449:   actor $PLAYER_ACTOR in_a_car
        then
            018C: play_sound 1058 at 0.0 0.0 0.0
            msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться в транспорте" -1
        else
            077E: get_active_interior_to 1@
            if 1@ == 0
            then
                018C: play_sound 1058 at 0.0 0.0 0.0
                msg "{ff0000}[Ошибка] {ffffff}Нельзя находиться на улице!" -1
            else
                018C: play_sound 1058 at 0.0 0.0 0.0
                msg "{7FD76F}[Внимание] {ffffff}Покиньте интерьер для телепорта!" -1
            else
                0AB6: store_target_marker_coords_to $actor_x $actor_y $actor_z
                if
                0AB6: store_target_marker_coords_to $actor_x $actor_y $actor_z
                then
                    018C: play_sound 1058 at 0.0 0.0 0.0
                    msg "{ff0000}[Ошибка] {ffffff}Поставьте метку на карте!" -1
                //
                repeat
                    wait 0
                    077E: get_active_interior_to 1@
                until 8019: 1@ > 0
              
                Actor.PutAt($PLAYER_ACTOR, $actor_x $actor_y $actor_z)
                wait 1000
                018C: play_sound 1058 at 0.0 0.0 0.0
                msg "{ffffff}Вы были телепортированы на метку!" -1
            end
        end
        0@ = 0
    end
end
:kek
0@ = 1
Samp.CmdRet()

kawa operand · 18 Янв 2018

D3.Pheonix написал(а):
Тут такое дело, короче SB не сохраняет исходник в скрипте, nosource я не прописываю, ессно.

поставь стандартные настройки сб

matteo.opcode · 18 Янв 2018

Как сделать пульсатор хп?

DarkP1xel · 18 Янв 2018

matteo.opcode написал(а):
Как сделать пульсатор хп?

CLEO:

{$CLEO}
0000: // NOP

WHILE TRUE
    0001: 0
    IF 0AB0: 0x31 // 1
    THEN
        0209: 0@ = random_int_in_ranges 1 100
        0223: set_actor $PLAYER_ACTOR health_to 0@   
    END
END

// Example by DarkP1xel

Да как только его можно не сделать.

Поиск

Поиск

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

Trawer2289

Известный

randazzo

.

Lord

Новичок

biovolk

Новичок

MaIIoy

Новичок

randazzo

.

biovolk

Новичок

randazzo

.

D3.Pheonix

🎹

Lord

Новичок

CLEONewBie

Новичок

Trawer2289

Известный

kawa operand

перерывпятьминут

matteo.opcode

Новичок

DarkP1xel

Сила воли наше всё.

Похожие темы