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

Mulitple updated MYS: new payment & update lang SGP: update lang &

Browse source 
remove season pass bug UAE_DUBAI: update lang NewUI: move init ipc
service
This commit is contained in:
Pakin 2025-08-04 08:16:10 +07:00
parent 6316d785c6
commit 847a4660fa
22 changed files with 2732 additions and 661 deletions
Download patch file Download diff file Expand all files Collapse all files

136
inter/mys/xml/page_brewing3Conti.xml
View file

@ -9,9 +9,13 @@
Var ActionOKCase = 0
Var Seeker = "curr"
If PayCredit = 0 Then
Var PayCredit = 1
CoinBack
If New_PaymentInter = 1 Then
Else
If PayCredit = 0 Then
Var PayCredit = 1
CoinBack
EndIf
EndIf
;Var PayCredit = 0
@ -116,6 +120,10 @@
Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2
If New_PaymentInter = 1 Then
Var PriceDrink = Seeker.ServiceAmount2
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
@ -133,66 +141,77 @@
Var PrintCoinAmount = 0
Var AddData = 0
If New_PaymentInter = 1 Then
Else
Var AddData = 0
EndIf
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinMember = "" Then
If New_PaymentInter = 1 Then
Else
If Seeker.PayWithQR = 1 Then
Var VendingTSIDTmp1 = VendingTSIDTmp
Else
Var VendingTSIDTmp1 = ""
EndIf
If Seeker.TNumberTaobinMember = "" Then
Else
If Seeker.PayWithQR = 1 Then
Var VendingTSIDTmp1 = VendingTSIDTmp
Else
Var VendingTSIDTmp1 = ""
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSIDTmp1
If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
Var Cid = 14
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSIDTmp1
If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
Var Cid = 14
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var VendingTSIDTmp1 = ""
EndIf
Var VendingTSIDTmp1 = ""
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
Var AddData = 0
EndIf
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
Var AddData = 0
EndIf
EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
Var AddData = 0
EndIf
EndIf
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
Else
Var AddData = 0
EndIf
EndIf
EndIf
EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
Var AddData = 0
EndIf
EndIf
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
Else
Var AddData = 0
EndIf
EndIf
EndIf
EndIf
If LedLidBlink = "true" Then
@ -221,6 +240,11 @@
DEBUGVAR ButtonGameCountDownState
If New_PaymentInter = 1 Then
SAVELOG "Brewing3 Conti NEW_PAYMENT"
EndIf
</EventOpen>
@ -309,7 +333,11 @@
Var Seeker = "next"
Var MultiPayEnable = "false"
CoinPause
If New_PaymentInter = 1 Then
Else
CoinPause
EndIf
Var PayCredit = 0
Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -340,7 +368,11 @@
SAVELOG "User click topup-credit button"
Var Seeker = "topupCredit"
CoinPause
If New_PaymentInter = 1 Then
Else
CoinPause
EndIf
Var PayCredit = 0
If TelephoneNumber = "" Then