scn DUIF3ExtrasScript

short doonce
short gHour
short gMinute
short gDay
short gMonth
short gYear
short dow
short lastMin
short lastHr
short ke
short kve
short kg
short kvg
short xp
short lastXp
short xpnxtlvl
short xpb
short xpbb
short range
short pos
short xpo
short lvl
short nxtlvl
short carWeight
short invWeight
short cc
short dr
short dt
short pr
short fr
short fo
short el
short en
short em
short rr
short hn
short th
short sl
short lastsettingsMode
short KarmaMinMax
short Karma
short iKarma
short ci
short armorCND
short armorBH
short bDelayEnable
float prads
float envrads
float er
float er1
float showInCombat
float fTimer
ref armorRef
string_var stRads
string_var stDay
string_var stMonth
string_var stKarma
array_var aShortDay
array_var aLongDay
array_var aShortMonth
array_var aLongMonth
array_var aKarma

Begin GameMode

	if player.GetEquipped PipBoy
		if doonce == 0
			set ke to GetGlobalValue KarmaEvil
			set kve to GetGlobalValue KarmaVeryEvil
			set kg to GetGlobalValue KarmaGood
			set kvg to GetGlobalValue KarmaVeryGood
			set lastXp to -1
			set lastMin to -1
			set lastHr to -1

			let aKarma := ar_list "Very Evil", "Evil", "Neutral", "Good", "Very Good"

			let aShortDay := ar_list "Sun ", "Mon ", "Tue ", "Wed ", "Thu ", "Fri ", "Sat "
			let aShortMonth := ar_list "Jan ", "Feb ", "Mar ", "Apr ", "May ", "Jun ", "Jul ", "Aug ", "Sep ", "Oct ", "Nov ", "Dec "

			let aLongDay := ar_list "Sunday ", "Monday ", "Tuesday ", "Wednesday ", "Thursday ", "Friday ", "Saturday "
			let aLongMonth := ar_list "January ", "February ", "March ", "April ", "May ", "June ", "July ", "August ", "September ", "October ", "November ", "December "

			set doonce to 1

		endif

		if bDelayEnable == 0
			set fTimer to fTimer+GetSecondsPassed
			if fTimer >= 5
				set bDelayEnable to 1
			endif
		else
				SetStringGameSettingEX "sStatsH20Abbrev|THR"
				SetStringGameSettingEX "sStatsFODAbbrev|HUN"
				SetStringGameSettingEX "sStatsSLPAbbrev|SLP"
				SetUIFloat "HUDMainMenu\_lvlSkillsUncap" DUIF3.xSkillFix
				SetUIFloat "HUDMainMenu\_HUDScale" DUIF3.HUDScale
				SetUIFloat "HUDMainMenu\_HUDWarnLevel" DUIF3.HUDWarnLevel
				SetUIFloat "HUDMainMenu\_HUDAlertLevel" DUIF3.HUDAlertLevel
				SetUIFloat "HUDMainMenu\_HUDOverrideColor" DUIF3.HUDOverrideColor
				SetUIFloat "HUDMainMenu\_HUDSolidMeters" DUIF3.HUDSolidMeters
				SetUIFloat "HUDMainMenu\_HUDDynamicColors" DUIF3.HUDDynamicColors
				SetUIFloat "HUDMainMenu\_HUDShowGuides" DUIF3.HUDShowGuides
				SetUIFloat "HUDMainMenu\_HUDRed" DUIF3.HUDRed
				SetUIFloat "HUDMainMenu\_HUDGreen" DUIF3.HUDGreen
				SetUIFloat "HUDMainMenu\_HUDBlue" DUIF3.HUDBlue
				SetUIFloat "HUDMainMenu\_HUDTextRed" DUIF3.HUDTextRed
				SetUIFloat "HUDMainMenu\_HUDTextGreen" DUIF3.HUDTextGreen
				SetUIFloat "HUDMainMenu\_HUDTextBlue" DUIF3.HUDTextBlue
				SetUIFloat "HUDMainMenu\_HUDWarnRed" DUIF3.HUDWarnRed
				SetUIFloat "HUDMainMenu\_HUDWarnGreen" DUIF3.HUDWarnGreen
				SetUIFloat "HUDMainMenu\_HUDWarnBlue" DUIF3.HUDWarnBlue
				SetUIFloat "HUDMainMenu\_HUDAlertRed" DUIF3.HUDAlertRed
				SetUIFloat "HUDMainMenu\_HUDAlertGreen" DUIF3.HUDAlertGreen
				SetUIFloat "HUDMainMenu\_HUDAlertBlue" DUIF3.HUDAlertBlue
				SetUIFloat "HUDMainMenu\_xPanels" DUIF3.xPanels
				SetUIFloat "HUDMainMenu\_xPanelsX" DUIF3.xPanelsX
				SetUIFloat "HUDMainMenu\_xPanelsY" DUIF3.xPanelsY
				SetUIFloat "HUDMainMenu\_xBrackets" DUIF3.xBrackets
				SetUIFloat "HUDMainMenu\_xAlignment" DUIF3.xAlignment
				SetUIFloat "HUDMainMenu\_xStatsArmodCND" DUIF3.xStatsArmorCND
				SetUIFloat "HUDMainMenu\_HUDShowCI" DUIF3.xShowCI
				SetUIFloat "HUDMainMenu\_xTime" DUIF3.xTime
				SetUIFloat "HUDMainMenu\_xTimeClock" DUIF3.xTimeClock
				SetUIFloat "HUDMainMenu\_xTimeDate" DUIF3.xTimeDate
				SetUIFloat "HUDMainMenu\_xTimeSDF" DUIF3.xTimeSDF
				SetUIFloat "HUDMainMenu\_xTimeScale" DUIF3.xTimeScale
				SetUIFloat "HUDMainMenu\_xKarma" DUIF3.xKarma
				SetUIFloat "HUDMainMenu\_xKarmaMeter" DUIF3.xKarmaMeter
				SetUIFloat "HUDMainMenu\_xKarmaAlignment" DUIF3.xKarmaAlignment
				SetUIFloat "HUDMainMenu\_xXP" DUIF3.xXP
				SetUIFloat "HUDMainMenu\_xXPMeter" DUIF3.xXPMeter
				SetUIFloat "HUDMainMenu\_xRad" DUIF3.xRad
				SetUIFloat "HUDMainMenu\_xRadCurrent" DUIF3.xRadCurrent
				SetUIFloat "HUDMainMenu\_xRadMeter" DUIF3.xRadMeter
				SetUIFloat "HUDMainMenu\_xStats" DUIF3.xStats
				SetUIFloat "HUDMainMenu\_xStatsDM" DUIF3.xStatsDM
				SetUIFloat "HUDMainMenu\_xStatsEN" DUIF3.xStatsEN
				SetUIFloat "HUDMainMenu\_xStatsCC" DUIF3.xStatsCC
				SetUIFloat "HUDMainMenu\_xStatsDR" DUIF3.xStatsDR
				SetUIFloat "HUDMainMenu\_xStatsDT" DUIF3.xStatsDT
				SetUIFloat "HUDMainMenu\_xStatsPR" DUIF3.xStatsPR
				SetUIFloat "HUDMainMenu\_xStatsFR" DUIF3.xStatsFR
				SetUIFloat "HUDMainMenu\_xStatsFO" DUIF3.xStatsFO
				SetUIFloat "HUDMainMenu\_xStatsEL" DUIF3.xStatsEL
				SetUIFloat "HUDMainMenu\_xStatsER" DUIF3.xStatsER
				SetUIFloat "HUDMainMenu\_xStatsEM" DUIF3.xStatsEM
				SetUIFloat "HUDMainMenu\_xStatsRR" DUIF3.xStatsRR
				SetUIFloat "HUDMainMenu\_xStatsThirst" DUIF3.xStatsThirst
				SetUIFloat "HUDMainMenu\_xStatsHunger" DUIF3.xStatsHunger
				SetUIFloat "HUDMainMenu\_xStatsSleep" DUIF3.xStatsSleep
				SetUIFloat "HUDMainMenu\_NVSE" 1
		endif
	else
		Return
	endif

	set gHour to GameHour
	set gMinute to (GameHour * 60) - (gHour * 60)
	SetUIFloat "HUDMainMenu\_TimeScale" Timescale
	if gMinute != lastMin || gHour != lastHr
		set lastMin to gMinute
		set lastHr to gHour
		SetUIFloat  "HUDMainMenu\DUIF3Extras\HUDTime\_Minute" gMinute
		if DUIF3.xTimeClock == 2
			if gHour == 0
				set gHour to 12
				SetUIString "HUDMainMenu\DUIF3Extras\HUDTime\timeContainer\timeAMPM\string" "AM"
			elseif gHour < 12
				SetUIString "HUDMainMenu\DUIF3Extras\HUDTime\timeContainer\timeAMPM\string" "AM"
			elseif gHour > 12
				set gHour to gHour - 12
				SetUIString "HUDMainMenu\DUIF3Extras\HUDTime\timeContainer\timeAMPM\string" "PM"
			endif
		endif
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_Hour" gHour
	endif

	set dow to GetDayOfWeek
	if DUIF3.xTimeSDF
		set gYear to GameYear - 2200
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_year" gYear
		let stDay := aShortDay[dow]
		SetUIStringEx "HUDMainMenu\_DayString" "$stDay"
		sv_destruct stDay
		let stMonth := aShortMonth[gMonth]
		SetUIStringEx "HUDMainMenu\_MonthString" "$stMonth"
		sv_destruct stDay
	else
		set gYear to GameYear
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_year" gYear
		let stDay := aLongDay[dow]
		SetUIStringEx "HUDMainMenu\_DayString" "$stDay"
		sv_destruct stDay
		let stMonth := aLongMonth[gMonth]
		SetUIStringEx "HUDMainMenu\_MonthString" "$stMonth"
		sv_destruct stDay
	endif

	set gMonth to GameMonth + 1
	set gDay to GameDay
	if DUIF3.xTimeDate == 2
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_day" gMonth
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_month" gDay
	else
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_day" gDay
		SetUIFloat "HUDMainMenu\DUIF3Extras\HUDTime\_month" gMonth
	endif

	set Karma to Player.GetAV Karma
	SetUIFloat "HUDMainMenu\_Karma" Karma
	if Karma <= kve
		set iKarma to 0
	elseif Karma <= ke && Karma > kve
		set iKarma to 1
	elseif Karma > ke && Karma < kg
		set iKarma to 2
	elseif Karma >= kg && Karma < kvg
		set iKarma to 3
	elseif Karma >= kvg
		set iKarma to 4
	endif

	let stKarma := aKarma[iKarma]
	SetUIString "HUDMainMenu\_KarmaString" "$stKarma"
	sv_Destruct stKarma

	set xp to Player.GetAV XP
	set lvl to Player.GetLevel
	if xp != lastXp || lvl == nxtlvl || GetGameLoaded
		set lastXp to xp
		set nxtlvl to lvl + 1
		set xpb to GetGameSetting iXPBase
		set xpbb to GetGameSetting iXPBumpBase
		set xpnxtlvl to GetXPForNextLevel + xp
		SetUIFloat "HUDMainMenu\_XP" xp
		SetUIFloat "HUDMainMenu\_Lvl" lvl
		SetUIFloat "HUDMainMenu\_XPNxt" xpnxtlvl
		set xpo to (lvl - 1) * ((lvl - 2) / 2 * xpbb + xpb)
		set range to xpnxtlvl - xpo
		set pos to xpnxtlvl - xp
		SetUIFloat "HUDMainMenu\_XPPos" pos
		SetUIFloat "HUDMainMenu\_XPRange" range
	endif

	set prads to Player.GetAV RadiationRads
	SetUIFloat "HUDMainMenu\_Rad" prads
	set envrads to Player.GetRadiationLevel
	set er1 to Floor envrads
	SetUIFloat "HUDMainMenu\_Rads" er1
	set er to (envrads - er1) / 1 * 10
	set er1 to Floor er
	set er1 to (er - er1) / 1 * 10
	if er1 >= 5
		set er to Ceil er
	else
		set er to Floor er
	endif
	let stRads := "." + $er + "/sec"
	SetUIStringEx "HUDMainMenu\_Rads2" "$stRads"
	sv_Destruct stRads

	set invWeight to Player.GetAV InventoryWeight
	SetUIFloat "HUDMainMenu\_EN" invWeight
	set carWeight to Player.GetAV CarryWeight
	SetUIFloat "HUDMainMenu\_MaxEN" carWeight
	set cc to Player.GetAV CritChance
	SetUIFloat "HUDMainMenu\_CC" cc

	set dr to Player.GetAV DamageResist
	if dr >= 85
		set dr to 85
	endif
	SetUIFloat "HUDMainMenu\_DR" dr
	set dt to Player.GetAv DamageThreshold
	if dt >= 85
		set dt to 85
	endif
	SetUIFloat "HUDMainMenu\_DT" dt
	set pr to Player.GetAV PoisonResist
	if pr >= 85
		set pr to 85
	endif
	SetUIFloat "HUDMainMenu\_PR" pr
	set fr to Player.GetAV FireResist
	if fr >= 85
		set fr to 85
	endif
	SetUIFloat "HUDMainMenu\_FR" fr
	set fo to Player.GetAV FrostResist
	if fo >= 85
		set fo to 85
	endif
	SetUIFloat "HUDMainMenu\_FO" fo
	set el to Player.GetAV ElectricResist
	if el >= 85
		set el to 85
	endif
	SetUIFloat "HUDMainMenu\_EL" el
	set em to Player.GetAV EMPResist
	if em >= 85
		set em to 85
	endif
	SetUIFloat "HUDMainMenu\_EM" em
	set er to Player.GetAV EnergyResist
	if er >= 85
		set em to 85
	endif
	SetUIFloat "HUDMainMenu\_ER" er
	set rr to Player.GetAV RadResist
	if rr >= 85
		set rr to 85
	endif
	SetUIFloat "HUDMainMenu\_RR" rr

	set hn to Player.GetAV Hunger
	set hn to hn / 10
	SetUIFloat "HUDMainMenu\_Hunger" hn
	set th to Player.GetAV Dehydration
	set th to th / 10
	SetUIFloat "HUDMainMenu\_Thirst" th
	set sl to Player.GetAV SleepDeprevation
	set sl to sl / 10
	SetUIFloat "HUDMainMenu\_Sleep" sl

	if DUIF3.xShowCI
		set ci to Player.IsInCombat
		SetUIFloat "HUDMainMenu\_inCombat" CI
	endif

	if Player.GetEquippedCurrentHealth 2 != armorCND || Player.GetEquippedObject 2 != armorRef
		set armorRef To Player.GetEquippedObject 2
		set armorBH To GetHealth armorRef
		set armorCND To Player.GetEquippedCurrentHealth 2
		SetUIFloat "HUDMainMenu\_ArmorCND" armorCND
		SetUIFloat "HUDMainMenu\_ArmorMaxCND" armorBH
	endif

End