"Enable" 1080 1920 "0xeae6e1" SoundVolume Var y_topping_bg = 912 ;Machine DoorClose Machine DoorLidClose DEBUGVAR video_menu_0 DEBUGVAR SelectDrink DEBUGVAR PictureDrink Var SaveProductCodeSelect = SelectDrink Var UserSelectProductCode = SelectDrink DEBUGVAR UserSelectProductCode Var blendedState = "Invisible" 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 = "Invisible" Var ShotCoffeePremium = "Invisible" Var StarwState = "Enable" ; On open Var LidState = Lid1Status ;SAVELOG PreviseXMLFileName2 Var topping1 = "1" Var topping2 = "31" Var topping3 = "31" Var BugFlag = 0 If show_eng = "true" Then Var 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 NextButton = "false" 2000 DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 20 Then Var Timeout = 0 Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf TimerReset 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 SubMenuProductCode1 DEBUGVAR SubMenuName11 DEBUGVAR SubMenuPrice1 DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuName12 DEBUGVAR TOPPING1 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 Var SugarState1 = "Enable" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" If BugFlag = 1 Then Else STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw Var h_block_of_sugar = 210 ;STRCONTAIN "Smoothie" SubMenuName11 HaveSmoothie STRCONTAIN "Smoothie" MenuCodeName HaveSmoothie If HaveSmoothie = "true" Then Var blendedState = "Enable" Var blendedStateShow = "Enable" Var PriceDiff = SubMenuPrice1 - PriceDrinkNoTop EndIf If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" Else If LidState = "Enable" Then Var ShowLidStraw = "Enable" Var ShowLidOnly = "Invisible" Else Var ShowLidStraw = "Invisible" Var ShowStrawOnly = "Enable" EndIf EndIf If Service_LidStraw = "Disable" Then Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowStawOnly = "Invisible" 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 ;-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" Seeker.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 NextButton = "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 ; 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" Var( DirImage + "/bn_blended.png" ) Var( DirImage + "/bp_blended.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" DEBUGVAR PriceDrinkNoTop If blendedState = "Press" Then Var PriceDrinkTmp = PriceDrinkTmp - PriceDiff Var blendedState = "Enable" Var UserSelectProductCode = SaveProductCodeSelect Else Var blendedState = "Press" Var PriceDrinkTmp = PriceDrinkTmp + PriceDiff Var UserSelectProductCode = SubMenuProductCode1 EndIf DEBUGVAR UserSelectProductCode Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh 896 79 blendedState "No" Var( DirImage + "/cb_notcheck.png" ) Var( DirImage + "/cb_checked.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press Smoothies" DEBUGVAR PriceDrinkNoTop If blendedState = "Press" Then Var PriceDrinkTmp = PriceDrinkTmp - PriceDiff Var blendedState = "Enable" Var UserSelectProductCode = SaveProductCodeSelect Else Var blendedState = "Press" Var PriceDrinkTmp = PriceDrinkTmp + PriceDiff Var UserSelectProductCode = SubMenuProductCode1 EndIf DEBUGVAR UserSelectProductCode Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ;- 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 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 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 "Press add shot 2" 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" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" SAVELOG "Deselect add normal shot" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" SAVELOG "Select add normal 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 "Press add shot 2" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" SAVELOG "Deselect add premium shot" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + 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 Collagen ;- END ; ; ; ;-BEGIN Lid only 987 188 20 ShowLidOnly "Enable" bg_lid_only ; lid left 40 79 LidState "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" SAVELOG "Click lid only cb" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh 896 79 LidState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" SAVELOG "Click lid only cb" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh ;- END ; ; ; ; ; ; ; ; ; ;-BEGIN Straw only 987 188 20 ShowStrawOnly "Enable" bg_straw_only ; straw left 40 72 StarwState "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 896 79 StarwState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh ;- END ; ; ; ; ; ; ; ; ; ;-BEGIN Lid straw 986 240 20 ShowLidStraw bg_strawlid ; straw left 40 72 StarwState "No" "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 896 79 StarwState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh ; LID left 40 148 LidState "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" SAVELOG "Click LID pic" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh 896 155 LidState "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" SAVELOG "Click LID cb" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh ; ; ; ; ; ; ; ; ; 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 Open "ROOT/taobin_project/xml/page_catalog.xml" ; 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 StarwState DEBUGVAR UserSelectProductCode DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then If StarwState = "Press" Then Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then Machine LidOrder Var LedLidBlink = "true" EndIf Var StarwState = "Enable" Var LidState = "Enable" ; EndIf Var SelectDrink = UserSelectProductCode ; Set drink Topping "Select" UserSelectProductCode ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 ; Pack Topping "Pack" Seeker.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" ; next 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PriceDrink = PriceDrinkTmp SAVELOG "USER press next ( topping ) - new" DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 DEBUGVAR LidState DEBUGVAR StarwState DEBUGVAR UserSelectProductCode DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then If StarwState = "Press" Then Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then Machine LidOrder Var LedLidBlink = "true" EndIf Var StarwState = "Enable" Var LidState = "Enable" ; EndIf Var SelectDrink = UserSelectProductCode ; Set drink Topping "Select" UserSelectProductCode ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 ; Pack Topping "Pack" Seeker.ExtendData 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 NextButton = "true" EndIf 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow