"Enable" 1080 1920 "0xeae6e1" ; "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume Var Rraiwa = "Young" Var SaveCoinAmount = 0 Var SaveCoinAmount = CoinAmount Var MachineState_Result = 0 Var SwapVDO = 0 Var TimeSwapVDO = 0 Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4" Var CheckCoin = 0 Var KeepServiceCredit = "" Var KeepServiceCredit = ServiceCredit Var PayFlagCoinQR = 0 Var SetFlagCoinQR = 0 Var SetFlagCoinQRTimer = 999999 Var waitAckPay = 0 Var Timeout = 0 Var ServiceType = "locker" Var ServiceCharge = 0 Var PayReferenceTmp = "" If TelephoneNumber = "" Then Var TelephoneNumber = "0899999999" EndIf Var Donate = "" Var SuggestID = "CRM00A00P000" Var SessionID3 = "locker4/" Var SessionID4 = "" Var VendingCampaign = IntVendingCampaign Var PayType = "" If Seeker.thankToppingFlag = 1 Then Var PayType = "multi" ;Var PayReference = "123456" If Seeker.PayWithQR = 1 Then DEBUGVAR PayReference Else Var PayReference = "" GenHashWithTimeStamp PayReference EndIf Var PriceDrink = PriceDrinkTmp2 Var ServiceAmountSum = PriceDrinkTmp2 + PriceDrinkTopping EndIf Var PayOk = 0 Var ChangeFlag = 0 Var CheckAckCode = 0 Var CheckAckCodeTimer = 9999999 Var ChangeTimeout = 9999999 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 If show_eng = "true" Then Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var BottomText = PicturePath + "text_bottom_eng.png" Var DirImage = "ROOT/taobin_project/image/page_thankyou_en" Else Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var BottomText = PicturePath + "text_bottom_thai2.png" Var DirImage = "ROOT/taobin_project/image/page_thankyou" EndIf If VendingCreditRemain = "" Then Var RemainCreditST = "Invisible" Else Var RemainCreditST = "Enable" EndIf Var CreditReference = "" Var CreditReference = Seeker.CreditReferenceTmp Var VendingDiscount = Seeker.VendingDiscount Var VendingCampaign = Seeker.VendingCampaign If Seeker.thankToppingFlag = 1 Then If SpiralCodeOk = 1 Then If Seeker.VendingCampaign >= PayAmount Then Var VendingCampaign = Seeker.VendingCampaign - PriceDrinkTopping Else Var VendingCampaign = 0 EndIf EndIf EndIf ;SendSpiralResult = spiral-success , spiral-failed , spiral-valid , spiral-invalid If SellLeaw = 1 Then Refresh Else SPIRAL_SELL ServiceCredit SpiralRef Var TestSellSpiral = 2 DEBUGVAR TestSellSpiral Var SellLeaw = 1 If Seeker.thankToppingFlag = 1 Then Topping "Select" SelectDrink ; Pack Topping "Pack" ExtendDataCurr If StrawState = "Press" Then Machine StrawOrder Var LedLidBlink = "true" EndIf If LidState = "Press" Then Machine LidOrder Var LedLidBlink = "true" EndIf Var SelectDrink = "12-05-02-0017" Var SelectSugarID = 0 MakeDrinkV1 SelectDrink SelectSugarID EndIf EndIf 1000 DEBUGVAR LastMakeSpiralResult DEBUGVAR LastMakeDrinkResult DEBUGVAR MachineState_Result DEBUGVAR MachineStage DEBUGVAR Seeker.thankToppingFlag DEBUGVAR VendingCampaign DEBUGVAR Seeker.VendingCampaign DEBUGVAR SpiralCodeOk DEBUGVAR SetFlagCoinQR DEBUGVAR Rraiwa DEBUGVAR Seeker.StoreCreditFlag DEBUGVAR SetFlagCoinQR DEBUGVAR CheckCoin DEBUGVAR KeepServiceCredit DEBUGVAR ChangeOK Var Timeout = Timeout + 1 Var ChangeTimeout = ChangeTimeout - 1 Var CheckAckCodeTimer = CheckAckCodeTimer - 1 Var SetFlagCoinQRTimer = SetFlagCoinQRTimer - 1 Var TimeSwapVDO = TimeSwapVDO + 1 If TimeSwapVDO > 5 Then If SwapVDO = 0 Then Var SwapVDO = 1 Var TimeSwapVDO = 0 Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp02.mp4" Else Var SwapVDO = 0 Var TimeSwapVDO = 0 Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4" EndIf EndIf If Timeout = 3 Then If Seeker.PayWithQR = 0 Then If Seeker.FreeVendingCampaign = 0 Then If Seeker.IntVendingCampaign <= PayAmount Then Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit If SumCoinAmount >= PayAmount Then Var Canout = SumCoinAmount - PayAmount If Canout > 0 Then ;Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout If SpiralKeepCredit = 0 Then Change StoreCreditAmount EndIf Var ChangeOK = 1 Var ChangeTimeout = 120 If SpiralKeepCredit = 1 Then Var ChangeOK = 3 EndIf Else Var ChangeOK = 2 EndIf EndIf EndIf Else Var Canout = CoinAmount If Canout > 0 Then Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout EndIf EndIf Else Var ChangeOK = 2 Var VendingTSIDTmp = Seeker.VendingTSID If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf If ChangeFlag2 = 1 Then Var Canout = CoinAmount If Canout > 0 Then Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout Var SetFlagCoinQR = 1 Var SetFlagCoinQRTimer = 30 Change StoreCreditAmount EndIf ;Var TelephoneNumber = "0899999999" ;Var PayO2 = "" ;Var VendingDiscount = 0 ;Var VendingCampaign = 0 ;Var CreditReference = "" ;Var ServiceType = "credit" ;Var SessionID2 = SelectDrink ;Var ServiceCredit = "locker" ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Else If Seeker.StoreCreditFlag = 1 Then Var CheckCoin = CoinAmount If CheckCoin > 0 Then Var VendingDiscount = 0 Var VendingCampaign = 0 Var CreditReference = "" Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "locker" Var Rraiwa = "PAY" Var PayReferenceTmp = PayReference Var PayReference = "" Var PayType = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var ServiceCredit = KeepServiceCredit Var ServiceType = "locker" Var PayReference = PayReferenceTmp Var PayType = "multi" EndIf EndIf EndIf EndIf EndIf If ChangeTimeout < 1 Then If ChangeOK = 1 Then Var ChangeOK = 2 Var ChangeTimeout = 60 EndIf EndIf If ChangeTimeout < 1 Then If ChangeFlag2 = 1 Then Var ChangeOK = 3 Var ChangeFlag2 = 2 Var ChangeTimeout = 60 EndIf EndIf If SetFlagCoinQRTimer < 1 Then If PayFlagCoinQR = 0 Then Var SetFlagCoinQR = 2 Var SetFlagCoinQRTimer = 99999 EndIf EndIf If SetFlagCoinQR = 2 Then DEBUGVAR "tube2" Var SetFlagCoinQR = 3 Var TelephoneNumber = "0899999999" Var PayO2 = "" Var VendingDiscount = 0 Var VendingCampaign = 0 Var CreditReference = "" Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "locker" Var Rraiwa = "PAY2" Var PayReferenceTmp = PayReference Var PayReference = "" Var PayType = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var PayReference = PayReferenceTmp Var PayType = "multi" Var ServiceCredit = KeepServiceCredit Var ServiceType = "locker" EndIf If LastMakeSpiralResult = 1 Then If ChangeOK = 2 Then If PayOk = 0 Then 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 If Seeker.thankToppingFlag = 1 Then Var VendingCampaign = 0 Else Var SessionID3 = SessionID3 + "/" Var SessionID3 = SessionID3 + Seeker.VendingCode Var SessionID3 = SessionID3 + "/" Var SessionID3 = SessionID3 + Seeker.CodeNumber EndIf EndIf Var PayOk = 1 Var PayDetail="1/S:0/" 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 If Seeker.thankToppingFlag = 1 Then Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou3.xml" Else PAYEXT SVT ACC VendingTSIDTmp DEE Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf EndIf Else Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate If Seeker.thankToppingFlag = 1 Then Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou3.xml" Else Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf EndIf EndIf EndIf EndIf If LastMakeSpiralResult = 1 Then If ChangeOK = 3 Then If PayOk = 0 Then 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 PayOk = 1 Var PayDetail="1/S:0/" 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 If Seeker.thankToppingFlag = 1 Then ;edit test Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou3.xml" Else ;edit test PAYEXT SVT ACC VendingTSIDTmp DEE Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf EndIf Else Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate If Seeker.thankToppingFlag = 1 Then Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou3.xml" Else Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf EndIf EndIf EndIf EndIf If SpiralCodeOk = 1 Then If CheckAckCode = 1 Then If CheckAckCodeTimer < 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 If LastMakeSpiralResult = 2 Then If Seeker.thankToppingFlag = 1 Then Open "ROOT/taobin_project/spiral/xml/page_spiral_failmuti.xml" Else Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" EndIf EndIf ;If LastMakeSpiralResult = 2 Then ; If ChangeOK = 3 Then ; If PayOk = 0 Then ; Var PayOk = 1 ; 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 ; If SpiralCodeOk = 1 Then ; Var CheckAckCode = 1 ; Var CheckAckCodeTimer = 10 ; Else ; Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" ; EndIf ; EndIf ; Else ; Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate ; If SpiralCodeOk = 1 Then ; Var CheckAckCode = 1 ; Var CheckAckCodeTimer = 10 ; Else ; Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" ; EndIf ; EndIf ; EndIf ; EndIf ;EndIf If Timeout > 180 Then Var LastMakeSpiralResult = 2 SAVELOG "Spiral Timeout 180 sec" If Seeker.thankToppingFlag = 1 Then Open "ROOT/taobin_project/spiral/xml/page_spiral_failmuti.xml" Else Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" EndIf EndIf ;If LastMakeSpiralResult = 2 Then ; If Seeker.PayWithQR = 0 Then ; If Seeker.CodeChannel = 0 Then ; If ChangeFlag = 0 Then ; Var ChangeFlag = 1 ; If Seeker.StoreCreditFlag = 1 Then ; Var ChangeOK = 3 ; Else ; Change ServiceAmount2 ; Var ChangeTimeout = 50 ; 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 = 2 ; Else ; Change ServiceAmount3 ; Var ChangeFlag2 = 1 ; Var ChangeTimeout = 50 ; EndIf ; EndIf ; Else ; Var ChangeOK = 2 ; EndIf ; EndIf ; Else ; Var ChangeOK = 3 ; EndIf ;EndIf Refresh TimerReset If SetFlagCoinQR = 1 Then If ChangeStatus = "payout-end" Then Var SetFlagCoinQR = 2 Var PayFlagCoinQR = 1 DEBUGVAR "tube1" EndIf EndIf If ChangeOK = 2 Then If ChangeStatus = "payout-end" Then Var ChangeOK = 3 EndIf EndIf If ChangeOK = 1 Then If ChangeStatus = "payout-end" Then Var ChangeOK = 2 Var ChangeTimeout = 999 EndIf EndIf 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 760 413 RemainCreditST Var( DirImage + "/remainCredit.png" ) 760 477 70 413 Center RobotoBlack 0x513C2F VendingCreditRemain