728 lines
No EOL
19 KiB
XML
728 lines
No EOL
19 KiB
XML
<Popup>
|
|
<Cache> "Enable" </Cache>
|
|
<Width> 1080 </Width>
|
|
<Height> 1920 </Height>
|
|
<Background> "0xeae6e1" </Background>
|
|
;<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventOpen>
|
|
|
|
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
|
|
</EventOpen>
|
|
<Timeout> 1000 </Timeout>
|
|
<EventTimeout>
|
|
DEBUGVAR Seeker
|
|
DEBUGVAR LastMakeSpiralResult
|
|
DEBUGVAR LastMakeDrinkResult
|
|
DEBUGVAR MachineState_Result
|
|
DEBUGVAR MachineStage
|
|
DEBUGVAR ChangeFlag2
|
|
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
|
|
If ChangeFlag2 = 1 Then
|
|
If ChangeStatus = "payout-end" Then
|
|
Var ChangeOK = 2
|
|
Else
|
|
Var ChangeOK = 1
|
|
EndIf
|
|
Else
|
|
Var ChangeOK = 2
|
|
EndIf
|
|
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
|
|
|
|
DEBUGVAR ChangeStatus
|
|
DEBUGVAR ChangeOK
|
|
|
|
If LastMakeSpiralResult = 1 Then
|
|
If ChangeOK = 2 Then
|
|
If PayOk = 0 Then
|
|
Var SessionID4 = MachineSpiralID
|
|
Var SessionID4 = SessionID4 + ":"
|
|
Var SessionID4 = SessionID4 + MachineSpiralSlotID
|
|
Var SessionID4 = SessionID4 + ":"
|
|
Var SessionID4 = SessionID4 + MachineSpiralRemaining
|
|
Var SessionID4 = SessionID4 + "/"
|
|
Var SessionID4 = SessionID4 + MachineSpiralVMName
|
|
|
|
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 SessionID4 = SessionID4 + ":"
|
|
Var SessionID4 = SessionID4 + MachineSpiralRemaining
|
|
Var SessionID4 = SessionID4 + "/"
|
|
Var SessionID4 = SessionID4 + MachineSpiralVMName
|
|
|
|
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
|
|
Var VendingTSIDTmp = Seeker.VendingTSID
|
|
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
|
|
Var VendingTSIDTmp = Seeker.VendingTSID
|
|
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
|
|
</EventTimeout>
|
|
|
|
<EventChangeStatus>
|
|
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
|
|
|
|
</EventChangeStatus>
|
|
|
|
|
|
<Video>
|
|
<X> 0 </X>
|
|
<Y> 700 </Y>
|
|
<Width> 1080</Width>
|
|
<Height> 840 </Height>
|
|
<Refresh> "Reload" </Refresh>
|
|
<Loop> "true" </Loop>
|
|
<Filename> ShowSwapVDO </Filename>
|
|
;<Filename> "ROOT/taobin_project/spiral/video/sp01.mp4" </Filename>
|
|
</Video>
|
|
|
|
<EventActionOk>
|
|
|
|
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
|
|
|
|
</EventActionOk>
|
|
|
|
;include="ROOT/taobin_project/inc/video.inc"
|
|
|
|
<Image>
|
|
<X> 760 </X>
|
|
<Y> 413 </Y>
|
|
<State>RemainCreditST</State>
|
|
<Filename> Var( DirImage + "/remainCredit.png" ) </Filename>
|
|
</Image>
|
|
|
|
<Text>
|
|
<X> 760 </X>
|
|
<Y> 477 </Y>
|
|
<Size> 70 </Size>
|
|
<Width> 413</Width>
|
|
<Align> Center </Align>
|
|
<Font> RobotoBlack </Font>
|
|
<Color> 0x513C2F </Color>
|
|
<Value> VendingCreditRemain </Value>
|
|
</Text>
|
|
|
|
|
|
|
|
</Popup> |