"Enable" 1080 1920 "0xeae6e1" ; "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume Var CreditCardVoid = 0 Var SwapVDO = 0 Var TimeSwapVDO = 0 Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4" Var PayFlagCoinQR = 0 Var SetFlagCoinQR = 0 Var SetFlagCoinQRTimer = 999999 Var waitAckPay = 0 Var Timeout = 0 Var ServiceType = "locker" Var ServiceCharge = 0 If TelephoneNumber = "" Then Var TelephoneNumber = "0899999999" EndIf Var Donate = "" Var SuggestID = "CRM00A00P000" Var SessionID3 = "locker4/" Var SessionID4 = "" Var VendingCampaign = IntVendingCampaign Var PayType = "" 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 Var CreditReference = "" Var CreditReference = Seeker.CreditReferenceTmp Var VendingDiscount = Seeker.VendingDiscount Var VendingCampaign = Seeker.VendingCampaign ;SendSpiralResult = spiral-success , spiral-failed , spiral-valid , spiral-invalid SPIRAL_SELL ServiceCredit SpiralRef 1000 DEBUGVAR LastMakeSpiralResult 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 Var ChangeOK = 2 Var VendingTSIDTmp = Seeker.VendingTSI If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var Canout = CoinAmount If Canout > 0 Then Var GotoStoreCredit0 = 1 Var StoreCreditAmount = Canout Var SetFlagCoinQR = 1 Var SetFlagCoinQRTimer = 30 Change StoreCreditAmount 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" ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate 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 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 PAYEXT SVT ACC VendingTSIDTmp DEE Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf Else If Seeker.CreditCard = 1 Then ;CashlessReq SUCCESS "" CashlessReq FAIL "" EndIf Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" 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 PAYEXT SVT ACC VendingTSIDTmp DEE Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf Else If Seeker.CreditCard = 1 Then ;CashlessReq SUCCESS "" CashlessReq FAIL "" EndIf Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" EndIf EndIf EndIf EndIf If LastMakeSpiralResult = 2 Then If CreditCardVoid = 0 Then CashlessReq FAIL "" Var ChangeFlag = 1 Var CreditCardVoid = 1 EndIf Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" EndIf If Timeout > 210 Then If CreditCardVoid = 0 Then CashlessReq FAIL "" Var ChangeFlag = 1 Var CreditCardVoid = 1 EndIf Var LastMakeSpiralResult = 2 SAVELOG "Spiral Timeout 210 sec" Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" 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 ; ; 89 ; 700 ; 902 ; 902 ; "ROOT/taobin_project/spiral/image/page_spiral/thankyou.png" ; ;include="ROOT/taobin_project/inc/video.inc" ; ; 92 ; 650 ;150 ; 40 ; KanitTTF ; 0xB78F24 ; SwapVDO ; ; ; ; 92 ; 750 ; 40 ; KanitTTF ; 0xB78F24 ; TimeSwapVDO ; ; ; ; ; 92 ; 850 ; 40 ; KanitTTF ; 0xB78F24 ; ShowSwapVDO ; ; ; 292 ; 1250 ; 40 ; KanitTTF ; 0xB78F24 ; "SetFlagCoinQRTimer" ; ; ; ; ; 92 ; 1250 ; 40 ; KanitTTF ; 0xB78F24 ; SetFlagCoinQRTimer ; ; ; ; ; 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 ; "CheckAckCodeTimer" ; ; ; ; 92 ; 1800 ; 40 ; KanitTTF ; 0xB78F24 ; CheckAckCodeTimer ;