"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var LidState = "Enable" Var StarwState = "Enable" Var countClick2 = 0 Var Timeout = 0 Var PrintCoinAmount = 0 If ActionOKCase = 1 Then If CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + 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 TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Else If ActionOKCase = 2 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf If ActionOKCase = 1 Then If CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + 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 TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 Else Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Else If ActionOKCase = 2 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf 800 Var Timeout = Timeout + 1 Var CountDownBrewing = CountDownBrewing - 1 ; 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 > 330 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf If Timeout > 300 Then Var MachineState_Result = 2 EndIf If ChangeFlag = 1 Then Var ChangeTimeout = ChangeTimeout + 1 EndIf If ChangeOK = 2 Then If ActionOKCase = 0 Then Var TelephoneNumber = "0899999999" Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;Open "ROOT/xml/page_closeMaintenance.xml" Var ActionOKCase = 1 EndIf EndIf If ChangeTimeout > 30 Then If ActionOKCase = 0 Then Var VendingDiscount = 0 Var VendingCampaign = 0 Var TelephoneNumber = "0899999999" Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;Open "ROOT/xml/menu_closeMaintenance.xml" Var ActionOKCase = 1 EndIf EndIf If ChangeOK = 3 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf If ChangeOK = 4 Then If ActionOKCase = 0 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + 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 TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 Var ActionOKCase = 2 EndIf EndIf If TestLoopMakeDrink = 1 Then If MachineState_Result = 1 Then Var MachineState_Result = 0 Var TestLoopSuccess = TestLoopSuccess + 1 Open "ROOT/taobin_project/xml/page_drinkloop.xml" EndIf If MachineState_Result = 2 Then ;Var MachineState_Result = 0 Var TestLoopFailed = TestLoopFailed + 1 Open "ROOT/taobin_project/xml/page_drinkloop.xml" EndIf EndIf If MachineState_Result = 1 Then Var Timeout = 0 Var ProcessText = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var SuggestID = "" If PayWithQR = 0 Then If CodeChannel = 1 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + CodeNumber Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + 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 + CodeNumber Var SessionID2 = SessionID2 + "/" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else If CodeChannel = 2 Then Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "" Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + 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 + 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 If ChangeFlag2 = 1 Then Var TelephoneNumber = "0899999999" Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf EndIf Var ServiceSuccess = "yes" Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf If MachineState_Result = 2 Then If ErrTimeout = 0 Then Var ErrTimeout = 1 If PayWithQR = 0 Then If CodeChannel = 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Change ServiceAmount2 EndIf Else If CoinAmount > 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign Change ServiceAmount2 EndIf Else If ChangeFlag2 = 1 Then Var ChangeOK = 2 Else If CodeChannel = 1 Then Var ChangeOK = 4 Else Var ChangeOK = 3 EndIf EndIf EndIf EndIf Else If CodeChannel = 0 Then If CoinAmount > 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Var ServiceAmount2 = CoinAmount Change CoinAmount EndIf Else If ChangeFlag2 = 1 Then Var ChangeOK = 2 Else Var ChangeOK = 3 EndIf EndIf Else If CoinAmount > 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 Var ServiceAmount2 = CoinAmount Change CoinAmount EndIf Else If ChangeFlag2 = 1 Then Var ChangeOK = 2 Else Var ChangeOK = 4 EndIf EndIf EndIf EndIf OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.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 Open "ROOT/taobin_project/xml/page_drinkok.xml" EndIf If MachineStage = "close-maintenance" Then Open "ROOT/taobin_project/xml/page_back_to_main.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 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" ; 140 1124 "ROOT/taobin_project/image/page_doing/text2.png" ; 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 RobotoBlack 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" EndIf Refresh 0 1886 20 1080 Start RobotoBlack 0x513C2F countClick 0 1886 20 1080 end RobotoBlack 0x513C2F countClick2