add poing New

This commit is contained in:
miggaze 2022-07-12 12:19:44 +07:00
parent 6c7fa03468
commit 370de40385
9 changed files with 110 additions and 30 deletions

View file

@ -44,8 +44,9 @@
Var AdultFlag2 = 1
EndIf
Var ReqPayInfoFlag2 = 0
DEBUGVAR QRCODETMP
@ -489,7 +490,7 @@
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
@ -507,6 +508,20 @@
;Coin STANDBY
VendingQR OFF
CoinVending OFF
If ReqPayInfoFlag2 = 1 Then
Var Seeker.CampaignPayChanel = "kbank"
EndIf
If ReqPayInfoFlag2 = 2 Then
Var Seeker.CampaignPayChanel = "shopee"
EndIf
If ReqPayInfoFlag2 = 3 Then
Var Seeker.CampaignPayChanel = "true"
EndIf
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
@ -532,6 +547,7 @@
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK
SAVELOG Ext21
@ -552,6 +568,7 @@
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 2
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
@ -570,6 +587,7 @@
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 3
SAVELOG QRCODE99Shoppy
SAVELOG Ext21