CLEO Thread Fribi wait 2000 cmd tpa tpa cmd tpcar tpcar While True wai

{$CLEO}
Thread "Fribi"
wait 2000

cmd "tpa" @tpa
cmd "tpcar" @tpcar

While True
wait 0
if 3@ == 1
then
Actor.PutAt($Player_Actor, 0, 0, -10000)
wait 3500
Actor.PutAt($Player_Actor, 0@, 1@, 2@)
wait 500
Actor.PutAt($Player_Actor, 0@, 1@, 2@)
wait 1000
02EB: restore_camera_with_jumpcut
0af8: "{A8DDDF}[TP] {A6EA12}Вы телепортированы." -1
3@ = 0   
    end
end

:tpa
if 0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
    then
        if
        not Actor.Driving($Player_Actor)
        then
        3@ = 1
        else
        0af8: "{A8DDDF}[TPA] {EA4040}Вы находитесь в автомобиле." -1
    end
end
SAMP.CmdRet()

:tpcar
if 0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
    then
        if
        Actor.Driving($Player_Actor)
        then
        3@ = 1
        else
        0af8: "{A8DDDF}[TPCar] {EA4040}Вы не находитесь в автомобиле." -1
    end
end
SAMP.CmdRet()