"Enable" 1080 1920 "0xeae6e1" SoundVolume Var y_topping_bg = 912 WEB "DISABLE" ; Var DrinkDescriptionTH = $01-00-00-0001.description DEBUGVAR video_menu_0 Var DisableUsingCode = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowCollagenOnly = "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 = "Invisible" Var ShotCoffeePremium = "Invisible" Var StarwState = "Enable" ; 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 SpiralSelectdetail = SpiralSelectdetail1E Var SpiralSelectheader = SpiralSelectheader2E Var SpiralSelectdetail = SpiralSelectdetail2E Var DirImage = "ROOT/taobin_project/image/topping_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 ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail_en.png" Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money_en.png" Var lid_straw_bg_iamge = DirImage + "/block_strawonly.png" Else Var SpiralSelectdetail = SpiralSelectdetail1 Var SpiralSelectheader = SpiralSelectheader2 Var SpiralSelectdetail = SpiralSelectdetail2 Var DirImage = "ROOT/taobin_project/image/topping" 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 ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail.png" Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money.png EndIf ; Move to catalog. ;Machine DoorClose Var backGroundAddExtra = DirImage + "/img_ontop_shot.png" Var backGroundAddExtra2 = DirImage + "/img_ontop_shot2.png" 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 STRCONTAIN "ID=1058" MaterialAvailable sugarKeto DEBUGVAR sugarKeto If sugarKeto = "true" Then Open "ROOT/taobin_project/xml/page_topping_select2.xml" EndIf Var ToppingGotoPayment = "true" Var ButtonNext = "false" 2000 DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 20 Then Var Timeout = 0 Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf TimerReset ;; back ; ; 19 ; 420 ; "ROOT/taobin_project/image/page2/bn_back_arrow.png" ; "ROOT/taobin_project/image/page2/bn_back_arrow.png" ; "/mnt/sdcard/coffeevending/wav/click.wav" ; SoundVolume ; ; ;Open PreviseXMLFileName2 ; ;DEBUGVAR OpenFromXML ; ;Open OpenFromXML ; Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml" ; ; ;Var BugFlag = 1 If CartUpdate = "true" Then Var CartUpdate = "-" If CART_COUNT = 3 Then Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else If ButtonNext = "true" Then Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf 0 380 1080 864 0xFFFFFF 0 555 1080 437 SpiralProduct 143 360 ShowHeadSpiralSelect 0 982 1080 Center 65 KanitMediumTTF ColorBrown2 showname 0 1058 1080 Center 40 KanitTTF ColorBrown showdesc 85 1232 956 405 Spiraldetail 0 1127 1080 Center 80 KanitMediumTTF ColorOrange PriceDrinkTmpShow ; back 44 1785 Var( DirImage + "/bp_cancel.png" ) Var( DirImage + "/bn_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog.xml" ;; add backet ; ; 285 ; 1785 ; BBasketState ; Var( DirImage + "/bn_add.png" ) ; Var( DirImage + "/bp_add.png" ) ; "/mnt/sdcard/coffeevending/wav/click.wav" ; SoundVolume ; ; ; Var PriceDrink = PriceDrinkTmp ; SAVELOG "USER press next ( topping ) - new" ; DEBUGVAR topping1 ; DEBUGVAR topping2 ; DEBUGVAR topping3 ; ; DEBUGVAR LidState ; DEBUGVAR StarwState ; DEBUGVAR UserSelectProductCode ; DEBUGVAR HAVE_UV_DOOR_LID ; ; If HAVE_UV_DOOR_LID = "true" Then ; ; If StarwState = "Press" Then ; Machine StrawOrder ; Var LedLidBlink = "true" ; EndIf ; ; If LidState = "Press" Then ; Machine LidOrder ; Var LedLidBlink = "true" ; EndIf ; ; Var StarwState = "Enable" ; Var LidState = "Enable" ; ; ; ; EndIf ; ; 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 ; ; 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" ; ; ; ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CART_COUNT = 0 Then Var PriceDrink = PriceDrinkTmp SAVELOG "USER press next ( topping )" DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 DEBUGVAR LidState DEBUGVAR StarwState DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then If StarwState = "Press" Then Machine StrawOrder EndIf If LidState = "Press" Then Machine LidOrder EndIf Var StarwState = "Enable" Var LidState = "Enable" EndIf ; Set drink Topping "Select" SelectDrink ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 ; Pack Topping "Pack" ExtendData Open "ROOT/taobin_project/spiral/xml/page_spiral_payment.xml" Else Var PriceDrink = PriceDrinkTmp SAVELOG "USER press next ( topping ) - new" DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 DEBUGVAR LidState DEBUGVAR StarwState DEBUGVAR UserSelectProductCode DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then If StarwState = "Press" Then Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then Machine LidOrder Var LedLidBlink = "true" EndIf Var StarwState = "Enable" Var LidState = "Enable" ; EndIf 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 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 50 1302 32 KanitTTF ColorBrown2 SpiralSelectdetail 50 1490 27 KanitBoldTTF ColorBrown2 SpiralSelectheader 50 1535 27 KanitTTF ColorBrown2 SpiralSelectdetail 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow 1000 415 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; eng If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Open CurrentXMLFileName2 Open "/media/bt/xml/security_alarm.xml"