"Enable" 1080 1920 ; "0xeae6e1" SoundVolume 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 DEBUGVAR new_layout 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" Var SaveSelectDrinkRoadShow = SelectDrink EndIf DEBUGVAR SaveSelectDrinkRoadShow 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 Var StrawState = "Enable" Var LidState = "Enable" Var MAT_ID_9701 = StrawState 1000 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 0 380 1080 1540 "0xeae6e1" 990 438 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; 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 ; ; 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 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" Open OpenFromXML 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 StrawState = "Enable" Then If MAT_ID_9701 = "Enable" Then Var StrawState = MAT_ID_9701 Else Var StrawState = MAT_ID_9701 EndIf EndIf DEBUGVAR StrawState If StrawState = "Press" Then Var Seeker.thankStrawFlag = 1 Else Var Seeker.thankStrawFlag = 0 EndIf If LidState = "Enable" Then If MAT_ID_9601 = "Enable" Then Var LidState = MAT_ID_9601 Else Var LidState = MAT_ID_9601 EndIf 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 If StrawState = "Press" Then Var StrawDeactiveButton = "Invisible" Else Var StrawDeactiveButton = "Enable" EndIf EndIf If LidState = "Enable" Then Var LidDeactiveButton = "Invisible" Else If LidState = "Press" Then Var LidDeactiveButton = "Invisible" Else Var LidDeactiveButton = "Enable" EndIf 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 ;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 ; same 374 382 331 436 PictureDrink 374 399 eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) "ROOT/taobin_project/image/topping2/blender_icon.png" ; same 0 752 1080 Center 72 KanitMediumTTF 0x513C2F showname ; same 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; ; 0 ; 880 ; BGSugar ; 1080 ; Center ; 18 ; KanitTTF ; 0xEE8C62 ; "*ห้ามดื่มเกินวันละ 2 แก้ว เพราะหัวใจสั่น นอนไม่หลับ เด็กและสตรีมีครรภ์ไม่ควรดื่ม ผู้ป่วยควรปรึกษาแพทย์ก่อน" ; ; ; ; ; ; ; ; ; ; ; ; ; ;- FRAME SCORELLL 52 881 1080 "auto-all" "Vertical" 1 ; show_select_type 988 162 20 show_select_type Var( DirImage + "/drink_select_type.png" ) 456 72 hot_button_state "No" Var( DirImage + "/bt_hot.png" ) Var( DirImage + "/bt_hot_selected.png" ) Var( DirImage + "/bt_hot_disable.png" ) Var( DirImage + "/bt_hot_disable2.png" ) Var( DirImage + "/bt_hot_selected.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 614 72 cold_button_state "No" Var( DirImage + img_cold ) Var( DirImage + img_cold_sel ) Var( DirImage + img_cold_dis ) Var( DirImage + img_cold_dis2 ) Var( DirImage + img_cold_sel ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 772 72 blend_button_state "No" Var( DirImage + img_smth ) Var( DirImage + img_smth_sel ) Var( DirImage + img_smth_dis ) Var( DirImage + img_smth_dis2 ) Var( DirImage + img_smth_sel ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 552 85 KanitRegularTTF 23 text_hot_color text_price_d1 710 85 KanitRegularTTF 23 text_cold_color text_price_d2 852 85 KanitRegularTTF 23 text_show_thai text_blender_color text_price_d3 872 85 KanitRegularTTF text_show_eng 23 text_blender_color text_price_d3 986 160 20 blendedStateShow Var( DirImage + "/bg_blended.png" ) 40 72 blendedState "No" "OnValueChange" Var( DirImage + "/bn_blended.png" ) Var( DirImage + "/bp_blended.png" ) Var( DirImage + "/bd_blended.png" ) Var( DirImage + "/bp_blended.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" If blendedState = "Press" Then Var blendedState = "Enable" Else Var blendedState = "Press" EndIf Function 1 Refresh 896 79 blendedState "No" "OnValueChange" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) Var( DirImage + "/cb_checkdis.png" ) Var( DirImage + "/cb_force_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" If blendedState = "Press" Then Var blendedState = "Enable" Else Var blendedState = "Press" EndIf Function 1 Refresh showText7 602 64 Var( DirImage + "/text7.png" ) blendedStateTxt 602 64 Var( DirImage + "/text5.png" ) ;- Begin topping1 988 156 20 BGSugar ; sugar layout BGSugar Var( DirImage + "/bg_sugar.png" ) ; ; sugar1 120 79 SugarState1 Var( DirImage + "/bn_sugar1.png" ) Var( DirImage + "/bp_sugar1.png" ) Var( DirImage + "/bu_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; sugar2 288 79 SugarState2 Var( DirImage + "/bn_sugar2.png" ) Var( DirImage + "/bp_sugar2.png" ) Var( DirImage + "/bu_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; sugar3 456 79 SugarState3 Var( DirImage + "/bn_sugar3.png" ) Var( DirImage + "/bp_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; sugar4 624 79 SugarState4 Var( DirImage + "/bn_sugar4.png" ) Var( DirImage + "/bp_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; sugar5 790 79 SugarState5 Var( DirImage + "/bn_sugar5.png" ) Var( DirImage + "/bp_sugar5.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ;- END topping1 ; ; ; ; ; ; ; ; ; ;-END ; ; ; ; ; ; ; ; ; ;-BEGIN shot layout 986 164 20 ShotCoffeePremium backGroundAddShotPremium ; 40 79 showShotEnable "No" "ROOT/taobin_project/image/topping2/bn_add_shot2.png" "ROOT/taobin_project/image/topping2/bp_add_shot2.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; 896 79 showShotEnable "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 topping_shot_price_x 77 KanitRegularTTF "Enable" 36 0x84776F text_price_topping ;-END ; ; ; ; ; ; ;; ; ; ; ; ; ; ; ; ;-BEGIN shot layout 986 157 20 ShotCoffeeBG backGroundAddExtra ; 40 72 showShotEnable "No" "ROOT/taobin_project/image/topping2/bn_add_shot.png" "ROOT/taobin_project/image/topping2/bp_add_shot.png" "ROOT/taobin_project/image/topping2/bd_add_shot.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 "OnValueChange" ; 896 79 showShotEnable "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) Var( DirImage + "/cb_checkdis.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 "OnValueChange" showText4 602 64 Var( DirImage + "/text4.png" ) ;-END ; ; ; ; ; ; ; ; ; ; ;-BEGIN Collagen ; ;-BEGIN Lid straw 986 240 20 ShowLidStraw bg_strawlid ; straw left 40 72 StrawState "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" 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 896 79 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.thankStrawFlag = 0 Else Var StrawState = "Press" Var Seeker.thankStrawFlag = 1 EndIf Refresh ; LID left 40 148 LidState "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) 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 896 155 LidState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) 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 StrawDeactiveButton 602 64 Var( DirImage + "/text20.png" ) LidDeactiveButton 602 150 Var( DirImage + "/text21.png" ) ; ; ; ; ; ; ; ; ; Open "/media/bt/xml/security_alarm.xml" ; back 44 1785 Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 ; add cart btnAddCart 285 1785 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 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" 277 1772 NEW_MULTI ; "0x00BDFF" 500 Var( DirImage + "/new_multi.png" ) ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;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 obsolete. 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" ; If RoadShow = "true" Then Var SelectDrink = SaveSelectDrinkRoadShow Else Var SelectDrink = UserSelectProductCode EndIf 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 DEBUGVAR MenuCautionImageStage0 DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType 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 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 If RoadShow = "true" Then Var PriceDrinkTmp = "Free" Var SaveSelectDrinkRoadShow = UserSelectProductCode 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 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 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow 0 380 1080 1540 high_light_drink_type "ROOT/taobin_project/image/topping2_en/topping_en/high_light_drink_type.png" 508 953 eval( Var return = "Invisible" If high_light_drink_type = "Enable" Then If hot_button_state = "Enable" Then Var return = "Enable" EndIf EndIf ) 160 56 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 666 953 eval( Var return = "Invisible" If high_light_drink_type = "Enable" Then If cold_button_state = "Enable" Then Var return = "Enable" EndIf EndIf ) 160 56 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 824 953 eval( Var return = "Invisible" If high_light_drink_type = "Enable" Then If blend_button_state = "Enable" Then Var return = "Enable" EndIf EndIf ) 160 56 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 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 543 920 high_light_drink_type KanitTTF 36 1080 0xFF0000 eval( If show_eng = "true" Then Var return = "Please choose drink type" Else Var return ="โปรดเลือกประเภทเครื่องดื่ม" EndIf ) ;