pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/spiral/xml/page_spiral_thankyou_creditcard.xml
worawut 2c3e7fb6ce spiralNow
2024-11-14 11:32:47 +07:00

590 lines
No EOL
12 KiB
XML
Raw Blame History

<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 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
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
</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>
;<Image>
;<X> 89 </X>
;<Y> 700 </Y>
;<Width> 902 </Width>
;<Height> 902 </Height>
;<Filename> "ROOT/taobin_project/spiral/image/page_spiral/thankyou.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
;<Text>
;<X> 92 </X>
;<Y> 650 </Y>
;<Width>150</Width>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> SwapVDO </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 750 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> TimeSwapVDO </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 850 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ShowSwapVDO </Value>
;</Text>
;<Text>
;<X> 292 </X>
;<Y> 1250 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "SetFlagCoinQRTimer" </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 1250 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> SetFlagCoinQRTimer </Value>
;</Text>
;
;
;<Text>
;<X> 292 </X>
;<Y> 1350 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "PayOk" </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 1350 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> PayOk </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1400 </Y>
;<Size> 40 </Size
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "ChangeOK" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1400 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ChangeOK </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1450 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "Seeker.StoreCreditFlag" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1450 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Seeker.StoreCreditFlag </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1500 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "ChangeFlag2" </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 1500 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ChangeFlag2 </Value>
;</Text>
;
;
;<Text>
;<X> 292 </X>
;<Y> 1550 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "Seeker.PayWithQR" </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 1550 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Seeker.PayWithQR </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1600 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "Seeker.CodeChannel" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1600 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Seeker.CodeChannel </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1650 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "ChangeFlag" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1650 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ChangeFlag </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1700 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "Canout" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1700 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Canout </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1750 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "SpiralCodeOk" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1750 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> SpiralCodeOk </Value>
;</Text>
;
;<Text>
;<X> 292 </X>
;<Y> 1800 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "CheckAckCodeTimer" </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1800 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> CheckAckCodeTimer </Value>
;</Text>
</Popup>
Reference in a new issue View git blame Copy permalink