scn AAATestSwitchScript

short Open

Begin OnActivate
    if AAATestFungusARef.State==0
     if Open==0
      AAATestDoorRef.SetOpenState 1
      ShowMessage [Есть гриб!]
      set Open to 1
     else
      AAATestDoorRef.SetOpenState 0
      set Open to 0
     endif
     Activate
    else
     if Open==1
      AAATestDoorRef.SetOpenState 0
      set Open to 0
     endif
     ShowMessage [Нету гриба!]
    endif
End

scn AAATestSwitchScript

Begin OnActivate
     if AAATestFungusARef.State==0
      AAATestDoorRef.Activate
      ShowMessage [Есть гриб!]
      Activate
     else
      if AAATestDoorRef.GetOpenState==1
       AAATestDoorRef.Activate
      endif
      ShowMessage [Нету гриба!]
     endif
End

scn AAATestFundusScript

float TimeStart
float TimeStop
short State

Begin onActivate
       if (State == 0)
        Disable
        player.additem AAATestFungusA 1
        set State to 1
       endif
End

Begin GameMode
       if State>0
        if State==1
         if AAATestDoorRef.GetOpenState==3
          set TimeStart to GameDaysPassed
          set State to 2
         endif
        elseif State==2
         set TimeStop to GameDaysPassed
         if TimeStop - TimeStart >= 1
          Enable
          set State to 0
         endif
        endif
       endif
End

begin scripteffectstart
   player.additem zzUnderWorldPowerArmorAdvancedNoBackpackFoodAbility 1
   Set zzunderworldquest.Maintenance to 1
End

Short Option
Short Button
Short Choice

Short AbilityNumber1
Short AbilityNumber2
Short AbilityNumber3
Short AbilityNumber4
Short AbilityNumber5

short Maintenance
short MaintenanceGood
short BatteryCount
float CurrentBatteryLife
short LastBattery
short BatteryPercent
short PlayerBatteries

if Maintenance == 1
   set Button to GetButtonPressed   
   if (Button == 0)   
    ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGBatteriesInstalled BatteryCount, PlayerBatteries ;установка батарей
    Set Maintenance to 2
     
   elseif ( Button == 1 )    
    ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGAbility ;выбор способностей
    Set Maintenance to 3
     else
;  Set Maintenance to 0
   endif

   if Maintenance == 2
    set Option to GetButtonPressed
    if Option == 0
     Player.RemoveItem FissionBattery 1
     zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesRef.AddItem FissionBattery 1
     set PlayerBatteries to PlayerBatteries - 1
     set BatteryCount to BatteryCount + 1
     set LastBattery to 0
     ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGBatteriesInstalled, BatteryCount, PlayerBatteries
    elseif Option == 1
     zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesRef.RemoveItem FissionBattery 1
     Player.AddItem FissionBattery 1
     set PlayerBatteries to PlayerBatteries + 1
     set BatteryCount to BatteryCount - 1
     if BatteryCount == 0
      set LastBattery to 1
     else
      set LastBattery to 0
     endif
     ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGBatteriesInstalled, BatteryCount, PlayerBatteries
    elseif Option == 2
     set Maintenance to 0
    endif
   endif

   if Maintenance == 3
   set Choice to GetButtonPressed
   if Choice == 0 ;стелс
     if AbilityNumber1 == 0
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.addspell StealthBoyInvisibilitySpell
       set AbilityNumber1 to 1
       set zzUnderWorldQuest.MaintenanceGood to 1
     endif
     
     if AbilityNumber1 == 1
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.removespell StealthBoyInvisibilitySpell
       set AbilityNumber1 to 0
       set zzUnderWorldQuest.MaintenanceGood to 0
     endif
     
    elseif Choice == 1 ;ускорение
     if AbilityNumber2 == 0
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       Player.Setav SpeedMult 150
       set AbilityNumber2 to 1
       set zzUnderWorldQuest.MaintenanceGood to 1
     endif
     
     if AbilityNumber2 == 1
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       Player.Setav SpeedMult 150
       set AbilityNumber2 to 0
       set zzUnderWorldQuest.MaintenanceGood to 0
     endif
     
    elseif Choice == 2 ;замедление
     if AbilityNumber3 == 0
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       sgtm 0.25
       set AbilityNumber3 to 1
       set zzUnderWorldQuest.MaintenanceGood to 1
     endif
     
     if AbilityNumber3 == 1
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       sgtm 1
       set AbilityNumber3 to 0
       set zzUnderWorldQuest.MaintenanceGood to 0
     endif
     
    elseif Choice == 3 ;кулак ярости
     if AbilityNumber4 == 0
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.AddItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4 1 100
       player.EquipItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4
       set AbilityNumber4 to 1
       set zzUnderWorldQuest.MaintenanceGood to 1
     endif
     
     if AbilityNumber4 == 1
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.removeItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4 1
       set AbilityNumber4 to 0
       set zzUnderWorldQuest.MaintenanceGood to 0
     endif
     
    elseif Choice == 4 ;защитный режим
     if AbilityNumber5 == 0
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.AddItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4 1 100
       player.EquipItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4
       set AbilityNumber5 to 1
       set zzUnderWorldQuest.MaintenanceGood to 1
     endif
     
     if AbilityNumber5 == 1
      elseif zzUnderWorldQuest.CurrentBatteryLife <= 60 && zzUnderWorldQuest.BatteryCount == 0
       ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGlow
      Else
       player.removeItem zzUnderWorldPowerArmorAdvancedNoBackpackWeap4 100
       set AbilityNumber5 to 0
       set zzUnderWorldQuest.MaintenanceGood to 0
     endif
   endif
