short AllCreated
float StartZ
ref LiveChairRef
ref Cdead

begin GameMode
    if AllCreated == 0
    set StartZ to StartMarker.GetPos Z
    set LiveChairRef to StartMarker.PlaceAtMe aaaWastelandSeat, 1
    LiveChairRef.SetPos Z StartZ
    set AllCreated to 1

elseif AllCreated == 1
    LiveChairRef.Disable
    set DeadChairRef to StartMarker.PlaceAtMe CDead, 1
    aaaWastelandRef.MoveTo aaaStartMarker

    set StartZ to StartZ + 90
    aaaWastelandRef.SetPos Z StartZ
    aaaWastelandRef.Enable 0
    set AllCreated to 2

ref MyRef
float SecondsPassed

short PlayerSitting
short MountAction
short DoOnce2

float PlayX    ;координаты игрока
float PlayY
float PlayZ

float MyX    ;координаты фурнитуры
float MyY
float MyZ

float Zdiff
float Xdiff
float Ydiff

float PointAngle
float MyAngle
float FlipAngle
float CosAngle   ;Косинус PointAngle
float SinAngle   ;Синус PointAngle

float probeangle

float RotateSpeed  ;скорость вращения фурнитуры

float MidDO   ;Расстояние смещения с кресла для MidRef
float MidZO   ;Z Смещение от фурнитуры MidRef
float GroundDO   ;Расстояние смещения с фурнитуры для GroundRef

float timer2

begin OnActivate
if PlayerSitting == 0 && GetDisabled == 0
    set MyX to GetPos X
    set MyY to GetPos Y
    set MyZ to GetPos Z
    set PlayZ to Player.GetPos Z
    set ZDiff to MyZ - PlayZ

;Ищем текущий угол, очевидно он 90 градусов
    set MyAngle to GetAngle Z
    set PointAngle to MyAngle + 90
if PointAngle >= 360
    set PointAngle to PointAngle - 360
elseif PointAngle < 0
    set PointAngle to PointAngle + 360
endif
    set ProbeAngle to PointAngle
    set RotateSpeed to 0

;Начальная синус, косинус и обратный угол
    set SinAngle to Sin PointAngle
    set CosAngle to Cos PointAngle
    set FlipAngle to PointAngle + 180
if FlipAngle >= 360
    set FlipAngle to FlipAngle - 360
endif

if GetInSameCell Player == 0
    MoveTo Player
endif

    set MountAction to 1
endif
End

;Работает в каждом кадре
begin GameMode

;Только один раз инициализация
if DoOnce2 == 0 && aaaModQuest.AllCreated == 2
    ;Получаем собственную ссылку
    set MyRef to aaaModQuest.LiveChairRef

    set MidDO to 45
    set MidZO to 20
    set GroundDO to 30

;Некогда не делать это снова
    set DoOnce2 to 1
endif

    set SecondsPassed to GetSecondsPassed

    if Timer2 > 0
     set Timer2 to Timer2 - SecondsPassed
     SetPos X MyX
     SetPos Y MyY
     SetPos Z MyZ
endif
    elseif MountAction > 0

if MountAction == 1
    SetPos X MyX
    SetPos Y MyY
    SetPos Z MyZ
    set MountAction to 2

elseif MountAction == 2
    MyRef.Activate Player

    set Timer2 to 4
    set MountAction to 4
elseif MountAction == 4
    set PlayerSitting to 1
    set MountAction to 0
endif
end