"Enable" 1080 1920 "0xeae6e1" SoundVolume Var PayType = "" Var PayReference = "" Var ServiceAmountSum = 0 Var Seeker.thankToppingFlag = 0 Var y_topping_bg = 912 WEB "DISABLE" ; Var DrinkDescriptionTH = $01-00-00-0001.description Var PicSpiralOption = "Invisible" Var StrawState = "Invisible" Var LidDeactiveButton = "Invisible" Var SpiralIce_STAGE = $12-05-02-0017.Button Var PriceDrinkTopping = 10 If SpiralOption = 1 Then Var PicSpiralOption = "Enable" Var StrawState = "Enable" Var LidDeactiveButton = "Invisible" If SpiralIce_STAGE = "Disable" Then Var StrawState = "Disable" Var LidDeactiveButton = "Enable" EndIf EndIf 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 SpiralSelectdetai2 = SpiralSelectdetail2E Var DirImage = "ROOT/taobin_project/image/topping_en" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/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 SpiralSelectdetai2 = SpiralSelectdetail2 Var DirImage = "ROOT/taobin_project/image/topping" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/" 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 PriceDrinkTmp2 = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var PriceDrinkTmpShow2 = 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 PriceDrinkTmpShow2 ; 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" ; ; ; ; SpiralOption 52 1610 PicSpiralOption Var( DirImage3 + "spiral_option_ice.png" ) ; topping left 90 1684 StrawState "No" "ROOT/taobin_project/spiral/image/page_spiral/bn_toppingice.png" "ROOT/taobin_project/spiral/image/page_spiral/bd_toppingice.png" "ROOT/taobin_project/spiral/image/page_spiral/bd_toppingice.png" SAVELOG "Click straw cb" If StrawState = "Press" Then Var StrawState = "Enable" Var Seeker.thankToppingFlag = 0 Var PriceDrinkTmp = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Else Var StrawState = "Press" Var Seeker.thankToppingFlag = 1 Var PriceDrinkTmp = PriceDrinkTmp + PriceDrinkTopping Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp EndIf Refresh 950 1691 StrawState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) SAVELOG "Click straw cb" If StrawState = "Press" Then Var StrawState = "Enable" Var Seeker.thankToppingFlag = 0 Var PriceDrinkTmp = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Else Var StrawState = "Press" Var Seeker.thankToppingFlag = 1 Var PriceDrinkTmp = PriceDrinkTmp + PriceDrinkTopping Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp EndIf Refresh ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If Seeker.thankToppingFlag = 1 Then Var UserSelectProductCode = "12-05-02-0017" Var SelectDrink = UserSelectProductCode Var PriceDrink = PriceDrink DEBUGVAR PriceDrink Open "ROOT/taobin_project/spiral/xml/page_spiral_select_topping.xml" Else 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 EndIf 50 1302 32 KanitTTF ColorBrown2 SpiralSelectdetail 50 1490 27 KanitBoldTTF ColorBrown2 SpiralSelectheader 50 1535 27 KanitTTF ColorBrown2 SpiralSelectdetai2 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 If show_eng = "true" Then Var SpiralSelectdetail = SpiralSelectdetail1E Var SpiralSelectheader = SpiralSelectheader2E Var SpiralSelectdetail = SpiralSelectdetail2E Var DirImage = "ROOT/taobin_project/image/topping_en" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/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 SpiralSelectdetai2 = SpiralSelectdetail2 Var DirImage = "ROOT/taobin_project/image/topping" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/" 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 CRLFToSpace showname RefreshAll LidDeactiveButton 650 1677 Var( DirImage3 + "unavalible.png" ) Open "/media/bt/xml/security_alarm.xml"