endif
endif

if MaintenanceGood == 1
    if CurrentBatteryLife <= 0 && BatteryCount > 0
     set CurrentBatteryLife to 3600
     zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesRef.RemoveItem FissionBattery 1
     set BatteryCount to BatteryCount - 1
     if BatteryCount == 0
      set LastBattery to 1
     else
      set LastBattery to 0
     endif
    endif
endif

   if LastBattery == 1
    set BatteryPercent to CurrentBatteryLife / 36
    ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGleft BatteryPercent
    set LastBattery to 2
   elseif LastBattery == 2
    if CurrentBatteryLife / 360 > 1
     if CurrentBatteryLife / 360 < BatteryPercent / 10
      set LastBattery to 1
     endif
    elseif CurrentBatteryLife / 36 < BatteryPercent
     set LastBattery to 1
    endif
   endif

Short Option
Short Button
;Short Choice

short Maintenance
short Maintenance2
;short Maintenance3

if Maintenance == 1
  ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGChoice
  set Button to GetButtonPressed  
  if (Button == 0)
   Set Maintenance2 to 1
   Set Maintenance to 0
  elseif (Button == 1)   
;  Set Maintenance3 to 1
   Set Maintenance to 0
  elseif (Button == 2)
   Set Maintenance to 0
  endif

  if Maintenance2 == 1
   ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGBatteriesInstalled BatteryCount, PlayerBatteries
   set Option to GetButtonPressed
   if (Option == 0)
    Player.RemoveItem FissionBattery 1
    zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesRef.AddItem FissionBattery 1
    set PlayerBatteries to PlayerBatteries - 1
    set BatteryCount to BatteryCount + 1
    set LastBattery to 0
   elseif (Option == 1)
    zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesRef.RemoveItem FissionBattery 1
    Player.AddItem FissionBattery 1
    set PlayerBatteries to PlayerBatteries + 1
    set BatteryCount to BatteryCount - 1
;  if BatteryCount == 0
;   set LastBattery to 1
;  else
;   set LastBattery to 0
;    endif
;  ShowMessage zzUnderWorldPowerArmorAdvancedNoBackpackContainerBatteriesMSGBatteriesInstalled, BatteryCount, PlayerBatteries
   elseif Option == 2
    set Maintenance2 to 0
   endif
  endif
endif

Short Maintenance
Short Maintenance2
Short Option

begin scripteffectstart
  player.additem zzUnderWorldPowerArmorAdvancedFoodAbility2 1
;    set zzunderworldquest.Maintenance to 1
  Set Maintenance2 to 1
End

Begin GameMode
if (Maintenance2 == 1)
  set zzUnderWorldQuest.PlayerBatteries to Player.GetItemCount FissionBattery
  Showmessage zzUnderWorldPowerArmorAdvancedMESGBattery, zzUnderWorldQuest.PlayerBatteries
  Set Maintenance to 1
endif

if (Maintenance == 1)
  Set Maintenance2 to 0
  Set Option to GetButtonPressed
;    if (Option < 0)
;  Return
  if (Option == 0) ;Подключить ядерную батарею
   Player.removeitem FissionBattery 1
   player.removeitem zzUnderWorldPowerArmorAdvancedFoodAbility2 10
   player.additem zzUnderWorldPowerArmorAdvancedNoBackpackFoodAbility 1
   zzUnderWorldPowerArmorAdvancedContainerBatteryRef.additem FissionBattery 1
   Set Maintenance to 0
  elseif (Option == 1)
   Set Maintenance to 0
  endif
endif
End