scn 0ITUHTeleportVault

short Done
short Button
short LevMenuT
INT TeleportEND
INT TeleportSTART
REF TeleportLocation
FLoat WaitTime  
INT UsedIt  

;Globals used here

begin OnActivate

  if IsActionRef player == 1
   ShowMessage 0ITUHomeTeleport0
   set LevMenuT to 1
  endif

end

begin gamemode

  set Button to GetButtonPressed

if  ( LevMenuT == 1 )

    if (Button == -1) ; No button has been pressed yet
   Return

   elseif ( Button == 0 )
;Страница 1
ShowMessage 0ITUHomeTeleport1
   Set LevMenuT to 2

  elseif ( Button == 1 )
;Страница 2
ShowMessage 0ITUHomeTeleport2
   Set LevMenuT to 3

  elseif ( Button == 2 )
;Страница 3
ShowMessage 0ITUHomeTeleport3
   Set LevMenuT to 4

  elseif ( Button == 3 )
;Страница 4
ShowMessage 0ITUHomeTeleport4
   Set LevMenuT to 5

  else
;выход
   Set LevMenuT to 0
   endif

elseif ( LevMenuT == 2 ) ; Страница 1

  set Button to GetButtonPressed

   if ( Button == 0 ) ;Центральный зал
  Set TeleportLocation to  ITUTeleportMarkerHome
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 1 ) ;Склад
Set TeleportLocation to  ITUTeleportMarkerStorage
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 2 )  ;Генераторная
Set TeleportLocation to  ITUTeleportMarkerGenerator
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 3 )  ;Фабрика
Set TeleportLocation to ITUTeleportMarkerFabric
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 4 ) ;Медицинская комната
  Set TeleportLocation to  ITUTeleportMarkerMedRoom
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 5 ) ;Комната управления
  Set TeleportLocation to ITUTeleportMarkerCKU
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0 ;

  elseif ( Button == 6 ) ;Вернутся в меню выше
   ShowMessage 0ITUHomeTeleport0
   Set LevMenuT to 1

  elseif ( Button == 7 ) ; Отмена
   Set LevMenuT to 0
  endif

elseif ( LevMenuT == 3 ) ; Страница 2

  set Button to GetButtonPressed

   if (Button == -1) ; No button has been pressed yet
   Return

   elseif ( Button == 0 ) ;Теплицы
  Set TeleportLocation to  ITUTeleportMarkerTepl
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 1 ) ;Музей
Set TeleportLocation to  ITUTeleportMarkerMuseum
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 2 )  ;Зимний зал
Set TeleportLocation to  ITUTeleportMarkerSad
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 3 )  ;Инкубатор
Set TeleportLocation to ITUTeleportMarkerInkub
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 4 ) ;Студия
  Set TeleportLocation to ITUTeleportMarkerStudia
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 5 ) ;Туалеты
  Set TeleportLocation to  ITUTeleportMarkerToilet
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0 ;

  elseif ( Button == 6 ) ;Вернутся в меню выше
   ShowMessage 0ITUHomeTeleport0
   Set LevMenuT to 1

  elseif ( Button == 7 ) ; Отмена
   Set LevMenuT to 0
  endif

elseif ( LevMenuT == 4 ) ; Страница 3

  set Button to GetButtonPressed

   if (Button == -1) ; No button has been pressed yet
   Return

   elseif ( Button == 0 ) ;Столовая
  Set TeleportLocation to  ITUTeleportMarkerRestoran
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 1 ) ;Комнаты компаньонов
Set TeleportLocation to  ITUTeleportMarkerFollower
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 2 )  ;Бассеин
Set TeleportLocation to  ITUTeleportMarkerBasein
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 3 )  ;Тренировочная
Set TeleportLocation to ITUHReturnSoilder
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 4 ) ;Манекены
  Set TeleportLocation to  ITUTeleportMarkerMann
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 5 ) ;Личная комната
  Set TeleportLocation to  ITUTeleportMarkerRoomB
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0 ;

  elseif ( Button == 6 ) ;Вернутся в меню выше
   ShowMessage 0ITUHomeTeleport0
   Set LevMenuT to 1

  elseif ( Button == 7 ) ; Отмена
   Set LevMenuT to 0
  endif

elseif ( LevMenuT == 5 ) ; Страница 4

  set Button to GetButtonPressed

if ( Button == 0 ) ;Виртуальный симулятор
  Set TeleportLocation to  ITUTeleportMarkerSim
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 1 ) ;Склад боеприпасов
Set TeleportLocation to  ITUTeleportMarkerSA
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 2 )  ;Склад медикаментов
Set TeleportLocation to  ITUTeleportMarkerSMed
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 3 )  ;Склад продуктов
Set TeleportLocation to ITUTeleportMarkerSFood
Set TeleportSTART to 1
Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 4 ) ;Склад мусора
  Set TeleportLocation to ITUTeleportMarkerSJunk
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0

  elseif ( Button == 5 ) ;(ЧИТ) читерная комната
  Set TeleportLocation to  ITUTeleportMarkerCHeats
  Set TeleportSTART to 1
  Playsound WPNEuclidFinderUplink
   Set LevMenuT to 0 ;

  elseif ( Button == 6 ) ;Вернутся в меню выше
   ShowMessage 0ITUHomeTeleport0
   Set LevMenuT to 1

  elseif ( Button == 7 ) ; Отмена
   Set LevMenuT to 0
  endif

endif

   If TeleportSTART == 1
      Player.PlaceAtMe 0ITUHTeleportEffects
      DisablePlayerControls 1 1 1 1 0 1 1
      imod ITUHFadetoWhite
      Playsound 0ITUHTeleportSound
      Set TeleportSTART to 0
      Set TeleportEND to 1
endif

    If TeleportEND == 1
     Imod Addiction01ISFX
     EnablePlayerControls
     Player.Moveto TeleportLocation
     Set TeleportEND to 0
    endif

end