"Enable" 1080 1920 "0xeae6e1" ; "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume 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 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 ;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 EndIf 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 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 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 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" 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 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 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou2.xml" 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 Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" 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" Open "ROOT/taobin_project/spiral/xml/page_spiral_fail.xml" 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 ; ; 89 ; 700 ; 902 ; 902 ; "ROOT/taobin_project/spiral/image/page_spiral/thankyou.png" ; 760 413 RemainCreditST Var( DirImage + "/remainCredit.png" ) 760 477 70 413 Center RobotoBlack 0x513C2F VendingCreditRemain ; Var SwapVDO = 0 ; Var TimeSwapVDO = 0 ; Var ShowSwapVDO = " ; ; 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 ;