ScriptName NAPASuit

short SuitActive
short Key

short item1
short item2
short item3
short item4

float Health
short menuLevel
short button1
short button2
short button3
short button4
short button5

Begin OnEquip Player
player.UnequipItem PipBoyGlove 0 1
player.AddItem ArmorNAPAToggle 1 1                   тут, видимо, всё же не IsKeyPressed, другое- нажал - (минус) и меняется  fJumpFallHeightMin и проч. в GameSetting...
con_SetGameSetting fJumpFallHeightMin 8000     но что это за значения - 8000??? по стандарту вроде 64... или это минимальная высота, с которой можно навернуться без
con_SetGameSetting fJumpHeightMin 110            потери страховки? или... блин...

if ( player.gethasnote NAPArmorNoteCloak == 1 )   и вот смотри: вроде как обращение то ли к эффету, то ли к предмету - а в ГЕКК в разделе Armor мне показыват, что
player.AddItem ArmorNAPACloak 1 1                     есть такой предмет NAPACloak... может, это больше к нему??? имеются в инвентаре нужные запчасти, указанные в
player.EquipItem ArmorNAPACloak 0 1                 заметке - нажал upgrade в конфигураторе, и на тебе тот самый девайс который тебя будет Cloak по полной программе...
endif                                                                    только не понятно, в чём смысл ArmorNAPACloak 1 1 и ArmorNAPACloak 0 1 ?

if ( player.gethasnote NAPArmorNoteOverdrive == 1 )
player.AddItem ArmorNAPAOD 1 1
player.EquipItem ArmorNAPAOD 0 1
endif

End

Begin OnUnequip
player.EquipItem PipBoyGlove 0 1
player.RemoveItem ArmorNAPAToggle 1 1

player.UnEquipItem ArmorNAPASpeed 0 1
player.RemoveItem ArmorNAPASpeed 1 1

player.UnEquipItem ArmorNAPACloak 0 1
player.RemoveItem ArmorNAPACloak 1 1

player.UnEquipItem ArmorNAPAOD 0 1
player.RemoveItem ArmorNAPAOD 1 1

con_SetGameSetting fJumpFallHeightMin 600
con_SetGameSetting fJumpHeightMin 64
End

Begin GameMode
set Health to player.GetEquippedCurrentHealth 2

if player.HasMagicEffect NAPAOverdriveEffect == 0  и вот типа мы наш овердрайвовый девайс надыбали, он на нас наделся (а не мы на него), то... то у нас овердрайвовый
if ( Player.GetEquipped ArmorNAPA == 1 )               эффект, да? а почему тогда ноль?
if (IsKeyPressed 12 != Key)     а это как понимать? если нажать клавишу 12,
set Key to IsKeyPressed 12     то установить, что на клавишу 12 нажали? масло масляное?
if (Key)
else      и исчо
if (SuitActive == 0)      ежели костюмчик в пассиве (0)
set SuitActive to 1        то взбодрить его и сделать активным (1)?  или это означает нажать клавишу 0, и тогда уж из пассивных в активные?
else
set SuitActive to 0       и таким же макаром из активных в пассив списывают?
endif
endif
endif
endif
endif

if (SuitActive) && (NAPASuitEffect == 0)   шо то непонятное... как будто это не броня ускоряет меня, а я
player.AddItem ArmorNAPASpeed 1 1       1) добавил себе ускоренную броню,
player.EquipItem ArmorNAPASpeed 0 1     2) потом надел ускоренную броню,
playsound WPNMineArm                            3) оркестр, тушь!!!
set NAPASuitEffect to 1                             4) и охренел с того, какой я теперь шустрый парень...
endif
Неужели вся эта муть таак необходима??? или там, вначале, con_SetGameSetting был для того, чтобы описать, как именно
if (NAPASuitEffect)                                   работает NAPASuitEffect???
if (SuitActive == 0)
player.UnEquipItem ArmorNAPASpeed 0 1
player.RemoveItem ArmorNAPASpeed 1 1
playsound WPNMineDisarm
set NAPASuitEffect to 0
endif
endif
End

Begin MenuMode
if NAPAConfiguration == 1 ; Checks to see whether the program is activated      Я БАЛДЕЮ...
if menuLevel == 0 ; Main menu, like it says above
ShowMessage NAPAMainMenu
set menuLevel to 1
set button1 to -1
endif
endif

if menuLevel == 1

if button1 == -1
set button1 to GetButtonPressed
endif

if button1 == -1
return
elseif button1 == 0
ShowMessage NAPA1
set menuLevel to 2
set button2 to -1
elseif button1 == 1
ShowMessage NAPA2
set menuLevel to 3
set button3 to -1
elseif button1 == 2
ShowMessage NAPA3
set menuLevel to 5
set button5 to -1
set NAPAConfiguration to 0
elseif button1 == 3
set menuLevel to 0
set NAPAConfiguration to 0
endif

endif

if menuLevel == 2

if button2 == -1
set button2 to GetButtonPressed
endif

