fix RI3 issue

This commit is contained in:
Kenta420 2024-01-15 17:32:57 +07:00
parent 1d69131312
commit 5e701de463
3 changed files with 7 additions and 4 deletions

View file

@ -131,6 +131,7 @@
Var Seeker.VendingCampaign = 0
Var Seeker.VendingTSID = ""
Var Seeker.CreditNotEnoughRefID = ""
Var PayType = ""
Var CART_INDEX = 0

View file

@ -64,7 +64,6 @@
Var ShowLoadingText = "Invisible"
Var ShowErrorText = "Invisible"
Var Seeker.CreditNotEnoughRefID = ""
If show_eng = "true" Then

View file

@ -361,15 +361,18 @@
DEBUGVAR Seeker.CurrCreditAmount
If Seeker.CreditNotEnoughRefID = "" Then
Var CurrAmount = Seeker.CurrCreditAmount
Var CurrTelePhoneNum = Seeker.CurrCreditTelNum
Var CurrPinNum = Seeker.CurrCreditPinNum
Var RefID = ""
AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID
Else
Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign
If CoinAmount >= ServiceAmountSupCampain Then
Var CurrAmount = Seeker.CurrCreditAmount
Var RefID = "0/" + ServiceAmountSupCampain
Var RefID = RefID + Seeker.CreditNotEnoughRefID
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
Else
Var CurrAmount = CoinAmount