{$CLEO .cs}

//-------------MAIN---------------
thread 'BASEGAT'

:Initial
wait 0
   Player.Defined($PLAYER_CHAR)
jf @Initial
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 90.0 90.0
jf @Initial
Model.Load(303)

:ModelCheck
wait 0
 Model.Available(303)
jf @ModelCheck
029B: 0@ = init_object 303 at -973.7 -519.9 10.1
0177: set_object 0@ z_angle_to 101.0

Model.Destroy(303)

:GateCheck
wait 0
   Player.Defined($PLAYER_CHAR)
jf @GateCheck
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 90.0 90.0
jf @DeleteGate
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 10.0 10.0
jf @GateCheck
018D: 1@ = create_sound 2 at -975.0 -512.9 10.1

:GateOpen
034E: move_object 0@ to -975.0 -512.9 10.1 speed 0.0186 0.1 0.0 collision_check 0
wait 0
   Player.Defined($PLAYER_CHAR)
jf @GateOpen
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 90.0 90.0
jf @DeleteSoundAndGate
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 10.0 10.0
jf @GateOpenStop
04E5:   object 0@ near_point -975.0 -512.9 radius 0.01 0.01 sphere 0
jf @GateOpen

:GateOpenStop
018E: stop_sound 1@
018C: play_sound 3 at -975.0 -512.9 10.1

:GateCheck2
wait 0
   Player.Defined($PLAYER_CHAR)
jf @GateCheck2
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 90.0 90.0
jf @DeleteGate
80E3:   NOT player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 10.0 10.0
jf @GateCheck2
018D: 1@ = create_sound 2 at -975.0 -512.9 10.1

:GateClose
034E: move_object 0@ to -973.7 -519.9 10.1 speed 0.0186 0.1 0.0 collision_check 0
wait 0
   Player.Defined($PLAYER_CHAR)
jf @GateClose
00E3:   player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 90.0 90.0
jf @DeleteSoundAndGate
80E3:   NOT player $PLAYER_CHAR in_sphere 0 near_point -973.7 -519.9 radius 10.0 10.0
jf @GateCloseStop
04E5:   object 0@ near_point -973.7 -519.9 radius 0.01 0.01 sphere 0
jf @GateClose

:GateCloseStop
018E: stop_sound 1@
018C: play_sound 3 at -973.7 -519.9 10.1
jump @GateCheck

:DeleteSoundAndGate
018E: stop_sound 1@

:DeleteGate
Object.Destroy(0@)
jump @Initial