array_var aTimeBegin GameMode Let aTime := ar_Construct StringMap Let aTime := GetUserTime Let aTime[0] := aTime ["DayofWeek"] ...
array_var aTimeBegin GameMode Let aTime := ar_Construct StringMap Let aTime := GetUserTime Let aTime[0] := aTime ["DayofWeek"] ...
string_var svDayoftheWeekstring_var svMontharray_var aTimefloat fMonthfloat fDayofWeekfloat fDayfloat fHourfloat fMinuteBegin GameMode Let aTime := ar_Construct StringMap Let aTime := GetUserTime Let fMonth := aTime["Month"] Let fDayofWeek := aTime["DayofWeek"] Let fDay := aTime["Day"] Let fHour := aTime["Hour"] Let fMinute := aTime["Minute"] If fDayofWeek == 1 Let svDayoftheWeek := "Sunday" EndIf If fDayofWeek == 2 Let svDayoftheWeek := "Monday" EndIf If fDayofWeek == 3 Let svDayoftheWeek := "Tuesday" EndIf If fDayofWeek == 4 Let svDayoftheWeek := "Wednesday" EndIf If fDayofWeek == 5 Let svDayoftheWeek := "Thursday" EndIf If fDayofWeek == 6 Let svDayoftheWeek := "Friday" EndIf If fDayofWeek == 7 Let svDayoftheWeek := "Saturday" EndIf If fMonth == 1 Let svMonth := "January" EndIf If fMonth == 2 Let svMonth := "February" EndIf If fMonth == 3 Let svMonth := "March" EndIf If fMonth == 4 Let svMonth := "April" EndIf If fMonth == 5 Let svMonth := "May" EndIf If fMonth == 6 Let svMonth := "June" EndIf If fMonth == 7 Let svMonth := "July" EndIf If fMonth == 8 Let svMonth := "August" EndIf If fMonth == 9 Let svMonth := "September" EndIf If fMonth == 10 Let svMonth := "October" EndIf If fMonth == 11 Let svMonth := "November" EndIf If fMonth == 12 Let svMonth := "December" EndIf MessageBoxEx "%z %z %.0f %.0f %.0f", svDayoftheWeek, svMonth, fDay, fHour, fMinute End
If fDayofWeek == 1 Let svDayoftheWeek := "Sunday" elseIf fDayofWeek == 2 Let svDayoftheWeek := "Monday" elseIf fDayofWeek == 3 Let svDayoftheWeek := "Tuesday" elseIf fDayofWeek == 4 Let svDayoftheWeek := "Wednesday" elseIf fDayofWeek == 5 Let svDayoftheWeek := "Thursday" elseIf fDayofWeek == 6 Let svDayoftheWeek := "Friday" elseIf fDayofWeek == 7 Let svDayoftheWeek := "Saturday" EndIf If fMonth == 1 Let svMonth := "January" elseIf fMonth == 2 Let svMonth := "February" elseIf fMonth == 3 Let svMonth := "March" elseIf fMonth == 4 Let svMonth := "April" elseIf fMonth == 5 Let svMonth := "May" elseIf fMonth == 6 Let svMonth := "June" elseIf fMonth == 7 Let svMonth := "July" elseIf fMonth == 8 Let svMonth := "August" elseIf fMonth == 9 Let svMonth := "September" elseIf fMonth == 10 Let svMonth := "October" elseIf fMonth == 11 Let svMonth := "November" elseIf fMonth == 12 Let svMonth := "December" EndIf
string_var svDayoftheWeek string_var svMonth array_var aTime array_var aDaysarray_var aMonths float fDay float fHour float fMinute Begin GameMode If aDays == 0 Let aDays := ar_Construct Map Let aDays[1] := "Sunday" Let aDays[2 := "Monday" Let aDays[3] := "Tuesday" Let aDays[4] := "Wednesday" Let aDays[5] := "Thursday" Let aDays[6] := "Friday" Let aDays[7] := "Saturday" Let aMonths := ar_Construct Map Let aMonths[1] := "January" Let aMonths[2] := "February" Let aMonths[3] := "March" Let aMonths[4] := "April" Let aMonths[5] := "May" Let aMonths[6] := "June" Let aMonths[7] := "July" Let aMonths[8] := "August" Let aMonths[9] := "September" Let aMonths[10] := "October" Let aMonths[11] := "November" Let aMonths[12] := "December" EndIf Let aTime := GetUserTime Let svMonth := aMonths[aTime["Month"]] Let svDayofWeek := aDays[aTime["DayofWeek"]] Let fDay := aTime["Day"] Let fHour := aTime["Hour"] Let fMinute := aTime["Minute"] MessageBoxEx "%z %z %.0f %.0f %.0f", svDayoftheWeek, svMonth, fDay, fHour, fMinute End
array_var daysarray_var monthslet days := ar_list "NONE", "sunday", "monday", "tuesday", "wednesday", "thursday", "friday", "saturday" let months := ar_list "NONE", "january", "february", "march", "april", "may", "june", "july", "august", "september", "october", "november", "december"
array_var daysarray_var monthslet days := ar_list "NONE", "sunday", "monday", "tuesday", "wednesday", "thursday", "friday", "saturday" let months := ar_list "NONE", "january", "february", "march", "april", "may", "june", "july", "august", "september", "october", "november", "december"
If Eval (ar_Next== ) -Do stuff-