pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

MYS: add promotion mystery cup

Browse source
This commit is contained in:
Pakin 2025-05-26 14:32:46 +07:00
parent fa49f87ae3
commit 4e79d45ebc
26 changed files with 22429 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

174
inter/mys/xml/event/mystery_cup/check_menu.ev Normal file
View file

@ -0,0 +1,174 @@
DEBUGVAR "Syncing Pool ..."
Var RandomCoffeeCheckIdx = 0
Var RandomCoffeeCheckOkIdx = 0
For RandomCoffeeCheckIdx < 5 Loop
Var CurrentPd = RandMystCoffee[RandomCoffeeCheckIdx]
Var CurrentState !assigned @AutoVar ${CurrentPd}.Button
If CurrentState = "Enable" Then
DEBUGVAR CurrentPd
DEBUGVAR CurrentState
Var RandMystCoffeeEnabled[RandomCoffeeCheckOkIdx] = CurrentPd
Var RandomCoffeeCheckOkIdx = RandomCoffeeCheckOkIdx + 1
EndIf
Var RandomCoffeeCheckIdx = RandomCoffeeCheckIdx + 1
EndFor
DEBUGVAR RandomCoffeeCheckOkIdx
Var RandomTeaCheckIdx = 0
Var RandomTeaCheckOkIdx = 0
For RandomTeaCheckIdx < 7 Loop
Var CurrentPd = RandMystTea[RandomTeaCheckIdx]
Var CurrentState !assigned @AutoVar ${CurrentPd}.Button
If CurrentState = "Enable" Then
Var RandMystTeaEnabled[RandomTeaCheckOkIdx] = CurrentPd
Var RandomTeaCheckOkIdx = RandomTeaCheckOkIdx + 1
EndIf
Var RandomTeaCheckIdx = RandomTeaCheckIdx + 1
EndFor
DEBUGVAR RandomTeaCheckOkIdx
Var RandomMilkCheckIdx = 0
Var RandomMilkCheckOkIdx = 0
For RandomMilkCheckIdx < 7 Loop
Var CurrentPd = RandMystMilk[RandomMilkCheckIdx]
Var CurrentState !assigned @AutoVar ${CurrentPd}.Button
If CurrentState = "Enable" Then
Var RandMystMilkEnabled[RandomMilkCheckOkIdx] = CurrentPd
Var RandomMilkCheckOkIdx = RandomMilkCheckOkIdx + 1
EndIf
Var RandomMilkCheckIdx = RandomMilkCheckIdx + 1
EndFor
DEBUGVAR RandomMilkCheckOkIdx
; TODO: check all state of each menu (Hot, Cold, Blend)
Var RandomOtherCheckIdx = 0
Var RandomOtherCheckOkIdx = 0
Var DisabledOtherPds = ""
For RandomOtherCheckIdx < 12 Loop
Var CurrentPd = RandMystOther[RandomOtherCheckIdx][0]
SPLIT CurrentPd "-" 1 CountryCode
SPLIT CurrentPd "-" 2 DrinkCategory
SPLIT CurrentPd "-" 3 DrinkType
SPLIT CurrentPd "-" 4 DrinkId
Var TypeIdx = 0
SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 1 CurrentType[0]
SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 2 CurrentType[1]
SPLIT RandMystOther[RandomOtherCheckIdx][1] "," 3 CurrentType[2]
Var AtLeastOneEnable = 0
STRCONTAIN "x" CurrentPd HasXInPd
If HasXInPd = "true" Then
; 12-type-0x-id
For TypeIdx < 3 Loop
Var CurrentTypeI = CurrentType[TypeIdx]
If CurrentTypeI = "X" Then
Else
Var DrinkType !assigned @AutoVar "0{CurrentTypeI}"
Var NewCurrentPd !assigned @AutoVar "{CountryCode}-{DrinkCategory}-{DrinkType}-{DrinkId}"
Var CurrentStateByType !assigned @AutoVar ${NewCurrentPd}.Button
If CurrentStateByType = "Enable" Then
Var AtLeastOneEnable = AtLeastOneEnable + 1
EndIf
;
EndIf
Var TypeIdx = TypeIdx + 1
EndFor
If AtLeastOneEnable >= 1 Then
Var RandMystOtherEnabled[RandomOtherCheckOkIdx] = RandomOtherCheckIdx
Var RandomOtherCheckOkIdx = RandomOtherCheckOkIdx + 1
Else
Var DisabledOtherPds = DisabledOtherPds + NewCurrentPd
Var DisabledOtherPds = DisabledOtherPds + ","
EndIf
Else
; single-state-menu
Var CurrentState !assigned @AutoVar ${CurrentPd}.Button
If CurrentState = "Enable" Then
Var RandMystOtherEnabled[RandomOtherCheckOkIdx] = RandomOtherCheckIdx
Var RandomOtherCheckOkIdx = RandomOtherCheckOkIdx + 1
Else
Var DisabledOtherPds = DisabledOtherPds + NewCurrentPd
Var DisabledOtherPds = DisabledOtherPds + ","
EndIf
EndIf
Var RandomOtherCheckIdx = RandomOtherCheckIdx + 1
EndFor
DEBUGVAR RandomOtherCheckOkIdx
DEBUGVAR DisabledOtherPds
; disable-random-by-status
If RandomMilkCheckOkIdx = 0 Then
Var SubRandMilkButtonEnable = "Disable"
SAVELOG "Disable Random Milk"
Else
Var SubRandMilkButtonEnable = "Enable"
EndIf
If RandomTeaCheckOkIdx = 0 Then
Var SubRandTeaButtonEnable = "Disable"
SAVELOG "Disable Random Tea"
Else
Var SubRandTeaButtonEnable = "Enable"
EndIf
If RandomCoffeeCheckOkIdx = 0 Then
Var SubRandCoffButtonEnable = "Disable"
SAVELOG "Disable Random Coffee"
Else
Var SubRandCoffButtonEnable = "Enable"
EndIf

