Scriptname _00E_EPUpdateFunctions extends Actor import Math int MapMarkersDiscoveredCounter = 0 int LocksPickedCounter = 0 int ItemsPickpocketedCounter = 0 int ItemsStolenCounter = 0 int PotionsMixedCounter = 0 int PoisonsMixedCounter = 0 int ArmorMadeCounter = 0 int WeaponsMadeCounter = 0 int SoulsTrappedCounter = 0 int MagicItemsMadeCounter = 0 int IntimidationsCounter = 0 int QuestsCompletedCounter = 0 ;===================================================================================== ; EVENTS ;===================================================================================== Event OnInit() if Self == Player GoToState("RealPlayer") RegisterForSingleUpdate(2.0) Endif EndEvent Event OnPlayerLoadGame() If self == Player ; A check just in case. Most likely this condition is always True If GetState() != "RealPlayer" ; Post-1.2.5.0 version update GoToState("RealPlayer") EndIf UpdateLevelUpSystem() ; Failsafe and version update RegisterForSingleUpdate(3.5) EndIf EndEvent State RealPlayer Event OnUpdate() Int delta delta = Game.QueryStat("Locations Discovered") - MapMarkersDiscoveredCounter If delta > 0 MapMarkersDiscoveredCounter += delta _00E_Player_sEPGained_Discovery.Show() receiveEP(40 * delta) If MapMarkersDiscoveredCounter >= 50 && !bMapMarkersAchievementUnlocked bMapMarkersAchievementUnlocked = True Steam.UnlockAchievement("END_LOCATIONS_01") EndIf EndIf delta = Game.QueryStat("Locks Picked") - LocksPickedCounter If delta > 0 LocksPickedCounter += delta _00E_Player_sEPGained_LockPicked.Show() receiveEP(15 * delta) EndIf delta = Game.QueryStat("Potions Mixed") - PotionsMixedCounter If delta > 0 PotionsMixedCounter += delta _00E_Player_sEPGained_PotionMixed.Show() receiveEP(3 * delta) EndIf delta = Game.QueryStat("Poisons Mixed") - PoisonsMixedCounter If delta > 0 PoisonsMixedCounter += delta _00E_Player_sEPGained_PoisonMixed.Show() receiveEP(3 * delta) EndIf delta = Game.QueryStat("Armor Made") - ArmorMadeCounter If delta > 0 ArmorMadeCounter += delta _00E_Player_sEPGained_ArmorMade.Show() receiveEP(20 * delta) EndIf delta = Game.QueryStat("Weapons Made") - WeaponsMadeCounter If delta > 0 WeaponsMadeCounter += delta _00E_Player_sEPGained_WeaponsMade.Show() receiveEP(20 * delta) EndIf delta = Game.QueryStat("Souls Trapped") + SoulsCaught.GetValueInt() - SoulsTrappedCounter If delta > 0 SoulsTrappedCounter += delta _00E_Player_sEPGained_SoulCaptured.Show() receiveEP(10 * delta) EndIf delta = Game.QueryStat("Magic Items Made") - MagicItemsMadeCounter if delta > 0 MagicItemsMadeCounter += delta _00E_Player_sEPGained_MagicItemMade.Show() receiveEP(30 * delta) EndIf delta = Game.QueryStat("Intimidations") - IntimidationsCounter If delta > 0 IntimidationsCounter += delta _00E_Player_sEPGained_Intimidations.Show() receiveEP(50 * delta) EndIf if ShowEXPMessage == False && PlayerEXP.GetValue() >= 120 && (_00E_DisableQuestTutorials.GetValueInt() == 0) ShowEXPMessage = true Message.ResetHelpMessage("Empty") _00E_Tutorial_EPSystem.ShowAsHelpMessage("Empty", 4.0, 3.0, 1) EndIf If _00E_OreVeinsMined.GetValueInt() >= 50 && !bOreAchievementUnlocked bOreAchievementUnlocked = true Steam.UnlockAchievement("END_ORE_01") EndIf delta = Game.QueryStat("Quests Completed") - QuestsCompletedCounter if delta > 0 QuestsCompletedCounter += delta If QuestsCompletedCounter >= 50 && !bDoneQuestCompleted bDoneQuestCompleted = true Steam.UnlockAchievement("END_QUESTS_01") EndIf EndIf If _00E_RhetorikCounter.GetValueInt() >= 15 && !bRhetoricAchievementUnlocked bRhetoricAchievementUnlocked = true Steam.UnlockAchievement("END_RHETORIC_01") EndIf ; Arcane fever management Int iArcaneFever = -1*(Player.GetActorValue("LastFlattered")) as Int If iArcaneFever >= 100 && isdead == False isdead = True Player.Kill() _00E_Player_sArcaneFever_Death.Show() If !bDoneArcanistsFever bDoneArcanistsFever = true Steam.UnlockAchievement("END_ARCANISTS_FEVER_01") EndIf EndIf If isdead == False If iArcaneFever >= 90 iArcaneFeverWarnCounter -= 1 If iArcaneFeverWarnCounter <= 0 iArcaneFeverWarnCounter = 20 Message.ResetHelpMessage("Empty") _00E_Player_sArcaneFever_Critical.ShowAsHelpMessage("Empty", 5, 1, 1) EndIf Else ; iArcaneFever < 90 iArcaneFeverWarnCounter = 0 ; Reset EndIf If iArcaneFever >= 40 If Player.HasSpell(_00E_Arkanistenfieber40) == False Player.AddSpell(_00E_Arkanistenfieber40,0) Message.ResetHelpMessage("Empty") _00E_Player_sArcaneFever_Worsen.ShowAsHelpMessage("Empty", 3, 1, 1) EndIf Else ; iArcaneFever < 40 If Player.HasSpell(_00E_Arkanistenfieber40) Player.RemoveSpell(_00E_Arkanistenfieber40) _00E_Player_sArcaneFever_Cure.Show() EndIf EndIf If iArcaneFever >= 70 If Player.HasSpell(_00E_Arkanistenfieber70) == False Player.AddSpell(_00E_Arkanistenfieber70,0) Message.ResetHelpMessage("Empty") _00E_Player_sArcaneFever_Worsen.ShowAsHelpMessage("Empty", 4, 1, 1) EndIf Else ; iArcaneFever < 70 If Player.HasSpell(_00E_Arkanistenfieber70) Player.RemoveSpell(_00E_Arkanistenfieber70) _00E_Player_sArcaneFever_Cure.Show() EndIf EndIf EndIf ; Level up If iLevelUpsNeeded > 0 ; Level up if not in combat, not in dialogue, activate controls enabled (not in a scene?) and, obviously, not dead While !IsInCombat() && UI.IsMenuOpen("Dialogue Menu") == False && Game.IsActivateControlsEnabled() && !Player.IsDead() && (isdead == False) && (iLevelUpsNeeded > 0) levelUp() EndWhile EndIf RegisterForSingleUpdate(3.5) ; seems like a decent value EndEvent EndState Event OnDeath(Actor akKiller) ; Papyrus compiler demands this event to be defined in the empty state EndEvent ;===================================================================================== ; LEVELSYSTEM FUNCTIONS ;===================================================================================== Int iLevelUpsNeeded = 0 Bool _bLevelUpSystemLocked = False Function _LockLevelUpSystem() While _bLevelUpSystemLocked Utility.WaitMenuMode(0.1) EndWhile _bLevelUpSystemLocked = True EndFunction Function _UnlockLevelUpSystem() _bLevelUpSystemLocked = False EndFunction Function UpdateLevelUpSystem() _LockLevelUpSystem() iLevelUpsNeeded = getLevelUpCount() _UnlockLevelUpSystem() EndFunction function levelUp() {Opens a menu allowing the player to choose which attribute he/she wants to increase; sets all attributes (talentPoints, Lernpunkte, Handwerkspunkte,...)} _LockLevelUpSystem() PlayerLevel.Mod(1) iLevelUpsNeeded = getLevelUpCount() _UnlockLevelUpSystem() if UILevelUp UILevelUp.Play(Player) elseif _00E_Track_Success _00E_Track_Success.Add() Endif Utility.Wait(1) ;added a Wait() between the audio cue and the level up prompt to give the player an early warning about the incoming message box int iMessage = _00E_Levelup.show(PlayerLevel.GetValueInt(),Player.GetBaseActorValue("Health"), Player.GetBaseActorValue("Magicka"), Player.GetBaseActorValue("Stamina")) Game.SetPlayerLevel(PlayerLevel.GetValueInt()) TalentPoints.Mod(1) Player.SetActorValue("dragonsouls", TalentPoints.GetValueInt()) Lernpunkte.Mod(5) Handwerkspunkte.Mod(4) if iMessage == 0 Player.SetActorValue("Health", Player.GetBaseActorValue("Health")+9) elseif iMessage == 1 Player.SetActorValue("Magicka", Player.GetBaseActorValue("Magicka")+8) elseif iMessage == 2 Player.SetActorValue("Stamina", Player.GetBaseActorValue("Stamina")+11) endif Endfunction bool function receiveEP(int amount) {Adds the given amount of EP to the player and displays it as notification} _LockLevelUpSystem() PlayerExp.Mod(amount) Int iLevelUpCount = getLevelUpCount() iLevelUpsNeeded = iLevelUpCount _UnlockLevelUpSystem() PlayerNeededExp.SetValue(_00E_Func_ComputeNeededExp.Run((PlayerLevel.GetValueInt()+iLevelUpCount), EXPMultSlope.GetValue(), EXPMult.GetValue())) int iNeededExpNextLevel = (PlayerNeededExp.GetValueInt()-PlayerExp.GetValueInt()) _00E_sEPNeeded.Show(amount, iNeededExpNextLevel) return true Endfunction int function getLevelUpCount() {Calculates how many level ups the player should receive based on his current ep count, changes none of the global variables} int iCurrentExp = PlayerExp.GetValueInt() int iCurrentLevel = PlayerLevel.GetValueInt() bool LevelCheckRequired = true int iLevelUpsAchieved = 0 float NeededExp While LevelCheckRequired LevelCheckRequired = false NeededExp = _00E_Func_ComputeNeededExp.Run(iCurrentLevel, EXPMultSlope.GetValue(), EXPMult.GetValue()) if iCurrentExp >= NeededExp LevelCheckRequired = true iLevelUpsAchieved += 1 iCurrentLevel += 1 endif Endwhile return iLevelUpsAchieved EndFunction ;===================================================================================== ; PROPERTIES ;===================================================================================== Message Property _00E_Player_sEPGained_WeaponsMade Auto Message Property _00E_Player_sEPGained_SoulCaptured Auto Message Property _00E_Player_sEPGained_PotionMixed Auto Message Property _00E_Player_sEPGained_PoisonMixed Auto Message Property _00E_Player_sEPGained_MagicItemMade Auto Message Property _00E_Player_sEPGained_ArmorMade Auto Message Property _00E_Player_sEPGained_LockPicked Auto Message Property _00E_Player_sEPGained_Intimidations Auto Message Property _00E_Player_sEPGained_Discovery Auto Message Property _00E_Player_sArcaneFever_Worsen Auto Message Property _00E_Player_sArcaneFever_Death Auto Message Property _00E_Player_sArcaneFever_Critical Auto Message Property _00E_Player_sArcaneFever_Cure Auto Message Property _00E_sEPNeeded Auto Message Property _00E_Levelup Auto Message Property _00E_Tutorial_EPSystem Auto Message Property _00E_Tutorial_HeroMenue Auto Actor Property Player Auto Spell Property _00E_Arkanistenfieber40 Auto Spell Property _00E_Arkanistenfieber70 Auto GlobalVariable Property PlayerExp auto GlobalVariable Property PlayerLevel auto GlobalVariable Property PlayerNeededExp auto GlobalVariable Property Handwerkspunkte auto GlobalVariable Property Lernpunkte auto GlobalVariable Property EXPMult auto GlobalVariable Property EXPMultSlope auto GlobalVariable Property SoulsCaught Auto GlobalVariable Property _00E_DisableMenuTutorials Auto GlobalVariable Property _00E_DisableQuestTutorials Auto GlobalVariable Property _00E_OreVeinsMined Auto GlobalVariable Property _00E_RhetorikCounter Auto GlobalVariable Property TalentPoints Auto MusicType Property _00E_Track_Success Auto Sound Property UILevelUp Auto bool isdead Bool ShowEXPMessage bool bDoneQuestCompleted = false bool bDoneArcanistsFever = false bool bOreAchievementUnlocked = false bool bRhetoricAchievementUnlocked = false bool bMapMarkersAchievementUnlocked = false Int iArcaneFeverWarnCounter = 0