; 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

; Yuzu Promo
Var ProYuzu250Enable = 0
Var FromProYuzu250 = 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

Var NoTrickPriceProfile = 0


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

    Var ProYuzu250Enable = 1
EndIf

If SystemDateMonthInt = 11 Then
	If SetProReduceByBO = 1 Then
		Var ProReducedPriceEnable = 1
	EndIf

    Var ProYuzu250Enable = 1
EndIf

If SystemDateMonthInt = 12 Then
    Var ProYuzu250Enable = 1

    If SetProReduceByBO = 1 Then
        Var ProReducedPriceEnable = 0
    EndIf

EndIf

If SystemDateMonthInt = 1 Then
    If SystemDateDayInt < 16 Then
        Var ProYuzu250Enable = 1
    Else
        Var ProYuzu250Enable = 0
    EndIf
EndIf

If SystemDateMonthInt < 10 Then
    Var ProReducedPriceEnable = 0
EndIf

If ProReducedPriceEnable = 0 Then
    If XMLProfile = "PromoReduced" Then
        Var NoTrickPriceProfile = 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

    ;Var ProReducedPriceEnable = 0
	;Var ProYuzu250Enable = 1
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