3543
inter/mys/xml/event/mystery_cup/myst_slot_4.lxml Normal file
View file

File diff suppressed because it is too large Load diff

72
inter/mys/xml/event/mystery_cup/random.ev Normal file
View file

@ -0,0 +1,72 @@
; BigBigbutton
Var OreoGuarantee = 0
; load-from-persist
CacheVarStr "get" OreoGuarantee
INT OreoGuarantee
If OreoGuarantee = "" Then
Var OreoGuarantee = 0
EndIf
Var ResultRandomIndexCofee = 0
Var ResultRandomIndexTea = 0
Var ResultRandomIndexMilk = 0
Var ResultRandomIndexOtherTemp = 0
Var RandomCoffeeCheckOkLength = RandomCoffeeCheckOkIdx - 1
Var RandomTeaCheckOkLength = RandomTeaCheckOkIdx - 1
Var RandomMilkCheckOkLength = RandomMilkCheckOkIdx - 1
Var RandomOtherCheckOkLength = RandomOtherCheckOkIdx - 1
Random2 0 RandomCoffeeCheckOkLength ResultRandomIndexCofee
Random2 0 RandomTeaCheckOkLength ResultRandomIndexTea
Random2 0 RandomMilkCheckOkLength ResultRandomIndexMilk
Random2 0 RandomOtherCheckOkLength ResultRandomIndexOtherTemp
Var OreoGuarantee = OreoGuarantee + 1
If OreoGuarantee = 10 Then
; reset
Var OreoGuarantee = 0
Var ResultRandomIndexTea = 0
Var ResultRandomIndexMilk = 0
SAVELOG "Woosh! Secret Rare (Rateup!)"
Else
If ResultRandomIndexTea = 0 Then
Var OreoGuarantee = 0
SAVELOG "Holy Moly! Tearala Oreore poom pow!"
EndIf
If ResultRandomIndexMilk = 0 Then
Var OreoGuarantee = 0
SAVELOG "Holy Jeez! Miluku Oreore poom pow pow!"
EndIf
EndIf
CacheVarStr "put" OreoGuarantee
DEBUGVAR ResultRandomIndexCofee
DEBUGVAR ResultRandomIndexTea
DEBUGVAR ResultRandomIndexMilk
DEBUGVAR ResultRandomIndexOtherTemp
Var ProductCodeRandomCoffee = RandMystCoffeeEnabled[ResultRandomIndexCofee]
Var ProductCodeRandomTea = RandMystTeaEnabled[ResultRandomIndexTea]
Var ProductCodeRandomMilk = RandMystMilkEnabled[ResultRandomIndexMilk]
Var ResultRandomIndexOther = RandMystOtherEnabled[ResultRandomIndexOtherTemp]
; ProductCodeRandom -> ProductCodeRandomCoffee
DEBUGVAR ProductCodeRandomCoffee
DEBUGVAR ProductCodeRandomTea
DEBUGVAR ProductCodeRandomMilk
DEBUGVAR ResultRandomIndexOther

