MatchineSpiralStage

This commit is contained in:
wanlop run 2025-05-06 16:15:41 +07:00
parent 9168432c3f
commit 20bc548bdf
2 changed files with 130 additions and 112 deletions

View file

@ -6,20 +6,20 @@
<Volume> SoundVolume </Volume>
<EventOpen>
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Machine WakeUp
Var BugFlag = 0
CRLFToSpace showname
CRLFToSpace showdesc
;- Begin
Var PriceDrinkNoTop = PriceDrink
Var PriceDrinkTmp = PriceDrink
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
Var Timeout = 0
;SAVELOG PriceDrinkTmp
;- End
@ -41,19 +41,19 @@
DEBUGVAR backGroundAddExtra
DEBUGVAR backGroundAddShotPremium
DEBUGVAR MultiPayEnable
DEBUGVAR CART_COUNT
Var btnAddCart = "Invisible"
If MultiPayEnable = "true" Then
If MultiPayEnable = "true" Then
Var btnAddCart = "Enable"
If CART_COUNT = 3 Then
Var btnAddCart = "Invisible"
Var btnAddCart = "Invisible"
EndIf
EndIf
Var LidDeactiveButton = "Invisible"
Var StrawDeactiveButton = "Invisible"
Var LidDeactiveButton = "Invisible"
Var StrawDeactiveButton = "Invisible"
Machine DoorClose
Machine DoorLidClose
@ -63,7 +63,7 @@
Var NEW_MULTI = "Invisible"
Var high_light_drink_type = "Invisible"
Var text_hot_color = "0x84776F"
Var text_cold_color = "0x84776F"
Var text_blender_color = "0x84776F"
@ -104,20 +104,20 @@
If hot_button_state = "Disable2" Then
Var text_price_d1 = ""
Else
Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow)
Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow)
EndIf
If cold_button_state = "Disable2" Then
Var text_price_d2 = ""
Else
Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow)
Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow)
EndIf
If blend_button_state = "Disable2" Then
Var text_price_d3 = ""
Else
Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow)
Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow)
EndIf
DEBUGVAR LanguageShowByIndex
@ -136,25 +136,25 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 40 Then
Var Timeout = 0
If Seeker = "next" Then
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
If MultiPayEnable = "true" Then
If MultiPayEnable = "true" Then
If NEW_MULTI = "Invisible" Then
Var NEW_MULTI = "Enable"
Else
@ -164,15 +164,17 @@
If Seeker = "curr" Then
If DoorCupPosition = "bottom" Then
; It normal
; It normal
Var EmergencyStop = "false"
Else
Var EmergencyStop = "true"
EndIf
EndIf
DEBUGVAR MatchineSpiralStage
If MatchineSpiralStage = "spiral-valid" Then
Function 2
Else
@ -183,12 +185,12 @@
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
@ -267,7 +269,7 @@
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
;
</EventClick>
</LangSwitch>
@ -276,17 +278,17 @@
DEBUGVAR LanguageShowByIndex
DEBUGVAR LanguageShow
If SelectDrinkType = 1 Then
Var showname = NameLang[IndexDrinktType][LanguageShowByIndex]
Var showdesc = DescLang[IndexDrinktType][LanguageShowByIndex]
Else
Var showname = aliasName[LanguageShowByIndex]
Var showdesc = aliasName[LanguageShowByIndex]
EndIf
BackslashNToEnter showname
BackslashNToEnter showdesc
CRLFToSpace showname
@ -304,16 +306,16 @@
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
Open OpenFromXML
</EventClick>
</Button>
@ -325,12 +327,12 @@
DEBUGVAR LinkProductCodeAnotherMachine[0]
DEBUGVAR LinkProductCodeAnotherMachine[1]
DEBUGVAR LinkProductCodeAnotherMachine[2]
Var MatchinePrialStage = "-"
GenHashWithTimeStamp SpiralRef
SPIRAL_VERIFY LinkProductCodeAnotherMachine[0] SpiralRef
EndIf
@ -350,14 +352,14 @@
<Image>
<X> 374 </X>
<Y> 399 </Y>
<State> eval(
<State> eval(
If IsSmoRet = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
)
</State>
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>
@ -368,7 +370,7 @@
<Y> 602 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<MaxSize> showname_max_size </MaxSize>
<MaxSize> showname_max_size </MaxSize>
<Size> Auto </Size>
<MaxLine> 2 </MaxLine>
<Font> KanitMediumTTF </Font>
@ -421,8 +423,8 @@
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
@ -443,7 +445,7 @@
<FilenamePress> Var( DirImage + "/bp_add.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
@ -458,25 +460,25 @@
If StrawState = "Press" Then
Machine StrawOrder
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Machine LidOrder
Var LedLidBlink = "true"
EndIf
Var StrawState = "Enable"
Var LidState = "Enable"
;
;
Var SelectDrink = UserSelectProductCode
; Set drink
; Set drink
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
@ -497,7 +499,7 @@
EndIf
EndIf
EndIf
Var CartUpdate = "true"
</EventClick>
</Button>
@ -509,7 +511,7 @@
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/new_multi.png" ) </Filename>
<EventClick>
<EventClick>
</EventClick>
</Button>
@ -522,17 +524,17 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
;Var Seeker = "curr"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
@ -626,38 +628,38 @@
If StrawState = "Press" Then
Machine StrawOrder
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Machine LidOrder
Var LedLidBlink = "true"
Var bg_lidProblem_ST = "Enable"
Var bg_lidProblem_ST = "Enable"
Else
Var bg_lidProblem_ST = "Invisible"
EndIf
If SelectDrinkType = 0 Then
Else
Var StrawState = "Enable"
Var LidState = "Enable"
EndIf
;
;
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
@ -671,7 +673,7 @@
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
@ -689,7 +691,7 @@
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
@ -707,7 +709,7 @@
EndIf
GetLongTimeInMinute LastTimeClickOrder
If CART_COUNT = 0 Then
@ -725,7 +727,7 @@
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
@ -800,7 +802,7 @@
Var img_cold_dis = "/bt_cold_disable.png"
Var img_cold_dis2 = "/bt_cold_disable2.png"
EndIf
If img_smth_no_flag = 1 Then
SAVELOG "Smoothies change img. 1"
Var img_smth = "/bt_smoothie_no.png"
@ -835,12 +837,12 @@
DEBUGVAR menu_name_thai_cold
SAVELOG "FUNCTION2"
Var TOPPING_PRICE = 0
Var SelectDrinkType = 0
; Set default
If SelectCountDrinkType = 1 Then
If DefaultDrinkType = 1 Then
@ -861,7 +863,7 @@
Var normal_button_state = "PressForever"
Var SelectDrinkType = 1
EndIf
Var IndexDrinktType = 1
EndIf
If DefaultDrinkType = 3 Then
@ -892,7 +894,7 @@
Machine PreparCup
EndIf
If cold_button_state = "PressForever" Then
Var PriceDrinkNoTop = PriceD2
Var UserSelectProductCode = PD_CODE2
@ -913,7 +915,7 @@
Machine PreparCup
EndIf
If blend_button_state = "PressForever" Then
Var PriceDrinkNoTop = PriceD3
Var UserSelectProductCode = PD_CODE3
@ -941,7 +943,7 @@
BackslashNToEnter showdesc
CRLFToSpace showname
CRLFToSpace showdesc
DEBUGVAR PriceDrinkNoTop
DEBUGVAR PriceDiff
@ -957,18 +959,18 @@
Var TOPPING_PRICE = 0
Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
Var showText7 = "Enable"
SAVELOG "Select premi normal shot"
Else
If showShotEnable = "Press" Then
If showShotEnable = "Press" Then
If blendedState = "Press" Then
Var PriceDrinkTmp = PriceDrinkNoTop
EndIf
@ -979,11 +981,11 @@
;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2
Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
Var showText7 = "Enable"
SAVELOG "Select add normal shot"
@ -991,7 +993,7 @@
If blendedState = "Disable" Then
Var blendedState = "Enable"
EndIf
Var PriceDrinkTmp = PriceDrinkNoTop
Var topping2 = toppingID2index1
@ -1019,9 +1021,9 @@
Var topping6 = toppingID6index1
Var DisableUsingCode = "false"
EndIf
DEBUGVAR OatMilkEnable
DEBUGVAR MenuCodeName1
DEBUGVAR MenuCodeName1_State
@ -1034,7 +1036,7 @@
EndIf
EndIf
EndIf
DEBUGVAR SelectDrinkType
@ -1052,7 +1054,7 @@
SAVELOG PriceDrinkTmp
If RoadShow = "true" Then
Var PriceDrinkTmpShow = "Free"
DEBUGVAR SelectDrink2
@ -1066,7 +1068,7 @@
Var Timeout = 0
RefreshAll
</Function2>
@ -1075,7 +1077,7 @@
;
<EventUnitTest1>
OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
</EventUnitTest1>
</Page>