Month # of Days # of Days Name Name (Beth) (MCP) (Beth) (MCP) 1 31 31 Sun's Dawn Morning Star 2 28 28 First Seed Sun's Dawn 3 31 31 Rain's Hand First Seed 4 30 30 Second Seed Rain's Hand 5 31 31 Mid Year Second Seed 6 30 30 Sun's Height Mid Year 7 31 31 Last Seed Sun's Height 8 31 31 Heartfire Last Seed 9 30 30 Frostfall Heartfire 10 31 31 Sun's Dusk Frostfall 11 30 30 Evening Star Sun's Dusk 12 N/A 31 N/A Evening Star
Month # of Days # of Days Name Name (Beth) (MCP) (Beth) (MCP) 1 31 31 Sun's Dawn Sun's Dawn 2 28 28 First Seed First Seed 3 31 31 Rain's Hand Rain's Hand 4 30 30 Second Seed Second Seed 5 31 31 Mid Year Mid Year 6 30 30 Sun's Height Sun's Height 7 31 31 Last Seed Last Seed 8 31 31 Heartfire Heartfire 9 30 30 Frostfall Frostfall 10 31 31 Sun's Dusk Sun's Dusk 11 30 30 Evening Star Evening Star 12 N/A 31 N/A Morning Star
Month # of Days # of Days Name Name (Beth) (MCP) (Beth) (MCP) 0 N/A 31 N/A Morning Star 1 31 31 Sun's Dawn Sun's Dawn 2 28 28 First Seed First Seed 3 31 31 Rain's Hand Rain's Hand 4 30 30 Second Seed Second Seed 5 31 31 Mid Year Mid Year 6 30 30 Sun's Height Sun's Height 7 31 31 Last Seed Last Seed 8 31 31 Heartfire Heartfire 9 30 30 Frostfall Frostfall 10 31 31 Sun's Dusk Sun's Dusk 11 30 30 Evening Star Evening Star
begin a1jw_thm_Monthfix ;based on Month Bugfix Script v2.0 - Zennorious ;thanks, rougetet, for the mercantile stuff short LastMonth short Yesterday short ShorterMonth short LongerMonth short Leap short doOnce if ( Day == Yesterday ) return endif if ( CharGenState > 0 ) return endif if ( Month == 1 ) if ( LastMonth == 11 ) if ( Yesterday == 30 ) set Year to ( Year - 1 ) set Month to 11 set Day to 31 else set Month to 0 endif elseif ( LastMonth == 0 ) if ( Yesterday < 31 ) if ( GameHour < 1 ) set Month to 0 set Day to ( Yesterday + 1 ) endif endif elseif ( LastMonth == 1 ) if ( Day >= 29 ) set Leap to ( Year / 4 ) set Leap to ( Year - ( Leap * 4 ) ) if ( Leap == 0 ) if ( Day == 30 ) set Month to 2 set Day to 1 endif else if ( Day == 29 ) set Month to 2 set Day to 1 endif endif endif endif elseif ( Month == 3 ) set ShorterMonth to 1 set LongerMonth to 1 elseif ( Month == 5 ) set ShorterMonth to 1 set LongerMonth to 1 elseif ( Month == 7 ) set ShorterMonth to 1 elseif ( Month == 8 ) set LongerMonth to 1 elseif ( Month == 10 ) set ShorterMonth to 1 set LongerMonth to 1 endif if ( LongerMonth == 1 ) set LongerMonth to 0 if ( Day == 31 ) set Month to ( Month + 1 ) set Day to 1 set Yesterday to 31 endif endif if ( ShorterMonth == 1 ) set ShorterMonth to 0 if ( Day == 1 ) if ( Yesterday < 31 ) if ( Yesterday != 1 ) set Month to LastMonth set Day to ( Yesterday + 1 ) endif endif endif endifif ( doOnce == 0 ) if ( Random100 > 90 ) set ajw_thm_assign to 1 Journal "1jw_thm_birthdayjnl" 10 elseif ( Random100 > 80 ) set ajw_thm_assign to 2 Journal "1jw_thm_birthdayjnl" 20 elseif ( Random100 > 70 ) set ajw_thm_assign to 3 Journal "1jw_thm_birthdayjnl" 30 elseif ( Random100 > 60 ) set ajw_thm_assign to 4 Journal "1jw_thm_birthdayjnl" 40 elseif ( Random100 > 50 ) set ajw_thm_assign to 5 Journal "1jw_thm_birthdayjnl" 50 elseif ( Random100 > 44 ) set ajw_thm_assign to 6 Journal "1jw_thm_birthdayjnl" 60 elseif ( Random100 > 36 ) set ajw_thm_assign to 7 Journal "1jw_thm_birthdayjnl" 70 elseif ( Random100 > 30 ) set ajw_thm_assign to 8 Journal "1jw_thm_birthdayjnl" 80 elseif ( Random100 > 23 ) set ajw_thm_assign to 9 Journal "1jw_thm_birthdayjnl" 90 elseif ( Random100 > 16 ) set ajw_thm_assign to 10 Journal "1jw_thm_birthdayjnl" 100 elseif ( Random100 > 10 ) set ajw_thm_assign to 11 Journal "1jw_thm_birthdayjnl" 110 elseif ( Random100 >= 0 ) set ajw_thm_assign to 12 Journal "1jw_thm_birthdayjnl" 120 endif Addtopic "New Life" Addtopic "Birthday Celebration" Addtopic "--Celebration" set doOnce to 1endif set LastMonth to Month set Yesterday to Day startscript "a1jw_thm_celebratescript"; Messagebox "starting main startscript" end
begin _spzYearPatchActivatorScriptend