Обычный телепорт по метке как в собейте.

[fernanice]

Здрасьте, мне бы телепортер точно такой же как в собейте ну тот что ставишь метку и правой кнопкой мыши ТПшишся на метку, такой бы только в клео, и по команде /tp. Спасибо.

 

[©Ded_Fedot]

{$CLEO}
0000:
repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "tp" to_label @123

while true
wait 0
if and
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
30@ == 1
then
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
30@ = 0
end
end

:123
30@ = 1
SAMP.CmdRet()

 

[fernanice]

{$CLEO}
0000:
repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "tp" to_label @123

while true
wait 0
if and
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
30@ == 1
then
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
30@ = 0
end
end

:123
30@ = 1
SAMP.CmdRet()

Моё уважение.

 

[Niko]

А ещё, чтобы телепортироваться не под карту, а сразу на землю, можно сделать так:

Actor.PutAt($PLAYER_ACTOR, 0@ 1@ -999.0)
wait 0
Actor.PutAt($PLAYER_ACTOR, 0@ 1@ 2@)

 

[fernanice]

Братва, скомпилируйте пожалуйста :)
Нету возможности.

 

[Niko]

На

 

[DarkP1xel]

хуйню вы написали, а не телепорт

{$CLEO}
0B34: samp register_client_command "TP" to_label @cmdTP
0BDE: pause_thread 0

:cmdTP
IF 0AB6: store_target_marker_coords_to 0@ 1@ 2@
THEN
04E4: refresh_game_renderer_at 0@ 1@
03CB: set_rendering_origin_at 0@ 1@ 2@
02CE: 2@ = ground_z_at 0@ 1@ 500.0
    IF 00DF:   actor $PLAYER_ACTOR driving 
    THEN
    03C0: 3@ = actor $PLAYER_ACTOR car
    00AB: put_car 3@ at 0@ 1@ 2@
    ELSE 00A1: put_actor $PLAYER_ACTOR at 0@ 1@ 2@
    END
END
0B43: samp cmd_ret

// By DarkP1xel