ScriptName DLC03CreatorQuestScript

short playerSleep
short DLC03DeathClawControl
short NukaCount
short Quantums
Short FEVaquaPuraCount
Short NukaConverted
Short DLC03MessageRan
short ThirtyGood
short ThirtyBad
short ThirtyNeutral
short PuppiesActive

float DLC03StartTimer

begin menumode
	; player has the Deep Sleep perk and is sleeping
	if Player.HasPerk DLC03DeepSleep == 1 && IsPCSleeping == 1
set playerSleep to 2
	endif

	; player has the Puppies! perk
	If DogmeatRef.GetDead == 1 && Player.HasPerk DLC03Puppies
If Player.GetDistance DogmeatRef > 8000
	If PuppiesActive == 0
Set PuppiesActive to 1
DogmeatRef.SetActorFullName DLC03Freshmeat
DogmeatREF.AddSpell DLC03PuppiesEffect
	EndIf
	DogmeatRef.Enable
	DogmeatRef.Resurrect
	DogmeatRef.AddToFaction FollowerFaction 0
	Set Followers.PlayerHasFollower to 1
	Set Followers.DogmeatHired to 1
	Set DogmeatRef.Waiting to 1
	Set DogmeatRef.IsFollowingDefault to 1
	Set DogmeatRef.IsFollowingLong to 0
	Set DogmeatRef.IsFollowingShort to 0
	Set DogmeatRef.CombatStyleRanged to 0
	Set DogmeatRef.CombatStyleMelee to 1
	DogmeatRef.SetCombatStyle FollowersCombatStyleMelee
	DogmeatRef.SetPlayerTeammate 1
	DogmeatRef.AddToFaction TeammateFaction 1
EndIf
	EndIf

end

begin gamemode



; if Enclave Radio ref has been enabled, it means the player is out of the vault, which means it's time to run the message box

	if ( DLC03MessageRan == 0 )
if ( RadioEnclaveRef.GetDisabled == 0 )

	Set DLC03MessageRan to 1
	set DLC03StartTimer to 60
elseif ( GetStage MQ09 >= 60 )
	Set DLC03MessageRan to 1
	Set DLC03StartTimer to 60
endif
	elseif ( DLC03MessageRan == 1 )
if ( DLC03StartTimer <= 0 )
	ShowMessage DLC03StartMessage
	Set DLC03MessageRan to 2
else
	set DLC03StartTimer to ( DLC03StartTimer - GetSecondsPassed )
endif

	endif



	if playerSleep == 2
; player has actually slept in this bed
; give player Well-Rested spell and then clear variable
player.CastImmediateOnSelf WellRestedSpell
set playerSleep to 0
	endif

	; player has Quantum Chemist perk
	If Player.HasPerk DLC03QuantumChemist == 1
If Player.GetItemCount NukaCola > 9
	Set NukaCount to Player.GetItemCount NukaCola
	Set Quantums to NukaCount / 10
	Set NukaConverted to Quantums * 10
	Player.RemoveItem NukaCola NukaConverted
	Player.AddItem MS05NukaColaQtm Quantums
EndIf
	EndIf

;These are for the Level 30 Achievements

	If ThirtyBad == 0
If Player.GetLevel >= 30
	 If Player.GetAv Karma < -250
AddAchievement 62
Set ThirtyGood to -1
Set ThirtyNeutral to -1
Set ThirtyBad to 1 
	endif
endif
	endif

	If ThirtyNeutral == 0
If Player.GetLevel >= 30
	If Player.GetAv Karma >= -250
If Player.GetAv Karma <= 250
	AddAchievement 63
	Set ThirtyGood to -1
	Set ThirtyNeutral to 1
	Set ThirtyBad to -1 
endif
	endif
endif
	endif


	If ThirtyGood == 0
If Player.GetLevel >= 30
	 If Player.GetAv Karma > 250
AddAchievement 64
Set ThirtyGood to 1
Set ThirtyNeutral to -1
Set ThirtyBad to -1 
	endif
endif
	endif

end

; player has Quantum Chemist perk
	If Player.HasPerk DLC03QuantumChemist == 1
If Player.GetItemCount NukaCola > 9
	Set NukaCount to Player.GetItemCount NukaCola
	Set Quantums to NukaCount / 10
	Set NukaConverted to Quantums * 10
	Player.RemoveItem NukaCola NukaConverted
	Player.AddItem MS05NukaColaQtm Quantums
EndIf
	EndIf

ScriptName DLC03CreatorQuestScript

short playerSleep
short DLC03DeathClawControl
short NukaCount
short Quantums
Short FEVaquaPuraCount
Short NukaConverted
Short DLC03MessageRan
short ThirtyGood
short ThirtyBad
short ThirtyNeutral
short PuppiesActive

float DLC03StartTimer

begin menumode
	; player has the Deep Sleep perk and is sleeping
	if Player.HasPerk DLC03DeepSleep == 1 && IsPCSleeping == 1
set playerSleep to 2
	endif

	; player has the Puppies! perk
	If DogmeatRef.GetDead == 1 && Player.HasPerk DLC03Puppies
If Player.GetDistance DogmeatRef > 8000
	If PuppiesActive == 0
Set PuppiesActive to 1
DogmeatRef.SetActorFullName DLC03Freshmeat
DogmeatREF.AddSpell DLC03PuppiesEffect
	EndIf
	DogmeatRef.Enable
	DogmeatRef.Resurrect
	DogmeatRef.AddToFaction FollowerFaction 0
	Set Followers.PlayerHasFollower to 1
	Set Followers.DogmeatHired to 1
	Set DogmeatRef.Waiting to 1
	Set DogmeatRef.IsFollowingDefault to 1
	Set DogmeatRef.IsFollowingLong to 0
	Set DogmeatRef.IsFollowingShort to 0
	Set DogmeatRef.CombatStyleRanged to 0
	Set DogmeatRef.CombatStyleMelee to 1
	DogmeatRef.SetCombatStyle FollowersCombatStyleMelee
	DogmeatRef.SetPlayerTeammate 1
	DogmeatRef.AddToFaction TeammateFaction 1
EndIf
	EndIf

end

begin gamemode



; if Enclave Radio ref has been enabled, it means the player is out of the vault, which means it's time to run the message box

	if ( DLC03MessageRan == 0 )
if ( RadioEnclaveRef.GetDisabled == 0 )

	Set DLC03MessageRan to 1
	set DLC03StartTimer to 60
elseif ( GetStage MQ09 >= 60 )
	Set DLC03MessageRan to 1
	Set DLC03StartTimer to 60
endif
	elseif ( DLC03MessageRan == 1 )
if ( DLC03StartTimer <= 0 )
	ShowMessage DLC03StartMessage
	Set DLC03MessageRan to 2
else
	set DLC03StartTimer to ( DLC03StartTimer - GetSecondsPassed )
endif

	endif



	if playerSleep == 2
; player has actually slept in this bed
; give player Well-Rested spell and then clear variable
player.CastImmediateOnSelf WellRestedSpell
set playerSleep to 0
	endif

	; player has Quantum Chemist perk
	If Player.HasPerk DLC03QuantumChemist == 1
If Player.GetItemCount NukaCola > 9
	Set NukaCount to Player.GetItemCount NukaCola
	Set Quantums to NukaCount / 10
	Set NukaConverted to Quantums * 10
	Player.RemoveItem NukaCola NukaConverted
	Player.AddItem MS05NukaColaQtm Quantums
EndIf
	EndIf

	If Player.HasPerk DLC03QuantumChemist == 1
If Player.GetItemCount MS05IceNukaCola > 9
	Set NukaCount to Player.GetItemCount MS05IceNukaCola
	Set Quantums to NukaCount / 10
	Set NukaConverted to Quantums * 10
	Player.RemoveItem MS05IceNukaCola NukaConverted
	Player.AddItem MS05NukaColaQtm Quantums
EndIf
	EndIf

;These are for the Level 30 Achievements

	If ThirtyBad == 0
If Player.GetLevel >= 30
	 If Player.GetAv Karma < -250
AddAchievement 62
Set ThirtyGood to -1
Set ThirtyNeutral to -1
Set ThirtyBad to 1 
	endif
endif
	endif

	If ThirtyNeutral == 0
