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

tao master

Browse source
This commit is contained in:
miggaze 2022-02-01 18:20:36 +07:00
parent 26a8f311a8
commit b03370aeb5
5 changed files with 72 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
xml/page_check_member2.xml
View file

@ -230,14 +230,14 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " stamps "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
@ -290,7 +290,7 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมแสตมป์อีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " ดวง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
@ -298,7 +298,7 @@
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "

8
xml/page_collect_point_3.xml
View file

@ -259,14 +259,14 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " stamps "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
@ -323,14 +323,14 @@
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมแสตมป์อีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " ดวง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "

6
xml/page_payment.xml
View file

@ -191,12 +191,16 @@
If web_readyOK = "true" Then
Var Seeker.selected_a_drink = SelectDrink
Var Seeker.ServiceAmount2 = PayAmount
If web_payment = "CODE" Then
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
If web_payment = "CREDIT" Then
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
EndIf
EndIf

25
xml/page_payment_credit.xml
View file

@ -37,6 +37,28 @@
Var GetAccFlag = 0
Var AcceptAuto = "false"
If web_readyOK = "true" Then
Var web_readyOK = "false"
Var AcceptAuto = "true"
Var ShowTextNumber = "Invisible"
Var PinNumber = ""
Var TelephoneNumber = web_telnum
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 19
Var GetAccFlag = 1
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -81,6 +103,9 @@
;Var CoffeeCredit = 5
DEBUGVAR PinNumberUser
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
Else
Var ShowErrorText = "Enable"

46
xml/page_payment_credit2.xml
View file

@ -41,14 +41,14 @@
Var Ext1a = ""
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
If AcceptAuto = "true" Then
Var AcceptAuto = "false"
If web_readyOK = "true" Then
Var web_readyOK = "false"
Var AcceptAuto = "true"
Var Tel_Confirm_State = "Enable"
Var ShowTextNumber1 = "Enable"
@ -59,16 +59,38 @@
Var PinNumber = web_pin
Var TelephoneNumber = web_telnum
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
If PinNumberUser = PinNumber Then
GETACCEXT DataTmp 19
Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>