if button2 == -1
return
elseif button2 == 0
ShowMessage NAPA1A1
player.AddItem ArmorNAPAHelmNV 1 1
player.EquipItem ArmorNAPAHelmNV 0 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button2 == 1
ShowMessage NAPA1A2
player.UnEquipItem ArmorNAPAHelmNV 0 1
player.RemoveItem ArmorNAPAHelmNV 1 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button2 == 2
ShowMessage NAPAMainMenu
set menuLevel to 1
set button1 to -1
elseif button2 == 3
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
return
endif
endif

if menuLevel == 3

if button3 == -1
set button3 to GetButtonPressed
endif

if button3 == -1
return
elseif button3 == 0
ShowMessage NAPA2A1
player.AddItem ArmorNAPASpeed 1 1
player.EquipItem ArmorNAPASpeed 0 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button3 == 1
ShowMessage NAPA2A2
player.UnEquipItem ArmorNAPASpeed 0 1
player.RemoveItem ArmorNAPASpeed 1 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button3 == 2
ShowMessage NAPA2B1
player.addspell NAPACloak
playsound OBJStealthBoyActivate
playsound UIHackingPassGood
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button3 == 3
ShowMessage NAPA2B2
player.removespell NAPACloak
playsound QSTRelayFix
playsound UIHackingPassGood
con_SetGameSetting FSneakBaseValue -25
con_SetGameSetting fActionPointsRestoreRate, 4
con_SetGameSetting FSneakLostMin -20
con_SetGameSetting fSneakUnseenMin 0
con_SetGameSetting fSneakSeenMin 0
con_SetGameSetting FSneakSoundsMult 1.6
con_SetGameSetting FSneakLightMult 1.4
con_SetGameSetting FSneakRunningMult 1.5

set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
elseif button3 == 4
ShowMessage NAPA4
set menuLevel to 4
set button4 to -1
set NAPAConfiguration to 0
elseif button3 == 5
ShowMessage NAPAMainMenu
set menuLevel to 1
set button1 to -1
elseif button3 == 6
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
return
endif
endif

if menuLevel == 4

if button4 == -1
set button4 to GetButtonPressed
endif

if button4 == -1
return
elseif button4 == 0
set menuLevel to 4
set button4 to -1
if player.HasPerk MS08RewardPerk == 0
if ( player.GetItemCount Jet > 1 ) && ( player.GetItemCount Psycho > 0 ) && ( player.GetItemCount Morphine > 2 ) && ( player.GetItemCount FissionBattery > 0 )
player.RemoveItem Jet 2 1
player.RemoveItem Psycho 1 1
player.RemoveItem Morphine 3 1
player.RemoveItem FissionBattery 1 1
player.AddItem NAPAODCharge 1 0
ShowMessage NAPA4
set menuLevel to 4
set button4 to -1
else
set item1 to player.GetItemCount Jet
set item2 to player.GetItemCount Psycho
set item3 to player.GetItemCount Morphine
set item4 to player.GetItemCount FissionBattery
showMessage NAPAODChargeFail, item1, item2, item3, item4
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
endif
else
if ( player.GetItemCount Morphine > 1 ) && ( player.GetItemCount FissionBattery > 0 )
player.RemoveItem Morphine 2 1
player.RemoveItem FissionBattery 1 1
player.AddItem NAPAODCharge 1 0
ShowMessage NAPA4
set menuLevel to 4
set button4 to -1
else
set item1 to player.GetItemCount Morphine
set item2 to player.GetItemCount FissionBattery
showMessage NAPAODChargeFailB, item1, item2
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
endif
endif

elseif button4 == 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
if (Health > 200)
if ( Player.GetEquipped ArmorNAPA == 1 ) && ( Player.GetEquipped ArmorNAPAHelm == 1 )
if ( player.GetItemCount NAPAODCharge> 0 )
player.RemoveItem NAPAODCharge 1 1
ShowMessage NAPA2C
player.removespell NAPAOverdrive
player.addspell NAPAOverdrive
playsound OBJMainframeBoot

player.UnEquipItem ArmorNAPAOD 0 1
player.RemoveItem ArmorNAPAOD 1 1
player.AddItem ArmorNAPAODActive 1 1
player.EquipItem ArmorNAPAODActive 0 1

else
showMessage NAPAOverdriveLock3
endif
else
showMessage NAPAOverdriveLock4
endif
else
showMessage NAPAOverdriveLock2
endif

elseif button4 == 2
ShowMessage NAPAMainMenu
set menuLevel to 1
set button1 to -1
elseif button4 == 3
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
return
endif
endif

if menuLevel == 5

if button5 == -1
set button5 to GetButtonPressed
endif

