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.xml
worawut a8aaa892c6 add spiral
2022-09-14 17:40:48 +07:00

757 lines
No EOL
18 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 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
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 > 210 Then
Var LastMakeSpiralResult = 2
SAVELOG "Spiral Timeout 210 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
</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> "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>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;<Text>
;<X> 92 </X>
;<Y> 1121 </Y>
;<Width>150</Width>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> Timeout </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 1181 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ChangeTimeout </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 650 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> LastMakeSpiralResult </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