taobin_project/xml/page_topping_select4.xml
2022-06-06 13:07:38 +07:00

2792 lines
56 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Var UserSeletedSugar = 0
Var y_topping_bg = 912
WEB "DISABLE"
DEBUGVAR Seeker
DEBUGVAR video_menu_0
DEBUGVAR SelectDrink
DEBUGVAR PictureDrink
If new_layout = "true" Then
Else
If SelectDrinkLen = 0 Then
SAVELOG "SelectDrinkLen=0"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
If PriceDrink = 0 Then
SAVELOG "PriceDrink=0"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
Var SaveProductCodeSelect = SelectDrink
Var UserSelectProductCode = SelectDrink
Var showText4 = "Invisible"
Var showText7 = "Invisible"
DEBUGVAR UserSelectProductCode
Var blendedState = "Enable"
Var DisableUsingCode = "false"
Var ShowLidStraw = "Invisible"
Var ShowLidOnly = "Invisible"
Var ShowCollagenOnly = "Invisible"
Var blendedStateShow = "Invisible"
Var ShotCoffeeBG = "Invisible"
Var showShotEnable = "Invisible"
Var ShowLidStraw = "Invisible"
Var ShowStrawOnly = "Invisible"
Var ShowLidOnly = "Invisible"
; On open
Var lidAndStrawOldPageIgnore = "true"
Var SugarState1 = "Invisible"
Var SugarState2 = "Invisible"
Var SugarState3 = "Invisible"
Var SugarState4 = "Invisible"
Var SugarState5 = "Invisible"
Var AddShotEnable = "Invisible"
Var BGSugar = "Invisible"
Var ShotCoffeeBG = "Invisible"
Var showShotEnable = "Enable"
Var ShotCoffeePremium = "Invisible"
; On open
Var LidState = Lid1Status
;SAVELOG PreviseXMLFileName2
Var topping1 = "1"
Var topping2 = "31"
Var topping3 = "31"
Var BugFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/topping2_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var showname = NameDrink
Var showdesc = DrinkDescription
Var text_show_thai = "Invisible"
Var text_show_eng = "Enable"
Var topping_shot_price_x = 630
Else
Var DirImage = "ROOT/taobin_project/image/topping2"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var showname = NameDrinkTH
Var showdesc = DrinkDescriptionTH
Var text_show_thai = "Enable"
Var text_show_eng = "Invisible"
Var topping_shot_price_x = 600
EndIf
Var bg_strawlid = DirImage + "/bg_strawlid.png"
Var bg_straw_only = DirImage + "/bg_straw_only.png"
Var bg_lid_only = DirImage + "/bg_lid_only.png"
Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png"
Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png"
Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png"
Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png"
;Var blendedState = "Enable"
;Var ShotCoffeeBG = "Enable"
;Var showShotEnable = "Enable"
;Var ShowLidStraw = "Enable"
;Var ShowStrawOnly = "Enable"
;Var ShowLidOnly = "Enable"
Var ShiftSugarStep = 1
CRLFToSpace showname
CRLFToSpace showdesc
;- Begin
Var PriceDrinkNoTop = PriceDrink
Var PriceDrinkTmp = PriceDrink
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
Var Timeout = 0
;SAVELOG PriceDrinkTmp
;- End
If RoadShow = "true" Then
Var PriceDrinkTmp = "Free"
EndIf
If ShowPrice = "Invisible" Then
Var PriceDrinkTmpShow = "Free"
EndIf
Var StateImgKeto = "Invisible"
Var ToppingGotoPayment = "true"
DEBUGVAR backGroundAddExtra
DEBUGVAR backGroundAddShotPremium
DEBUGVAR MultiPayEnable
DEBUGVAR CART_COUNT
Var btnAddCart = "Invisible"
If MultiPayEnable = "true" Then
Var btnAddCart = "Enable"
If CART_COUNT = 3 Then
Var btnAddCart = "Invisible"
EndIf
EndIf
Var LidDeactiveButton = "Invisible"
Var StrawDeactiveButton = "Invisible"
Machine DoorClose
Machine DoorLidClose
Var ButtonNext = "false"
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"
If new_layout = "true" Then
Var PriceDrinkTmpShow = "---"
Var show_select_type = "Enable"
Var hot_button_state = PD_STAGE_1
Var cold_button_state = PD_STAGE_2
Var blend_button_state = PD_STAGE_3
; Protect have product-code but menu disable or invalid.
If hot_button_state = "Invisible" Then
Var hot_button_state = "Disable2"
EndIf
If cold_button_state = "Invisible" Then
Var cold_button_state = "Disable2"
EndIf
If blend_button_state = "Invisible" Then
Var blend_button_state = "Disable2"
EndIf
Function 2
Else
Var show_select_type = "Invisible"
; assume auto select
Var SelectDrinkType = 1
EndIf
DEBUGVAR show_select_type
DEBUGVAR PriceD1
DEBUGVAR PriceD2
DEBUGVAR PriceD3
If hot_button_state = "Disable2" Then
Var text_price_d1 = ""
Else
Var text_price_d1 = "(฿" + PriceD1
Var text_price_d1 = text_price_d1 + ")"
EndIf
If cold_button_state = "Disable2" Then
Var text_price_d2 = ""
Else
Var text_price_d2 = "(฿" + PriceD2
Var text_price_d2 = text_price_d2 + ")"
EndIf
If blend_button_state = "Disable2" Then
Var text_price_d3 = ""
Else
Var text_price_d3 = "(฿" + PriceD3
Var text_price_d3 = text_price_d3 + ")"
EndIf
DEBUGVAR PD_CODE1
DEBUGVAR PD_CODE2
DEBUGVAR PD_CODE3
DEBUGVAR PD_STAGE_1
DEBUGVAR PD_STAGE_2
DEBUGVAR PD_STAGE_3
Var img_cold = "/bt_cold_no.png"
Var img_cold_sel = "/bt_cold_selected_no.png"
Var img_cold_dis = "/bt_cold_disable_no.png"
Var img_cold_dis2 = "/bt_cold_disable2_no.png"
Var img_smth = "/bt_smoothie_no.png"
Var img_smth_sel = "/bt_smoothie_selected_no.png"
Var img_smth_dis = "/bt_smoothie_disable_no.png"
Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"
Var topping_price_refresh = 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 40 Then
Var Timeout = 0
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.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"
EndIf
EndIf
If MultiPayEnable = "true" Then
If NEW_MULTI = "Invisible" Then
Var NEW_MULTI = "Enable"
Else
Var NEW_MULTI = "Invisible"
EndIf
EndIf
If Seeker = "curr" Then
If DoorCupPosition = "bottom" Then
; It normal
Var EmergencyStop = "false"
Else
Var EmergencyStop = "true"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>
<Button>
<X> 990 </X>
<Y> 438 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
SAVELOG "Lang change!"
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/topping2_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var showname = NameDrink
Var showdesc = DrinkDescription
Var text_show_thai = "Invisible"
Var text_show_eng = "Enable"
Var topping_shot_price_x = 630
Else
Var DirImage = "ROOT/taobin_project/image/topping2"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var showname = NameDrinkTH
Var showdesc = DrinkDescriptionTH
Var text_show_thai = "Enable"
Var text_show_eng = "Invisible"
Var topping_shot_price_x = 600
EndIf
Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png"
Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png"
Var bg_strawlid = DirImage + "/bg_strawlid.png"
Var bg_straw_only = DirImage + "/bg_straw_only.png"
Var bg_lid_only = DirImage + "/bg_lid_only.png"
Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png"
Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png"
Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png"
Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png"
CRLFToSpace showname
CRLFToSpace showdesc
If SelectDrinkType = 1 Then
If show_eng = "true" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3"
Else
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
EndIf
EndIf
If new_layout = "true" Then
Function 2
EndIf
RefreshAll
</EventClick>
</Button>
;<Video>
;<X> 0 </X>
;<Y> 0 </Y>
;<Width> 1080</Width>
;<Height> 380 </Height>
;<Loop> "true" </Loop>
;<Filename> video_menu_0 </Filename>
;
;</Video>
; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open OpenFromXML
</EventClick>
</Button>
<EventMachine>
DEBUGVAR MAT_ID_9701
DEBUGVAR MAT_ID_9601
DEBUGVAR SubMenuProductCode1
DEBUGVAR SubMenuName11
DEBUGVAR SubMenuPrice1
DEBUGVAR SubMenuProductCode2
DEBUGVAR SubMenuName12
DEBUGVAR TOPPING1
DEBUGVAR TOPPING1_EXT_2
DEBUGVAR TOPPING2
DEBUGVAR TOPPING3
DEBUGVAR TOPPING4
DEBUGVAR toppingID1index1
DEBUGVAR toppingID1index2
DEBUGVAR toppingID1index3
DEBUGVAR toppingID1index4
DEBUGVAR toppingID1index5
DEBUGVAR toppingID1index6
DEBUGVAR toppingID1index7
DEBUGVAR toppingID1index8
DEBUGVAR toppingID1index9
DEBUGVAR toppingID2index1
DEBUGVAR toppingID2index2
DEBUGVAR toppingID2index3
DEBUGVAR toppingID2index4
DEBUGVAR toppingID2index5
If toppingID1index5 > 0 Then
SAVELOG "toppingID1index5 not set"
EndIf
DEBUGVAR MenuCodeName
DEBUGVAR toppingID1Default
DEBUGVAR toppingID2Default
DEBUGVAR toppingID3Default
DEBUGVAR toppingID2price2
DEBUGVAR toppingID3price2
DEBUGVAR BrewParam
DEBUGVAR UserSeletedSugar
If BugFlag = 1 Then
Else
STRCONTAIN "9701" BrewParam IgnoreLidStraw
DEBUGVAR BrewParam
DEBUGVAR IgnoreLidStraw
Var h_block_of_sugar = 210
;STRCONTAIN "Smoothie" SubMenuName11 HaveSmoothie
STRCONTAIN "Smoothie" MenuCodeName HaveSmoothie
If show_select_type = "Invisible" Then
If HaveSmoothie = "true" Then
Var blendedState = "Enable"
Var blendedStateShow = "Enable"
Var PriceDiff = SubMenuPrice1 - PriceDrinkNoTop
DEBUGVAR IsSmoRet
If IsSmoRet = "true" Then
Var blendedState = "ForceSet"
Var blendedStateTxt = "Enable"
Topping "LoadSubMenu" SubMenuProductCode1
Function 1
Else
Var blendedStateTxt = "Invisible"
EndIf
EndIf
Else
Var blendedStateShow = "Invisible"
EndIf
If IgnoreLidStraw = "true" Then
Var IgnoreLidStraw = "false"
Var ShowLidStraw = "Invisible"
Var ShowLidOnly = "Invisible"
Var ShowStrawOnly = "Invisible"
Else
Var ShowLidStraw = "Enable"
If MAT_ID_9701 = "Enable" Then
Var StrawState = MAT_ID_9701
Else
Var StrawState = MAT_ID_9701
EndIf
If MAT_ID_9601 = "Enable" Then
Var LidState = MAT_ID_9601
Else
Var LidState = MAT_ID_9601
EndIf
EndIf
; Override all
If Service_LidStraw = "Disable" Then
Var ShowLidStraw = "Enable"
;Var ShowLidOnly = "Invisible"
;Var ShowStawOnly = "Invisible"
Var StrawState = "Disable"
Var LidState = "Disable"
EndIf
If StrawState = "Enable" Then
Var StrawDeactiveButton = "Invisible"
Else
Var StrawDeactiveButton = "Enable"
EndIf
If LidState = "Enable" Then
Var LidDeactiveButton = "Invisible"
Else
Var LidDeactiveButton = "Enable"
EndIf
If UserSeletedSugar = 0 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var sugar_default_flag = 0
If TOPPING1 = "Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
Var BGSugar = "Invisible"
Else
Var BGSugar = "Enable"
Endif
Var ShiftSugarStep = 1
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar" Then
If sugarKeto = "true" Then
Var StateImgKeto = "Enable"
Var BGSugar = "Enable"
Var h_block_of_sugar = 262
Else
Var BGSugar = "Enable"
EndIf
;Var BGSugar = "Enable"
Var ShiftSugarStep = 1
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState1 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index5 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState1 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Sugar Premix 25" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 2
Var SugarState1 = "Disable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar Premix 50" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 3
Var SugarState1 = "Disable"
Var SugarState2 = "Disable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState3 = "PressForever"
EndIf
EndIf
If TOPPING1 = "Powder Sugar Premix 25" Then
Var BGSugar = "Enable"
Var ShiftSugarStep = 2
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
If toppingID1index1 = toppingID1Default Then
Var SugarState2 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index2 = toppingID1Default Then
Var SugarState3 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index3 = toppingID1Default Then
Var SugarState4 = "PressForever"
Var sugar_default_flag = 1
EndIf
If toppingID1index4 = toppingID1Default Then
Var SugarState5 = "PressForever"
Var sugar_default_flag = 1
EndIf
If sugar_default_flag = 0 Then
Var SugarState2 = "PressForever"
EndIf
EndIf
Var ShowCollagenOnly = "Enable"
Var BugFlag = 1
Var topping1 = toppingID1Default
Var ToppingGotoPayment = "false"
If BGSugar = "Enable" Then
If SelectDrinkType = 1 Then
If show_eng = "true" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3"
Else
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
EndIf
EndIf
EndIf
If SelectDrinkType = 0 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
EndIf
Else
EndIf
; End of UserSeletedSugar = 0
Refresh
Var collagenShow = "true"
;-BEGIN shot layout
If topping_price_refresh = 1 Then
Var topping_price_refresh = 0
Var topping3 = toppingID3Default
Var shot_h_layout = 218
If TOPPING2 = "shot coffee" Then
Var ShotCoffeeBG = "Enable"
Var showShotEnable = "Enable"
Refresh
EndIf
If TOPPING2 = "shot coffee termtem" Then
Var ShotCoffeeBG = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "shot coffee 1003" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "shot coffee 1007" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "shot coffee 1008" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1009" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1101" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1102" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1103" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1104" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
If TOPPING2 = "add-show-1105" Then
Var ShotCoffeePremium = "Enable"
Var showShotEnable = "Enable"
Var text_price_topping = "(+฿" + toppingID2price2
DEBUGVAR TOPPING2
Refresh
EndIf
Var text_price_topping = text_price_topping + ")"
;-END
If TOPPING3 = "Collagen" Then
Var CollagenState = "Enable"
Else
Var CollagenState = "Invisible"
Var ShowCollagenOnly = "Invisible"
EndIf
EndIf
;topping_price_refresh = 0
SAVELOG ToppingGotoPayment
If ToppingGotoPayment = "true" Then
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendDataCurr
Var Seeker.ExtendDataCurr = ExtendDataCurr
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
If RoadShow = "true" Then
Var PriceShowValue = "Free"
EndIf
SAVELOG toppingID2price1
SAVELOG toppingID2price2
SAVELOG toppingID2price3
EndIf
</EventMachine>
<EventCart>
;Var BugFlag = 1
If CartUpdate = "true" Then
Var CartUpdate = "-"
If CART_COUNT = 3 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
Else
If ButtonNext = "true" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
Else
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
EndIf
</EventCart>
; same
<Image>
<X> 374 </X>
<Y> 382 </Y>
<Width> 331 </Width>
<Height> 436 </Height>
<Filename> PictureDrink </Filename>
</Image>
<Image>
<X> 374 </X>
<Y> 399 </Y>
<State> eval(
If IsSmoRet = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>
; same
<Text>
<X> 0 </X>
<Y> 752 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>
; same
<Text>
<X> 0 </X>
<Y> 836 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>
;<Text>
;<X> 0 </X>
;<Y> 880 </Y>
;<State> BGSugar </State>
;<Width> 1080</Width>
;<Align> Center </Align>
;<Size> 18 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xEE8C62 </Color>
;<Value> "*ห้ามดื่มเกินวันละ 2 แก้ว เพราะหัวใจสั่น นอนไม่หลับ เด็กและสตรีมีครรภ์ไม่ควรดื่ม ผู้ป่วยควรปรึกษาแพทย์ก่อน" </Value>
;</Text>
;
;
;
;
;
;
;
;
;
;
;
;
;- FRAME SCORELLL
<FrameScroll>
<X> 52 </X>
<Y> 881 </Y>
<Width> 1080 </Width>
<ScrollHeight> "auto-all" </ScrollHeight>
<Scroll> "Vertical" </Scroll>
<Column> 1 </Column>
<Block>
; show_select_type
<Width> 988 </Width>
<Height> 162 </Height>
<MarginTop> 20 </MarginTop>
<State> show_select_type </State>
<Image>
<Filename> Var( DirImage + "/drink_select_type.png" )</Filename>
</Image>
<Button>
<X> 456 </X>
<Y> 72 </Y>
<State> hot_button_state </Stage>
<Mode> "No" </Mode>
<Filename> Var( DirImage + "/bt_hot.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bt_hot_selected.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bt_hot_disable.png" ) </FilenameDisable>
<FilenameDisable2> Var( DirImage + "/bt_hot_disable2.png" ) </FilenameDisable2>
<FilenameForce> Var( DirImage + "/bt_hot_selected.png" ) </FilenameForce>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press hot"
Var hot_button_state = "PressForever"
If cold_button_state = "Disable" Then
Else
If cold_button_state = "Diable2" Then
Else
Var cold_button_state = "Enable"
EndIf
EndIf
If blend_button_state = "Disable" Then
Else
If blend_button_state = "Disable2" Then
Else
Var blend_button_state = "Enable"
EndIf
EndIf
DEBUGVAR cold_button_state
DEBUGVAR blend_button_state
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE1
Var high_light_drink_type = "Invisible"
Function 2
Refresh
</EventClick>
</Button>
<Button>
<X> 614 </X>
<Y> 72 </Y>
<State> cold_button_state </Stage>
<Mode> "No" </Mode>
<Filename> Var( DirImage + img_cold ) </Filename>
<FilenamePress> Var( DirImage + img_cold_sel ) </FilenamePress>
<FilenameDisable> Var( DirImage + img_cold_dis ) </FilenameDisable>
<FilenameDisable2> Var( DirImage + img_cold_dis2 ) </FilenameDisable2>
<FilenameForce> Var( DirImage + img_cold_sel ) </FilenameForce>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press cold"
Var cold_button_state = "PressForever"
If hot_button_state = "Disable" Then
Else
If hot_button_state = "Disable2" Then
Else
Var hot_button_state = "Enable"
EndIf
EndIf
If blend_button_state = "Disable" Then
Else
If blend_button_state = "Disable2" Then
Else
Var blend_button_state = "Enable"
EndIf
EndIf
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE2
Function 2
Refresh
</EventClick>
</Button>
<Button>
<X> 772 </X>
<Y> 72 </Y>
<State> blend_button_state </Stage>
<Mode> "No" </Mode>
<Filename> Var( DirImage + img_smth ) </Filename>
<FilenamePress> Var( DirImage + img_smth_sel ) </FilenamePress>
<FilenameDisable> Var( DirImage + img_smth_dis ) </FilenameDisable>
<FilenameDisable2> Var( DirImage + img_smth_dis2 ) </FilenameDisable2>
<FilenameForce> Var( DirImage + img_smth_sel ) </FilenameForce>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press blend"
Var blend_button_state = "PressForever"
If hot_button_state = "Disable" Then
Else
If hot_button_state = "Disable2" Then
Else
Var hot_button_state = "Enable"
EndIf
EndIf
If cold_button_state = "Disable" Then
Else
If cold_button_state = "Disable2" Then
Else
Var cold_button_state = "Enable"
EndIf
EndIf
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE3
Function 2
Refresh
</EventClick>
</Button>
<Text>
<X> 552 </X>
<Y> 85 </Y>
<Font> KanitRegularTTF </Font>
<Size> 23 </Size>
<Color> text_hot_color </Color>
<Value> text_price_d1 </Value>
</Text>
<Text>
<X> 710 </X>
<Y> 85 </Y>
<Font> KanitRegularTTF </Font>
<Size> 23 </Size>
<Color> text_cold_color </Color>
<Value> text_price_d2 </Value>
</Text>
<Text>
<X> 852 </X>
<Y> 85 </Y>
<Font> KanitRegularTTF </Font>
<Size> 23 </Size>
<State> text_show_thai</State>
<Color> text_blender_color </Color>
<Value> text_price_d3 </Value>
</Text>
<Text>
<X> 872 </X>
<Y> 85 </Y>
<Font> KanitRegularTTF </Font>
<State> text_show_eng</State>
<Size> 23 </Size>
<Color> text_blender_color </Color>
<Value> text_price_d3 </Value>
</Text>
</Block>
<Block>
<Width> 986 </Width>
<Height> 160 </Height>
<MarginTop> 20 </MarginTop>
<State> blendedStateShow </State>
<Image>
<Filename> Var( DirImage + "/bg_blended.png" )</Filename>
</Image>
<Button>
<X> 40 </X>
<Y> 72 </Y>
<State> blendedState </Stage>
<Mode> "No" </Mode>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
<Filename> Var( DirImage + "/bn_blended.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_blended.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_blended.png" ) </FilenameDisable>
<FilenameForce> Var( DirImage + "/bp_blended.png" ) </FilenameForce>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press Smoothies"
If blendedState = "Press" Then
Var blendedState = "Enable"
Else
Var blendedState = "Press"
EndIf
Function 1
Refresh
</EventClick>
</Button>
<Button>
<X> 896 </X>
<Y> 79 </Y>
<State> blendedState </Stage>
<Mode> "No" </Mode>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
<Filename> Var( DirImage + "/cb_notcheck.png" ) </Filename>
<FilenamePress> Var( DirImage + "/cb_checked.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<FilenameForce> Var( DirImage + "/cb_force_checked.png" ) </FilenameForce>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press Smoothies"
If blendedState = "Press" Then
Var blendedState = "Enable"
Else
Var blendedState = "Press"
EndIf
Function 1
Refresh
</EventClick>
</Button>
<Image>
<State> showText7 </Stage>
<X> 602 </X>
<Y> 64 </Y>
<Filename> Var( DirImage + "/text7.png" ) </Filename>
</Image>
<Image>
<State> blendedStateTxt </Stage>
<X> 602 </X>
<Y> 64 </Y>
<Filename> Var( DirImage + "/text5.png" ) </Filename>
</Image>
</Block>
;- Begin topping1
<Block>
<Width> 988 </Width>
<Height> 156 </Height>
<MarginTop> 20 </MarginTop>
<State> BGSugar </State>
; sugar layout
<Image>
<State> BGSugar </State>
<Filename> Var( DirImage + "/bg_sugar.png" )</Filename>
</Image>
;
; sugar1
<Button>
<X> 120 </X>
<Y> 79 </Y>
<State> SugarState1 </Stage>
<Filename> Var( DirImage + "/bn_sugar1.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_sugar1.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bu_sugar1.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
DEBUGVAR SugarState1
SAVELOG "SUGAR1"
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "PressForever"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
</Button>
; sugar2
<Button>
<X> 288 </X>
<Y> 79 </Y>
<State> SugarState2 </Stage>
<Filename> Var( DirImage + "/bn_sugar2.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_sugar2.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bu_sugar2.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "SUGAR2"
DEBUGVAR SelectDrinkType
DEBUGVAR UserSeletedSugar
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "PressForever"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
</Button>
; sugar3
<Button>
<X> 456 </X>
<Y> 79 </Y>
<State> SugarState3 </Stage>
<Filename> Var( DirImage + "/bn_sugar3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_sugar3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "SUGAR3"
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var SugarState3 = "PressForever"
Var SugarState4 = "Enable"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index1
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
</Button>
; sugar4
<Button>
<X> 624 </X>
<Y> 79 </Y>
<State> SugarState4 </Stage>
<Filename> Var( DirImage + "/bn_sugar4.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_sugar4.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "SUGAR4"
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var SugarState3 = "Enable"
Var SugarState4 = "PressForever"
Var SugarState5 = "Enable"
Var topping1 = toppingID1index2
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
</Button>
; sugar5
<Button>
<X> 790 </X>
<Y> 79 </Y>
<State> SugarState5 </Stage>
<Filename> Var( DirImage + "/bn_sugar5.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_sugar5.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "SUGAR5"
If SelectDrinkType = 0 Then
SAVELOG "drink type popup"
Var high_light_drink_type = "Enable"
Else
If ShiftSugarStep = 1 Then
Var SugarState1 = "Enable"
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var SugarState2 = "Enable"
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var SugarState3 = "Enable"
Var SugarState4 = "Enable"
Var SugarState5 = "PressForever"
Var topping1 = toppingID1index3
EndIf
Var UserSeletedSugar = 1
EndIf
DEBUGVAR topping1
Refresh
</EventClick>
</Button>
;- END topping1
</Block>
;
;
;
;
;
;
;
;
;
;-END
;
;
;
;
;
;
;
;
;
;-BEGIN shot layout
<Block>
<Width> 986 </Width>
<Height> 164 </Height>
<MarginTop> 20 </MarginTop>
<State> ShotCoffeePremium </State>
<Image>
<Filename> backGroundAddShotPremium </Filename>
</Image>
;
<Button>
<X> 40 </X>
<Y> 79 </Y>
<State> showShotEnable </Stage>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_add_shot2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_add_shot2.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "premium shot press"
If showShotEnable = "Press" Then
Var showShotEnable = "Enable"
Var PriceDrinkTmp = PriceDrinkTmp - toppingID2price2
Var topping2 = toppingID2index1
Var DisableUsingCode = "false"
SAVELOG "Deselect add premium shot"
Else
Var showShotEnable = "Press"
Var PriceDrinkTmp = PriceDrinkTmp + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
SAVELOG "Select add premium shot"
EndIf
Var PriceDrinkNoTop = PriceDrinkTmp
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
SAVELOG PriceDrinkTmp
Refresh
</EventClick>
</Button>
;
<Button>
<X> 896 </X>
<Y> 79 </Y>
<State> showShotEnable </Stage>
<Mode> "No" </Mode>
<Filename> Var( DirImage + "/cb_notcheck.png" ) </Filename>
<FilenamePress> Var( DirImage + "/cb_checked.png" ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "premium shot press"
If showShotEnable = "Press" Then
Var showShotEnable = "Enable"
Var PriceDrinkTmp = PriceDrinkTmp - toppingID2price2
Var topping2 = toppingID2index1
Var DisableUsingCode = "false"
SAVELOG "Deselect add premium shot"
Else
Var showShotEnable = "Press"
Var PriceDrinkTmp = PriceDrinkTmp + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
SAVELOG "Select add premium shot"
EndIf
Var PriceDrinkNoTop = PriceDrinkTmp
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
SAVELOG PriceDrinkTmp
Refresh
</EventClick>
</Button>
<Text>
<X> topping_shot_price_x </X>
<Y> 77 </Y>
<Font> KanitRegularTTF </Font>
<State> "Enable"</State>
<Size> 36 </Size>
<Color> 0x84776F </Color>
<Value> text_price_topping </Value>
</Text>
</Block>
;-END
;
;
;
;
;
;
;;
;
;
;
;
;
;
;
;
;-BEGIN shot layout
<Block>
<Width> 986 </Width>
<Height> 157 </Height>
<MarginTop> 20 </MarginTop>
<State> ShotCoffeeBG </State>
<Image>
<Filename> backGroundAddExtra </Filename>
</Image>
;
<Button>
<X> 40 </X>
<Y> 72 </Y>
<State> showShotEnable </Stage>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_add_shot.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_add_shot.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_add_shot.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press add normal shot"
If showShotEnable = "Press" Then
Var showShotEnable = "Enable"
Else
Var showShotEnable = "Press"
EndIf
If new_layout = "true" Then
Function 2
Else
Function 1
EndIf
Refresh
</EventClick>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
</Button>
;
<Button>
<X> 896 </X>
<Y> 79 </Y>
<State> showShotEnable </Stage>
<Mode> "No" </Mode>
<Filename> Var( DirImage + "/cb_notcheck.png" ) </Filename>
<FilenamePress> Var( DirImage + "/cb_checked.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press add normal shot"
If showShotEnable = "Press" Then
Var showShotEnable = "Enable"
Else
Var showShotEnable = "Press"
EndIf
If new_layout = "true" Then
Function 2
Else
Function 1
EndIf
Refresh
</EventClick>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
</Button>
<Image>
<State> showText4 </Stage>
<X> 602 </X>
<Y> 64 </Y>
<Filename> Var( DirImage + "/text4.png" ) </Filename>
</Image>
</Block>
;-END
;
;
;
;
;
;
;
;
;
;
;-BEGIN Collagen
;
;-BEGIN Lid straw
<Block>
<Width> 986 </Width>
<Height> 240 </Height>
<MarginTop> 20 </MarginTop>
<State> ShowLidStraw </State>
<Image>
<Filename> bg_strawlid </Filename>
</Image>
; straw left
<Button>
<X> 40 </X>
<Y> 72 </Y>
<State> StrawState </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawState = "Press" Then
Var StrawState = "Enable"
Var Seeker.thankStrawFlag = 0
Else
Var StrawState = "Press"
Var Seeker.thankStrawFlag = 1
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 896 </X>
<Y> 79 </Y>
<State> StrawState </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawState = "Press" Then
Var StrawState = "Enable"
Var Seeker.thankStrawFlag = 0
Else
Var StrawState = "Press"
Var Seeker.thankStrawFlag = 1
EndIf
Refresh
</EventClick>
</Button>
; LID left
<Button>
<X> 40 </X>
<Y> 148 </Y>
<State> LidState </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click LID pic"
If LidState = "Press" Then
Var LidState = "Enable"
Var Seeker.thankLidFlag = 0
Else
Var LidState = "Press"
Var Seeker.thankLidFlag = 1
EndIf
DEBUGVAR SugarState1
Refresh
</EventClick>
</Button>
<Button>
<X> 896 </X>
<Y> 155 </Y>
<State> LidState </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click LID cb"
If LidState = "Press" Then
Var LidState = "Enable"
Var Seeker.thankLidFlag = 0
Else
Var LidState = "Press"
Var Seeker.thankLidFlag = 1
EndIf
Refresh
</EventClick>
</Button>
<Image>
<State> StrawDeactiveButton </Stage>
<X> 602 </X>
<Y> 64 </Y>
<Filename> Var( DirImage + "/text20.png" ) </Filename>
</Image>
<Image>
<State> LidDeactiveButton </Stage>
<X> 602 </X>
<Y> 150 </Y>
<Filename> Var( DirImage + "/text21.png" ) </Filename>
</Image>
</Block>
;
;
;
;
;
;
;
;
;
</FrameScroll>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
; back
<Button>
<X> 44 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_cancel.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.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"
EndIf
</EventClick>
</Button>
; add cart
<Button>
<State> btnAddCart </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_add.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_add.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
DEBUGVAR topping1
DEBUGVAR topping2
DEBUGVAR topping3
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
DEBUGVAR HAVE_UV_DOOR_LID
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
EndIf
Var StrawState = "Enable"
Var LidState = "Enable"
;
Var SelectDrink = UserSelectProductCode
; Set drink
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Var Seeker.ExtendData = ExtendData
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
</EventClick>
</Button>
<Button>
<X> 277 </X>
<Y> 1772 </Y>
<State> NEW_MULTI </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/new_multi.png" ) </Filename>
<EventClick>
</EventClick>
</Button>
; next
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_next.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_next.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Var Seeker = "curr"
If new_layout = "true" Then
; Name , Descript
EndIf
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState2 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState4 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index2
EndIf
EndIf
If SugarState5 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index3
EndIf
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
DEBUGVAR HAVE_UV_DOOR_LID
If HAVE_UV_DOOR_LID = "true" Then
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
EndIf
Var StrawState = "Enable"
Var LidState = "Enable"
;
EndIf
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
; Pack
Topping "__pack" ExtendDataNext
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
If CART_COUNT = 0 Then
If SelectDrinkType = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
Var ButtonNext = "true"
EndIf
</EventClick>
</Button>
<Function1>
SAVELOG "FUNCTION1"
Var TOPPING_PRICE = 0
DEBUGVAR PriceDrinkNoTop
DEBUGVAR PriceDiff
DEBUGVAR showShotEnable
DEBUGVAR blendedState
If blendedState = "ForceSet" Then
Var TOPPING_PRICE = PriceDiff
Var UserSelectProductCode = SubMenuProductCode1
Var showShotEnable = "Disable"
Var showText4 = "Enable"
Else
If blendedState = "Press" Then
Var TOPPING_PRICE = PriceDiff
Var UserSelectProductCode = SubMenuProductCode1
Var showShotEnable = "Disable"
Var showText4 = "Enable"
Else
Var UserSelectProductCode = SaveProductCodeSelect
If showShotEnable = "Disable" Then
Var showShotEnable = "Enable"
EndIf
Var showText4 = "Invisible"
EndIf
EndIf
DEBUGVAR UserSelectProductCode
If showShotEnable = "Press" Then
If blendedState = "Press" Then
Var PriceDrinkTmp = PriceDrinkNoTop
EndIf
Var blendedState = "Disable"
Var TOPPING_PRICE = 0
;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2
Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
Var showText7 = "Enable"
SAVELOG "Select add normal shot"
Else
If blendedState = "Disable" Then
Var blendedState = "Enable"
EndIf
Var PriceDrinkTmp = PriceDrinkNoTop
Var topping2 = toppingID2index1
Var DisableUsingCode = "false"
SAVELOG "Deselect add normal shot"
Var showText7 = "Invisible"
EndIf
DEBUGVAR showShotEnable
DEBUGVAR blendedState
Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
SAVELOG PriceDrinkTmp
Var Timeout = 0
</Function1>
<Function2>
Var img_cold_no_flag = 0
Var img_smth_no_flag = 0
If hot_button_state = "Disable2" Then
If blend_button_state = "Disable2" Then
Var img_cold_no_flag = 1
Else
Var img_cold_no_flag = 1
Var img_smth_no_flag = 2
EndIf
EndIf
If PriceD1 = PriceD2 Then
Var img_cold_no_flag = 1
EndIf
If hot_button_state = "Disable2" Then
If cold_button_state = "Disable2" Then
Var img_smth_no_flag = 1
EndIf
EndIf
If img_cold_no_flag = 1 Then
SAVELOG "Cold Image change."
Var img_cold = "/bt_cold_no.png"
Var img_cold_sel = "/bt_cold_selected_no.png"
Var img_cold_dis = "/bt_cold_disable_no.png"
Var img_cold_dis2 = "/bt_cold_disable2_no.png"
Else
Var img_cold = "/bt_cold.png"
Var img_cold_sel = "/bt_cold_selected.png"
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"
Var img_smth_sel = "/bt_smoothie_selected_no.png"
Var img_smth_dis = "/bt_smoothie_disable_no.png"
Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"
Else
If img_smth_no_flag = 2 Then
SAVELOG "Smoothies change img. 2"
Var img_smth = "/bt_smoothie_sub2.png"
Var img_smth_sel = "/bt_smoothie_selected_sub2.png"
Var img_smth_dis = "/bt_smoothie_disable_sub2.png"
Var img_smth_dis2 = "/bt_smoothie_disable2_sub2.png"
Else
Var img_smth = "/bt_smoothie.png"
Var img_smth_sel = "/bt_smoothie_selected.png"
Var img_smth_dis = "/bt_smoothie_disable.png"
Var img_smth_dis2 = "/bt_smoothie_disable2.png"
EndIf
EndIf
Var img_cold = "/bt_cold_no.png"
Var img_cold_sel = "/bt_cold_selected_no.png"
Var img_cold_dis = "/bt_cold_disable_no.png"
Var img_cold_dis2 = "/bt_cold_disable2_no.png"
Var img_smth = "/bt_smoothie_no.png"
Var img_smth_sel = "/bt_smoothie_selected_no.png"
Var img_smth_dis = "/bt_smoothie_disable_no.png"
Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"
DEBUGVAR menu_name_thai_cold
SAVELOG "FUNCTION2"
Var TOPPING_PRICE = 0
Var SelectDrinkType = 0
; Set default
If SelectCountDrinkType = 1 Then
If DefaultDrinkType = 1 Then
Var hot_button_state = "PressForever"
EndIf
If DefaultDrinkType = 2 Then
Var cold_button_state = "PressForever"
EndIf
If DefaultDrinkType = 3 Then
Var blend_button_state = "PressForever"
EndIf
EndIf
If hot_button_state = "PressForever" Then
Var PriceDrinkNoTop = PriceD1
Var UserSelectProductCode = PD_CODE1
If showShotEnable = "Disable" Then
Var showShotEnable = "Enable"
EndIf
Var showText4 = "Invisible"
If show_eng = "true" Then
Var showname = menu_name_eng_hot
Var showdesc = menu_desc_eng_hot
Else
Var showname = menu_name_thai_hot
Var showdesc = menu_desc_thai_hot
EndIf
Var text_hot_color = "0xFFFFFF"
Var text_cold_color = "0x84776F"
Var text_blender_color = "0x84776F"
Var SelectDrinkType = 1
EndIf
If cold_button_state = "PressForever" Then
Var PriceDrinkNoTop = PriceD2
Var UserSelectProductCode = PD_CODE2
If showShotEnable = "Disable" Then
Var showShotEnable = "Enable"
EndIf
Var showText4 = "Invisible"
If show_eng = "true" Then
Var showname = menu_name_eng_cold
Var showdesc = menu_desc_eng_cold
Else
Var showname = menu_name_thai_cold
Var showdesc = menu_desc_thai_cold
EndIf
Var text_hot_color = "0x84776F"
Var text_cold_color = "0xFFFFFF"
Var text_blender_color = "0x84776F"
Var SelectDrinkType = 1
EndIf
If blend_button_state = "PressForever" Then
Var PriceDrinkNoTop = PriceD3
Var UserSelectProductCode = PD_CODE3
Var showShotEnable = "Disable"
Var showText4 = "Enable"
If show_eng = "true" Then
Var showname = menu_name_eng_blender
Var showdesc = menu_desc_eng_blender
Else
Var showname = menu_name_thai_blender
Var showdesc = menu_desc_thai_blender
EndIf
Var text_hot_color = "0x84776F"
Var text_cold_color = "0x84776F"
Var text_blender_color = "0xFFFFFF"
Var SelectDrinkType = 1
EndIf
DEBUGVAR PriceDrinkNoTop
DEBUGVAR PriceDiff
DEBUGVAR showShotEnable
If showShotEnable = "Press" Then
If blendedState = "Press" Then
Var PriceDrinkTmp = PriceDrinkNoTop
EndIf
Var blendedState = "Disable"
Var TOPPING_PRICE = 0
;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2
Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2
Var topping2 = toppingID2index2
Var DisableUsingCode = "true"
Var showText7 = "Enable"
SAVELOG "Select add normal shot"
Else
If blendedState = "Disable" Then
Var blendedState = "Enable"
EndIf
Var PriceDrinkTmp = PriceDrinkNoTop
Var topping2 = toppingID2index1
Var DisableUsingCode = "false"
SAVELOG "Deselect add normal shot"
Var showText7 = "Invisible"
EndIf
DEBUGVAR SelectDrinkType
DEBUGVAR showShotEnable
DEBUGVAR blendedState
Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE
Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
If SelectDrinkType = 0 Then
Var PriceDrinkTmpShow = "---"
EndIf
SAVELOG PriceDrinkTmp
CRLFToSpace showname
CRLFToSpace showdesc
DEBUGVAR showname
DEBUGVAR showdesc
Var Timeout = 0
RefreshAll
</Function2>
<Text>
<X> 924 </X>
<Y> 1804 </Y>
<Font> KanitTTF </Font>
<Size> 36 </Size>
<Width> 1080 </Width>
<Color> 0xFFFFFF </Color>
<Animation>
<Style> "shake-text" </Style>
<OnEvent> "OnValueChange" </OnEvent>
</Animation>
<Value> PriceDrinkTmpShow </Value>
</Text>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<State> high_light_drink_type </State>
<Filename> "ROOT/taobin_project/image/topping2_en/topping_en/high_light_drink_type.png"</Filename>
</Image>
<Button>
<X> 508 </X>
<Y> 953 </Y>
<State> eval(
Var return = "Invisible"
If high_light_drink_type = "Enable" Then
If hot_button_state = "Enable" Then
Var return = "Enable"
EndIf
EndIf
)
</Stage>
<Width> 160 </Width>
<Height> 56 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press hot"
Var hot_button_state = "PressForever"
Var SelectDrinkType = 1
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE1
Var high_light_drink_type = "Invisible"
Function 2
Refresh
</EventClick>
</Button>
<Button>
<X> 666 </X>
<Y> 953 </Y>
<State> eval(
Var return = "Invisible"
If high_light_drink_type = "Enable" Then
If cold_button_state = "Enable" Then
Var return = "Enable"
EndIf
EndIf
) </Stage>
<Width> 160 </Width>
<Height> 56 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var cold_button_state = "PressForever"
SAVELOG "Press cold - on high-light"
Var high_light_drink_type = "Invisible"
Var SelectDrinkType = 1
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE2
Var PriceDrinkNoTop = PriceD2
Function 2
Refresh
</EventClick>
</Button>
<Button>
<X> 824 </X>
<Y> 953 </Y>
<State> eval(
Var return = "Invisible"
If high_light_drink_type = "Enable" Then
If blend_button_state = "Enable" Then
Var return = "Enable"
EndIf
EndIf
) </Stage>
<Width> 160 </Width>
<Height> 56 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG "Press blend"
Var blend_button_state = "PressForever"
Var high_light_drink_type = "Invisible"
Var SelectDrinkType = 1
Var BugFlag = 0
Var topping_price_refresh = 0
Topping "Load" PD_CODE3
Var PriceDrinkNoTop = PriceD3
Function 2
Refresh
</EventClick>
</Button>
<Text>
<X> 543 </X>
<Y> 920 </Y>
<State> high_light_drink_type </State>
<Font> KanitTTF </Font>
<Size> 36 </Size>
<Width> 1080 </Width>
<Color> 0xFF0000 </Color>
<Value> eval(
If show_eng = "true" Then
Var return = "Please choose drink type"
Else
Var return ="โปรดเลือกประเภทเครื่องดื่ม"
EndIf
)</Value>
</Text>
;
</Page>