"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open move from page_brewing3.xml If CART_INDEX = 1 Then Var ServiceAmount2 = CART1_PRICE Var SelectDrink = CART1_PDCODE Var Seeker.ExtendData = CART1_ONTOP EndIf If CART_INDEX = 2 Then Var ServiceAmount2 = CART2_PRICE Var SelectDrink = CART2_PDCODE Var Seeker.ExtendData = CART2_ONTOP EndIf If CART_INDEX = 3 Then Var ServiceAmount2 = CART3_PRICE Var SelectDrink = CART3_PDCODE Var Seeker.ExtendData = CART3_ONTOP EndIf Var SessionID2 = "" + CART_INDEX Var SessionID2 = SessionID2 + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var countClick2 = 0 Var Timeout = 0 Var PrintCoinAmount = 0 If show_eng = "true" Then ;Var DirImage = "ROOT/taobin_project/image/collect_point1_en" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" Else ;Var DirImage = "ROOT/taobin_project/image/collect_point1" Play "ROOT/taobin_project/sound_thai/thankyou.mp3" EndIf Var waitAckPay = 0 Var VendingTSIDTmp = "" Var VendingTSIDProblem = "" Var CreditReference = "" If Seeker.PayWithQR = 1 Then Var VendingTSIDTmp = VendingTSID If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var PayType = "" If ChangeFlag2 = 1 Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Var PayReferenceTmp = PayReference Var PayReference = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var PayReference = PayReferenceTmp Else If Seeker.StoreCreditFlag = 1 Then If CoinAmount > 0 Then Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Var PayReferenceTmp = PayReference Var PayReference = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var PayReference = PayReferenceTmp EndIf EndIf EndIf EndIf If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinMember = "" Then Var TelephoneNumberProblem = "" Else Var TelephoneNumberProblem = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit EndIf If TelephoneNumberProblem = "" Then ;Var TelephoneNumberProblem = "" Var ShowTextNumber = "Enable" Var Tel_Confirm_State = "Disable" Else Var ShowTextNumber = "Invisible" Var Tel_Confirm_State = "Enable" EndIf If Seeker.TNumberTaobinMember = "" Then Else If Seeker.PayWithQR = 1 Then Var VendingTSID = VendingTSIDTmp Else Var VendingTSID = "" EndIf Var BmiYear = Seeker.PointTaobinStr Var PointCrm = "" If Seeker.FromConsent = 1 Then Var PointCrm = "pdpa1" EndIf Var GetScore = VendingTSID If AddPointFlag = 0 Then Var AddPointFlag = 1 If Seeker.TaobinErrorNetwork = 0 Then AddData 11 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore Else Var PointCrm = "" AddData 14 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore EndIf EndIf Var VendingTSID = "" EndIf If GetFreeFromError = 1 Then ;Var GetFreeFromError = 0 Var TelephoneNumberProblem = TelephoneNumberGOTFree EndIf If LedLidBlink = "true" Then Var LedLidBlink = "no" LED LedDoorLid Blink 255 255 255 255 EndIf Var PayType = "multi" If show_eng = "true" Then Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Else Var DirImage2 = "ROOT/taobin_project/image/topping2" EndIf Var StrawStateX = "Enable" Var LidStateX = "Enable" Var Seeker.thankLidFlag = 0 Var Seeker.thankStrawFlag = 0 Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" Var bg_strawlid_ST = "Enable" Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 If Seeker.thankLidFlag = 1 Then Var bg_strawlid = DirImage2 + "/bg_strawSmall.png" Var LidStateX = "Invisible" Var Seeker.lidAction = 2 EndIf ; Disable Var bg_strawlid_ST = "Invisible" Var bg_strawProblem_ST = "Invisible" Var StrawStateX = "Invisible" Var LidStateX = "Invisible" If ActionOKCase = 1 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 SAVELOG "back_to_main from line > 142." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" Else SAVELOG "back_to_main from line > 147." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" EndIf Else EndIf If waitAckPay = 1 Then Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf If ActionOKCase = 1 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 SAVELOG "back_to_main from line > 204." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" Else SAVELOG "back_to_main from line > 173." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" EndIf Else EndIf 1000 Var Timeout = Timeout + 1 If BREW_COUNT_DOWN_FROM_APP = "on" Then Var CountDownBrewing = BREW_CNT Else If CountDownBrewing > 0 Then Var CountDownBrewing = CountDownBrewing - 1 EndIf Endif If Simulation = "true" Then If CountDownBrewing = 0 Then ;Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If Timeout = 4 Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3" EndIf ; run test; ;If CountDownBrewing = 40 Then ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf If CountDownBrewing = 0 Then ;Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf Var ShowCountDownBrewing = CountDownBrewing If Timeout > 540 Then SAVELOG "back_to_main from line > 217." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" EndIf If Timeout > 480 Then Var MachineState_Result = 2 EndIf If ChangeFlag = 1 Then Var ChangeTimeout = ChangeTimeout + 1 EndIf If waitAckPay = 1 Then If Timeout > 60 Then Var VendingTSID = "" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If waitAckPay = 2 Then If Timeout > 10 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 EndIf SAVELOG "back_to_main from line > 309." Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" EndIf EndIf If ChangeOK = 2 Then If ActionOKCase = 0 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var PayDetail = "1/" + HURR_FOREVER Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS ;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var SessionID2 = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 315." ; Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" ;EndIf Var waitAckPay = 2 Var Timeout = 5 Var ActionOKCase = 1 EndIf EndIf If ChangeTimeout > 30 Then If ActionOKCase = 0 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var PayDetail = "1/" + HURR_FOREVER Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS ;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var SessionID2 = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;If Seeker.CodeChannel = 0 Then ; SAVELOG "back_to_main from line > 357." ; Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" ;EndIf Var waitAckPay = 2 Var Timeout = 5 Var ActionOKCase = 1 EndIf EndIf If MachineState_Result = 1 Then If waitAckPay = 0 Then Var waitAckPay = 0 Var Timeout = 0 Var ProcessText = "" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" Var PayDetail = "1/" + HURR_FOREVER Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" If GetFreeFromError = 1 Then Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "C48" Var Seeker.CodeNumber = "0000000000" Var VendingCampaign = ServiceAmount2 EndIf If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.CodeNumber Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.VendingCode Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + SelectDrink Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + BoxID Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "S" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.CodeNumber Var SessionID2 = SessionID2 + "/" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else If Seeker.CodeChannel = 2 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.VendingCode Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + SelectDrink Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + BoxID Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "S" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + Seeker.CodeNumber Var SessionID2 = SessionID2 + "/" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf EndIf Else Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf EndIf Var ServiceSuccess = "yes" If waitAckPay = 0 Then Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf If MachineState_Result = 2 Then If ErrTimeout = 0 Then Var ErrTimeout = 1 If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 Else ;Change ServiceAmount2 Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2 Var ChangeOK = 2 EndIf EndIf Else If CoinAmount > 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 2 Else ;Change ServiceAmount3 Var ChangeAmountSum = ChangeAmountSum + ServiceAmount3 Var ChangeOK = 2 EndIf EndIf Else Var ChangeOK = 2 EndIf EndIf Else Var ChangeOK = 2 EndIf ;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml" ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml" ;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" EndIf EndIf If MachineStage = "show-menu" Then If MachineState_Result = 0 Then ;SAVELOG "back_to_main from line > 655." ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;Var MachineState_Result = 1 EndIf EndIf If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 ;Open "ROOT/taobin_project/xml/page_drinkfail2Multi.xml" EndIf EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then If RoadShow = "true" Then Open "ROOT/taobin_project/xml/page_back_to_error.xml" Else Var MachineState_Result = 2 EndIf EndIf DEBUGVAR CountUpBrewing ; animation video loop If AnimationOn = "true" Then Var CountUpBrewing = CountUpBrewing + 1 Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime If PreviseStepVideo = SlotVideo Then ;SAVELOG SlotVideo Else Var PreviseStepVideo = SlotVideo ;SAVELOG PreviseStepVideo ;SAVELOG SlotVideo ;SAVELOG CountUpBrewing ;Var CountDownVideoTime = CountDownVideoTimeReload Var StepVideo = SlotVideo + 2 ;SAVELOG StepVideo If StepVideo = 1 Then Var videoID = VideoID1 EndIf If StepVideo = 2 Then Var videoID = VideoID2 EndIf If StepVideo = 3 Then Var videoID = VideoID3 EndIf If StepVideo = 4 Then Var videoID = VideoID4 EndIf If StepVideo = 5 Then Var videoID = VideoID5 EndIf If StepVideo = 6 Then Var videoID = VideoID6 EndIf If StepVideo = 7 Then Var videoID = VideoID7 EndIf If StepVideo = 8 Then Var videoID = VideoID8 EndIf If StepVideo = 9 Then Var videoID = VideoID9 EndIf ;SAVELOG videoID If videoID = 0 Then Else If videoID = "---" Then Else Var VideoPlayFile = VideoPath Var VideoPlayFile = VideoPlayFile + VideoFileBegin Var VideoPlayFile = VideoPlayFile + videoID Var VideoPlayFile = VideoPlayFile + VideoFileEnd Var PictureFile = PicturePath Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + PictureEnd DEBUGVAR VideoPlayFile DEBUGVAR PictureFile EndIf EndIf EndIf EndIf If IgnoreNetCore = "true" Then If CountDownBrewing = 0 Then Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf EndIf Refresh TimerReset ;If MachineStage = "drink-success" Then ; Open "ROOT/taobin_project/xml/page_drinkok.xml" ;EndIf ;If MachineStage = "drink-failed" Then ; Open "ROOT/taobin_project/xml/page_drinkfail.xml" ;EndIf If MachineStage = "drink-success" Then Var MachineState_Result = 1 EndIf If MachineStage = "drink-failed" Then If RoadShow = "true" Then Open "ROOT/taobin_project/xml/page_back_to_error.xml" Else Var MachineState_Result = 2 EndIf EndIf Refresh ; this copy in file menu_brew2.xml and menu_lid_straw.xml If ChangeStatus = "payout-end" Then If ChangeFlag = 1 Then Var ChangeOK = 2 EndIf EndIf ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; 60 1290 PictureFile 60 1649 BottomText ; 751 413 "ROOT/taobin_project/image/page_doing/img2.png" ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing ; ; 100 ; 470 ; End ; 153 ; 30 ; RobotoBold ; 0x513C2F ; MachineStage ; ; ; ; 0 ; 1880 ; 30 ; Center ; 1080 ; KanitThinTTF ; 0x513C2F ; MachineStage ; ; ; 0 ; 1860 ; 200 ; 50 ; "/mnt/sdcard/coffeevending/wav/click.wav" ; SoundVolume ; ; Var countClick = countClick + 1 ; If countClick = 3 Then ; ; EndIf ; ; If countClick = 5 Then ; Var countClick = 0 ; MainMenu ; EndIf ; Refresh ; ; 870 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var countClick2 = countClick2 + 1 If countClick2 = 3 Then EndIf If countClick2 = 5 Then Var countClick2 = 0 Var HaveCup = "true" Var MachineStage = "drink-success" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf Refresh 10 500 bg_strawlid_ST bg_strawlid ; straw left 50 572 StrawStateX "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 StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" Var Seeker.strawAction = 1 EndIf Refresh 377 579 StrawStateX "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 StrawStateX = "Press" Then ;Var StrawStateX = "Enable" Else Var StrawStateX = "Press" Var Seeker.strawAction = 1 EndIf Refresh ; LID left 50 648 LidStateX "No" "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID pic" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" Var Seeker.lidAction = 1 EndIf DEBUGVAR SugarState1 Refresh EndIf 377 655 LidStateX "No" "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) If Seeker.thankLidFlag = 0 Then SAVELOG "Click LID cb" If LidStateX = "Press" Then ;Var LidStateX = "Enable" Else Var LidStateX = "Press" Var Seeker.lidAction = 1 EndIf Refresh EndIf