fix new credit add2

This commit is contained in:
miggaze 2024-02-09 13:41:42 +07:00
parent 542fcfe3ad
commit 55b9f3306d

View file

@ -382,9 +382,10 @@
If CoinAmount >= ServiceAmountSupCampain Then
DEBUGVAR CoffeeCreditKeep
DEBUGVAR Seeker.IntVendingCredit
Var CurrAmount = CoffeeCreditKeep
Var CurrAmount = Seeker.CurrCreditAmount - Seeker.IntVendingCredit
Var Seeker.IntVendingCredit = 0
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
Var Seeker.CreditReferenceTmp = RefID
Else