118
inter/mys/xml/event/mystery_cup/random_list.ev Normal file
View file

@ -0,0 +1,118 @@
DEBUGVAR "Random Pool Setup"
Var PriceProMystRandom = 0
Var RandMystCoffeePrice = 550
; Thai Espresso Smoothie
Var RandMystCoffee[0] = "12-31-03-0001"
; Peach Cafe Latte Smoothie
Var RandMystCoffee[1] = "12-21-03-0060"
; Cafe Latte Smoothie
Var RandMystCoffee[2] = "12-21-03-0002"
; Mint Cafe Latte Smoothie
Var RandMystCoffee[3] = "12-21-03-0057"
; Taiwanese Tea Cafe Latte Smoothie
Var RandMystCoffee[4] = "12-21-03-0030"
Var RandMystTeaPrice = 450
; JASMINE MILK TEA\nOREO SMOOTHIE ----- Secret Rare
Var RandMystTea[0] = "12-02-03-0048"
; Thai Milk Tea Smoothie
Var RandMystTea[1] = "12-02-02-0039"
; Taiwanese Milk Tea Smoothie
Var RandMystTea[2] = "12-02-03-0025"
; Matcha Latte Smootie
Var RandMystTea[3] = "12-02-03-0026"
; Coconut Thai Milk Tea Smoothie
Var RandMystTea[4] = "12-02-03-0062"
; Coconut Matcha Latte Smoothie
Var RandMystTea[5] = "12-02-03-0060"
; Coconut Jasmine Milk Tea Smoothie
Var RandMystTea[6] = "12-02-03-0064"
Var RandMystMilkPrice = 350
; Oreo Volcano Smoothie ----- Secret Rare
Var RandMystMilk[0] = "12-03-03-0009"
; Strawberry Mint Milk Smoothie
Var RandMystMilk[1] = "12-03-03-0037"
; Melon Milk Smoothie
Var RandMystMilk[2] = "12-03-03-0022"
; Coconut Milk Smoothie
Var RandMystMilk[3] = "12-03-03-0058"
; Peach Milk Smoothie
Var RandMystMilk[4] = "12-03-03-0038"
; Straw Milk Smoothie
Var RandMystMilk[5] = "12-03-03-0011"
; Mint Milk Smoothie
Var RandMystMilk[6] = "12-03-03-0036"
; Caramel Latte,1-2-3
Var RandMystOther[0][0] = "12-21-0x-0004"
Var RandMystOther[0][1] = "1,2,3"
Var RandMystOther[0][2] = "12-21-03-0004"
; LYCHEECANO,1-2-X
Var RandMystOther[1][0] = "12-21-0x-0017"
Var RandMystOther[1][1] = "1,2,X"
Var RandMystOther[1][2] = "0017"
; Matcha Latte Mint,1-2-3
Var RandMystOther[2][0] = "12-02-0x-0050"
Var RandMystOther[2][1] = "1,2,3"
Var RandMystOther[2][2] = "0050"
; Lime Tea,1-2-3
Var RandMystOther[3][0] = "12-02-0x-0040"
Var RandMystOther[3][1] = "1,2,3"
Var RandMystOther[3][2] = "0040"
; Caramel Cocoa,1-2-3
Var RandMystOther[4][0] = "12-03-0x-0004"
Var RandMystOther[4][1] = "1,2,3"
Var RandMystOther[4][2] = "12-03-03-0004"
; Cocoa Mint,1-2-3
Var RandMystOther[5][0] = "12-03-0x-0035"
Var RandMystOther[5][1] = "1,2,3"
Var RandMystOther[5][2] = "0035"
; Protein Shake
Var RandMystOther[6][0] = "12-04-02-0011"
Var RandMystOther[6][1] = "X,X,X"
Var RandMystOther[6][2] = "12-04-02-0011"
; Espresso Shake
Var RandMystOther[7][0] = "12-24-02-0004"
Var RandMystOther[7][1] = "X,X,X"
Var RandMystOther[7][2] = "12-24-02-0004"
; Matcha (Healthy),1-2-X
Var RandMystOther[8][0] = "12-02-0x-1027"
Var RandMystOther[8][1] = "1,2,X"
Var RandMystOther[8][2] = "1027"
; Black Tea (Healthy),1-2-X
Var RandMystOther[9][0] = "12-02-0x-1039"
Var RandMystOther[9][1] = "1,2,X"
Var RandMystOther[9][2] = "1039"
; Pepsi Black Plum,X-2-3
Var RandMystOther[10][0] = "12-05-0x-0074"
Var RandMystOther[10][1] = "X,2,3"
Var RandMystOther[10][2] = "0074"
; Strawberry Mint Soda
Var RandMystOther[11][0] = "12-05-02-0063"
Var RandMystOther[11][1] = "X,2,3"
Var RandMystOther[11][2] = "0063"
Var RandomVendingCode = "BLND25"

