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

edit spiral

Browse source
This commit is contained in:
worawut 2022-11-16 13:09:13 +07:00
parent 04b54a9574
commit f0b89e646d
8 changed files with 558 additions and 275 deletions
Download patch file Download diff file Expand all files Collapse all files

78
spiral/xml/page_spiral_fail.xml
View file

@ -6,6 +6,9 @@
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
Var SpiralText1 = 0
DEBUGVAR SpiralText1
Var Timeout = 0
Var ShowPictureFail = 0
If ChangeOK = 1 Then
@ -26,6 +29,10 @@
<EventActionOk>
If CreditCardVoid = 1 Then
Var ChangeOK = 3
EndIf
If SpiralCodeOk = 1 Then
If CheckAckCode = 1 Then
@ -191,6 +198,7 @@ If SpiralCodeOk = 1 Then
EndIf
EndIf
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate
If SpiralCodeOk = 1 Then
Var CheckAckCode = 1
@ -206,19 +214,15 @@ If SpiralCodeOk = 1 Then
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 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
@ -230,10 +234,40 @@ If SpiralCodeOk = 1 Then
Var ChangeTimeout = 30
EndIf
EndIf
Else
Var ChangeOK = 2
;Else
; Var ChangeOK = 3
EndIf
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
@ -337,7 +371,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "CheckAckCode" </Value>
;<Value> "Seeker.CreditCard" </Value>
;</Text>
;
;
@ -347,7 +381,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> CheckAckCode </Value>
;<Value> Seeker.CreditCard </Value>
;</Text>
;
;
@ -523,7 +557,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> "CheckAckCodeTimer" </Value>
;<Value> "CoinAmount" </Value>
;</Text>
;
;<Text>
@ -532,11 +566,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> CheckAckCodeTimer </Value>
;<Value> CoinAmount </Value>
;</Text>
</Popup>