"Enable" 1080 1920 "0xeae6e1" SoundVolume Var y_topping_bg = 912 DEBUGVAR video_menu_0 Var DisableUsingCode = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowCollagenOnly = "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/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 Machine DoorClose Var backGroundAddExtra = DirImage + "/img_ontop_shot.png" Var backGroundAddExtra2 = DirImage + "/img_ontop_shot2.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 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/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 + "/img_ontop_shot.png" Var backGroundAddExtra2 = DirImage + "/img_ontop_shot2.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 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 DEBUGVAR toppingID2price2 DEBUGVAR toppingID3price2 DEBUGVAR BrewParam If BugFlag = 1 Then Else STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Else If LidState = "Enable" Then Var ShowLidStraw = "Enable" Var ShowLidOnly = "Invisible" Else Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Enable" EndIf EndIf If Service_LidStraw = "Disable" Then Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" EndIf ;PressForever If TOPPING1 = "Sugar" Then 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 = "Powder Sugar" Then 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 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 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" DEBUGVAR TOPPING3 If TOPPING3 = "Collagen" Then Var ShowCollagenOnly = "Invisible" Var backGroundAddExtra = DirImage + "/img_ontop_shot_col.png" Var shot_h_layout = 310 EndIf 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" If TOPPING3 = "Collagen" Then Var ShowCollagenOnly = "Invisible" Var backGroundAddExtra = DirImage + "/img_ontop_shot_col.png" Var shot_h_layout = 310 EndIf 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 374 436 331 436 PictureDrink 0 752 1080 Center 72 KanitMediumTTF 0x513C2F showname 0 836 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc ; ; 0 ; 880 ; BGSugar ; 1080 ; Center ; 18 ; KanitTTF ; 0xEE8C62 ; "*ห้ามดื่มเกินวันละ 2 แก้ว เพราะหัวใจสั่น นอนไม่หลับ เด็กและสตรีมีครรภ์ไม่ควรดื่ม ผู้ป่วยควรปรึกษาแพทย์ก่อน" ; ; 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 SAVELOG "USER press next ( topping )" DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 DEBUGVAR LidState DEBUGVAR StarwState ; 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 5 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 = toppingID1index2 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 shot_h_layout 5 ShotCoffeeBG backGroundAddExtra ; 48 102 showShotEnable "No" "ROOT/taobin_project/image/topping/bn_shot_1.png" "ROOT/taobin_project/image/topping/bp_shot_1.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press no shot 1" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkNoTop = PriceDrinkTmp 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 "Press add shot 1" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ; Collagen left 48 186 CollagenState "No" "ROOT/taobin_project/image/topping/bn_img_collagen.png" "ROOT/taobin_project/image/topping/bp_img_collagen.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID3price2 Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var PriceDrinkNoTop = PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh 881 189 CollagenState "No" "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID3price2 Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var PriceDrinkNoTop = PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh ;-END ; ; ; ; ; ; ; ; ; ;-BEGIN shot layout 986 224 5 ShotCoffeePremium backGroundAddExtra2 ; 48 102 showShotEnable "No" "ROOT/taobin_project/image/topping/bn_shot_2.png" "ROOT/taobin_project/image/topping/bp_shot_2.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Press no shot 2" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkNoTop = PriceDrinkTmp 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 "Press add shot 2" If showShotEnable = "Press" Then Var showShotEnable = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID2price2 Var topping2 = toppingID2index1 Var DisableUsingCode = "false" Else Var showShotEnable = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var topping2 = toppingID2index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkNoTop = PriceDrinkTmp Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp SAVELOG PriceDrinkTmp Refresh ; Collagen left 48 186 CollagenState "No" "ROOT/taobin_project/image/topping/bn_img_collagen.png" "ROOT/taobin_project/image/topping/bp_img_collagen.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID3price2 Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var PriceDrinkNoTop = PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh 881 189 CollagenState "No" "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop - toppingID3price2 Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var PriceDrinkNoTop = PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh ;-END ; ; ; ; ; ; ; ; ; ;-BEGIN Collagen 986 242 5 ShowCollagenOnly "Enable" Var( DirImage + "/img_ontop_collagen.png" ) ; straw left 48 110 CollagenState "No" "ROOT/taobin_project/image/topping/bn_img_collagen.png" "ROOT/taobin_project/image/topping/bp_img_collagen.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh 881 105 CollagenState "No" "ROOT/taobin_project/image/topping/bn_checkbox.png" "ROOT/taobin_project/image/topping/bp_checkbox.png" SAVELOG CollagenState If CollagenState = "Press" Then Var CollagenState = "Enable" Var PriceDrinkTmp = PriceDrinkNoTop Var topping3 = toppingID3index1 Var DisableUsingCode = "false" Else Var CollagenState = "Press" Var PriceDrinkTmp = PriceDrinkNoTop + toppingID3price2 Var topping3 = toppingID3index2 Var DisableUsingCode = "true" EndIf Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp DEBUGVAR PriceDrinkTmp Refresh ;- END ; ; ; ;-BEGIN Lid straw 986 232 10 ShowLidOnly "Enable" Var( DirImage + "/block_strawonly.png" ) ; straw left 48 95 StarwState "No" "ROOT/taobin_project/image/topping/bnstraw.png" "ROOT/taobin_project/image/topping/bpstraw.png" SAVELOG StarwState If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 881 105 StarwState "No" "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 10 ShowLidStraw Var( DirImage + "/block_strawlid.png" ) ; straw left 48 95 StarwState "No" "ROOT/taobin_project/image/topping/bnstraw.png" "ROOT/taobin_project/image/topping/bpstraw.png" SAVELOG "Click straw cb" If StarwState = "Press" Then Var StarwState = "Enable" Else Var StarwState = "Press" EndIf Refresh 881 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" "ROOT/taobin_project/image/topping/bnlid.png" "ROOT/taobin_project/image/topping/bplid.png" SAVELOG "Click LID pic" If LidState = "Press" Then Var LidState = "Enable" Else Var LidState = "Press" EndIf Refresh 881 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"