AUS: Added video main event St. Patrick

inter/aus/video/script_video.ev

@@ -33,6 +33,15 @@ If SystemDateMonthInt = 1 Then
     EndIf
 EndIf
 
+If SystemDateMonthInt = 3 Then
+    GetFileSizeK "taobin_project/inter/aus/video/video_main_StPatrick.mp4" MainfileSize
+    DEBUGVAR MainfileSize
+    If MainfileSize = 17941307 Then
+        Var StPatrickEvent = 1
+    Else
+        DEBUGVAR "StPatrick: Video size incorrect"
+    EndIf
+EndIf
 
 DEBUGVAR EventTurnOn
 
@@ -49,4 +58,8 @@ EndIf
 If EventAO = 1 Then
 
     Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main_ao.mp4"
+EndIf
+
+If StPatrickEvent = 1 Then
+    Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main_StPatrick.mp4"
 EndIf