18239
inter/mys/xml/event/promotion_mystery_cup.lxml Normal file
View file

File diff suppressed because it is too large Load diff

11
inter/mys/xml/event/script_common_for_open_promotion_xml.ev
View file

@ -6,14 +6,16 @@
DEBUGVAR ProThaiTeaEnable
DEBUGVAR ProYuzuEnable
DEBUGVAR ProMelonEnable
DEBUGVAR ProMysteryCup
DEBUGVAR IgnoreProfileFromRunEV
If OpenFromPageBoard = 1 Then
; has-ongoing-pro
If ProMelonEnable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_melonzy.lxml"
If ProMysteryCup = 1 Then
Var BigButtonEnable = "Enable"
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_mystery_cup.lxml"
Var OpenFromPageBoard = 0
Else
@ -22,8 +24,9 @@ If OpenFromPageBoard = 1 Then
Else
; has-ongoing-pro
If ProMelonEnable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_melonzy.lxml"
If ProMysteryCup = 1 Then
Var BigButtonEnable = "Enable"
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_mystery_cup.lxml"
Var OpenFromPageBoard = 0
Else

47
inter/mys/xml/event/tricker.ev
View file

@ -8,28 +8,6 @@
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 IgnoreProfileFromRunEV = 0
Var FromProYuzu250 = 0
; Melon Promo
Var ProMelonEnable = 0
Var FromProMelon = 0
; Pro free oreo topping
Var PromotionOreoToppingFreeEnable = 0
@ -37,6 +15,22 @@ Var PromotionOreoToppingFreeEnable = 0
Var SetProReduceByBO = 0
Var ProReducedPriceEnable = 0
Var ProMysteryCup = 0
If SystemDateMonthInt = 6 Then
If SystemDateDayInt >= 17 Then
Var ProMysteryCup = 1
EndIf
EndIf
If SystemDateMonthInt = 7 Then
Var ProMysteryCup = 1
EndIf
If XMLProfile = "PromoReduced" Then
Var SetProReduceByBO = 1
EndIf
@ -76,6 +70,8 @@ If BoxID = 177746 Then
;Var ProReducedPriceEnable = 0
;Var IgnoreProfileFromRunEV = 1
Var ProMysteryCup = 1
EndIf
If ProMelonEnable = 1 Then
@ -98,3 +94,10 @@ EndIf
; Var EnablePayLaterMode = 1
;
;EndIf
If ProMysteryCup = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/xml/event/mystery_cup/random_list.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/xml/event/mystery_cup/check_menu.ev"
DEBUGVAR "Syncing Pool Done!"
EndIf

