"Enable" 1080 1920 "0xeae6e1" "ROOT/taobin_project/sounds/chaching.mp3" SoundVolume Var SpiralText1 = 0 DEBUGVAR SpiralText1 Var Timeout = 0 Var ShowPictureFail = 0 If ChangeOK = 1 Then Var ChangeOK = 2 EndIf 1000 ; ; Var Timeout = Timeout + 1 ; If Timeout >= 5 Then ; Open "ROOT/taobin_project/xml/page_back_to_main.xml" ; EndIf ; Refresh ; TimerReset ; If CreditCardVoid = 1 Then Var ChangeOK = 3 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 DEBUGVAR LastMakeSpiralResult Var Timeout = Timeout + 1 Var ChangeTimeout = ChangeTimeout - 1 Var CheckAckCodeTimer = CheckAckCodeTimer - 1 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 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/xml/page_back_to_main.xml" EndIf 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 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 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 = 2 Else Change ServiceAmount3 Var ChangeFlag2 = 1 Var ChangeTimeout = 30 EndIf EndIf Else Var ChangeOK = 2 EndIf EndIf EndIf Else Var ChangeOK = 3 EndIf EndIf If Timeout >= 5 Then If ShowPictureFail = 1 Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" 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 EndIf EndIf If ChangeOK = 1 Then If ChangeStatus = "payout-end" Then Var ChangeOK = 2 Var ChangeTimeout = 999 EndIf EndIf 89 700 902 902 "ROOT/taobin_project/spiral/image/page_spiral/spiral_fail.png" 84 1314 911 265 "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_fail.png" ; ; 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 ;