"Enable" 1080 1920 "0xeae6e1" "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume Var SetPayMuti = 0 Var Timeout3 = 0 ; Var LastMakeDrinkResult = "-" ; Var MachineState_Result = 2 Var ChangeFlag3 = 0 Var ChangeFailSpiral = 0 Var ChangeFailCoffee = 0 Var SpiralText1 = 0 Var MultiGo = 0 DEBUGVAR SpiralText1 Var Timeout = 0 Var ShowPictureFail = 0 If ChangeOK = 1 Then Var ChangeOK = 2 EndIf If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/complete_en/text_bottom.png" Var DirImage1 = "ROOT/taobin_project/spiral/image/page_spiral/en_spiral_text_fail.png" Else Var DirImage = "ROOT/taobin_project/image/complete/text_bottom.png" Var DirImage1 = "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_fail.png" EndIf Var SpiralPickDrink = "Invisible" 1000 If CreditCardVoid = 1 Then Var ChangeOK = 3 EndIf If Seeker.thankToppingFlag = 1 Then Else If SpiralCodeOk = 1 Then If CheckAckCode = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 DEBUGVAR SessionID2 Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "locker" Var ECommerce = "" Var ECommerce = "locker5/" 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 ECommerce = ECommerce + Seeker.IntVendingCampaign 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 SpiralCodeOk = 2 Open "ROOT/taobin_project/spiral/xml/page_spiral_fail2.xml" EndIf EndIf EndIf DEBUGVAR LastMakeSpiralResult DEBUGVAR LastMakeDrinkResult DEBUGVAR MachineState_Result DEBUGVAR MachineStage DEBUGVAR SpiralPickDrink ; DEBUGVAR waitAckPay ; DEBUGVAR Timeout ; DEBUGVAR sendPayMultiFlag ; DEBUGVAR PayOk ; DEBUGVAR SetPayMuti ; DEBUGVAR MultiGo ; DEBUGVAR ChangeOK ; DEBUGVAR ChangeStatus ; DEBUGVAR Seeker.TNumberTaobinCredit ; DEBUGVAR Seeker.StoreCreditFlag ; DEBUGVAR Seeker.PayWithQR ; DEBUGVAR Seeker.CodeChannel ; DEBUGVAR CheckAckCodeTimer ; ; DEBUGVAR Seeker.pageStoreCredit0 ; ; DEBUGVAR SpiralCodeOk ; DEBUGVAR CheckAckCode ; DEBUGVAR CheckAckCodeTimer Var Timeout = Timeout + 1 Var ChangeTimeout = ChangeTimeout - 1 Var CheckAckCodeTimer = CheckAckCodeTimer - 1 If MachineStage = "pickup-cup" Then Var SpiralPickDrink = "Enable" Else Var SpiralPickDrink = "Invisible" EndIf If ChangeTimeout < 1 Then If ChangeOK = 1 Then Var ChangeOK = 2 Var ChangeTimeout = 30 EndIf EndIf If ChangeTimeout < 1 Then If ChangeFlag2 = 1 Then Var ChangeOK = 3 Var ChangeFlag2 = 2 Var ChangeTimeout = 30 EndIf EndIf If SpiralCodeOk = 1 Then If CheckAckCode = 1 Then If LastMakeSpiralResult = 2 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData DEBUGVAR SessionID2 DEBUGVAR SessionID2 Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "locker" Var ECommerce = "" Var ECommerce = "locker5/" 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 ECommerce = ECommerce + Seeker.IntVendingCampaign 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 SpiralCodeOk = 2 EndIf EndIf EndIf If PayOk = 9 Then Var SetPayMuti = SetPayMuti + 1 If SetPayMuti = 2 Then Var PayOk = 2 Var SetPayMuti = 0 EndIf EndIf If PayOk = 8 Then Var SetPayMuti = SetPayMuti + 1 If SetPayMuti = 2 Then Var PayOk = 3 Var SetPayMuti = 0 EndIf EndIf If PayOk = 7 Then Var SetPayMuti = SetPayMuti + 1 If SetPayMuti = 2 Then Var PayOk = 5 Var SetPayMuti = 0 EndIf EndIf If LastMakeSpiralResult = 2 Then If ChangeOK = 3 Then If PayOk = 0 Then Var PayOk = 9 Var SessionID4 = MachineSpiralID Var SessionID4 = SessionID4 + ":" Var SessionID4 = SessionID4 + MachineSpiralSlotID Var SessionID3 = SessionID3 + MachineSpiralID Var SessionID3 = SessionID3 + "/" Var SessionID3 = SessionID3 + MachineSpiralSlotID If SpiralCodeOk = 1 Then Var SessionID3 = SessionID3 + "/" Var SessionID3 = SessionID3 + Seeker.VendingCode Var SessionID3 = SessionID3 + "/" Var SessionID3 = SessionID3 + Seeker.CodeNumber EndIf ;Var PayDetail="1/F:1221/0/" Var PayDetail="1/F:" Var PayDetail = PayDetail + MachineSpiralErrorCode Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SessionID4 If Seeker.PayWithQR = 1 Then ;If waitAckPay = 0 Then ; Var waitAckPay = 1 ; Var SVT = "locker" ; Var ACC = "0899999999" ; Var DEE = PayDetail If Seeker.TNumberTaobinCredit = "" Then Else Var ACC = Seeker.TNumberTaobinCredit EndIf ;PAYEXT SVT ACC VendingTSIDTmp DEE Var ServiceCredit = KeepServiceCredit Var ServiceType = "locker" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate If SpiralCodeOk = 1 Then Var CheckAckCode = 1 Var CheckAckCodeTimer = 10 Else Var ShowPictureFail = 1 EndIf ;EndIf Else Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate If SpiralCodeOk = 1 Then Var CheckAckCode = 1 Var CheckAckCodeTimer = 10 Else Var ShowPictureFail = 1 EndIf EndIf EndIf EndIf EndIf If LastMakeSpiralResult = 2 Then If Seeker.PayWithQR = 0 Then If Seeker.CreditCard = 1 Then If CreditCardVoid = 0 Then Var ChangeFlag = 1 Var CreditCardVoid = 1 ; Var ChangeOK = 3 EndIf 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 ChangeFlag2 = 1 Var ChangeTimeout = 30 EndIf EndIf ;Else ; Var ChangeOK = 3 EndIf Else If Seeker.CodeChannel = 0 Then If ChangeFlag = 0 Then Var ChangeFlag = 1 If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 3 Else Var ChangeFailSpiral = 1 ;Var ServiceAmount2 = ServiceAmount2 - PriceDrinkTopping ;Change ServiceAmount2 Var ChangeTimeout = 30 Var ChangeFlag2 = 1 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 = 3 ; test edit Else Change ServiceAmount3 Var ChangeFlag2 = 1 Var ChangeTimeout = 30 EndIf EndIf Else If ChangeOK = 3 Then Else Var ChangeOK = 2 EndIf EndIf EndIf EndIf Else Var ChangeOK = 3 EndIf EndIf If Seeker.thankToppingFlag = 1 Then If MachineStage = "close-maintenance" Then If MachineState_Result = 0 Then SAVELOG "back_to_main from line > 663." Var MachineState_Result = 2 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 SAVELOG " drink-failed...." Var MachineState_Result = 2 EndIf EndIf If MachineState_Result > 0 Then Var EnableSelectMenuBetweenBrew = "Invisible" EndIf If LastMakeDrinkResult = "success" Then Var MachineState_Result = 1 EndIf If MultiGo = 0 Then If MachineState_Result = 2 Then If SaveCoinAmount > 0 Then If Seeker.TNumberTaobinCredit = "" Then Change PriceDrinkTopping Var MultiGo = 1 Else Var MultiGo = 2 EndIf Else Var MultiGo = 2 EndIf EndIf EndIf If LastMakeDrinkResult = "success" Then Var MachineState_Result = 1 EndIf If PayOk = 2 Then If MultiGo = 2 Then If waitAckPay = 0 Then If MachineState_Result = 2 Then If Timeout3 = 0 Then Var waitAckPay = 1 Var PayOk = 8 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/F:1221/0/" Var ServiceType = "coffee" Var SuggestID = "" Var SessionID2 = "" Var ServiceCredit = SelectDrink Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate Var sendPayMultiFlag = 2 If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 0 Then If Seeker.StoreCreditFlag = 1 Then Else Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2 ;Var MultiGo = 0 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If PayOk = 2 Then If MachineState_Result = 1 Then DEBUGVAR PaySuccessWithDaemonTask If waitAckPay = 0 Then Var PayOk = 8 Var waitAckPay = 1 Var Timeout = 0 Var Timeout3 = 2 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 = "2/" + HURR_FOREVER Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + SAMESALARY Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + Seeker.OrderChanel If GetFreeFromError = 1 Then Var Seeker.CodeChannel = 1 Var Seeker.VendingCode = "FAU" 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 + "/" If Seeker.CreditCard = 1 Then CashlessReq SUCCESS ;CashlessReq FAIL EndIf If SessionID2 = "2:00000" Then Var SessionID2 = "1:00000" EndIf Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate Var sendPayMultiFlag = 2 Else If Seeker.CreditCard = 1 Then CashlessReq SUCCESS ;CashlessReq FAIL EndIf If SessionID2 = "2:00000" Then Var SessionID2 = "1:00000" EndIf Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate Var sendPayMultiFlag = 2 EndIf Else ;no wait ack pay Var waitAckPay = 1 Var SVT = "coffee" Var ACC = "0899999999" Var DEE = PayDetail If Seeker.TNumberTaobinMember = "" Then Else Var ACC = Seeker.TNumberTaobinMember EndIf ;PAYEXT SVT ACC VendingTSIDTmp DEE If SessionID2 = "2:00000" Then Var SessionID2 = "1:00000" EndIf Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate Var sendPayMultiFlag = 2 EndIf EndIf __CMD "clear-stock-data" 0 "-" "-" Var ServiceSuccess = "yes" If waitAckPay = 1 Then SAVELOG "waitAckPay=0" ; Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf If Seeker.PayWithQR = 0 Then If ChangeFlag3 = 0 Then If MachineState_Result = 2 Then Var ChangeFailCoffee = 1 Var ChangeMuti = ServiceAmountSum - Seeker.VendingCampaign Var ChangeFlag3 = 1 EndIf If MachineState_Result = 1 Then Var ChangeFailCoffee = 1 Var ChangeMuti = ServiceAmountSum - Seeker.VendingCampaign ;Var ChangeMuti = ServiceAmountSum - PriceDrinkTopping Var ChangeFlag3 = 1 EndIf EndIf If ChangeFlag3 = 1 Then If Seeker.TNumberTaobinCredit = "" Then Change ChangeMuti Var ChangeFlag3 = 2 EndIf EndIf EndIf If PayOk = 3 Then If ChangeOK = 3 Then If sendPayMultiFlag = 2 Then Var PayOk = 7 If Seeker.PayWithQR = 0 Then Var ServiceType = "coffee-multi" Else Var ServiceType = "coffee-multiQR" EndIf 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-multi" Var ServiceCredit = "00-00-00-0000" Var SuggestID = "" If LastMakeSpiralResult = 1 Then Var PayDetail="1/S:0/0/" Else Var PayDetail="1/F:0/0/" EndIf Var CART_COUNT = "2" Var SessionID3 = "" + CART_COUNT Var SessionID3 = SessionID3 + ":00000" SAVELOG PayO2 Var VendingCampaign = IntVendingCampaign Var CreditReference = Seeker.CreditReferenceTmp If LastMakeSpiralResult = 2 Then Var ServiceAmountSum = ServiceAmountSum - PriceDrink Var ServiceAmountSum = ServiceAmountSum - PriceDrinkTopping EndIf ;If MachineState_Result = 2 Then ; Var ServiceAmountSum = ServiceAmountSum - PriceDrinkTopping ;EndIf Var PayType = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate If Seeker.PayWithQR = 1 Then Var SVT = "coffee-multi" If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit EndIf Var DEE = PayDetail PAYEXT SVT TelephoneNumber Seeker.VendingTSID DEE EndIf Var sendPayMultiFlag = 1 EndIf EndIf EndIf EndIf If PayOk = 5 Then If sendPayMultiFlag = 1 Then If MachineStage = "remove-cup" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf If MachineStage = "close-maintenance" Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf If MachineStage = "show-menu" Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf If Timeout >= 120 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Refresh TimerReset If ChangeOK = 2 Then If ChangeStatus = "payout-end" Then Var ChangeOK = 3 Var MultiGo = 2 EndIf EndIf If ChangeOK = 1 Then If ChangeStatus = "payout-end" Then Var ChangeOK = 2 Var ChangeTimeout = 999 EndIf EndIf 89 400 902 902 "ROOT/taobin_project/spiral/image/page_spiral/spiral_fail.png" 84 1100 911 265 DirImage1 0 1418 SpiralPickDrink DirImage ; ; 92 ; 1121 ;150 ; 40 ; KanitTTF ; 0xB78F24 ; Timeout ; ; ; ; 92 ; 1181 ; 40 ; KanitTTF ; 0xB78F24 ; ChangeTimeout ; ; ; ; ; 92 ; 650 ; 40 ; KanitTTF ; 0xB78F24 ; LastMakeSpiralResult ; ; ; ; ; ; 292 ; 1250 ; 40 ; KanitTTF ; 0xB78F24 ; "Seeker.CreditCard" ; ; ; ; ; 92 ; 1250 ; 40 ; KanitTTF ; 0xB78F24 ; Seeker.CreditCard ; ; ; ; ; 292 ; 1350 ; 40 ; KanitTTF ; 0xB78F24 ; "PayOk" ; ; ; ; ; 92 ; 1350 ; 40 ; KanitTTF ; 0xB78F24 ; PayOk ; ; ; ; 292 ; 1400 ; 40 KanitTTF ; 0xB78F24 ; "ChangeOK" ; ; ; ; 92 ; 1400 ; 40 ; KanitTTF ; 0xB78F24 ; ChangeOK ; ; ; ; 292 ; 1450 ; 40 ; KanitTTF ; 0xB78F24 ; "Seeker.StoreCreditFlag" ; ; ; ; 92 ; 1450 ; 40 ; KanitTTF ; 0xB78F24 ; Seeker.StoreCreditFlag ; ; ; ; 292 ; 1500 ; 40 ; KanitTTF ; 0xB78F24 ; "ChangeFlag2" ; ; ; ; ; 92 ; 1500 ; 40 ; KanitTTF ; 0xB78F24 ; ChangeFlag2 ; ; ; ; ; 292 ; 1550 ; 40 ; KanitTTF ; 0xB78F24 ; "Seeker.PayWithQR" ; ; ; ; ; 92 ; 1550 ; 40 ; KanitTTF ; 0xB78F24 ; Seeker.PayWithQR ; ; ; ; 292 ; 1600 ; 40 ; KanitTTF ; 0xB78F24 ; "Seeker.CodeChannel" ; ; ; ; 92 ; 1600 ; 40 ; KanitTTF ; 0xB78F24 ; Seeker.CodeChannel ; ; ; ; 292 ; 1650 ; 40 ; KanitTTF ; 0xB78F24 ; "ChangeFlag" ; ; ; ; 92 ; 1650 ; 40 ; KanitTTF ; 0xB78F24 ; ChangeFlag ; ; ; ; 292 ; 1700 ; 40 ; KanitTTF ; 0xB78F24 ; "Canout" ; ; ; ; 92 ; 1700 ; 40 ; KanitTTF ; 0xB78F24 ; Canout ; ; ; ; 292 ; 1750 ; 40 ; KanitTTF ; 0xB78F24 ; "SpiralCodeOk" ; ; ; ; 92 ; 1750 ; 40 ; KanitTTF ; 0xB78F24 ; SpiralCodeOk ; ; ; ; 292 ; 1800 ; 40 ; KanitTTF ; 0xB78F24 ; "CoinAmount" ; ; ; ; 92 ; 1800 ; 40 ; KanitTTF ; 0xB78F24 ; CoinAmount ;