{$CLEO .cs}
:Teleport_1
03A4: name_thread 'ANGELABELGTA'

:ANGELABELGTA_2
0A40: 1@ = create_entrance_marker_at 2048.08 358.721 28.0 color 3
0A40: 2@ = create_entrance_marker_at 2048.08 359.721 28.0 color 3
wait 0 
if 
0256:   player $PLAYER_CHAR defined
jf @ANGELABELGTA_2 
if 
00FF:   actor $PLAYER_ACTOR sphere 0 in_sphere 2048.08 358.721 28.0 radius 1.0 1.0 1.0 on_foot 
jf @ANGELABELGTA_3 
016A: fade 0 time 1000 
0001: wait 1500 ms 
00A1: put_actor $PLAYER_ACTOR at 2048.08 361.721 28.0
0173: set_actor $PLAYER_ACTOR Z_angle_to 7.0
016A: fade 1 time 2500 
0001: wait 500 ms
jump @ANGELABELGTA_2 

:ANGELABELGTA_3
if 
00FF:   actor $PLAYER_ACTOR sphere 0 in_sphere 2048.08 359.721 28.0 radius 1.0 1.0 1.0 on_foot 
jf @ANGELABELGTA_2 
016A: fade 0 time 1000 
0001: wait 1500 ms 
00A1: put_actor $PLAYER_ACTOR at 2048.08 356.721 28.0
0173: set_actor $PLAYER_ACTOR Z_angle_to 187.0
016A: fade 1 time 2500 
0001: wait 500 ms
jump @ANGELABELGTA_3