105 &true; 1060 800 255 Menus\TimeKeeper\Time_Keeper_Background.dds 300 100 1 0 0 255 3 ¢er; 114 114 114 3 2 20 0 255
ScriptName MalonnSystemTimeScriptstring_var svDayoftheWeek string_var svMonthstring_var svHumanHoursstring_var svHumanMinutesstring_var svAMPMarray_var aHumanHoursarray_var aHumanMinutesarray_var aDaysarray_var aMonthsarray_var avTimefloat fQuestDelayTimefloat fDayoftheMonthfloat fSecondsPassedfloat fMinutesPassedfloat fTotalHoursPassedfloat fTotalMinutesPassedfloat fPIntervalfloat fRTIntervalfloat fTimerfloat fPopUpTimershort sPopUpshort sTriggerPopupshort sRealTimeResetshort sPUTimerResetshort sEqualTimersshort sShowTimeshort sDisablePopUp Begin GameMode If GetGameLoaded == 1 RunBatchScript "Data\INI\Oblivion Real World Time.ini" Set sDisablePopUp to 0 Set sRealTimeReset to 1 Set sEqualTimers to 0 Set fSecondsPassed to 0 If sShowTime == 1 InsertXML "TimeKeeper\Time Keeper.xml" 1004 Set sDisablePopUp to 1 EndIf EndIf Set fQuestDelayTime to 0.001 Set fSecondsPassed to fSecondsPassed + GetSecondsPassed Let aDays := ar_List "Saturday", "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday" Let aMonths := ar_List "December", "January" "February", "March", "April", "May", "June", "July", "August", "September", "October", "November" Let aHumanHours := ar_Construct Map Let aHumanHours[0] := "12" Let aHumanHours[1] := "1" Let aHumanHours[2] := "2" Let aHumanHours[3] := "3" Let aHumanHours[4] := "4" Let aHumanHours[5] := "5" Let aHumanHours[6] := "6" Let aHumanHours[7] := "7" Let aHumanHours[8] := "8" Let aHumanHours[9] := "9" Let aHumanHours[10] := "10" Let aHumanHours[11] := "11" Let aHumanHours[12] := "12" Let aHumanHours[13] := "1" Let aHumanHours[14] := "2" Let aHumanHours[15] := "3" Let aHumanHours[16] := "4" Let aHumanHours[17] := "5" Let aHumanHours[18] := "6" Let aHumanHours[19] := "7" Let aHumanHours[20] := "8" Let aHumanHours[21] := "9" Let aHumanHours[22] := "10" Let aHumanHours[23] := "11" Let aHumanMinutes := ar_Construct Map Let aHumanMinutes[0] := "00" Let aHumanMinutes[1] := "01" Let aHumanMinutes[2] := "02" Let aHumanMinutes[3] := "03" Let aHumanMinutes[4] := "04" Let aHumanMinutes[5] := "05" Let aHumanMinutes[6] := "06" Let aHumanMinutes[7] := "07" Let aHumanMinutes[8] := "08" Let aHumanMinutes[9] := "09" Let aHumanMinutes[10] := "10" Let aHumanMinutes[11] := "11" Let aHumanMinutes[12] := "12" Let aHumanMinutes[13] := "13" Let aHumanMinutes[14] := "14" Let aHumanMinutes[15] := "15" Let aHumanMinutes[16] := "16" Let aHumanMinutes[17] := "17" Let aHumanMinutes[18] := "18" Let aHumanMinutes[19] := "19" Let aHumanMinutes[20] := "20" Let aHumanMinutes[21] := "21" Let aHumanMinutes[22] := "22" Let aHumanMinutes[23] := "23" Let aHumanMinutes[24] := "24" Let aHumanMinutes[25] := "25" Let aHumanMinutes[26] := "26" Let aHumanMinutes[27] := "27" Let aHumanMinutes[28] := "28" Let aHumanMinutes[29] := "29" Let aHumanMinutes[30] := "30" Let aHumanMinutes[31] := "31" Let aHumanMinutes[32] := "32" Let aHumanMinutes[33] := "33" Let aHumanMinutes[34] := "34" Let aHumanMinutes[35] := "35" Let aHumanMinutes[36] := "36" Let aHumanMinutes[37] := "37" Let aHumanMinutes[38] := "38" Let aHumanMinutes[39] := "39" Let aHumanMinutes[40] := "40" Let aHumanMinutes[41] := "41" Let aHumanMinutes[42] := "42" Let aHumanMinutes[43] := "43" Let aHumanMinutes[44] := "44" Let aHumanMinutes[45] := "45" Let aHumanMinutes[46] := "46" Let aHumanMinutes[47] := "47" Let aHumanMinutes[48] := "48" Let aHumanMinutes[49] := "49" Let aHumanMinutes[50] := "50" Let aHumanMinutes[51] := "51" Let aHumanMinutes[52] := "52" Let aHumanMinutes[53] := "53" Let aHumanMinutes[54] := "54" Let aHumanMinutes[55] := "55" Let aHumanMinutes[56] := "56" Let aHumanMinutes[57] := "57" Let aHumanMinutes[58] := "58" Let aHumanMinutes[59] := "59" Let avTime := GetUserTime Let svMonth := aMonths[avTime["Month"]] Let svDayoftheWeek := aDays[avTime["DayofWeek"]] Let svHumanHours := aHumanHours[avTime["Hour"]] Let svHumanMinutes := aHumanMinutes[avTime["Minute"]] Let fDayoftheMonth := avTime["Day"] If Eval avTime["Hour"] > 11 Let svAMPM := "P.M." Else Let svAMPM := "A.M." EndIf If fPInterval == fRTInterval If sEqualTimers == 0 Set fTimer to fTimer - 2 Set sEqualTimers to 1 EndIf EndIf If fTimer > (60 * fRTInterval) Set sRealTimeReset to 0 Else Set fTimer to fTimer + GetSecondsPassed EndIf If sDisablePopUp == 0 If sRealTimeReset == 0 MessageBoxEX " Current Date and Time %r %z, %z %.0f %z:%z %z", svDayoftheWeek, svMonth, fDayoftheMonth, svHumanHours, svHumanMinutes, svAMPM Set sRealTimeReset to 1 set fTimer to 0 EndIf EndIf SetMenuStringValue "TimeKeeper\Time_Keeper_Text\string|%z %z:%z %z" svDayoftheWeek svHumanHours svHumanMinutes svAMPM 1004 If Player.IsInCombat == 1 Set sTriggerPopup to 0 Else Set sTriggerPopup to 1 EndIf If sPopUp == 1 If fPopUpTimer > (60 * fPInterval) If sTriggerPopup == 1 If fSecondsPassed > (60 * fPInterval) && fSecondsPassed < 3600 Set fTotalMinutesPassed to fSecondsPassed / 60 Set fTotalMinutesPassed to Floor fTotalMinutesPassed MessageBoxEX "You have been playing for about %.0f minutes.", fTotalMinutesPassed Set sPUTimerReset to 1 Set fTotalMinutesPassed to 0 ElseIf fSecondsPassed > 3600 Set fTotalHoursPassed to fSecondsPassed / 3600 Set fTotalHoursPassed to Floor fTotalHoursPassed MessageBoxEx "You have been playing for about %.0f Hour(s)", fTotalHoursPassed Set sPUTimerReset to 1 Set fTotalHoursPassed to 0 EndIf EndIf Else Set fPopUpTimer to fPopUpTimer + GetSecondsPassed EndIf EndIf If sPUTimerReset == 1 Set fPopUpTimer to 0 Set sPUTimerReset to 0 EndIf End
if GetMenuTrait "TimeKeeper\depth" == 0;needs to be insertedendif