scn MegatonGateTriggerSCRIPT

; script to set variable when player is near megaton gate (for deputy weld dialogue)

Begin onTriggerEnter Player

	if ( MegatonGateHouseREF.OpenNow == 0 )
    set MegatonGateHouseREF.OpenNow to 1
	endif

	set MegatonGateProtectronREF.playerNear to 1
End

Begin onTriggerLeave Player
	set MegatonGateProtectronREF.playerNear to 0
End

scn LAStealthBoySCRIPT

short flag
short Button
short Stealth
float Timer
float Timer2

Begin OnEquip
	if ( Timer2 == 0 )
    ShowMessage Varianti	
    Set flag to 1
	else
    Set Timer to Timer2
    Player.Addspell stealthBoyInvisibilitySpell
    Player.AddPerk NewStealthPerk
    Set Stealth to 1
    ShowMessage ProdolzhenieRaboty	
End

Begin GameMode
if (flag == 1)
if ( Stealth == 0 )
	Set Button to GetButtonPressed
	if ( Button == 0 ) ; 1 стелс-бой
    if ( Player.GetItemCount StealthBoy > 0 )
    	Player.RemoveItem StealthBoy 1
    	Player.AddSpell stealthBoyInvisibilitySpell
    	Player.AddPerk NewStealthPerk ; перк дающий + к ловкости
    	Set Timer to 120
    	Set Stealth to 1
    else
    	ShowMessage UvasNetStealthBoy'a
	elseif ( Button == 1 ) ; 5 стелс-боев
    if ( Player.GetItemCount StealthBoy >= 5 )
    	Player.RemoveItem StealthBoy 5
    	Player.Addspell stealthBoyInvisibilitySpell
    	Player.AddPerk NewStealthPerk
    	Set Timer to 600
    	Set Stealth to 1
    else
    	ShowMessage UvasNet5StealthBoy'ev
	elseif ( Button == 2 ) ; 10
    if ( Player.GetItemCount StealthBoy > 0 )
    	Player.RemoveItem StealthBoy 10
    	Player.Addspell stealthBoyInvisibilitySpell
    	Player.AddPerk NewStealthPerk
    	Set Timer to 1200
    	Set Stealth to 1
    else
    	ShowMessage UvasNetStealthBoy'ev
	elseif ( Button == 3 ) ; выход
    ; ничего
	endif
else
	ShowMessage ViUzheIspolzueteNevidimost
endif
endif

	if ( Stealth == 1 ) && ( Timer > 0 )
    Set Timer to Timer - GetSecondsPassed
	elseif ( Stealth == 1 )
    Player.RemoveSpell stealthBoyInvisibilitySpell
    Player.RemovePerk NewStealthPerk
    Set Stealth to 0
	endif
End

OnUnEquip
	Set Timer2 to Timer
	Player.RemoveSpell stealthBoyInvisibilitySpell
	Player.RemovePerk NewStealthPerk
	Set Stealth to 0
End