MYS: add promotion profile to restore as previous profile after promo ends

This commit is contained in:
Pakin 2024-09-24 09:01:26 +07:00
parent 1687d8e612
commit 26a15c104c
5 changed files with 278 additions and 201 deletions

View file

@ -80,6 +80,9 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If ProYuzu250Enable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4"
EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
EndIf EndIf
@ -140,6 +143,9 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If ProYuzu250Enable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4"
EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
EndIf EndIf
@ -216,6 +222,9 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If ProYuzu250Enable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4"
EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
EndIf EndIf
@ -270,6 +279,10 @@
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If ProYuzu250Enable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4"
EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
EndIf EndIf

Binary file not shown.

View file

@ -12,22 +12,60 @@ DEBUGVAR ProYuzu250Enable
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Else Else
DEBUGVAR "Case pro reduce end"
; case-pro-reduce-end ; case-pro-reduce-end
If ProYuzu250Enable = 1 Then If ProYuzu250Enable = 1 Then
DEBUGVAR "Pro yuzu ongoing"
; concat-profile ; concat-profile
If HasProYuzu250Concat = "true" Then If HasProYuzu250Concat = "true" Then
DEBUGVAR "Pro yuzu concat"
Else Else
If IsProfileReduce = "true" Then If IsProfileReduce = "true" Then
DEBUGVAR "Pro reduce was set but disabled from trick"
CacheVarStr "get" XMLProfilePreEvent
If XMLProfilePreEvent = "" Then
DEBUGVAR "Get PreEvent Empty"
Var XMLProfile = "General"
Else
DEBUGVAR "Restore profile by pre-event, also concat Yuzu"
DEBUGVAR XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250"
EndIf
Else Else
DEBUGVAR "No pro reduce, concat pro yuzu"
CacheVarStr "put" XMLProfilePreEvent CacheVarStr "put" XMLProfilePreEvent
Var XMLProfile = XMLProfile + "-" Var XMLProfile = XMLProfile + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250" Var XMLProfile = XMLProfile + "PromoYuzu250"
EndIf EndIf
EndIf EndIf
Else
If IsProfileReduce = "true" Then
DEBUGVAR "No yuzu but set pro reduce"
CacheVarStr "get" XMLProfilePreEvent
If XMLProfilePreEvent = "" Then
DEBUGVAR "PreEvent empty, set General"
Var XMLProfile = "General"
Else
DEBUGVAR "Restore profile by pre-event"
Var XMLProfile = XMLProfilePreEvent
EndIf
Else
If HasProYuzu250Concat = "true" Then
CacheVarStr "get" XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent
EndIf
DEBUGVAR "Store profile pre event"
DEBUGVAR XMLProfilePreEvent
CacheVarStr "put" XMLProfilePreEvent
EndIf
EndIf EndIf
EndIf EndIf

View file

@ -44,6 +44,9 @@ Var EnablePayLaterMode = 0
; Slide show Video ; Slide show Video
Var UseSlideShowVideo = 0 Var UseSlideShowVideo = 0
Var NoTrickPriceProfile = 0
If SystemDateMonthInt = 9 Then If SystemDateMonthInt = 9 Then
If SystemDateDayInt < 17 Then If SystemDateDayInt < 17 Then
Var PromotionOreoToppingFreeEnable = 1 Var PromotionOreoToppingFreeEnable = 1
@ -73,6 +76,11 @@ EndIf
If SystemDateMonthInt = 12 Then If SystemDateMonthInt = 12 Then
Var ProYuzu250Enable = 1 Var ProYuzu250Enable = 1
If SetProReduceByBO = 1 Then
Var ProReducedPriceEnable = 0
EndIf
EndIf EndIf
If SystemDateMonthInt = 1 Then If SystemDateMonthInt = 1 Then
@ -83,6 +91,17 @@ If SystemDateMonthInt = 1 Then
EndIf EndIf
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 If BoxID = 177746 Then
Var ProThaiTeaEnable = 1 Var ProThaiTeaEnable = 1
Var ProYuzuEnable = 1 Var ProYuzuEnable = 1
@ -94,8 +113,8 @@ If BoxID = 177746 Then
Var UseSlideShowVideo = 0 Var UseSlideShowVideo = 0
Var ProReducedPriceEnable = 0 ;Var ProReducedPriceEnable = 0
Var ProYuzu250Enable = 1 ;Var ProYuzu250Enable = 1
EndIf EndIf
If BoxID = 210037 Then If BoxID = 210037 Then
@ -106,9 +125,9 @@ If BoxID = 210011 Then
Var UseSlideShowVideo = 1 Var UseSlideShowVideo = 1
EndIf EndIf
If BoxID = 200002 Then ;If BoxID = 200002 Then
Var UseSlideShowVideo = 1 ; Var UseSlideShowVideo = 1
EndIf ;EndIf
;If BoxID = Something Then ;If BoxID = Something Then
; Var EnablePayLaterMode = 1 ; Var EnablePayLaterMode = 1

View file

@ -632,6 +632,9 @@
DEBUGVAR EventTurnOn DEBUGVAR EventTurnOn
Var UsePepsiTheme = 0 Var UsePepsiTheme = 0
Var NoTrickPriceProfile = 0
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
@ -1719,6 +1722,8 @@
DEBUGVAR XMLProfile DEBUGVAR XMLProfile
DEBUGVAR XMLProfilePrevious DEBUGVAR XMLProfilePrevious
If NoTrickPriceProfile = 0 Then
If TimeProfilePrice = 5 Then If TimeProfilePrice = 5 Then
PRICE "Reset" "-" PRICE "Reset" "-"
PRICE "Load" "-" PRICE "Load" "-"
@ -1743,6 +1748,8 @@
EndIf EndIf
EndIf
Refresh Refresh
TimerReset TimerReset