This commit is contained in:
kong 2023-05-31 22:13:06 +07:00
parent d2469e310c
commit 8b51462cfd
53 changed files with 11954 additions and 121 deletions

View file

@ -1,63 +1,58 @@
Var PromotionIDOreoBuyTwoSaveMore = 0
Var BackToSchoolForFreeEnable = 0
;DEBUGVAR SystemDateMonthInt
;DEBUGVAR SystemDateDayInt
Var OreoForFreeEnable = 0
; Reset flag away.
Var OreoDueEnable = 0
Var OreoForFreeEnable = 0
Var SoundBackToSchoolEnable = 0
Var PromotionIDOreoBuyTwoSaveMore = 0
Var BackToSchoolForFreeEnable = 0
If SystemDateMonthInt = 5 Then
If SystemDateDayInt = 6 Then
Var OreoDueEnable = 1
EndIf
If SystemDateDayInt = 7 Then
Var OreoDueEnable = 1
EndIf
Var SoundBackToSchoolType = 0
; End
Var PepsiProEnable = 0
If SystemDateMonthInt = 6 Then
If SystemDateDayInt = 12 Then
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 13 Then
Var OreoDueEnable = 1
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 14 Then
Var OreoDueEnable = 1
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 15 Then
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 16 Then
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 19 Then
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 20 Then
Var OreoDueEnable = 1
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 21 Then
Var OreoDueEnable = 1
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 27 Then
Var OreoDueEnable = 1
If SystemDateDayInt = 22 Then
Var PepsiProEnable = 1
EndIf
If SystemDateDayInt = 28 Then
Var OreoDueEnable = 1
If SystemDateDayInt = 23 Then
Var PepsiProEnable = 1
EndIf
EndIf
If SystemDateMonthInt = 5 Then
If SystemDateDayInt > 7 Then
If SystemDateDayInt < 13 Then
Var OreoForFreeEnable = 1
EndIf
EndIf
If SystemDateDayInt > 14 Then
If SystemDateDayInt < 20 Then
Var OreoForFreeEnable = 1
EndIf
EndIf
EndIf
If BoxID = 200001 Then
Var OreoDueEnable = 0
Var OreoForFreeEnable = 0
@ -68,25 +63,17 @@ If BoxID = 200000 Then
Var OreoForFreeEnable = 0
EndIf
Var OreoForFreeLimit = ""
READ_FILE "/mnt/sdcard/oreo_for_free_limit" OreoForFreeLimit
If BoxID = 172053 Then
Var PepsiProEnable = 1
EndIf
If BoxID = 172644 Then
Var PepsiProEnable = 1
EndIf
Var SoundBackToSchoolEnable = 1
DEBUGVAR OreoForFreeLimit
DEBUGVAR PepsiProEnable
DEBUGVAR OreoDueEnable
DEBUGVAR OreoForFreeEnable
; Init default
If SoundBackToSchoolType = "" Then
Var SoundBackToSchoolType = 1
EndIf
If SoundBackToSchoolType = 1 Then
Var SoundBackToSchoolType = 2
Else
Var SoundBackToSchoolType = 1
EndIf