if button5 == -1
return
elseif button5 == 0
if ( player.GetItemCount StealthBoy > 3 ) && ( player.GetItemCount Conductor > 0 ) && ( player.GetItemCount SensorModule> 1 ) && ( player.GetItemCount AmmoElectronChargePack > 29 )
player.RemoveItem StealthBoy 4 1
player.RemoveItem Conductor 1 1
player.RemoveItem SensorModule 2 1
player.RemoveItem AmmoElectronChargePack 30 1
player.AddItem NAPArmorNoteCloak 1 0
player.AddItem ArmorNAPACloak 1 1
player.EquipItem ArmorNAPACloak 0 1
playsound OBJPlanetariumProjectorPitch
set NAPAUpgradeCount to NAPAUpgradeCount + 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
else
set item1 to player.GetItemCount StealthBoy
set item2 to player.GetItemCount Conductor
set item3 to player.GetItemCount SensorModule
set item4 to player.GetItemCount AmmoElectronChargePack
showMessage NAPACloakFail, item1, item2, item3, item4
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
endif
elseif button5 == 1
if ( player.GetItemCount MS08AndroidComponent > 0 ) && ( player.GetItemCount ArmorRecon > 0 ) && ( player.GetItemCount Conductor > 3 )
player.RemoveItem MS08AndroidComponent 1 1
player.RemoveItem ArmorRecon 1 1
player.RemoveItem Conductor 4 1
player.AddItem NAPArmorNoteOverdrive 1 0
player.AddItem ArmorNAPAOD 1 1
player.EquipItem ArmorNAPAOD 0 1
playsound OBJPlanetariumProjectorYaw
set NAPAUpgradeCount to NAPAUpgradeCount + 1
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
else
set item1 to player.GetItemCount MS08AndroidComponent
set item2 to player.GetItemCount ArmorRecon
set item3 to player.GetItemCount Conductor
showMessage NAPAOverdriveFail, item1, item2, item3
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
endif
elseif button5 == 2
ShowMessage NAPAMainMenu
set menuLevel to 1
set button1 to -1
elseif button5 == 3
set menuLevel to 0
set button1 to -1
set NAPAConfiguration to 0
return
endif
endif

End

СпойлерScriptName NAPACloakScript
Float timerFloat Health    а причём тут здоровье?
Begin ScriptEffectUpdate
if (player.getav ActionPoints >= 0) && player.HasMagicEffect NAPAOverdriveEffect == 0
if (timer >=1)
if player.IsSneaking == 1 && player.isMoving == 1 player.damageav ActionPoints 1
elseif player.isMoving == 1 && player.isRunning == 0 player.damageav ActionPoints 2
elseif player.IsRunning ==1 player.damageav ActionPoints 4
else player.damageav ActionPoints 0.5    тут, оно, видимо, определяет, сколько ОД сожрать... при прочих

endif   con_SetGameSetting FSneakBaseValue -500             тут вообще непонятно...
con_SetGameSetting fActionPointsRestoreRate, 0
con_SetGameSetting FSneakLostMin -500
con_SetGameSetting fSneakUnseenMin 500
con_SetGameSetting fSneakSeenMin 500
con_SetGameSetting FSneakSoundsMult 0.2
con_SetGameSetting FSneakLightMult 0.3
con_SetGameSetting FSneakRunningMult 0
set Timer to 0 else set timer to timer + GetSecondsPassed    какой-то будильник, но зачем, если продолжительность стелса зависит от количества ОД???

endifelse player.removespell NAPACloak     тут вроде бы описаны эффекты моего чувства глубокого разочарования, когда стелс сожрёт все ОД...
player.PMS pulseDisableFXShader   без этих гнусных подробностей никак не обойтись???
playsound FXExplosionRobotBuzz
con_SetGameSetting FSneakBaseValue -25
con_SetGameSetting fActionPointsRestoreRate,4
con_SetGameSetting FSneakLostMin -20
con_SetGameSetting fSneakUnseenMin 0
con_SetGameSetting fSneakSeenMin 0
con_SetGameSetting FSneakSoundsMult 1.6
con_SetGameSetting FSneakLightMult 1.4
con_SetGameSetting FSneakRunningMult 1.5
player.SMS pulseDisableFXShader

endif

End

Но вот что странно - скрипт не прикреплён к устройству - в разделе Armor я открыл свойства Клоаки и обнаружил окошки Script и Object Effect пустыми... На мой взгляд, это не совсем нормально... Тем паче, что Object Effect у устройства отсутствует, а вот Base Effect имеется... Но стелс работает. Страшное неудобство в том, что мгновенно съедает ОД и включается через Пип-Бой и менюшку конфигуратора (причём не выключается, пока не сожрёт все ОД). Нелепость ситуации ещё в том, что для пнв и ускоренного бега есть клавиши включения/выключения, 0 и -, а вот за стелсом и овердрайвом нужно лезть в пип-бой... Чего хотелось бы мне? Что-нибудь дёшево и сердито, как в Reinforced Chinese Stealth Armor:

Спойлерscn aa3EFdrgsscript

float timer;
short refresh;

begin GameMode
if refresh == 0
if timer < .5
set timer to timer + GetSecondsPassed;
else
set timer to 0;
set refresh to 1;
endif
else
if IsKeyPressed 44             попал пальнем по клавише Z - и уррраааа!!!
if aadrgplatesf == 0
set aadrgplatesf to 1;   но вот что это такое - даже с бутылкой не смог разобрать...
else
set aadrgplatesf  to 0;
endif
set refresh to 0;
endif
endif

end