Added estimated time, radiation status foild to GUI, notification for Dennis (Android...

diff --git a/bot/Functions/EpochConvert.au3 b/bot/Functions/EpochConvert.au3
new file mode 100755 (executable)
index 0000000..f0311d2
--- /dev/null
+++ b/bot/Functions/EpochConvert.au3
@@ -0,0 +1,65 @@
+Func _EPOCH_decrypt($epoch_time)
+
+    Local $Day2Add = Int($epoch_time / 86400)
+    Local $iTimeVal = Mod($epoch_time, 86400)
+
+    If $iTimeVal < 0 Then
+        $Day2Add -= 1
+        $iTimeVal += 86400
+    EndIf
+
+    Local $i_wFactor = Int((573371.75 + $Day2Add) / 36524.25)
+    Local $i_xFactor = Int($i_wFactor / 4)
+    Local $i_bFactor = 2442113 + $Day2Add + $i_wFactor - $i_xFactor
+
+    Local $i_cFactor = Int(($i_bFactor - 122.1) / 365.25)
+    Local $i_dFactor = Int(365.25 * $i_cFactor)
+    Local $i_eFactor = Int(($i_bFactor - $i_dFactor) / 30.6001)
+
+    Local $asDatePart[3]
+    $asDatePart[2] = $i_bFactor - $i_dFactor - Int(30.6001 * $i_eFactor)
+    $asDatePart[1] = $i_eFactor - 1 - 12 * ($i_eFactor - 2 >= 13)
+    $asDatePart[0] = $i_cFactor - 4716 + ($asDatePart[1] < 3)
+
+    Local $asTimePart[3]
+    $asTimePart[0] = Int($iTimeVal / 3600)
+    $iTimeVal = Mod($iTimeVal, 3600)
+    $asTimePart[1] = Int($iTimeVal / 60)
+    $asTimePart[2] = Mod($iTimeVal, 60)
+
+    Return SetError(0, 0, StringFormat("%.2d/%.2d/%.2d %.2d:%.2d:%.2d", $asDatePart[0], $asDatePart[1], $asDatePart[2], $asTimePart[0], $asTimePart[1], $asTimePart[2]))
+
+EndFunc
+
+
+Func _Epoch_encrypt($date)
+
+    Local $main_split = StringSplit($date, " ")
+    If $main_split[0] - 2 Then
+        Return SetError(1, 0, "") ; invalid time format
+    EndIf
+
+    Local $asDatePart = StringSplit($main_split[1], "/")
+    Local $asTimePart = StringSplit($main_split[2], ":")
+
+    If $asDatePart[0] - 3 Or $asTimePart[0] - 3 Then
+        Return SetError(1, 0, "") ; invalid time format
+    EndIf
+
+    If $asDatePart[2] < 3 Then
+        $asDatePart[2] += 12
+        $asDatePart[1] -= 1
+    EndIf
+
+    Local $i_aFactor = Int($asDatePart[1] / 100)
+    Local $i_bFactor = Int($i_aFactor / 4)
+    Local $i_cFactor = 2 - $i_aFactor + $i_bFactor
+    Local $i_eFactor = Int(1461 * ($asDatePart[1] + 4716) / 4)
+    Local $i_fFactor = Int(153 * ($asDatePart[2] + 1) / 5)
+    Local $aDaysDiff = $i_cFactor + $asDatePart[3] + $i_eFactor + $i_fFactor - 2442112
+
+    Local $iTimeDiff = $asTimePart[1] * 3600 + $asTimePart[2] * 60 + $asTimePart[3]
+
+    Return SetError(0, 0, $aDaysDiff * 86400 + $iTimeDiff)
+
+EndFunc
\ No newline at end of file