{$CLEO .cs}

if 8AF7: get_samp_base_to 0@ // Вызываем SFC - SAMPFUNCS  
then 0A93: end_custom_thread  
end  
repeat  
wait 400  
until 0AFA: is_samp_structures_available

wait 2000  

0AF8: samp add_message_to_chat "> | [CLEO] m0d_sa by Usez0r [Activated.] | <" color 0xFF66FFAA // Вместо "> | [CLEO] m0d_sa by Usez0r [Activated.] | <" пишем свой текст.

:86  
wait 0              
if or  
0ADC: test_cheat "Glen" // если ввести GO не в чат (как чит-код) - начнется алгоритм телепортирования   
7@ == 1  
jf @414  
3@ = 1971.45
4@ = -1156.16
7@ = 1  

:688  
wait 0                  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@) // запись текущих координат, пригодится ниже              
0509: 11@ = distance_between_XY 3@ 4@ and_XY 0@ 1@ // проверка, если расстояние до конечной точки мало - тп сразу на нее  
if              
                not 11@ >= 120.0              
jf @192  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 12@)  
jump @342              

:192 // ставим поворот в сторону тп  
0063: 3@ -= 0@ // (float)              
0063: 4@ -= 1@ // (float)              
0604: get_Z_angle_for_point 3@ 4@ store_to 6@  
Actor.Angle($PLAYER_ACTOR) = 6@ //              
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True // заморозка, чтобы не падать  
if // проверка, если сидите в машине - скрипт пойдет немного подругому  
                Actor.Driving($PLAYER_ACTOR)  
jf @273  
03C0: 30@ = actor $PLAYER_ACTOR car              
Car.Angle(30@) = 6@ // ставим поворот машины в сторону тп  
Car.LockInCurrentPosition(30@) = True // заморозка машины  

:273  
04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 70.1 0.0 // я так понял само тп по  
Actor.PutAt($PLAYER_ACTOR, 8@, 9@, -80.1) // маленьким расстояниям тут              
wait 1000              

:329  
if  
0ADC: not test_cheat "NO" // если нажато NO скрипт ставит на землю и прекращает тп  
jf @414              

:342  
wait 0              
7@ = 0  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)  
02CE: 13@ = ground_z_at 0@ 1@ 999.0 // узнаем высоту земли  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 13@)  // ставим на землю  
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False // разморозка  
if              
056E:   car 30@ defined // если в машине  
jf @414                    
Car.LockInCurrentPosition(30@) = False // разморозка машины  
jump @414  

:415  
0ACD: show_text_highpriority "NO MARKER" time 1500  

:414  
jump @86

:900  
wait 0              
if or  
0ADC: test_cheat "park" // если ввести GO не в чат (как чит-код) - начнется алгоритм телепортирования   
23@ == 1  
jf @1050  
21@ = 1625.83
22@ = -1115.81
23@ = 1  

:1150  
wait 0                  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@) // запись текущих координат, пригодится ниже              
0509: 11@ = distance_between_XY 21@ 22@ and_XY 0@ 1@ // проверка, если расстояние до конечной точки мало - тп сразу на нее  
if              
                not 11@ >= 120.0              
jf @950  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 12@)  
jump @1000              

:950 // ставим поворот в сторону тп  
0063: 3@ -= 0@ // (float)              
0063: 4@ -= 1@ // (float)              
0604: get_Z_angle_for_point 3@ 4@ store_to 6@  
Actor.Angle($PLAYER_ACTOR) = 6@ //              
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True // заморозка, чтобы не падать  
if // проверка, если сидите в машине - скрипт пойдет немного подругому  
                Actor.Driving($PLAYER_ACTOR)  
jf @1100  
03C0: 30@ = actor $PLAYER_ACTOR car              
Car.Angle(30@) = 6@ // ставим поворот машины в сторону тп  
Car.LockInCurrentPosition(30@) = True // заморозка машины  

:1100  
04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 70.1 0.0 // я так понял само тп по  
Actor.PutAt($PLAYER_ACTOR, 8@, 9@, -80.1) // маленьким расстояниям тут              
wait 1000              

:1200  
if  
0ADC: not test_cheat "NO" // если нажато NO скрипт ставит на землю и прекращает тп  
jf @1050              

:1000  
wait 0              
7@ = 0  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)  
02CE: 13@ = ground_z_at 0@ 1@ 999.0 // узнаем высоту земли  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 13@)  // ставим на землю  
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False // разморозка  
if              
056E:   car 30@ defined // если в машине  
jf @1050                    
Car.LockInCurrentPosition(30@) = False // разморозка машины  
jump @1050  

:1250
0ACD: show_text_highpriority "NO MARKER" time 1500  

:1050  
jump @900