taobin_project/inter/mys/xml/event/tricker.ev
2024-09-13 09:53:45 +07:00

127 lines
No EOL
2.1 KiB
Text

; malaysia
;DEBUGVAR SystemDateMonthInt
;DEBUGVAR SystemDateDayInt
; Reset flag away.
Var Propepsi99Enable = 0
; FruityRaya Promo
Var FruityRayaEnable = 0
Var FromFruityRaya = 0
; ThaiTea Promo
Var ProThaiTeaEnable = 0
Var FromProThaiTea = 0
; Yuzu Promo
Var ProYuzuEnable = 0
Var FromProYuzu = 0
; Pro free oreo topping
Var PromotionOreoToppingFreeEnable = 0
; Pro reduce price
Var SetProReduceByBO = 0
Var ProReducedPriceEnable = 0
If XMLProfile = "PromoReduced" Then
Var SetProReduceByBO = 1
EndIf
DEBUGVAR SetProReduceByBO
; Pay later mode
Var EnablePayLaterMode = 0
; Slide show Video
Var UseSlideShowVideo = 0
If SystemDateMonthInt = 6 Then
If SystemDateDayInt >= 15 Then
Var ProThaiTeaEnable = 1
Else
Var ProThaiTeaEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 7 Then
Var ProThaiTeaEnable = 1
If SystemDateDayInt >= 15 Then
Var ProYuzuEnable = 1
Else
Var ProYuzuEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 8 Then
If SystemDateDayInt < 31 Then
Var ProThaiTeaEnable = 1
Var ProYuzuEnable = 1
Else
Var ProThaiTeaEnable = 0
Var ProYuzuEnable = 0
Var PromotionOreoToppingFreeEnable = 1
EndIf
EndIf
If SystemDateMonthInt = 9 Then
If SystemDateDayInt < 17 Then
Var PromotionOreoToppingFreeEnable = 1
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 1
EndIf
Else
Var PromotionOreoToppingFreeEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 10 Then
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 1
EndIf
EndIf
If SystemDateMonthInt = 11 Then
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 1
EndIf
EndIf
If BoxID = 177746 Then
Var ProThaiTeaEnable = 1
Var ProYuzuEnable = 1
Var PromotionOreoToppingFreeEnable = 0
Var EnablePayLaterMode = 1
;Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"
Var UseSlideShowVideo = 0
EndIf
If BoxID = 210037 Then
Var UseSlideShowVideo = 1
EndIf
If BoxID = 210011 Then
Var UseSlideShowVideo = 1
EndIf
If BoxID = 200002 Then
Var UseSlideShowVideo = 1
EndIf
;If BoxID = Something Then
; Var EnablePayLaterMode = 1
;
;EndIf