"Enable" 1080 1920 ; "0xeae6e1" SoundVolume OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" Var UserSeletedSugar = 0 SAVELOG "Event Open Select 7" If NoWaitMachineEnable = 1 Then Var ConfirmDrinkButtonState = "Enable" Else Var ConfirmDrinkButtonState = "Invisible" EndIf 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 AddTopping = "ON" Var minusOreo = "Disable" Var plusOreo = "Disable" Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" Var minusPearl = "Disable" Var plusPearl = "Disable" Var CountOreo = 0 Var CountChocolatechip = 0 Var CountBiscoff = 0 Var CountOvaltine = 0 Var CountPearl = 0 Var PriceAddTopping = 0 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 showChocolatechipEnable = "Invisible" Var showBiscoffbiscuitsEnable = "Invisible" Var showOvaltineEnable = "Invisible" Var showPearlEnable = "Invisible" Var BGSugarHotHealthy = "Invisible" Var BGSugarColdHealthy = "Invisible" Var showText8 = "Invisible" ;Var showShotEnable = "Enable" ;Var ShotCoffeePremium = "Enable" ;Var showOreoAddEnable = "Enable" Var ExtraTopping = "Invisible" Var ExtraToppingAdd = "Invisible" ; On open Var LidState = Lid1Status ;SAVELOG PreviseXMLFileName2 Var MenuReady = "-" 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 = 430 Var text_show_normal_x = 408 Var text_x_free_adjust = 100 Var text_milk_choice_price_x = 255 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 5 EndIf 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 = 420 Var text_show_normal_x = 386 Var text_x_free_adjust = 70 Var text_milk_choice_price_x = 237 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 30 EndIf EndIf Var text_x_free_topping = text_x_add_oreo_price + text_x_free_adjust 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 Var show_select_type = "Invisible" If From15THBPro = 1 Then If PriceD1 > 0 Then Var OriginalPriceD1 = PriceD1 Var PriceD1 = 15 EndIf If PriceD2 > 0 Then Var OriginalPriceD2 = PriceD2 Var PriceD2 = 15 EndIf If PriceD3 > 0 Then Var OriginalPriceD3 = PriceD3 Var PriceD3 = 15 EndIf EndIf If hot_button_state = "Disable2" Then Var text_price_d1 = "" Else Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormat, PreScaleConvertShow) EndIf If cold_button_state = "Disable2" Then Var text_price_d2 = "" Else Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormat, PreScaleConvertShow) EndIf If blend_button_state = "Disable2" Then Var text_price_d3 = "" Else Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormat, PreScaleConvertShow) 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" If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" EndIf 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" If MilkChoiceVeganEnable = 1 Then Var OatMilkToppingBg = DirImage + "/bg_milk_choice_j.png" Else Var OatMilkToppingBg = DirImage + "/bg_milk_choice.png" EndIf Var OatMilkToppingEnable = "Invisible" Var OatMilkEnable = "Invisible" Var topping_price_refresh = 1 Var StrawState = "Invisible" Var LidState = "Invisible" Var MAT_ID_9701 = StrawState Var SubMenuGroupIDSlot6_1 = 0 Var bg_lidProblem_ST = "Invisible" Var GetLidButtonState = "Invisible" Var PromotionIDCurrentOrder = 0 DEBUGVAR PromotionIDCurrentOrder Var DiscountWithIdentifyState = "Invisible" Var WelcomeDrinkButtonState = "Invisible" Var Price5Active = 0 Var SugarZeroCalEnable = "false" Var SugarZeroCalOption = "Invisible" Var SugarNormalCheck = "Invisible" Var SugarZeroCalCheck = "Invisible" Var SugarZeroCalPrice_X = 482 Var SugarZeroCalPrice = 0 Var priceFormat = "(+฿%.0f)" Var SugarZeroCalPriceStr !assigned StringFmt( SugarZeroCalPrice , priceFormat, PreScaleConvertShow) DEBUGVAR Price5Active DEBUGVAR EnableLiveness DEBUGVAR DiscountWithIdentifyState DEBUGVAR WelcomeDrinkEnable If OreoWelcomeDrinkFromClick = 1 Then Var OreoWelcomeDrinkFromClick = 0 Var WelcomeDrinkButtonState = "Enable" EndIf DEBUGVAR WelcomeDrinkButtonState If EnableLiveness = "true" Then If CameraCount = 1 Then ; echo -n true > /mnt/sdcard/enable_discount_price5 READ_FILE "/mnt/sdcard/enable_discount_price5" EnableDiscountPrice5 DEBUGVAR EnableDiscountPrice5 If EnableDiscountPrice5 = "true" Then Var EnableDiscountWithIdentify = 1 Var DiscountWithIdentifyState = "Enable" EndIf EndIf EndIf If show_eng = "true" Then Var OatMilkX = 400 Else Var OatMilkX = 270 EndIf TRY "/mnt/sdcard/coffeevending/taobin_project/flash_deal/topping_page.ev" 1000 DEBUGVAR Timeout DEBUGVAR MenuReady DEBUGVAR CupRemain If SelectDrinkType = 1 Then If MenuReady = "YES" Then ; echo -n true > /mnt/sdcard/coffeevending/menu_blend_free READ_FILE "/mnt/sdcard/coffeevending/menu_blend_free" menu_blend_free DEBUGVAR menu_blend_free DEBUGVAR blend_button_state If menu_blend_free = "true" Then If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = 0 Var PriceDrink = 0 Var PriceDrinkTmpShow = "Free" EndIf EndIf If Seeker = "next" Then If CupRemain > 0 Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_payment.xml" EndIf Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_payment.xml" EndIf EndIf If MenuReady = "YES" Then EndIf EndIf Var Timeout = Timeout + 1 If Timeout > 40 Then Var Timeout = 0 If Seeker = "next" Then If ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 Var PointCrm = "0" Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore EndIf OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else If ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 Var PointCrm = "0" Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore EndIf 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 If NoWaitMachineEnable = 1 Then DEBUGVAR MachineStage DEBUGVAR ConfirmDrinkButtonState If MachineStage = "close-maintenance" Then Var ConfirmDrinkButtonState = "Enable" If stop_now = "true" Then If Seeker = "curr" Then Open "ROOT/taobin_project/xml/page_back_to_error.xml" Else Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf Else Var ConfirmDrinkButtonState = "Invisible" EndIf Else EndIf If show_eng = "true" Then If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then Var ShowTextSelfTestCountDown = "Please wait a moment (" + MACHINE_SELF_TEST_COUNT_DOWN Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")" Else Var ShowTextSelfTestCountDown = "Please wait a moment" EndIf Else If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then Var ShowTextSelfTestCountDown ="กรุณารอสักครู่ (" + MACHINE_SELF_TEST_COUNT_DOWN Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")" Else Var ShowTextSelfTestCountDown ="กรุณารอสักครู่" 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 Var text_x_add_oreo_price = 430 Var text_show_normal_x = 408 Var text_x_free_adjust = 100 Var text_milk_choice_price_x = 255 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 5 EndIf 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 = 420 Var text_show_normal_x = 386 Var text_x_free_adjust = 70 Var text_milk_choice_price_x = 237 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 30 EndIf EndIf Var text_x_free_topping = text_x_add_oreo_price + text_x_free_adjust 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 Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "select_level.wav" EndIf Play PlaySoundLag EndIf EndIf EndIf If MilkChoiceVeganEnable = 1 Then Var OatMilkToppingBg = DirImage + "/bg_milk_choice_j.png" Else Var OatMilkToppingBg = DirImage + "/bg_milk_choice.png" EndIf TRY "/mnt/sdcard/coffeevending/taobin_project/flash_deal/topping_page.ev" If show_eng = "true" Then Var OatMilkX = 400 Else Var OatMilkX = 270 EndIf Function 2 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 If ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 Var PointCrm = "0" Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog2.xml" EndIf OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" Open OpenFromXML DEBUGVAR MAT_ID_9701 DEBUGVAR MAT_ID_9601 ;1058 is Oreo ;1072 is Biscoffbiscuits ;1071 is Chocolatechip ;1065 is Ovaltine DEBUGVAR MAT_ID_1072 DEBUGVAR MAT_ID_1058 DEBUGVAR MAT_ID_1071 DEBUGVAR MAT_ID_1065 DEBUGVAR SubMenuProductCode1 DEBUGVAR SubMenuName11 DEBUGVAR SubMenuPrice1 DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuName12 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 ;no add DEBUGVAR toppingID6index1 ;OreoToppingTim DEBUGVAR toppingID6index2 ;ChocolateChipToppingTim DEBUGVAR toppingID6index3 ;BiscoffBiscuitsToppingTim DEBUGVAR toppingID6index4 ;OvaltineToppingTim DEBUGVAR toppingID6index5 DEBUGVAR BrewParam DEBUGVAR UserSeletedSugar If BugFlag = 1 Then Else If TOPPING6 = "Topping-Taotim" Then Var text_color_6 = "0x84776F" 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 DEBUGVAR text_color_6 Else Var text_price_6 = "" EndIf If blend_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" Var showChocolatechipEnable = "Enable" Var showBiscoffbiscuitsEnable = "Enable" Var showOvaltineEnable = "Enable" Var showText8 = "Invisible" Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "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 showChocolatechipEnable = "Enable" Var showBiscoffbiscuitsEnable = "Enable" Var showOvaltineEnable = "Enable" Var showText8 = "Invisible" EndIf EndIf EndIf EndIf DEBUGVAR SubMenuGroupIDSlot6_1 ; 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 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 MAT_ID_9701 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 = "Enable" Else Var LidState = "Disable" 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 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 for Hot" 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 Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" ; Play Sound #zone If SoundBackToSchoolEnable = 1 Then If SoundBackToSchoolType = 1 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/" EndIf If SoundBackToSchoolType = 2 Then Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/" EndIf Var PlaySoundLag = RootPathSoundBackToSchool + "select_level.wav" EndIf Play PlaySoundLag 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 TOPPING2 = "add-show-1107" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" Var ExtraTopping = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1108" 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" ;SubMenuPrice1 ignore. Fix by xml Var OatMilkPrice = "(+5)" 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" Var ModeFreeEnable = 1 Else Var ModeFreeEnable = 0 EndIf If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Var MAT_ID_1301 = "Disable" If MAT_ID_1301 = "Enable" Then Var showPearlEnable = "Enable" Else Var showPearlEnable = "Disable" EndIf ; Add topping env --- start If AddTopping = "ON" Then Var ExtraTopping = "Invisible" Var ExtraToppingAdd = "Enable" Else Var ExtraTopping = "Enable" Var ExtraToppingAdd = "Invisible" EndIf If showOreoAddEnable = "Enable" Then Var minusOreo = "Disable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Disable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Disable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Disable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If showPearlEnable = "Enable" Then Var minusPearl = "Disable" Var plusPearl = "Enable" Else Var minusPearl = "Disable" Var plusPearl = "Disable" EndIf ; Add topping env --- end ; suger 0 cal env --- start If MAT_ID_1215 = "Enable" Then Var SugarState2 = "PressForever" Var SugarZeroCalEnable = "true" Var SugarZeroCalOption = "Invisible" Var SugarNormalCheck = "Disable" Var SugarZeroCalCheck = "PressForever" Var SugarZeroCalPrice_X = 482 Var SugarZeroCalPrice = 10 Var priceFormat = "(+฿%.0f)" Var SugarZeroCalPriceStr !assigned StringFmt( SugarZeroCalPrice , priceFormat, PreScaleConvertShow) EndIf ; suger 0 cal env --- end DEBUGVAR showShotEnable DEBUGVAR showOreoAddEnable DEBUGVAR showChocolatechipEnable DEBUGVAR showBiscoffbiscuitsEnable DEBUGVAR showOvaltineEnable DEBUGVAR showPearlEnable DEBUGVAR ShotCoffeePremium DEBUGVAR toppingID2price1 DEBUGVAR toppingID2price2 DEBUGVAR toppingID2price3 TRY "/mnt/sdcard/coffeevending/taobin_project/flash_deal/topping_page.ev" 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 382 331 436 OverlayMenuFilter 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 68 KanitMediumTTF 0x513C2F showname ; same 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; ; ; ; ; ; ; ; ; ; ; ; ;- FRAME SCORELLL ; zone scroll 52 881 1080 880 880 "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 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" 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 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 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 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 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 ;-END ;-BEGIN shot layout Block Topping Icecream start ExtraTopping 1080 "auto" 20 986 "auto" "vertical" ExtraTopping ; 986 64 ExtraTopping Var( DirImage + "/bg_top_icream.png" ) ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 986 "auto" ShotCoffeePremium ; 0 0 Var( DirImage + "/bg_top_b3shot.png") 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 Var( DirImage + "/bg_top_shot2.png") ; 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 ; ; ; ; ;Oreo 986 "auto" showOreoAddEnable ; 0 0 Var( DirImage + "/bg_top_oreo3.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 add oreo" If showOreoAddEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Press" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh ; 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 If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Press" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 230 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Chocolate chip 986 "auto" showChocolatechipEnable ; 0 0 Var( DirImage + "/bg_top_chochip.png") ; 40 5 showChocolatechipEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Chochip.png" "ROOT/taobin_project/image/topping2/bp_add_Chochip.png" "ROOT/taobin_project/image/topping2/bd_add_Chochip.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Chocolatechip" If showChocolatechipEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Press" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh ; 896 14 showChocolatechipEnable "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 Chocolatechip" If showChocolatechipEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Press" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 380 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Biscoffbiscuits 986 "auto" showBiscoffbiscuitsEnable ; 0 0 Var( DirImage + "/bg_top_biscoff.png") ; 40 5 showBiscoffbiscuitsEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Biscoff.png" "ROOT/taobin_project/image/topping2/bp_add_Biscoff.png" "ROOT/taobin_project/image/topping2/bd_add_Biscoff.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Biscoffbiscuits" If showBiscoffbiscuitsEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Press" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh ; 896 14 showBiscoffbiscuitsEnable "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 Biscoffbiscuits" If showBiscoffbiscuitsEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Press" Var showOvaltineEnable = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 385 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Ovaltine 986 "auto" showOvaltineEnable ; 0 0 Var( DirImage + "/bg_top_ovaltine.png") ; 40 5 showOvaltineEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Ovaltine.png" "ROOT/taobin_project/image/topping2/bp_add_Ovaltine.png" "ROOT/taobin_project/image/topping2/bd_add_Ovaltine.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Ovaltine" If showOvaltineEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Press" EndIf Function 2 Refresh ; 896 14 showOvaltineEnable "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 Ovaltine" If showOvaltineEnable = "Press" Then If MAT_ID_1072 = "Enable" Then Var showBiscoffbiscuitsEnable = "Enable" Else Var showBiscoffbiscuitsEnable = "Disable" EndIf If MAT_ID_1058 = "Enable" Then Var showOreoAddEnable = "Enable" Else Var showOreoAddEnable = "Disable" EndIf If MAT_ID_1071 = "Enable" Then Var showChocolatechipEnable = "Enable" Else Var showChocolatechipEnable = "Disable" EndIf If MAT_ID_1065 = "Enable" Then Var showOvaltineEnable = "Enable" Else Var showOvaltineEnable = "Disable" EndIf Else Var showOreoAddEnable = "Disable" Var showChocolatechipEnable = "Disable" Var showBiscoffbiscuitsEnable = "Disable" Var showOvaltineEnable = "Press" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 270 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ; ; ; ; ; ; "Enable" 986 27 -5 ExtraTopping "ROOT/taobin_project/image/topping2/bg_bottom.png" ; Block Topping Icecream end ; ; ; ; ; ;-BEGIN Sugar Zero options eval( If SugarZeroCalOption = "Enable" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) 988 214 20 SugarZeroCalOption Var( DirImage + "/sugar_type_option.png") ; Normal Sugar 40 73 SugarNormalCheck "No" Var( DirImage + "/cb_uncheck_new.png" ) Var( DirImage + "/cb_dis_uncheck_new.png" ) Var( DirImage + "/cb_dis_uncheck_new.png" ) Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG " SugarNormalChecked " If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" Refresh Else If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then Else Var SugarZeroCalCheck = "Enable" EndIf EndIf If SugarNormalCheck = "PressForever" Then Else Var SugarNormalCheck = "PressForever" EndIf Function 2 EndIf ; Sugar Zero Cal 305 73 SugarZeroCalCheck "No" Var( DirImage + "/cb_uncheck_new.png" ) Var( DirImage + "/cb_dis_uncheck_new.png" ) Var( DirImage + "/cb_dis_uncheck_new.png" ) Var( DirImage + "/cb_checked_new.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG " SugarZeroCalChecked " If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" Refresh Else Var SugarState1 = "Enable" Var SugarState2 = "PressForever" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If SugarZeroCalCheck = "PressForever" Then Else Var SugarZeroCalCheck = "PressForever" EndIf Function 2 EndIf SugarZeroCalPrice_X 67 KanitRegularTTF "Enable" 28 0x84776F SugarZeroCalPriceStr ; sugar1 120 135 SugarState1 Var( DirImage + "/bn_sugarlevel1.png" ) Var( DirImage + "/bp_sugarlevel1.png" ) Var( DirImage + "/bu_sugarlevel1.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" Refresh Else If ShiftSugarStep = 1 Then Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index1 EndIf Var UserSeletedSugar = 1 If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then Else Var SugarZeroCalCheck = "Disable" EndIf EndIf DEBUGVAR SugarZeroCalCheck Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "Enable" Function 2 EndIf DEBUGVAR topping1 ; sugar2 260 135 SugarState2 Var( DirImage + "/bn_sugarlevel2.png" ) Var( DirImage + "/bp_sugarlevel2.png" ) Var( DirImage + "/bu_sugarlevel2.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" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index2 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "PressForever" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" ; select no sugar Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then Else Var SugarZeroCalCheck = "Disable" EndIf EndIf ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index1 EndIf If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "PressForever" Function 2 EndIf DEBUGVAR topping1 ; sugar3 400 135 SugarState3 Var( DirImage + "/bn_sugarlevel3.png" ) Var( DirImage + "/bp_sugarlevel3.png" ) Var( DirImage + "/bu_sugarlevel3.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" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index2 EndIf If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "PressForever" Function 2 EndIf DEBUGVAR topping1 ; sugar4 540 135 SugarState4 Var( DirImage + "/bn_sugarlevel4.png" ) Var( DirImage + "/bp_sugarlevel4.png" ) Var( DirImage + "/bu_sugarlevel4.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" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var SugarState6 = "Enable" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var SugarState6 = "Enable" ; select no sugar Var SugarNormalCheck = "PressForever" If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable2" Then Else Var SugarZeroCalCheck = "Disable" EndIf EndIf ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index2 EndIf If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "PressForever" Function 2 EndIf DEBUGVAR topping1 ; sugar5 680 135 SugarState5 Var( DirImage + "/bn_sugarlevel5.png" ) Var( DirImage + "/bp_sugarlevel5.png" ) Var( DirImage + "/bu_sugarlevel5.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" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index5 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var SugarState6 = "Enable" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var SugarState6 = "Enable" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index3 EndIf If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "PressForever" Function 2 EndIf DEBUGVAR topping1 ; sugar6 820 135 SugarState6 Var( DirImage + "/bn_sugarlevel6.png" ) Var( DirImage + "/bp_sugarlevel6.png" ) Var( DirImage + "/bu_sugarlevel6.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" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index6 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "PressForever" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index5 EndIf If ShiftSugarStep = 3 Then Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "PressForever" ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" Var SugarState6 = "Disable" EndIf Var topping1 = toppingID1index4 EndIf If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf Var UserSeletedSugar = 1 Var SugarNormalCheck = "Disable2" Var SugarZeroCalCheck = "PressForever" Function 2 EndIf DEBUGVAR topping1 ; Block Topping Icecream Add Topping start ExtraToppingAdd 1080 "auto" 20 986 "auto" "vertical" ExtraToppingAdd ; 986 64 ExtraToppingAdd Var( DirImage + "/bg_top_icream.png" ) ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 986 "auto" ShotCoffeePremium ; 0 0 Var( DirImage + "/bg_top_b3shot.png") 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 Var( DirImage + "/bg_top_shot2.png") ; 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 ; ; ; ; ;Oreo 986 "auto" showOreoAddEnable ; 0 0 Var( DirImage + "/bg_top_oreo3.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 ; 790 14 minusOreo "No" Var( DirImage + "/bn_minustopping.png" ) Var( DirImage + "/bp_minustopping.png" ) Var( DirImage + "/bd_minustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press reduce oreo" Var CountOreo = CountOreo - 1 Var PriceAddTopping = PriceAddTopping - toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh 858 12 KanitRegularTTF "Enable" 30 text_color_6 CountOreo 896 14 plusOreo "No" Var( DirImage + "/bn_plustopping.png" ) Var( DirImage + "/bp_plustopping.png" ) Var( DirImage + "/bd_plustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add oreo" Var CountOreo = CountOreo + 1 Var PriceAddTopping = PriceAddTopping + toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 230 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Chocolate chip 986 "auto" showChocolatechipEnable ; 0 0 Var( DirImage + "/bg_top_chochip.png") ; 40 5 showChocolatechipEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Chochip.png" "ROOT/taobin_project/image/topping2/bp_add_Chochip.png" "ROOT/taobin_project/image/topping2/bd_add_Chochip.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Chocolatechip" ; 790 14 minusChocolatechip "No" Var( DirImage + "/bn_minustopping.png" ) Var( DirImage + "/bp_minustopping.png" ) Var( DirImage + "/bd_minustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press reduce Chocolatechip" Var CountChocolatechip = CountChocolatechip - 1 Var PriceAddTopping = PriceAddTopping - toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh 858 12 KanitRegularTTF "Enable" 30 text_color_6 CountChocolatechip 896 14 plusChocolatechip "No" Var( DirImage + "/bn_plustopping.png" ) Var( DirImage + "/bp_plustopping.png" ) Var( DirImage + "/bd_plustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Chocolatechip" Var CountChocolatechip = CountChocolatechip + 1 Var PriceAddTopping = PriceAddTopping + toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 380 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Biscoffbiscuits 986 "auto" showBiscoffbiscuitsEnable ; 0 0 Var( DirImage + "/bg_top_biscoff.png") ; 40 5 showBiscoffbiscuitsEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Biscoff.png" "ROOT/taobin_project/image/topping2/bp_add_Biscoff.png" "ROOT/taobin_project/image/topping2/bd_add_Biscoff.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Biscoffbiscuits" ; 790 14 minusBiscoff "No" Var( DirImage + "/bn_minustopping.png" ) Var( DirImage + "/bp_minustopping.png" ) Var( DirImage + "/bd_minustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press reduce Biscoff" Var CountBiscoff = CountBiscoff - 1 Var PriceAddTopping = PriceAddTopping - toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh 858 12 KanitRegularTTF "Enable" 30 text_color_6 CountBiscoff 896 14 plusBiscoff "No" Var( DirImage + "/bn_plustopping.png" ) Var( DirImage + "/bp_plustopping.png" ) Var( DirImage + "/bd_plustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Biscoff" Var CountBiscoff = CountBiscoff + 1 Var PriceAddTopping = PriceAddTopping + toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 385 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ;Ovaltine 986 "auto" showOvaltineEnable ; 0 0 Var( DirImage + "/bg_top_ovaltine.png") ; 40 5 showOvaltineEnable "No" "ROOT/taobin_project/image/topping2/bn_add_Ovaltine.png" "ROOT/taobin_project/image/topping2/bp_add_Ovaltine.png" "ROOT/taobin_project/image/topping2/bd_add_Ovaltine.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Ovaltine" ; 790 14 minusOvaltine "No" Var( DirImage + "/bn_minustopping.png" ) Var( DirImage + "/bp_minustopping.png" ) Var( DirImage + "/bd_minustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press reduce Ovaltine" Var CountOvaltine = CountOvaltine - 1 Var PriceAddTopping = PriceAddTopping - toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh 858 12 KanitRegularTTF "Enable" 30 text_color_6 CountOvaltine 896 14 plusOvaltine "No" Var( DirImage + "/bn_plustopping.png" ) Var( DirImage + "/bp_plustopping.png" ) Var( DirImage + "/bd_plustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Ovaltine" Var CountOvaltine = CountOvaltine + 1 Var PriceAddTopping = PriceAddTopping + toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 270 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ; ; ; ; ; ; 986 "auto" showPearlEnable ; 0 0 Var( DirImage + "/bg_top_pearl.png") ; 40 5 showPearlEnable "No" "ROOT/taobin_project/image/topping2/bn_add_bubble.png" "ROOT/taobin_project/image/topping2/bp_add_bubble.png" "ROOT/taobin_project/image/topping2/bd_add_bubble.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Pearl" ; 790 14 minusPearl "No" Var( DirImage + "/bn_minustopping.png" ) Var( DirImage + "/bp_minustopping.png" ) Var( DirImage + "/bd_minustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press reduce Pearl" Var CountPearl = CountPearl - 1 Var PriceAddTopping = PriceAddTopping - toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine Var SumCountTopping = SumCountTopping + CountPearl If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If showPearlEnable = "Enable" Then Var minusPearl = "Enable" Var plusPearl = "Enable" Else Var minusPearl = "Disable" Var plusPearl = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" Var plusPearl = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf If CountPearl = 3 Then Var plusPearl = "Disable" EndIf If CountPearl = 0 Then Var minusPearl = "Disable" EndIf Function 2 Refresh 858 12 KanitRegularTTF "Enable" 30 text_color_6 CountPearl 896 14 plusPearl "No" Var( DirImage + "/bn_plustopping.png" ) Var( DirImage + "/bp_plustopping.png" ) Var( DirImage + "/bd_plustopping.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add Pearl" Var CountPearl = CountPearl + 1 Var PriceAddTopping = PriceAddTopping + toppingID6price2 Var SumCountTopping = 0 Var SumCountTopping = SumCountTopping + CountOreo Var SumCountTopping = SumCountTopping + CountChocolatechip Var SumCountTopping = SumCountTopping + CountBiscoff Var SumCountTopping = SumCountTopping + CountOvaltine Var SumCountTopping = SumCountTopping + CountPearl If showOreoAddEnable = "Enable" Then Var minusOreo = "Enable" Var plusOreo = "Enable" Else Var minusOreo = "Disable" Var plusOreo = "Disable" EndIf If showBiscoffbiscuitsEnable = "Enable" Then Var minusBiscoff = "Enable" Var plusBiscoff = "Enable" Else Var minusBiscoff = "Disable" Var plusBiscoff = "Disable" EndIf If showChocolatechipEnable = "Enable" Then Var minusChocolatechip = "Enable" Var plusChocolatechip = "Enable" Else Var minusChocolatechip = "Disable" Var plusChocolatechip = "Disable" EndIf If showOvaltineEnable = "Enable" Then Var minusOvaltine = "Enable" Var plusOvaltine = "Enable" Else Var minusOvaltine = "Disable" Var plusOvaltine = "Disable" EndIf If showPearlEnable = "Enable" Then Var minusPearl = "Enable" Var plusPearl = "Enable" Else Var minusPearl = "Disable" Var plusPearl = "Disable" EndIf If SumCountTopping = 3 Then Var plusOreo = "Disable" Var plusChocolatechip = "Disable" Var plusBiscoff = "Disable" Var plusOvaltine = "Disable" Var plusPearl = "Disable" EndIf If CountOreo = 3 Then Var plusOreo = "Disable" EndIf If CountOreo = 0 Then Var minusOreo = "Disable" EndIf If CountChocolatechip = 3 Then Var plusChocolatechip = "Disable" EndIf If CountChocolatechip = 0 Then Var minusChocolatechip = "Disable" EndIf If CountBiscoff = 3 Then Var plusBiscoff = "Disable" EndIf If CountBiscoff = 0 Then Var minusBiscoff = "Disable" EndIf If CountOvaltine = 3 Then Var plusOvaltine = "Disable" EndIf If CountOvaltine = 0 Then Var minusOvaltine = "Disable" EndIf If CountPearl = 3 Then Var plusPearl = "Disable" EndIf If CountPearl = 0 Then Var minusPearl = "Disable" EndIf Function 2 Refresh showText8 600 6 Var( DirImage + "/text8.png" ) 270 12 KanitRegularTTF "Enable" 36 text_color_6 text_price_6 ; ; ; ; ; ; "Enable" 986 27 -5 ExtraToppingAdd "ROOT/taobin_project/image/topping2/bg_bottom.png" ; Block Topping Icecream Add Topping end ; ; ; ; ; ; ; ; ; ;-BEGIN ; ;-BEGIN Lid straw ;-END ; ; ; ; ; ; ; ; ; ; ; 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 ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 Var PointCrm = "0" Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore EndIf 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" ) ; liveness + camera + IDcard DiscountWithIdentifyState 285 1785 Var( DirImage + "/bn_price5baht.png" ) Var( DirImage + "/bp_price5baht.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 If LidState = "Disable" Then Var bg_lidProblem_ST = "Disable" Else Var bg_lidProblem_ST = "Invisible" EndIf EndIf If SelectDrinkType = 0 Then Else Var StrawState = "Enable" Var LidState = "Enable" EndIf ; Var PromotionIDCurrentOrder = 0 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 Topping "ClearMultiTopping" "Test 4" Topping "Multiply6-ID" strMulti6_1 Topping "Multiply6-ID" strMulti6_2 Topping "Multiply6-ID" strMulti6_3 Topping "Multiply6-ID" strMulti6_4 Topping "Pack" ExtendDataCurr DEBUGVAR Seeker DEBUGVAR Seeker.ExtendData Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname DEBUGVAR MenuCautionImageStage0 DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType 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_identity_verification.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 ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Var Seeker = "curr" Var MenuReady = "YES" Var StatementCheckMenu = "ProductCodeCheck=" + UserSelectProductCode __CMD "statement" 0 StatementCheckMenu "-" 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 Var Seeker.postTopping1 = 0 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 If LidState = "Disable" Then Var bg_lidProblem_ST = "Disable" Else Var bg_lidProblem_ST = "Invisible" EndIf EndIf If SelectDrinkType = 0 Then Else Var StrawState = "Enable" Var LidState = "Enable" EndIf ; DEBUGVAR PromotionIDCurrentOrder Var SelectDrink = UserSelectProductCode Var Seeker.selected_a_drink = UserSelectProductCode DEBUGVAR Seeker.selected_a_drink ; Set drink ; Post Topping If SugarZeroCalEnable = "true" Then Var Seeker.postTopping1 = 1000 If SugarZeroCalCheck = "PressForever" Then Var Seeker.postTopping1 = 1001 Else Var Seeker.postTopping1 = 1000 EndIf EndIf 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 Topping "ClearMultiTopping" "Test 4" Topping "Multiply6-ID" strMulti6_1 Topping "Multiply6-ID" strMulti6_2 Topping "Multiply6-ID" strMulti6_3 Topping "Multiply6-ID" strMulti6_4 Topping "Pack" ExtendDataCurr DEBUGVAR Seeker DEBUGVAR Seeker.ExtendData Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname DEBUGVAR MenuCautionImageStage0 DEBUGVAR CustomerFilterEnable DEBUGVAR CustomerFilterType GetLongTimeInMinute LastTimeClickOrder If CART_COUNT = 0 Then If UserSelectProductCode = "-" Then Else If SelectDrinkType = 1 Then ; Move to MenuReady ;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 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" If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" EndIf 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" If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" EndIf 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 OriginalPrice = OriginalPriceD1 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 Machine PreparCup EndIf If cold_button_state = "PressForever" Then Var PriceDrinkNoTop = PriceD2 Var OriginalPrice = OriginalPriceD2 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 Machine PreparCup EndIf If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = PriceD3 Var OriginalPrice = OriginalPriceD3 Var UserSelectProductCode = PD_CODE3 If showShotEnable = "Invisible" Then Else Var showShotEnable = "Disable" EndIf 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 Machine PreparCup EndIf Var OatMilkAddAmount = 5 Var CerealMilkPrice = "(+฿5)" DEBUGVAR PriceDrinkNoTop 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 ;Oreo DEBUGVAR showOreoAddEnable DEBUGVAR showChocolatechipEnable DEBUGVAR showBiscoffbiscuitsEnable DEBUGVAR showOvaltineEnable DEBUGVAR showPearlEnable DEBUGVAR TOPPING_PRICE ;DefualttoppingID6index1 Var topping6 = toppingID6index1 Var DisableUsingCode = "false" If showOreoAddEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = toppingID6index2 Var DisableUsingCode = "true" EndIf ;Chocolatechip If showChocolatechipEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = toppingID6index3 Var DisableUsingCode = "true" EndIf ;Biscoffbiscuits If showBiscoffbiscuitsEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = toppingID6index4 Var DisableUsingCode = "true" EndIf ;Ovaltine If showOvaltineEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = toppingID6index5 Var DisableUsingCode = "true" EndIf If showPearlEnable = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2 Var topping6 = 314 Var DisableUsingCode = "true" EndIf DEBUGVAR topping6 If SugarZeroCalCheck = "PressForever" Then Var TOPPING_PRICE = TOPPING_PRICE + SugarZeroCalPrice EndIf If AddTopping = "ON" Then Var TOPPING_PRICE = TOPPING_PRICE + PriceAddTopping ; Oreo Var strMulti6_1 = "TPID:310+multiply:0" ; ChocolateChip Var strMulti6_2 = "TPID:311+multiply:0" ; BiscoffBiscuits Var strMulti6_3 = "TPID:312+multiply:0" ; Ovaltine Var strMulti6_4 = "TPID:313+multiply:0" ; Pearl Var strMulti6_5 = "TPID:314+multiply:0" If CountOreo = 1 Then Var strMulti6_1 = "TPID:310+multiply:1" EndIf If CountOreo = 2 Then Var strMulti6_1 = "TPID:310+multiply:2" EndIf If CountOreo = 3 Then Var strMulti6_1 = "TPID:310+multiply:3" EndIf If CountChocolatechip = 1 Then Var strMulti6_2 = "TPID:311+multiply:1" EndIf If CountChocolatechip = 2 Then Var strMulti6_2 = "TPID:311+multiply:2" EndIf If CountChocolatechip = 3 Then Var strMulti6_2 = "TPID:311+multiply:3" EndIf If CountBiscoff = 1 Then Var strMulti6_3 = "TPID:312+multiply:1" EndIf If CountBiscoff = 2 Then Var strMulti6_3 = "TPID:312+multiply:2" EndIf If CountBiscoff = 3 Then Var strMulti6_3 = "TPID=:12+multiply:3" EndIf If CountOvaltine = 1 Then Var strMulti6_4 = "TPID:313+multiply:1" EndIf If CountOvaltine = 2 Then Var strMulti6_4 = "TPID:313+multiply:2" EndIf If CountOvaltine = 3 Then Var strMulti6_4 = "TPID:313+multiply:3" EndIf If CountPearl = 1 Then Var strMulti6_5 = "TPID:314+multiply:1" EndIf If CountPearl = 2 Then Var strMulti6_5 = "TPID:314+multiply:2" EndIf If CountPearl = 3 Then Var strMulti6_5 = "TPID:314+multiply:3" EndIf DEBUGVAR strMulti6_1 DEBUGVAR strMulti6_2 DEBUGVAR strMulti6_3 DEBUGVAR strMulti6_4 DEBUGVAR strMulti6_5 Var topping6 = "{" + strMulti6_1 Var topping6 = topping6 + "+" Var topping6 = topping6 + strMulti6_2 Var topping6 = topping6 + "+" Var topping6 = topping6 + strMulti6_3 Var topping6 = topping6 + "+" Var topping6 = topping6 + strMulti6_4 Var topping6 = topping6 + "+" Var topping6 = topping6 + strMulti6_5 Var topping6 = topping6 + "}" 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 If Price5Active = 1 Then Var PriceDrinkNoTop = 5 If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = 10 EndIf EndIf Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp If SelectDrinkType = 0 Then Var PriceDrinkTmpShow = "---" Else Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormat, PreScaleConvertShow) EndIf SAVELOG PriceDrinkTmp If RoadShow = "true" Then Var PriceDrinkTmpShow = "Free" DEBUGVAR SelectDrink2 DEBUGVAR PriceDrinkTmpShow EndIf ; echo -n true > /mnt/sdcard/coffeevending/menu_blend_free READ_FILE "/mnt/sdcard/coffeevending/menu_blend_free" menu_blend_free DEBUGVAR menu_blend_free DEBUGVAR blend_button_state If menu_blend_free = "true" Then If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = 0 Var PriceDrinkTmpShow = "Free" EndIf EndIf BackslashNToEnter showname BackslashNToEnter showdesc CRLFToSpace showname CRLFToSpace showdesc DEBUGVAR showname DEBUGVAR showdesc Var Timeout = 0 RefreshAll 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow ; next2 button Protect ConfirmDrinkButtonState 526 1785 "ROOT/taobin_project/image/topping/topping2/bd_next2.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ConfirmDrinkButtonState 0 18 Center 512 KanitTTF 36 0x746253 ShowTextSelfTestCountDown ; zone ; free oreo WelcomeDrinkButtonState 673 1785 Var( DirImage + "/bn_childrenFree.png" ) Var( DirImage + "/bp_childrenFree.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 If LidState = "Disable" Then Var bg_lidProblem_ST = "Disable" Else Var bg_lidProblem_ST = "Invisible" EndIf EndIf If SelectDrinkType = 0 Then Else Var StrawState = "Enable" Var LidState = "Enable" EndIf ; Var PromotionIDCurrentOrder = 0 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 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_identity_verification.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 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 ) 1 1 KanitTTF 22 1080 end 0xFF0000 "#7" ; Var PromotionOreoToppingFreeEnable = 1 DEBUGVAR PromotionOreoToppingFreeEnable Var PromotionOreoToppingFreeEnable = 0 DEBUGVAR PromotionOreoToppingFreeEnable