45
inter/mys/xml/page_brewing3Conti_event.lxml
View file

@ -741,30 +741,75 @@
If StepVideo = 1 Then
Var videoID = VideoID1
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 1
EndIf
EndIf
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 81
EndIf
EndIf
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 82
EndIf
EndIf
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 83
EndIf
EndIf
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 84
EndIf
EndIf
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 81
EndIf
EndIf
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 82
EndIf
EndIf
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 83
EndIf
EndIf
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 84
EndIf
EndIf
EndIf
;SAVELOG videoID

45
inter/mys/xml/page_brewing3_event.lxml
View file

@ -905,30 +905,75 @@
If StepVideo = 1 Then
Var videoID = VideoID1
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 1
EndIf
EndIf
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 81
EndIf
EndIf
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 82
EndIf
EndIf
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 83
EndIf
EndIf
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 84
EndIf
EndIf
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 81
EndIf
EndIf
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 82
EndIf
EndIf
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 83
EndIf
EndIf
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var videoID = 84
EndIf
EndIf
EndIf
;SAVELOG videoID

133
inter/mys/xml/page_topping_select6.lxml
View file

@ -25,6 +25,85 @@
WRITE_FILE "/mnt/sdcard/xml_alert_bug" "double called"
EndIf
; fix set pro random
If FromProMysteryCup = 1 Then
Var PictureDrink = "ROOT/taobin_project/image/event/bn_mystery_cup.png"
Var PriceD1 = $-.Price
Var PriceD2 = $-.Price
Var PriceD3 = PriceProMystRandom
Var PD_CODE1 = "##-##-##-####"
Var PD_CODE2 = "##-##-##-####"
Var PD_CODE3 = ProductCodeRandom
Var aliasName[0] = ""
Var aliasDesc[0] = ""
Var aliasName[1] = ""
Var aliasDesc[1] = ""
Var aliasName[2] = ""
Var aliasDesc[2] = ""
Var aliasName[3] = ""
Var aliasDesc[3] = ""
Var aliasName[4] = ""
Var aliasDesc[4] = ""
Var aliasName[5] = ""
Var aliasDesc[5] = ""
Var NameLang[0][0] = ""
Var NameLang[0][1] = ""
Var NameLang[0][2] = ""
Var NameLang[0][3] = ""
Var NameLang[0][4] = ""
Var NameLang[0][5] = ""
Var DescLang[0][0] = ""
Var DescLang[0][1] = ""
Var DescLang[0][2] = ""
Var DescLang[0][3] = ""
Var DescLang[0][4] = ""
Var DescLang[0][5] = ""
Var NameLang[1][0] = ""
Var NameLang[1][1] = ""
Var NameLang[1][2] = ""
Var NameLang[1][3] = ""
Var NameLang[1][4] = ""
Var NameLang[1][5] = ""
Var DescLang[1][0] = ""
Var DescLang[1][1] = ""
Var DescLang[1][2] = ""
Var DescLang[1][3] = ""
Var DescLang[1][4] = ""
Var DescLang[1][5] = ""
Var NameLang[2][0] = ""
Var NameLang[2][1] = ""
Var NameLang[2][2] = ""
Var NameLang[2][3] = ""
Var NameLang[2][4] = ""
Var NameLang[2][5] = ""
Var DescLang[2][0] = ""
Var DescLang[2][1] = ""
Var DescLang[2][2] = ""
Var DescLang[2][3] = ""
Var DescLang[2][4] = ""
Var DescLang[2][5] = ""
Var SelectCountDrinkType = 1
Var DefaultDrinkType = 3
Var SelectDrinkType = 0
EndIf
WEB "DISABLE"
DEBUGVAR Seeker
@ -224,6 +303,9 @@
Var PriceDrinkTmpShow = "---"
Var show_select_type = "Enable"
If FromProMysteryCup = 1 Then
Var show_select_type = "Invisible"
EndIf
Var hot_button_state = PD_STAGE_1
Var cold_button_state = PD_STAGE_2
@ -324,6 +406,11 @@
Var showname = aliasName[LanguageShowByIndex]
Var showdesc = aliasName[LanguageShowByIndex]
If FromProMysteryCup = 1 Then
Var showname = ""
Var showdesc = ""
EndIf
BackslashNToEnter showname
BackslashNToEnter showdesc
@ -660,6 +747,12 @@
EndIf
If FromProMysteryCup = 1 Then
Var showname = ""
Var showdesc = ""
EndIf
BackslashNToEnter showname
BackslashNToEnter showdesc
CRLFToSpace showname
@ -684,11 +777,13 @@
DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu
DEBUGVAR FromProMelon
DEBUGVAR FromProMysteryCup
Var FromFruityRaya = 0
Var FromProThaiTea = 0
Var FromProYuzu = 0
Var FromProMelon = 0
Var FromProMysteryCup = 0
;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML
@ -1350,6 +1445,13 @@
Else
EndIf
If FromProMysteryCup = 1 Then
EndIf
; End of UserSeletedSugar = 0
Refresh
@ -1555,6 +1657,25 @@
Function 2
EndIf
If FromProMysteryCup = 1 Then
Var BGSugar = "Invisible"
Var BGSugarNew = "Invisible"
Var ShotCoffeeBG = "Invisible"
Var ExtraTopping = "Invisible"
Var showShotEnable = "Invisible"
Var ShotCoffeePremium = "Invisible"
Var showOreoAddEnable = "Invisible"
Var BGSugarHotHealthy = "Invisible"
Var BGSugarColdHealthy = "Invisible"
Var AddShotEnable = "Invisible"
Refresh
EndIf
DEBUGVAR BGSugarNew
</EventMachine>
@ -3589,11 +3710,13 @@
DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu
DEBUGVAR FromProMelon
DEBUGVAR FromProMysteryCup
Var FromFruityRaya = 0
Var FromProThaiTea = 0
Var FromProYuzu = 0
Var FromProMelon = 0
Var FromProMysteryCup = 0
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
@ -4219,6 +4342,11 @@
DEBUGVAR PriceDrinkTmpShow
Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE
If FromProMysteryCup = 1 Then
Var PriceDrinkTmp = PriceProMystRandom
EndIf
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
If SelectDrinkType = 0 Then
@ -4244,6 +4372,11 @@
Var Timeout = 0
If FromProMysteryCup = 1 Then
Var UserSelectProductCode = ProductCodeRandom
EndIf
RefreshAll
</Function2>

9
inter/mys/xml/process/discount_from_promotion.ev
View file

@ -47,4 +47,13 @@ If FromProMelon = 1 Then
EndIf
If FromProMysteryCup = 1 Then
Var Seeker.VendingCode = RandomVendingCode
Var Seeker.FromProMysteryCup = "true"
Else
Var Seeker.FromProMysteryCup = "false"
EndIf
DEBUGVAR Seeker.VendingCode