"Enable" 1080 1920 "0xeae6e1" SoundVolume Var y_topping_bg = 912 DEBUGVAR Seeker DEBUGVAR video_menu_0 DEBUGVAR SelectDrink DEBUGVAR PictureDrink If SelectDrinkLen = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf If PriceDrink = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf Var SaveProductCodeSelect = SelectDrink Var UserSelectProductCode = SelectDrink Var showText4 = "Invisible" Var showText7 = "Invisible" DEBUGVAR UserSelectProductCode Var blendedState = "Enable" Var DisableUsingCode = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowCollagenOnly = "Invisible" Var blendedStateShow = "Invisible" Var ShotCoffeeBG = "Invisible" Var showShotEnable = "Invisible" Var ShowLidStraw = "Invisible" Var ShowStrawOnly = "Invisible" Var ShowLidOnly = "Invisible" ; On open Var lidAndStrawOldPageIgnore = "true" Var SugarState1 = "Invisible" Var SugarState2 = "Invisible" Var SugarState3 = "Invisible" Var SugarState4 = "Invisible" Var SugarState5 = "Invisible" Var AddShotEnable = "Invisible" Var BGSugar = "Invisible" Var ShotCoffeeBG = "Invisible" Var showShotEnable = "Enable" Var ShotCoffeePremium = "Invisible" ; On open Var LidState = Lid1Status ;SAVELOG PreviseXMLFileName2 Var topping1 = "1" Var topping2 = "31" Var topping3 = "31" Var BugFlag = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/topping2_en" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var showname = NameDrink Var showdesc = DrinkDescription 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 EndIf Var bg_strawlid = DirImage + "/bg_strawlid.png" Var bg_straw_only = DirImage + "/bg_straw_only.png" Var bg_lid_only = DirImage + "/bg_lid_only.png" Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png" Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png" ;Var blendedState = "Enable" ;Var ShotCoffeeBG = "Enable" ;Var showShotEnable = "Enable" ;Var ShowLidStraw = "Enable" ;Var ShowStrawOnly = "Enable" ;Var ShowLidOnly = "Enable" Var ShiftSugarStep = 1 CRLFToSpace showname CRLFToSpace showdesc ;- Begin Var PriceDrinkNoTop = PriceDrink Var PriceDrinkTmp = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var Timeout = 0 SAVELOG PriceDrinkTmp ;- End If RoadShow = "true" Then Var PriceDrinkTmp = "Free" EndIf 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" 1000 DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 40 Then Var Timeout = 0 If Seeker = "next" Then Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf ;Open "ROOT/taobin_project/xml/page_back_to_main.xml" 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" ;Open "ROOT/taobin_project/xml/page_back_to_error.xml" EndIf EndIf Refresh TimerReset 990 438 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; eng If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf If show_eng = "true" Then Var 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 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 EndIf Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" Var bg_strawlid = DirImage + "/bg_strawlid.png" Var bg_straw_only = DirImage + "/bg_straw_only.png" Var bg_lid_only = DirImage + "/bg_lid_only.png" Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png" Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png" CRLFToSpace showname CRLFToSpace showdesc If show_eng = "true" Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" Else Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" EndIf 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 Open OpenFromXML DEBUGVAR MAT_ID_9701 DEBUGVAR MAT_ID_9601 DEBUGVAR SubMenuProductCode1 DEBUGVAR SubMenuName11 DEBUGVAR SubMenuPrice1 DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuName12 DEBUGVAR TOPPING1 DEBUGVAR TOPPING1_EXT_2 DEBUGVAR TOPPING2 DEBUGVAR TOPPING3 DEBUGVAR TOPPING4 DEBUGVAR toppingID1index1 DEBUGVAR toppingID1index2 DEBUGVAR toppingID1index3 DEBUGVAR toppingID1index4 DEBUGVAR toppingID1index5 DEBUGVAR toppingID1index6 DEBUGVAR toppingID1index7 DEBUGVAR toppingID1index8 DEBUGVAR toppingID1index9 DEBUGVAR toppingID2index1 DEBUGVAR toppingID2index2 DEBUGVAR toppingID2index3 DEBUGVAR toppingID2index4 DEBUGVAR toppingID2index5 If toppingID1index5 > 0 Then SAVELOG "toppingID1index5 not set" EndIf DEBUGVAR MenuCodeName DEBUGVAR toppingID1Default DEBUGVAR toppingID2Default DEBUGVAR toppingID3Default DEBUGVAR toppingID2price2 DEBUGVAR toppingID3price2 DEBUGVAR BrewParam If BugFlag = 1 Then Else Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw Var h_block_of_sugar = 210 ;STRCONTAIN "Smoothie" SubMenuName11 HaveSmoothie STRCONTAIN "Smoothie" MenuCodeName HaveSmoothie If HaveSmoothie = "true" Then Var blendedState = "Enable" Var blendedStateShow = "Enable" Var PriceDiff = SubMenuPrice1 - PriceDrinkNoTop DEBUGVAR IsSmoRet If IsSmoRet = "true" Then Var blendedState = "ForceSet" Var blendedStateTxt = "Enable" Topping "LoadSubMenu" SubMenuProductCode1 Function 1 Else Var blendedStateTxt = "Invisible" EndIf EndIf If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" Else Var ShowLidStraw = "Enable" If MAT_ID_9701 = "Enable" Then Var StrawState = MAT_ID_9701 Else Var StrawState = MAT_ID_9701 EndIf If MAT_ID_9601 = "Enable" Then Var LidState = MAT_ID_9601 Else Var LidState = MAT_ID_9601 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 Var StrawDeactiveButton = "Enable" EndIf If LidState = "Enable" Then Var LidDeactiveButton = "Invisible" Else Var LidDeactiveButton = "Enable" EndIf ;PressForever If TOPPING1 = "Sugar" Then If sugarKeto = "true" Then Var StateImgKeto = "Enable" Var BGSugar = "Invisible" Else Var BGSugar = "Enable" Endif Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If toppingID1index1 = toppingID1Default Then Var SugarState1 = "PressForever" EndIf If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" EndIf If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" EndIf If toppingID1index4 = toppingID1Default Then Var SugarState4 = "PressForever" EndIf If toppingID1index5 = toppingID1Default Then Var SugarState5 = "PressForever" EndIf EndIf If TOPPING1 = "Powder Sugar" Then If sugarKeto = "true" Then Var StateImgKeto = "Enable" Var BGSugar = "Enable" Var h_block_of_sugar = 262 Else Var BGSugar = "Enable" EndIf ;Var BGSugar = "Enable" Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If toppingID1index1 = toppingID1Default Then Var SugarState1 = "PressForever" EndIf If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" EndIf If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" EndIf If toppingID1index4 = toppingID1Default Then Var SugarState4 = "PressForever" EndIf If toppingID1index5 = toppingID1Default Then Var SugarState5 = "PressForever" EndIf EndIf If TOPPING1 = "Sugar Premix 25" Then Var BGSugar = "Enable" Var ShiftSugarStep = 2 Var SugarState1 = "Disable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" EndIf If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" EndIf If toppingID1index3 = toppingID1Default Then Var SugarState4 = "PressForever" EndIf If toppingID1index4 = toppingID1Default Then Var SugarState5 = "PressForever" EndIf EndIf If TOPPING1 = "Powder Sugar Premix 50" Then Var BGSugar = "Enable" Var ShiftSugarStep = 3 Var SugarState1 = "Disable" Var SugarState2 = "Disable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If toppingID1index1 = toppingID1Default Then Var SugarState3 = "PressForever" EndIf If toppingID1index2 = toppingID1Default Then Var SugarState4 = "PressForever" EndIf If toppingID1index3 = toppingID1Default Then Var SugarState5 = "PressForever" EndIf EndIf If TOPPING1 = "Powder Sugar Premix 25" Then Var BGSugar = "Enable" Var ShiftSugarStep = 2 Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" EndIf If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" EndIf If toppingID1index3 = toppingID1Default Then Var SugarState4 = "PressForever" EndIf If toppingID1index4 = toppingID1Default Then Var SugarState5 = "PressForever" EndIf EndIf Var ShowCollagenOnly = "Enable" Var BugFlag = 1 Var topping1 = toppingID1Default Var ToppingGotoPayment = "false" If BGSugar = "Enable" Then If show_eng = "true" Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" Else Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" EndIf EndIf Refresh Var collagenShow = "true" ;-BEGIN shot layout Var topping3 = toppingID3Default Var shot_h_layout = 218 If TOPPING2 = "shot coffee" Then Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" Refresh EndIf If TOPPING2 = "shot coffee termtem" Then Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1003" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1007" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1008" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1009" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1101" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1102" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1103" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Enable" DEBUGVAR TOPPING2 Refresh EndIf ;-END If TOPPING3 = "Collagen" Then Var CollagenState = "Enable" Else Var CollagenState = "Invisible" Var ShowCollagenOnly = "Invisible" EndIf SAVELOG ToppingGotoPayment If ToppingGotoPayment = "true" Then Topping "Select" SelectDrink ; Pack Topping "Pack" ExtendData Open "ROOT/taobin_project/xml/page_payment.xml" EndIf If RoadShow = "true" Then Var PriceShowValue = "Free" EndIf SAVELOG toppingID2price1 SAVELOG toppingID2price2 SAVELOG toppingID2price3 EndIf ;Var BugFlag = 1 If CartUpdate = "true" Then Var CartUpdate = "-" If CART_COUNT = 3 Then Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else If ButtonNext = "true" Then Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf ; same 374 382 331 436 PictureDrink 374 399 eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) "ROOT/taobin_project/image/topping2/blender_icon.png" ; same 0 752 1080 Center 72 KanitMediumTTF 0x513C2F showname ; same 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; ; 0 ; 880 ; BGSugar ; 1080 ; Center ; 18 ; KanitTTF ; 0xEE8C62 ; "*ห้ามดื่มเกินวันละ 2 แก้ว เพราะหัวใจสั่น นอนไม่หลับ เด็กและสตรีมีครรภ์ไม่ควรดื่ม ผู้ป่วยควรปรึกษาแพทย์ก่อน" ; ; ; ; ; ; ; ; ; ; ; ; ; ;- FRAME SCORELLL 52 881 1080 "auto-all" "Vertical" 1 986 160 20 blendedStateShow Var( DirImage + "/bg_blended.png" ) 40 72 blendedState "No" "OnValueChange" Var( DirImage + "/bn_blended.png" ) Var( DirImage + "/bp_blended.png" ) Var( DirImage + "/bd_blended.png" ) Var( DirImage + "/bp_blended.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" If blendedState = "Press" Then Var blendedState = "Enable" Else Var blendedState = "Press" EndIf Function 1 Refresh 896 79 blendedState "No" "OnValueChange" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) Var( DirImage + "/cb_checkdis.png" ) Var( DirImage + "/cb_force_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" If blendedState = "Press" Then Var blendedState = "Enable" Else Var blendedState = "Press" EndIf Function 1 Refresh showText7 602 64 Var( DirImage + "/text7.png" ) blendedStateTxt 602 64 Var( DirImage + "/text5.png" ) ;- Begin topping1 988 156 20 BGSugar ; sugar layout BGSugar Var( DirImage + "/bg_sugar.png" ) ; ; sugar1 120 79 SugarState1 Var( DirImage + "/bn_sugar1.png" ) Var( DirImage + "/bp_sugar1.png" ) Var( DirImage + "/bu_sugar1.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume DEBUGVAR SugarState1 If ShiftSugarStep = 1 Then Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index1 EndIf DEBUGVAR topping1 Refresh ; sugar2 288 79 SugarState2 Var( DirImage + "/bn_sugar2.png" ) Var( DirImage + "/bp_sugar2.png" ) Var( DirImage + "/bu_sugar2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If ShiftSugarStep = 1 Then Var SugarState1 = "Enable" Var SugarState2 = "PressForever" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index2 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "PressForever" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index1 EndIf DEBUGVAR topping1 Refresh ; sugar3 456 79 SugarState3 Var( DirImage + "/bn_sugar3.png" ) Var( DirImage + "/bp_sugar3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If ShiftSugarStep = 1 Then Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index2 EndIf If ShiftSugarStep = 3 Then Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var topping1 = toppingID1index1 EndIf DEBUGVAR topping1 Refresh ; sugar4 624 79 SugarState4 Var( DirImage + "/bn_sugar4.png" ) Var( DirImage + "/bp_sugar4.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If ShiftSugarStep = 1 Then Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var topping1 = toppingID1index3 EndIf If ShiftSugarStep = 3 Then Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" Var topping1 = toppingID1index2 EndIf DEBUGVAR topping1 Refresh ; sugar5 790 79 SugarState5 Var( DirImage + "/bn_sugar5.png" ) Var( DirImage + "/bp_sugar5.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If ShiftSugarStep = 1 Then Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var topping1 = toppingID1index5 EndIf If ShiftSugarStep = 2 Then Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var topping1 = toppingID1index4 EndIf If ShiftSugarStep = 3 Then Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "PressForever" Var topping1 = toppingID1index3 EndIf DEBUGVAR topping1 Refresh ;- END topping1 ; ; ; ; ; ; ; ; ; ;-END ; ; ; ; ; ; ; ; ; ;-BEGIN shot layout 986 164 20 ShotCoffeePremium backGroundAddShotPremium ; 40 79 showShotEnable "No" "ROOT/taobin_project/image/topping2/bn_add_shot2.png" "ROOT/taobin_project/image/topping2/bp_add_shot2.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "premium shot press" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkTmp - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" SAVELOG "Deselect add premium shot" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkTmp + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" SAVELOG "Select add premium shot" EndIf Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ; 896 79 showShotEnable "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "premium shot press" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkTmp - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" SAVELOG "Deselect add premium shot" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkTmp + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" SAVELOG "Select add premium shot" EndIf Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ;-END ; ; ; ; ; ; ;; ; ; ; ; ; ; ; ; ;-BEGIN shot layout 986 157 20 ShotCoffeeBG backGroundAddExtra ; 40 72 showShotEnable "No" "ROOT/taobin_project/image/topping2/bn_add_shot.png" "ROOT/taobin_project/image/topping2/bp_add_shot.png" "ROOT/taobin_project/image/topping2/bd_add_shot.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add normal shot" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Else Var showShotEnable = "Press" EndIf Function 1 Refresh "OnValueChange" ; 896 79 showShotEnable "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) Var( DirImage + "/cb_checkdis.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press add normal shot" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Else Var showShotEnable = "Press" EndIf Function 1 Refresh "OnValueChange" showText4 602 64 Var( DirImage + "/text4.png" ) ;-END ; ; ; ; ; ; ; ; ; ; ;-BEGIN Collagen ; ;-BEGIN Lid straw 986 240 20 ShowLidStraw bg_strawlid ; straw left 40 72 StrawState "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" SAVELOG "Click straw cb" If StrawState = "Press" Then Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 Else Var StrawState = "Press" Var Seeker.thankStrawFlag = 1 EndIf Refresh 896 79 StrawState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) SAVELOG "Click straw cb" If StrawState = "Press" Then Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 Else Var StrawState = "Press" Var Seeker.thankStrawFlag = 1 EndIf Refresh ; LID left 40 148 LidState "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) SAVELOG "Click LID pic" If LidState = "Press" Then Var LidState = "Enable" Var Seeker.thankLidFlag = 0 Else Var LidState = "Press" Var Seeker.thankLidFlag = 1 EndIf DEBUGVAR SugarState1 Refresh 896 155 LidState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) SAVELOG "Click LID cb" If LidState = "Press" Then Var LidState = "Enable" Var Seeker.thankLidFlag = 0 Else Var LidState = "Press" Var Seeker.thankLidFlag = 1 EndIf Refresh StrawDeactiveButton 602 64 Var( DirImage + "/text20.png" ) LidDeactiveButton 602 150 Var( DirImage + "/text21.png" ) ; ; ; ; ; ; ; ; ; Open "/media/bt/xml/security_alarm.xml" ; back 44 1785 Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If Seeker = "next" Then Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else 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 If CART1_STATUS = "EMPTY" Then Cart "AddMenuID" 1 Else If CART2_STATUS = "EMPTY" Then Cart "AddMenuID" 2 Else If CART3_STATUS = "EMPTY" Then Cart "AddMenuID" 3 EndIf EndIf EndIf Var CartUpdate = "true" 277 1772 NEW_MULTI ; "0x00BDFF" 500 Var( DirImage + "/new_multi.png" ) ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Var Seeker = "curr" DEBUGVAR PriceDrinkTmp ;Var Seeker.PriceDrink = PriceDrinkTmp Var PriceDrink = PriceDrinkTmp SAVELOG "USER press next ( topping ) - new" Var Seeker.topping1 = topping1 Var Seeker.topping2 = topping2 Var Seeker.topping3 = topping3 Var Seeker.get_a_straw = StrawState Var Seeker.get_a_lid = LidState DEBUGVAR Seeker.topping1 DEBUGVAR Seeker.topping2 DEBUGVAR Seeker.topping3 DEBUGVAR Seeker.get_a_straw DEBUGVAR Seeker.get_a_lid DEBUGVAR LidState DEBUGVAR StrawState DEBUGVAR UserSelectProductCode DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then 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" ; EndIf Var SelectDrink = UserSelectProductCode Var Seeker.selected_a_drink = UserSelectProductCode DEBUGVAR Seeker.selected_a_drink ; Set drink If Seeker = "curr" Then Topping "Select" UserSelectProductCode ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 ; Pack Topping "Pack" ExtendData Else Topping "SetNextOrder" UserSelectProductCode EndIf Var Seeker.PictureDrink = PictureDrink Var Seeker.showname = showname If CART_COUNT = 0 Then Open "ROOT/taobin_project/xml/page_payment.xml" Else If CART1_STATUS = "EMPTY" Then Cart "AddMenuID" 1 Else If CART2_STATUS = "EMPTY" Then Cart "AddMenuID" 2 Else If CART3_STATUS = "EMPTY" Then Cart "AddMenuID" 3 EndIf EndIf EndIf Var CartUpdate = "true" Var ButtonNext = "true" EndIf SAVELOG "FUNCTION1" Var TOPPING_PRICE = 0 DEBUGVAR PriceDrinkNoTop DEBUGVAR PriceDiff DEBUGVAR showShotEnable DEBUGVAR blendedState If blendedState = "ForceSet" Then Var TOPPING_PRICE = PriceDiff Var UserSelectProductCode = SubMenuProductCode1 Var showShotEnable = "Disable" Var showText4 = "Enable" Else If blendedState = "Press" Then Var TOPPING_PRICE = PriceDiff Var UserSelectProductCode = SubMenuProductCode1 Var showShotEnable = "Disable" Var showText4 = "Enable" Else Var UserSelectProductCode = SaveProductCodeSelect If showShotEnable = "Disable" Then Var showShotEnable = "Enable" EndIf Var showText4 = "Invisible" EndIf EndIf DEBUGVAR UserSelectProductCode If showShotEnable = "Press" Then If blendedState = "Press" Then Var PriceDrinkTmp = PriceDrinkNoTop EndIf Var blendedState = "Disable" Var TOPPING_PRICE = 0 ;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" Var showText7 = "Enable" SAVELOG "Select add normal shot" Else If blendedState = "Disable" Then Var blendedState = "Enable" EndIf Var PriceDrinkTmp = PriceDrinkNoTop Var topping2 = toppingID2index1 Var DisableUsingCode = "false" SAVELOG "Deselect add normal shot" Var showText7 = "Invisible" EndIf DEBUGVAR showShotEnable DEBUGVAR blendedState Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Var Timeout = 0 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow