pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

add spiral

Browse source
This commit is contained in:
worawut 2022-09-14 17:40:48 +07:00
parent d260d6db19
commit a8aaa892c6
81 changed files with 18443 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

542
spiral/xml/page_spiral_fail.xml Normal file
View file

@ -0,0 +1,542 @@
<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 Timeout = 0
Var ShowPictureFail = 0
If ChangeOK = 1 Then
Var ChangeOK = 2
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
;<EventTimeout>
; Var Timeout = Timeout + 1
; If Timeout >= 5 Then
; Open "ROOT/taobin_project/xml/page_back_to_main.xml"
; EndIf
; Refresh
; TimerReset
;</EventTimeout>
<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>
<EventTimeout>
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.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
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
</EventTimeout>
<EventChangeStatus>
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>
<Image>
<X> 89 </X>
<Y> 700 </Y>
<Width> 902 </Width>
<Height> 902 </Height>
<Filename> "ROOT/taobin_project/spiral/image/page_spiral/spiral_fail.png" </Filename>
</Image>
<Image>
<X> 84 </X>
<Y> 1314 </Y>
<Width> 911 </Width>
<Height> 265 </Height>
<Filename> "ROOT/taobin_project/spiral/image/page_spiral/spiral_text_fail.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> "CheckAckCode" </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 1250 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> CheckAckCode </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>