mirror of
https://github.com/Bubberstation/Bubberstation.git
synced 2025-12-12 10:42:37 +00:00
0f435d5dff
Done using this command sed -Ei 's/(\s*\S+)\s*\t+/\1 /g' code/**/*.dm We have countless examples in the codebase with this style gone wrong, and defines and such being on hideously different levels of indentation. Fixing this to keep the alignment involves tainting the blames of code your PR doesn't need to be touching at all. And ultimately, it's hideous. There are some files that this sed makes uglier. I can fix these when they are pointed out, but I believe this is ultimately for the greater good of readability. I'm more concerned with if any strings relied on this. Hi codeowners! Co-authored-by: Jared-Fogle <35135081+Jared-Fogle@users.noreply.github.com>
48 lines
1021 B
Plaintext
48 lines
1021 B
Plaintext
//Curse you calenders...
|
|
/proc/IsLeapYear(y)
|
|
return ((y) % 4 == 0 && ((y) % 100 != 0 || (y) % 400 == 0))
|
|
|
|
//Y, eg: 2017, 2018, 2019, in num form (not string)
|
|
//etc. Between 1583 and 4099
|
|
//Adapted from a free algorithm written in BASIC (https://www.assa.org.au/edm#Computer)
|
|
/proc/EasterDate(y)
|
|
var/FirstDig, Remain19, temp //Intermediate Results
|
|
var/tA, tB, tC, tD, tE //Table A-E results
|
|
var/d, m //Day and Month returned
|
|
|
|
FirstDig = round((y / 100))
|
|
Remain19 = y % 19
|
|
|
|
temp = (round((FirstDig - 15) / 2)) + 202 - 11 * Remain19
|
|
|
|
switch(FirstDig)
|
|
if(21,24,25,27,28,29,30,31,32,34,35,38)
|
|
temp -= 1
|
|
if(33,36,37,39,40)
|
|
temp -= 2
|
|
temp %= 30
|
|
|
|
tA = temp + 21
|
|
if(temp == 29)
|
|
tA -= 1
|
|
if(temp == 28 && (Remain19 > 10))
|
|
tA -= 1
|
|
tB = (tA - 19) % 7
|
|
|
|
tC = (40 - FirstDig) % 4
|
|
if(tC == 3)
|
|
tC += 1
|
|
if(tC > 1)
|
|
tC += 1
|
|
temp = y % 100
|
|
tD = (temp + round((temp / 4))) % 7
|
|
|
|
tE = ((20 - tB - tC - tD) % 7) + 1
|
|
d = tA + tE
|
|
if(d > 31)
|
|
d -= 31
|
|
m = 4
|
|
else
|
|
m = 3
|
|
return list("day" = d, "month" = m)
|