113 lines
2 KiB
Text
113 lines
2 KiB
Text
|
|
|
|
|
|
;DEBUGVAR SystemDateMonthInt
|
|
;DEBUGVAR SystemDateDayInt
|
|
|
|
; Reset flag away.
|
|
Var OreoDueEnable = 0
|
|
Var OreoForFreeEnable = 0
|
|
Var SoundBackToSchoolEnable = 0
|
|
Var PromotionIDOreoBuyTwoSaveMore = 0
|
|
Var BackToSchoolForFreeEnable = 0
|
|
|
|
Var PepsiProEnable = 0
|
|
Var PepsiPromoteVideo = 0
|
|
Var PepsiProCodeEnable = 0
|
|
|
|
Var SoundBackToSchoolType = 0
|
|
; End
|
|
|
|
Var MysteryProEnable = 0
|
|
|
|
If SystemDateMonthInt = 7 Then
|
|
If SystemDateDayInt = 3 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 4 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 5 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 6 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 7 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 8 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 9 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 10 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 11 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 12 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 13 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If SystemDateDayInt = 14 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
EndIf
|
|
|
|
If BoxID = 200001 Then
|
|
Var OreoDueEnable = 0
|
|
Var OreoForFreeEnable = 0
|
|
Var PepsiProEnable = 0
|
|
Var PepsiProCodeEnable = 0
|
|
Var MysteryProEnable = 0
|
|
EndIf
|
|
|
|
If BoxID = 200000 Then
|
|
Var OreoDueEnable = 0
|
|
Var OreoForFreeEnable = 0
|
|
Var PepsiProEnable = 0
|
|
Var PepsiProCodeEnable = 0
|
|
Var MysteryProEnable = 0
|
|
EndIf
|
|
|
|
If BoxID = 173149 Then
|
|
Var OreoDueEnable = 0
|
|
Var OreoForFreeEnable = 0
|
|
Var PepsiProEnable = 0
|
|
Var PepsiProCodeEnable = 0
|
|
Var MysteryProEnable = 0
|
|
EndIf
|
|
|
|
|
|
|
|
If BoxID = 173149 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
If BoxID = 172527 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
|
|
Var MysteryProEnable = 0
|
|
|
|
If BoxID = 172053 Then
|
|
Var MysteryProEnable = 1
|
|
EndIf
|
|
|
|
|
|
DEBUGVAR MysteryProEnable
|
|
|
|
If InternationalEnable = 1 Then
|
|
Var PepsiProEnable = 0
|
|
Var PepsiPromoteVideo = 0
|
|
Var PepsiProCodeEnable = 0
|
|
Var MysteryProEnable = 0
|
|
EndIf
|
|
|
|
|
|
|
|
|