40 lines
670 B
Text
40 lines
670 B
Text
|
; HongKong
|
||
|
|
|
||
|
|
|
||
|
|
;DEBUGVAR SystemDateMonthInt
|
||
|
|
;DEBUGVAR SystemDateDayInt
|
||
|
|
|
||
|
|
; Reset flag away.
|
||
|
|
|
||
|
|
|
||
|
|
Var SeasonPassMode = 0
|
||
|
|
|
||
|
|
If SystemDateMonthInt = 7 Then
|
||
|
|
If SystemDateDayInt > 28 Then
|
||
|
|
Var SeasonPassMode = 1
|
||
|
|
Else
|
||
|
|
Var SeasonPassMode = 0
|
||
|
|
EndIf
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
If SystemDateMonthInt = 8 Then
|
||
|
|
Var SeasonPassMode = 1
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
If SystemDateMonthInt = 9 Then
|
||
|
|
Var SeasonPassMode = 1
|
||
|
|
If SystemDateDayInt > 8 Then
|
||
|
|
Var SeasonPassMode = 0
|
||
|
|
EndIf
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
|
||
|
|
If BoxID = "177746" Then
|
||
|
|
Var SeasonPassMode = 1
|
||
|
|
EndIf
|
||
|
|
|
||
|
|
If SeasonPassMode = 1 Then
|
||
|
|
Var SeasonPassFile = CountryRootPath + "xml/event/season_pass/season_pass.ev"
|
||
|
|
TRY SeasonPassFile
|
||
|
|
EndIf
|