If Player.GetLevel >= 30
	If Player.GetAv Karma >= -250
If Player.GetAv Karma <= 250
	AddAchievement 63
	Set ThirtyGood to -1
	Set ThirtyNeutral to 1
	Set ThirtyBad to -1 
endif
	endif
endif
	endif


	If ThirtyGood == 0
If Player.GetLevel >= 30
	 If Player.GetAv Karma > 250
AddAchievement 64
Set ThirtyGood to 1
Set ThirtyNeutral to -1
Set ThirtyBad to -1 
	endif
endif
	endif

end

scn zzRepairing

Ref CurrentObject ;Переменная для объектов инвентаря контейнера
Short cou         ;Количество объектов данного вида в инвентаре контейнера
Short DTO         ;Переменная для вычисления оставшихся дней ремонта
Begin onActivate
If zzRepair.GetLocked == 1                  ;Если контейнер закрыт, то вещи в данный момент на ремонте
If TTO <= GameDaysPassed            ;Проверяем пора ли открывать
ShowMessage zzRepairingMessage        ;Открывать пора Сообщение "Ваши вещи отремонтированы"
zzRepairButton.Activate               ;Меняем положение лампочки на кнопке
zzRepair.UnLock                       ;Открываем контейнер
Else                                               ;Иначе открывать не пора
Set DTO to TTO - GameDaysPassed            ;Считаем сколько дней ремонта осталось
ShowMessage zzRepairingMessageEarly DTO    ;Сообщение "Вещи еще не готовы, осталось дней:"
EndIf
Else  ;иначе контейнер открыт, значит надо начинать ремонт

;начинаем ремонт

zzRepair.Lock 255                              ;Закрываем контейнер
Set TTO to GameDaysPassed + 2                  ;TTO - TimeToOpen - Заранее созданная глобальная переменная, 
                                                       ;чтоб не терять значение при выходе из локации. В нее 
                                                       ;заносим день окончания ремонта
Activate                                       ;Зажигаем лампочку на кнопке
Playsound3D AMBRoomtoneVaultUtility01LP1200    ;Контейнер начинает гудеть, эмулируя бурную деятельность

;начинаем перебирать объекты в инвентаре, перебирая вообще все объекты и проверяя их количество в контейнере
	
If zzRepair.GetItemCount DLC02WeapGaussRifleWasteland > 0    ;например гаусс
Set cou To zzRepair.GetItemCount DLC02WeapGaussRifleWasteland    ;Вычисляем сколько гауссов в инвентаре
zzRepair.RemoveItem DLC02WeapGaussRifleWasteland cou             ;Удаляем объект
zzRepair.AddItem DLC02WeapGaussRifleWasteland cou                ;добавляем новый объект
EndIf

;далее таких блоков в скрипте делаем столько, сколько видов оружия наш скрипт должен уметь ремонтировать.
EndIf
End

scn AAAKainAttackScript

short StartAttack
float fTimer
short e1
short e2
short e3
short Trigger
Begin OnTriggerEnter player
Set fTimer to 60
  Set StartAttack to 1
Set e1 to 0
Set e2 to 0
Set e3 to 0
     AAAKainTriggerAtackRef.Disable
End
Begin GameMode
if StartAttack == 1
Set fTimer to (fTimer - GetSecondsPassed)
if (fTimer<20) && (e1 == 0)
AAAKainXMarkerRef.PlaceAtMe AAAKain188MercA 1 5 0 ;пошла первая группа
Set e1 to 1
Endif
if (fTimer>20) && (Ftimer<40) && (e2 == 0)
AAAKainXMarkerRef.PlaceAtMe AAAKain188MercB 1 5 0 ;пошла вторая группа
Set e2 to 1
Endif
if (fTimer>40) && (e3 == 0) 
AAAKainXMarkerRef.PlaceAtMe AAAKain188MercC 1 5 0 ;пошла третья группа
Set e3 to 1
Endif
If (e1+e2+e3) == 3
Set StartAttack to 0
EndIf
EndIf
if (AAAKainTriggerAtackRef.Getdistance Player >= 256) 	
AAAKainTriggerAtackRef.Enable	
Endif
End