"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open 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 StarwState = "Enable" ; On open Var LidState = Lid1Status ;SAVELOG PreviseXMLFileName2 ;- Layout Var y_sugar_block = 105 Var y_block = 206 Var y_topping_bg = 912 Var y_topping = 912 + y_sugar_block Var y2_topping_bg = y_topping_bg + y_block Var y2_topping = y_topping + y_block Var y_shot_coffee_bg = y2_topping_bg Var y_shot_coffee_bt = y2_topping + 100 Var y_lid_straw_bg = y_topping Var topping1 = "1" Var topping2 = "31" Var BugFlag = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/topping_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 lid_straw_bg_iamge = DirImage + "/block_strawonly.png" Else Var DirImage = "ROOT/taobin_project/image/topping" 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 LidState = "Enable" If LidState = "Enable" Then Var ShowLidStraw = "Enable" Var ShowLidOnly = "Invisible" Else Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Enable" EndIf Var backGroundAddExtra = DirImage + "/extra_img_1.png" 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 Var ToppingGotoPayment = "true" 2000 Var Timeout = Timeout + 1 If Timeout > 10 Then Var Timeout = 0 Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf 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/topping_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/topping/" 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 + "/extra_img_1.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 Open "ROOT/taobin_project/xml/page_catalog.xml" DEBUGVAR TOPPING1 DEBUGVAR TOPPING2 DEBUGVAR TOPPING3 DEBUGVAR TOPPING4 DEBUGVAR toppingID1index1 DEBUGVAR toppingID1index2 DEBUGVAR toppingID1index3 DEBUGVAR toppingID1index4 DEBUGVAR toppingID1index5 DEBUGVAR toppingID2index1 DEBUGVAR toppingID2index2 DEBUGVAR toppingID2index3 DEBUGVAR toppingID2index4 DEBUGVAR toppingID2index5 DEBUGVAR MenuCodeName DEBUGVAR toppingID1Default DEBUGVAR toppingID2Default DEBUGVAR toppingID3Default If BugFlag = 1 Then Else ;PressForever If TOPPING1 = "Sugar" Then 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 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 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 If TOPPING1 = "Powder Sugar Premix 50" Then Var ShiftSugarStep = 3 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 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 BGSugar = "Enable" Var BugFlag = 1 Var topping1 = toppingID1Default Var ToppingGotoPayment = "false" 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 Refresh ;-BEGIN shot layout If TOPPING2 = "shot coffee" Then Var y_shot_coffee_bg = y2_topping_bg Var y_shot_coffee_bt = y_shot_coffee_bg + 100 Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" ;Var ShotCoffeeBG = "Invisible" ;Var showShotEnable = "Invisible" Var y_lid_straw_bg = y_shot_coffee_bg + y_block DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee termtem" Then Var y_shot_coffee_bg = y2_topping_bg Var y_shot_coffee_bt = y_shot_coffee_bg + 100 Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" ;Var ShotCoffeeBG = "Invisible" ;Var showShotEnable = "Invisible" Var y_lid_straw_bg = y_shot_coffee_bg + y_block DEBUGVAR TOPPING2 Refresh EndIf ;-END 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 374 436 331 436 PictureDrink 0 752 1080 Center 72 KanitMediumTTF 0x513C2F showname 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; 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" ; next 447 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PriceDrink = PriceDrinkTmp DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 ; Set drink Topping "Select" SelectDrink ; Set option toppinng and pack Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 ; Pack Topping "Pack" ExtendData Open "ROOT/taobin_project/xml/page_payment.xml" 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow ;- FRAME SCORELLL 44 y_topping_bg 1080 "auto-all" "Vertical" 1 ;- Begin topping1 986 210 22 BGSugar ; sugar layout BGSugar Var( DirImage + "/img_sugar.png" ) ; sugar1 137 105 SugarState1 Var( DirImage + "/bn_sugar1.png" ) Var( DirImage + "/bp_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 300 105 SugarState2 Var( DirImage + "/bn_sugar2.png" ) Var( DirImage + "/bp_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 463 105 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 626 105 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 = toppingID1index4 EndIf DEBUGVAR topping1 Refresh ; sugar5 789 105 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 ;-BEGIN shot layout 986 232 22 ShotCoffeeBG backGroundAddExtra ; 56 102 showShotEnable "No" Var( DirImage + "/add_shot_img.png" ) Var( DirImage + "/add_shot_img_2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG showShotEnable If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop Var topping2 = toppingID2index1 Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ; 881 102 showShotEnable "No" Var( DirImage + "/cb_nch.png" ) Var( DirImage + "/cb_ch.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG showShotEnable If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop Var topping2 = toppingID2index1 Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ;-END ;-BEGIN Lid straw 986 232 22 ShowLidOnly "Enable" Var( DirImage + "/block_strawonly.png" ) ; straw left 48 95 StarwState "No" Var( DirImage + "/bnstraw.png" ) Var( DirImage + "/bpstraw.png" ) SAVELOG StarwState If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 873 105 StarwState "No" Filename> "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.png" SAVELOG StarwState If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh ;- END ;-BEGIN Lid straw 986 274 22 ShowLidStraw Var( DirImage + "/block_strawlid.png" ) ; straw left 48 95 StarwState "No" Var( DirImage + "/bnstraw.png" ) Var( DirImage + "/bpstraw.png" ) SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 873 105 StarwState "No" "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh ; LID left 48 175 LidState "No" Var( DirImage + "/bnlid.png" ) Var( DirImage + "/bplid.png" ) SAVELOG "Click LID pic" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh 873 185 LidState "No" "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.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"