"Enable" 1080 1920 "0xeae6e1" ; "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume Var Timeout = 0 Var StrawState = "Enable" Var LidState = "Enable" Topping "Load" "12-05-02-0017" 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 text_show_thai = "Invisible" Var text_show_eng = "Enable" Var topping_shot_price_x = 630 Var text_x_add_oreo_price = 510 Var text_show_normal_x = 408 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 text_show_thai = "Enable" Var text_show_eng = "Invisible" Var topping_shot_price_x = 600 Var text_x_add_oreo_price = 490 Var text_show_normal_x = 386 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" If IgnoreLidStraw = "true" Then Var IgnoreLidStraw = "false" Var ShowLidStraw = "Invisible" Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" Else Var ShowLidStraw = "Enable" 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 = MAT_ID_9601 Else Var LidState = MAT_ID_9601 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 DEBUGVAR StrawDeactiveButton DEBUGVAR LidDeactiveButton DEBUGVAR StrawState 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then Var Timeout = 0 Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Refresh TimerReset 0 380 1080 864 0xFFFFFF 0 555 1080 437 SpiralProduct 143 360 ShowHeadSpiralSelect 0 982 1080 Center 65 KanitMediumTTF ColorBrown2 showname 0 1058 1080 Center 40 KanitTTF ColorBrown showdesc 85 1232 956 405 Spiraldetail ;include="ROOT/taobin_project/inc/video.inc" ;-BEGIN Lid straw 47 1307 986 240 20 bg_strawlid ; straw left 90 1380 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 ; straw 943 1386 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 DEBUGVAR StrawState Refresh ; LID left 90 1455 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 ; LID 943 1462 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 643 1252 Var( DirImage + "/text20.png" ) LidDeactiveButton 643 1452 Var( DirImage + "/text21.png" ) ; 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 673 1785 Var( DirImage + "/bn_next.png" ) Var( DirImage + "/bp_next.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CART_COUNT = 0 Then Var PriceDrink = PriceDrinkTmp SAVELOG "USER press next ( topping )" DEBUGVAR topping1 DEBUGVAR topping2 DEBUGVAR topping3 DEBUGVAR LidState DEBUGVAR StarwState DEBUGVAR HAVE_UV_DOOR_LID If HAVE_UV_DOOR_LID = "true" Then If StarwState = "Press" Then Machine StrawOrder EndIf If LidState = "Press" Then Machine LidOrder EndIf Var StarwState = "Enable" Var LidState = "Enable" EndIf ; 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/spiral/xml/page_spiral_payment.xml" Else 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" 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" Var ButtonNext = "true" EndIf 0 1127 1080 Center 80 KanitMediumTTF ColorOrange PriceDrinkTmpShow2 924 1804 KanitTTF 36 1080 0xFFFFFF "OnValueChange" PriceDrinkTmpShow 1000 415 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 SpiralSelectdetail = SpiralSelectdetail1E Var SpiralSelectheader = SpiralSelectheader2E Var SpiralSelectdetail = SpiralSelectdetail2E Var DirImage = "ROOT/taobin_project/image/topping2_en" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/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 ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail_en.png" Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money_en.png" Var lid_straw_bg_iamge = DirImage + "/block_strawonly.png" Else Var SpiralSelectdetail = SpiralSelectdetail1 Var SpiralSelectheader = SpiralSelectheader2 Var SpiralSelectdetail = SpiralSelectdetail2 Var DirImage = "ROOT/taobin_project/image/topping2" Var DirImage2 = "ROOT/taobin_project/spiral/image/page_spiral" Var DirImage3 = "ROOT/taobin_project/spiral/image/page_spiral/" 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 ShowHeadSpiralSelect = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_detail.png" Var ShowHeadSpiralCash = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_choose_money.png 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" CRLFToSpace showname RefreshAll