"Enable" 1080 1920 ; "0xeae6e1" SoundVolume OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" Machine WakeUp Var UserSeletedSugar = 0 SAVELOG "Event Open Select 6 inter" Var OpenFileXML = CountryRootPath + "xml/page_topping_select6.lxml" Open OpenFileXML Var y_topping_bg = 912 Var CHECK_EventOpen_Double = CHECK_EventOpen_Double + 1 If CHECK_EventOpen_Double > 1 Then WRITE_FILE "/mnt/sdcard/xml_alert_bug" "double called" EndIf WEB "DISABLE" DEBUGVAR Seeker Var BGSugarNew = "Invisible" DEBUGVAR video_menu_0 DEBUGVAR SelectDrink DEBUGVAR PictureDrink Var SaveProductCodeSelect = "-" Var UserSelectProductCode = "-" 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 SugarState6 = "Invisible" Var AddShotEnable = "Invisible" Var BGSugar = "Invisible" Var ShotCoffeeBG = "Invisible" Var showShotEnable = "Invisible" Var ShotCoffeePremium = "Invisible" Var showOreoAddEnable = "Invisible" Var BGSugarHotHealthy = "Invisible" Var BGSugarColdHealthy = "Invisible" Var showText8 = "Invisible" ;Var showShotEnable = "Enable" ;Var ShotCoffeePremium = "Enable" ;Var showOreoAddEnable = "Enable" Var ExtraTopping = "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 Var text_x_add_oreo_price = 510 Var text_show_normal_x = 408 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 Var text_x_add_oreo_price = 490 Var text_show_normal_x = 386 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" 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 Var normal_button_state = "Invisible" ; 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 DEBUGVAR show_select_type DEBUGVAR PriceD1 DEBUGVAR PriceD2 DEBUGVAR PriceD3 DEBUGVAR DisplayFormatFull If hot_button_state = "Disable2" Then Var text_price_d1 = "" Else Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow) EndIf If cold_button_state = "Disable2" Then Var text_price_d2 = "" Else Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow) EndIf If blend_button_state = "Disable2" Then Var text_price_d3 = "" Else Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow) EndIf If RoadShow = "true" Then Var text_price_d1 = "Free" Var text_price_d2 = "Free" Var text_price_d3 = " Free" 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 OatMilkToppingEnable = "Invisible" Var OatMilkEnable = "Invisible" Var topping_price_refresh = 1 Var StrawState = "Enable" Var LidState = "Enable" Var SubMenuGroupIDSlot6_1 = 0 Var bg_lidProblem_ST = "Invisible" Var GetLidButtonState = "Invisible" DEBUGVAR LanguageShowByIndex DEBUGVAR NameLang[0][LanguageShowByIndex] DEBUGVAR NameLang[1][LanguageShowByIndex] DEBUGVAR NameLang[2][LanguageShowByIndex] Var showname = aliasName[LanguageShowByIndex] Var showdesc = aliasName[LanguageShowByIndex] BackslashNToEnter showname BackslashNToEnter showdesc CRLFToSpace showname CRLFToSpace showdesc Var text_milk_choice_price_x = 265 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 "Invisible" 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 Var text_x_add_oreo_price = 510 Var text_show_normal_x = 408 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 Var text_x_add_oreo_price = 490 Var text_show_normal_x = 386 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 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 Function 2 RefreshAll 1000 381 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; DEBUGVAR LanguageShowByIndex DEBUGVAR LanguageShow If LanguageShow = "ENG" Then Var topping_shot_price_x = 630 Var text_x_add_oreo_price = 510 Var text_show_normal_x = 408 Var text_show_blend_x = 872 Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" EndIf If LanguageShow = "THAI" Then Var topping_shot_price_x = 600 Var text_x_add_oreo_price = 490 Var text_show_normal_x = 386 Var text_show_blend_x = 852 Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" EndIf If LanguageShow = "MALAY" Then Var topping_shot_price_x = 630 Var text_x_add_oreo_price = 510 Var text_show_normal_x = 408 Var text_show_blend_x = 872 Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" EndIf If SelectDrinkType = 1 Then Var showname = NameLang[IndexDrinktType][LanguageShowByIndex] Var showdesc = DescLang[IndexDrinktType][LanguageShowByIndex] Else Var showname = aliasName[LanguageShowByIndex] Var showdesc = aliasName[LanguageShowByIndex] EndIf BackslashNToEnter showname BackslashNToEnter showdesc CRLFToSpace showname CRLFToSpace showdesc Var Timeout = 0 ; 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_advert2.xml" Open OpenFromXML DEBUGVAR MAT_ID_STRAW_OFFER DEBUGVAR MAT_ID_LID_OFFER DEBUGVAR TOPPING1 DEBUGVAR TOPPING1_EXT_2 DEBUGVAR TOPPING2 DEBUGVAR TOPPING3 DEBUGVAR TOPPING4 DEBUGVAR TOPPING5 DEBUGVAR TOPPING6 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 DEBUGVAR toppingID1Default DEBUGVAR toppingID2Default DEBUGVAR toppingID3Default DEBUGVAR MenuCodeName1 DEBUGVAR MenuCodeName1_State DEBUGVAR MenuCodeName2 DEBUGVAR MenuCodeName2_State DEBUGVAR SubMenuProductCode1 DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuProductCode3 DEBUGVAR toppingID2price2 DEBUGVAR toppingID3price2 DEBUGVAR toppingID6price2 If BugFlag = 1 Then Else If TOPPING6 = "Topping-Volcano" Then If toppingID6price2 > 0 Then DEBUGVAR toppingID6price2 DEBUGVAR DisplayFormat Var toppingID6price2Conv !assigned StringFmt( toppingID6price2 , DisplayFormat, PreScaleConvertShow) DEBUGVAR toppingID6price2Conv Var text_price_6 = "" Var text_price_6 = toppingID6price2Conv + ")" Var text_price_6 = "(+" + text_price_6 DEBUGVAR text_price_6 Else Var text_price_6 = "" EndIf If blend_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" Var showText8 = "Invisible" Else Var showOreoAddEnable = "Disable" Var showText8 = "Enable" EndIf Var ExtraTopping = "Enable" If blend_button_state = "Disable2" Then If hot_button_state = "Disable2" Then If cold_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" Var showText8 = "Invisible" EndIf EndIf EndIf EndIf DEBUGVAR SubMenuGroupIDSlot6_1 If PD_CODE2 = "12-05-02-0016" Then Var cold_button_state = "Invisible" Var normal_button_state = "PressForever" EndIf If PD_CODE2 = "51-05-02-0016" Then Var cold_button_state = "Invisible" Var normal_button_state = "PressForever" EndIf ; i f Hot menu disable away If hot_button_state = "PressForever" Then If showOreoAddEnable = "Enable" Then Var showOreoAddEnable = "Disable" EndIf If showOreoAddEnable = "Press" Then Var showOreoAddEnable = "Disable" EndIf EndIf ; i f cold menu disable away If cold_button_state = "PressForever" Then If showOreoAddEnable = "Enable" Then Var showOreoAddEnable = "Disable" EndIf If showOreoAddEnable = "Press" Then Var showOreoAddEnable = "Disable" EndIf EndIf ; first time. If blend_button_state = "PressForever" Then Else If SubMenuGroupIDSlot6_1 = 300 Then Var showOreoAddEnable = "Disable" Var showText8 = "Enable" Var ExtraTopping = "Enable" EndIf EndIf STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw Var h_block_of_sugar = 210 If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" Else DEBUGVAR MAT_ID_STRAW_OFFER DEBUGVAR MAT_ID_LID_OFFER DEBUGVAR StrawState Var ShowLidStraw = "Enable" If StrawState = "Enable" Then If MAT_ID_STRAW_OFFER = "Enable" Then Var StrawState = MAT_ID_STRAW_OFFER Else Var StrawState = MAT_ID_STRAW_OFFER EndIf EndIf If StrawState = "Press" Then Var Seeker.thankStrawFlag = 1 Else Var Seeker.thankStrawFlag = 0 EndIf If LidState = "Enable" Then If MAT_ID_LID_OFFER = "Enable" Then Var LidState = MAT_ID_LID_OFFER Else Var LidState = MAT_ID_LID_OFFER EndIf EndIf DEBUGVAR MAT_ID_STRAW_OFFER DEBUGVAR MAT_ID_LID_OFFER 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 If SugarModeUpdateWhenChangeDrinkType = 1 Then Var SugarModeUpdateWhenChangeDrinkType = 0 RefreshAll Else Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" EndIf Var sugar_default_flag = 0 ; Suger 4 step cold If TOPPING1 = "Suger 4 step cold" Then Var BGSugar = "Invisible" Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "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 sugar_default_flag = 0 Then Var SugarState1 = "PressForever" EndIf EndIf ; Suger 4 step hot If TOPPING1 = "Suger 4 step hot" Then Var BGSugar = "Invisible" Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "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 sugar_default_flag = 0 Then Var SugarState1 = "PressForever" EndIf EndIf DEBUGVAR RecipeTag2 ; If TOPPING1 = "Sugar" Then If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" 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 RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" DEBUGVAR "set default Powder Sugar" 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 DEBUGVAR toppingID1Default DEBUGVAR SugarState1 EndIf If TOPPING1 = "Sugar Premix 25" Then If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf Var ShiftSugarStep = 2 Var SugarState1 = "Disable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "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 If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf Var ShiftSugarStep = 3 Var SugarState1 = "Disable" Var SugarState2 = "Disable" If RecipeTag2 = "Topping6Step" Then Var SugarState3 = "Disable" Else Var SugarState3 = "Enable" EndIf Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "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 If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf 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 SugarModeUpdateWhenChangeDrinkType = 0 If TOPPING1 = "Suger 4 step cold" Then Var BGSugarColdHealthy = "Enable" Var BGSugarHotHealthy = "Invisible" Var ShiftSugarStep = 1 Var SugarModeUpdateWhenChangeDrinkType = 1 EndIf If TOPPING1 = "Suger 4 step hot" Then Var BGSugarHotHealthy = "Enable" Var BGSugarColdHealthy = "Invisible" Var ShiftSugarStep = 1 Var SugarModeUpdateWhenChangeDrinkType = 1 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 DEBUGVAR SelectDrinkType 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" Var ExtraTopping = "Enable" Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) DEBUGVAR toppingID2price2Conv Var text_shot_normal_add = toppingID2price2Conv + ")" Var text_shot_normal_add = "(+" + text_shot_normal_add Refresh EndIf If TOPPING2 = "shot coffee termtem" Then Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1003" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1007" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1008" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1009" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1101" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1102" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1103" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1104" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1105" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1106" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If ShotCoffeePremium = "Enable" Then Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) DEBUGVAR toppingID2price2Conv Var text_price_topping = toppingID2price2Conv + ")" Var text_price_topping = "(+" + text_price_topping EndIf ;-END If TOPPING3 = "Collagen" Then Var CollagenState = "Enable" Else Var CollagenState = "Invisible" Var ShowCollagenOnly = "Invisible" EndIf EndIf ;topping_price_refresh = 0 If MenuCodeName1 = "OatMilk" Then Var OatMilkToppingEnable = "Enable" DEBUGVAR OatMilkOnTopPrice Var OatMilkOnTopPriceStr !assigned StringFmt( OatMilkOnTopPrice , DisplayFormat, PreScaleConvertShow) Var text_price_oat_milk = OatMilkOnTopPriceStr + ")" Var text_price_oat_milk = "(+" + text_price_oat_milk Var OatMilkAddAmount = OatMilkOnTopPrice If RoadShow = "true" Then Var OatMilkAddAmount = 0 Var text_price_oat_milk = "( Free )" EndIf If MenuCodeName1_State = "Enable" Then Var OatMilkEnable = "Enable" EndIf EndIf 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 DEBUGVAR showShotEnable DEBUGVAR showOreoAddEnable DEBUGVAR ShotCoffeePremium DEBUGVAR toppingID2price1 DEBUGVAR toppingID2price2 DEBUGVAR toppingID2price3 Function 2 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 ; Text head 0 752 1080 Center 68 KanitMediumTTF 0x513C2F showname ; same 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; ; ; ; ; ; ; ; ; ; ; ; ;- FRAME SCORELLL 52 881 1080 880 880 "Vertical" 1 ; show_select_type 988 162 20 show_select_type "ROOT/taobin_project/image/topping_inter/drink_select_type.png" 40 10 500 72 000067 416 72 hot_button_state "No" "ROOT/taobin_project/image/topping_inter/bt_hot.png" "ROOT/taobin_project/image/topping_inter/bt_hot_selected.png" "ROOT/taobin_project/image/topping_inter/bt_hot_disable.png" "ROOT/taobin_project/image/topping_inter/bt_hot_disable2.png" "ROOT/taobin_project/image/topping_inter/bt_hot_selected.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var SelectDrinkType = 1 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" Var IndexDrinktType = 0 43 8 60 42 000081 594 72 cold_button_state "No" "ROOT/taobin_project/image/topping_inter/bt_cold_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_selected_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_disable_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_disable2_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_selected_no.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var SelectDrinkType = 1 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 Var IndexDrinktType = 1 40 8 60 42 000082 594 72 normal_button_state "No" "ROOT/taobin_project/image/topping_inter/bt_cold_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_selected_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_disable_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_disable2_no.png" "ROOT/taobin_project/image/topping_inter/bt_cold_selected_no.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var SelectDrinkType = 1 SAVELOG "Press cold" Var normal_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 Var IndexDrinktType = 1 35 8 150 42 000084 772 72 blend_button_state "No" "ROOT/taobin_project/image/topping_inter/bt_smoothie_no.png" "ROOT/taobin_project/image/topping_inter/bt_smoothie_selected_no.png" "ROOT/taobin_project/image/topping_inter/bt_smoothie_disable_no.png" "ROOT/taobin_project/image/topping_inter/bt_smoothie_disable2_no.png" "ROOT/taobin_project/image/topping_inter/bt_smoothie_selected_no.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press blend" Var SelectDrinkType = 1 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 Var IndexDrinktType = 2 26 8 75 42 000083 510 85 KanitRegularTTF 23 text_hot_color text_price_d1 690 85 KanitRegularTTF 23 text_cold_color text_price_d2 ; x for blend rng. text_show_blend_x 85 KanitRegularTTF 23 text_blender_color text_price_d3 ; ; ; ; ; ; ; ; ; ; ;- Begin topping new 988 156 20 BGSugarNew ; sugar layout "Enable" "ROOT/taobin_project/image/topping_inter//bg_sugar_bank_button.png" 40 10 500 72 000065 ; ; sugar1 120 79 SugarState1 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.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 SugarState6 = "Enable" Var topping1 = toppingID1index1 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000040 0 1 136 55 000046 0 33 136 21 ; sugar2 260 79 SugarState2 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.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 SugarState6 = "Enable" Var topping1 = toppingID1index2 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "PressForever" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" Var topping1 = toppingID1index1 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000041 0 1 136 55 000047 0 33 136 21 ; sugar3 400 79 SugarState3 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.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 SugarState6 = "Enable" Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" Var topping1 = toppingID1index2 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000042 0 1 136 55 000048 0 33 136 21 ; sugar4 540 79 SugarState4 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.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 SugarState6 = "Enable" Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var SugarState6 = "Enable" Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var SugarState6 = "Enable" Var topping1 = toppingID1index2 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000043 0 1 136 55 000049 0 33 136 21 ; sugar5 680 79 SugarState5 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.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 SugarState6 = "Enable" Var topping1 = toppingID1index5 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var SugarState6 = "Enable" Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var SugarState6 = "Enable" Var topping1 = toppingID1index3 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000044 0 1 136 55 000050 0 33 136 21 ; sugar6 820 79 SugarState6 "ROOT/taobin_project/image/topping_inter/bn_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_6lvl.png" "ROOT/taobin_project/image/topping_inter/bd_sugar_6lvl.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "SUGAR6" 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 = "Enable" Var SugarState6 = "PressForever" Var topping1 = toppingID1index6 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "PressForever" Var topping1 = toppingID1index5 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "PressForever" Var topping1 = toppingID1index4 EndIf Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000045 0 1 136 55 000051 0 33 136 21 ;- END topping1 ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;- Begin topping2 988 156 20 BGSugarHotHealthy ; sugar layout BGSugarHotHealthy "ROOT/taobin_project/image/topping_inter//bg_sugar_bank_button.png" 40 10 500 72 000065 ; ; sugar1 149 77 SugarState1 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 000052 0 1 198 52 000060 0 32 198 21 ; sugar2 352 77 SugarState2 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000053 0 1 198 52 000061 0 32 198 21 ; sugar3 555 77 SugarState3 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000054 0 1 198 52 000062 0 32 198 21 ; sugar4 758 77 SugarState4 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000055 0 1 198 52 000063 0 32 198 21 ;- END topping2 ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;- Begin topping3 988 156 20 BGSugarColdHealthy ; sugar layout BGSugarColdHealthy "ROOT/taobin_project/image/topping_inter//bg_sugar_bank_button.png" 40 10 500 72 000065 ; ; sugar1 149 77 SugarState1 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 000052 0 1 198 52 000056 0 32 198 21 ; sugar2 352 77 SugarState2 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000053 0 1 198 52 000057 0 32 198 21 ; sugar3 555 77 SugarState3 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000054 0 1 198 52 000058 0 32 198 21 ; sugar4 758 77 SugarState4 "ROOT/taobin_project/image/topping_inter/bn_sugar_4step.png" "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.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 ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh 000055 0 1 198 55 000059 0 32 198 21 ;- END topping2 ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;-BEGIN milk choice OatMilkToppingEnable 986 157 20 OatMilkToppingEnable "ROOT/taobin_project/image/topping_inter/bg_milk_choice.png" 40 10 500 72 000103 40 72 OatMilkEnable "No" "ROOT/taobin_project/image/topping2/bn_cereal.png" "ROOT/taobin_project/image/topping2/bp_cereal.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG " OatMilkEnable " If OatMilkEnable = "Press" Then Var OatMilkEnable = "Enable" Else Var OatMilkEnable = "Press" EndIf Function 2 Refresh ; 896 78 OatMilkEnable "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG " OatMilkEnable " If OatMilkEnable = "Press" Then Var OatMilkEnable = "Enable" Else Var OatMilkEnable = "Press" EndIf Function 2 Refresh text_milk_choice_price_x 63 KanitRegularTTF "Enable" 36 0x84776F text_price_oat_milk 120 62 800 65 000104 ; ; ; ; ; ; ; ; ; ;-END ; ; ; Extra topping. ; ; ; ; ; ; ;-BEGIN shot layout ExtraTopping 1080 "auto" 20 986 "auto" "vertical" ExtraTopping ; 986 64 ExtraTopping "ROOT/taobin_project/image/topping_inter/bg_top.png" 40 10 500 72 000064 ; ; ; 986 "auto" ShotCoffeePremium ; 0 0 "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" 120 4 000102 800 65 40 5 ShotCoffeePremium "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 ShotCoffeePremium = "Press" Then Var ShotCoffeePremium = "Enable" Else Var ShotCoffeePremium = "Press" EndIf Function 2 Refresh ; 896 14 ShotCoffeePremium "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "premium shot press" If ShotCoffeePremium = "Press" Then Var ShotCoffeePremium = "Enable" Else Var ShotCoffeePremium = "Press" EndIf Function 2 Refresh topping_shot_price_x 2 KanitRegularTTF "ShotCoffeePremium" 36 0x84776F text_price_topping ; ; ; ;-BEGIN shot layout "showShotEnable" 986 "auto" showShotEnable ; 0 0 "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" 120 4 000100 800 65 ; 40 5 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 Function 2 Refresh "OnValueChange" ; 896 14 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 Function 2 Refresh "OnValueChange" showText4 602 4 Var( DirImage + "/text4.png" ) text_show_normal_x 4 KanitRegularTTF "Enable" 36 0x84776F text_shot_normal_add ; ; ; ; ; 986 "auto" showOreoAddEnable ; 0 0 "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" ; 40 5 showOreoAddEnable "No" "ROOT/taobin_project/image/topping2/bn_add_oreo.png" "ROOT/taobin_project/image/topping2/bp_add_oreo.png" "ROOT/taobin_project/image/topping2/bd_add_oreo.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press aadd oreo" If showOreoAddEnable = "Press" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Press" EndIf Function 2 Refresh "OnValueChange" ; 896 14 showOreoAddEnable "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 oreo" If showOreoAddEnable = "Press" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Press" EndIf Function 2 Refresh "OnValueChange" ; ; showText8 ; 600 ; 6 ; Var( DirImage + "/text8.png" ) ; showText8 580 2 300 70 000092 text_x_add_oreo_price 12 KanitRegularTTF "Enable" 36 0x84776F text_price_6 120 12 000101 ; ; ; ; ; ; "Enable" 986 27 -5 ExtraTopping "ROOT/taobin_project/image/topping_inter/bg_bottom.png" ;-END ; ; ; ; ; ; ; ; ; ; ;-BEGIN Collagen ; ;-BEGIN Lid straw 986 240 20 ShowLidStraw "ROOT/taobin_project/image/topping_inter/bg_strawlid.png" 40 10 500 72 000066 120 80 500 72 000070 120 156 500 72 000071 LidDeactiveButton 602 144 290 72 000091 ; 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" ) ; ; ; ; ; ; ; ; ; ; Open "/media/bt/xml/security_alarm.xml" ; back 44 1785 "ROOT/taobin_project/image/topping_inter/bn_cancel.png" "ROOT/taobin_project/image/topping_inter/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 53 16 120 42 000074 ; 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 "ROOT/taobin_project/image/topping_inter/bn_next.png" "ROOT/taobin_project/image/topping_inter/bp_next.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Var Seeker = "curr" 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.topping6 = topping6 Var Seeker.get_a_straw = StrawState Var Seeker.get_a_lid = LidState DEBUGVAR Seeker.topping1 DEBUGVAR Seeker.topping2 DEBUGVAR Seeker.topping3 DEBUGVAR Seeker.topping6 DEBUGVAR Seeker.get_a_straw DEBUGVAR Seeker.get_a_lid DEBUGVAR LidState DEBUGVAR StrawState DEBUGVAR UserSelectProductCode If StrawState = "Press" Then Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then Machine LidOrder Var LedLidBlink = "true" Var bg_lidProblem_ST = "Enable" Else Var bg_lidProblem_ST = "Invisible" EndIf If SelectDrinkType = 0 Then Else Var StrawState = "Enable" Var LidState = "Enable" EndIf ; Var SelectDrink = UserSelectProductCode Var Seeker.selected_a_drink = UserSelectProductCode DEBUGVAR Seeker.selected_a_drink ; Set drink If Seeker = "curr" Then Topping "Select" UserSelectProductCode ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 Topping "Select6-ID" topping6 ; 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 Topping "__select6-id" topping6 ; Pack Topping "__pack" ExtendDataNext Var NextUserSelectDrinkFromPaid = UserSelectProductCode Var NextUserSelecttopping1Paid = topping1 Var NextUserSelecttopping2Paid = topping2 Var NextUserSelecttopping3Paid = topping3 Var NextUserSelecttopping6Paid = topping6 EndIf DEBUGVAR Seeker DEBUGVAR Seeker.ExtendData Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname DEBUGVAR MenuCautionImageStage0 DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType If LanguageShow = "ENG" Then Var show_eng = "true" EndIf If LanguageShow = "THAI" Then Var show_eng = "false" EndIf GetLongTimeInMinute LastTimeClickOrder If CART_COUNT = 0 Then If UserSelectProductCode = "-" Then Else If SelectDrinkType = 1 Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_payment.xml" EndIf 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 Var LastTimeClickOrder = 0 64 19 000073 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" Var IndexDrinktType = 0 EndIf If DefaultDrinkType = 2 Then Var cold_button_state = "PressForever" If PD_CODE2 = "12-05-02-0016" Then Var cold_button_state = "Invisible" Var normal_button_state = "PressForever" Var SelectDrinkType = 1 EndIf If PD_CODE2 = "51-05-02-0016" Then Var cold_button_state = "Invisible" Var normal_button_state = "PressForever" Var SelectDrinkType = 1 EndIf Var IndexDrinktType = 1 EndIf If DefaultDrinkType = 3 Then Var blend_button_state = "PressForever" Var IndexDrinktType = 2 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" Var showname = NameLang[0][LanguageShowByIndex] Var showdesc = DescLang[0][LanguageShowByIndex] Var text_hot_color = "0xFFFFFF" Var text_cold_color = "0x84776F" Var text_blender_color = "0x84776F" Var SelectDrinkType = 1 Machine PreparCup 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" Var showname = NameLang[1][LanguageShowByIndex] Var showdesc = DescLang[1][LanguageShowByIndex] Var text_hot_color = "0x84776F" Var text_cold_color = "0xFFFFFF" Var text_blender_color = "0x84776F" Var SelectDrinkType = 1 Machine PreparCup EndIf If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = PriceD3 Var UserSelectProductCode = PD_CODE3 If showShotEnable = "Invisible" Then Else Var showShotEnable = "Disable" EndIf Var showText4 = "Enable" Var showname = NameLang[2][LanguageShowByIndex] Var showdesc = DescLang[2][LanguageShowByIndex] Var text_hot_color = "0x84776F" Var text_cold_color = "0x84776F" Var text_blender_color = "0xFFFFFF" Var SelectDrinkType = 1 Machine PreparCup EndIf BackslashNToEnter showname BackslashNToEnter showdesc CRLFToSpace showname CRLFToSpace showdesc DEBUGVAR PriceDrinkNoTop DEBUGVAR PriceDiff DEBUGVAR showShotEnable Var TOPPING_PRICE = 0 If ShotCoffeePremium = "Press" Then If blendedState = "Press" Then Var PriceDrinkTmp = PriceDrinkNoTop EndIf Var blendedState = "Disable" Var TOPPING_PRICE = 0 Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" Var showText7 = "Enable" SAVELOG "Select premi normal shot" Else If showShotEnable = "Press" Then If 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 EndIf DEBUGVAR showOreoAddEnable DEBUGVAR TOPPING_PRICE If showOreoAddEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = toppingID6index2 Var DisableUsingCode = "true" Else ;Var PriceDrinkTmp = PriceDrinkNoTop Var topping6 = toppingID6index1 Var DisableUsingCode = "false" EndIf DEBUGVAR OatMilkEnable DEBUGVAR MenuCodeName1 DEBUGVAR MenuCodeName1_State If OatMilkEnable = "Press" Then If MenuCodeName1 = "OatMilk" Then If MenuCodeName1_State = "Enable" Then Var TOPPING_PRICE = TOPPING_PRICE + OatMilkAddAmount Var UserSelectProductCode = SubMenuProductCode1 EndIf EndIf EndIf DEBUGVAR SelectDrinkType DEBUGVAR showShotEnable DEBUGVAR PriceDrinkTmpShow Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp If SelectDrinkType = 0 Then Var PriceDrinkTmpShow = "---" Else Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormatFull, PreScaleConvertShow) EndIf SAVELOG PriceDrinkTmp If RoadShow = "true" Then Var PriceDrinkTmpShow = "Free" DEBUGVAR SelectDrink2 DEBUGVAR PriceDrinkTmpShow EndIf 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 1080 high_light_drink_type 000075 ;