WTC+SGP: change collect pt ui and member regis QR

This commit is contained in:
Pakin 2024-10-04 17:28:51 +07:00
parent da3e42901e
commit 9ad0f10a7c
25 changed files with 565 additions and 349 deletions

View file

@ -26,7 +26,7 @@
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -38,7 +38,7 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 54 Then
@ -46,11 +46,11 @@
Var CoffeePointTmp = 55
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 55
Var pImageStr = "/taobinPoint55.png"
Var pImageStr = "/taobinPoint55.png"
If UsePepsiTheme = 1 Then
Var pImageStr = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member" + pImageStr
@ -70,7 +70,7 @@
Var TaobinExpireDay = ""
@ -78,14 +78,14 @@
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
@ -152,7 +152,7 @@
Var TaobinExpireYear = TaobinExpireYear + 0
Else
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
@ -229,17 +229,17 @@
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If TaobinLevel = "1" Then
Var PointMaskState = "Enable"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
Var TaobinLevelDesc3 = "You have coupons "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
@ -253,124 +253,69 @@
;EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "GOOD!"
Var TaobinLevelDesc1More = "BRONZE LEVEL"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
Var TaobinLeveImg = "/taoLevel2.png"
Var TaobinLeveImg = "/WTCLevel1.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
Var TaobinLeveImg = "/WTCLevel2.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BETTER!"
Var TaobinLevelDesc1More = "SILVER LEVEL"
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
;Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
Var TaobinLeveImg = "/WTCLevel2.png"
If CoffeePointRank > 349 Then
;Var TaobinLeveImg = "/taoLevel4.png"
Var TaobinLeveImg = "/WTCLevel3.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BEST!"
Var TaobinLevelDesc1More = "GOLD LEVEL"
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
;Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
Var TaobinLeveImg = "/WTCLevel3.png"
EndIf
Else
Var TaobinLevelDesc3 = "ตอนนี้คุณมีคูปองแลกเครื่องดื่มฟรีเหลืออยู่ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " ใบ"
;If TaobinLevel = "1" Then
; Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย"
; Var TaobinLevelDesc2 = ""
; Var TaobinLeveImg = "/taoLevel1.png"
;EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 350 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 349 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
@ -380,24 +325,24 @@
Var ShellXCol3 = 365
Var ShellXCol4 = 462
Var ShellXCol5 = 557
Var ShellXCol6 = 652
Var ShellXCol7 = 747
Var ShellXCol8 = 842
Var ShellXCol6 = 662
Var ShellXCol7 = 757
Var ShellXCol8 = 852
; 1-8
Var ShellYRow1 = 1037
Var ShellYRow1 = 1047
; 9-16
Var ShellYRow2 = 1120
Var ShellYRow2 = 1130
; 17-24
Var ShellYRow3 = 1203
Var ShellYRow3 = 1213
; 25-32
Var ShellYRow4 = 1282
Var ShellYRow4 = 1292
; 33-40
Var ShellYRow5 = 1365
Var ShellYRow5 = 1375
; 41-48
Var ShellYRow6 = 1448
Var ShellYRow6 = 1458
; 49-55
Var ShellYRow7 = 1531
Var ShellYRow7 = 1541
Var taobinP1 = "Invisible"
@ -461,7 +406,7 @@
Var taobinP53 = "Invisible"
Var taobinP54 = "Invisible"
Var taobinP55 = "Invisible"
Var taobinImgP1 = "/taobinPN.png"
Var taobinImgP2 = "/taobinPN.png"
@ -877,20 +822,20 @@
Var CheckCouponState = "Disable"
EndIf
Var PointEndDate = ""
GetDateEndOfMonth PointEndDate
DEBUGVAR PointEndDate
Var xPointEndDate = 570
If show_eng = "true" Then
If show_eng = "true" Then
Var xPointEndDate = 618
EndIf
Var Point2XState = "Invisible"
Var Point2XImage = ""
If Point2X = 1 Then
Var Point2XState = "Enable"
If Point2X = 1 Then
Var Point2XState = "Enable"
If Seeker.CampaignPayChanel = "kbank" Then
Var Point2XImage = "/text9.png"
EndIf
@ -900,7 +845,7 @@
If Seeker.CampaignPayChanel = "dolfin" Then
Var Point2XImage = "/text11.png"
EndIf
EndIf
;inter-from-consent
@ -911,17 +856,17 @@
;inter-from-consent
If CountryName = "Indonesia" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
;inter-from-consent
If CountryName = "Australia" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
;inter-from-consent
If CountryName = "Singapore" Then
Var Seeker.FromConsent = 0
EndIf
EndIf
Var AlphaBg = "ROOT/taobin_project/image/display_point/alpha.png"
@ -962,10 +907,10 @@
Var Free1 = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/free1.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
@ -981,7 +926,7 @@
DEBUGVAR XPercent
Var XPercent = XPercent / InitCNT
EndIf
DEBUGVAR XPercent
EndIf
@ -997,36 +942,36 @@
If CoffeePoint > 54 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Var CouponPage = 1
Var CouponInfo1 = Ext1a
Var CouponInfo2 = Ext1b
Var CouponInfo3 = Ext1c
@ -1037,14 +982,14 @@
Var CouponInfo8 = Ext1h
Var CouponInfo9 = Ext1i
Var CouponInfo10 = Ext1j
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2
Var CheckCoupons = 2
Else
If CheckCoupons = 2 Then
If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b
@ -1052,15 +997,15 @@
Var ChackMemberPage = CountryRootPath + "xml/page_check_member2.lxml"
Open ChackMemberPage
Else
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
EndIf
EndIf
</EventActionOk>
@ -1095,7 +1040,6 @@
;
<Image>
<X> 108 </X>
<Y> 665 </Y>
@ -1109,24 +1053,50 @@
</Image>
<Image>
<X> 243 </X>
<Y> 722 </Y>
<Filename> Var( DirImage + "/text7.png" )</Filename>
</Image>
;<Image>
;<X> 483 </X>
;<Y> 700 </Y>
;<Filename> Var( DirImage + "/text7.png" )</Filename>
;</Image>
;<Text>
;<X> 483 </X>
;<Y> 750 </Y>
;<Size> 38 </Size>
;<Font> PepsiExtend </Font>
;<Color> HeadlineColor </Color>
;<Value> TaobinLevelDesc1 </Value>
;</Text>
<Text>
<X> 483 </X>
<Y> 730 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> WTCMediumBlueColor </Color>
<Value> "MEMBERSHIP\nSTATUS:" </Value>
</Text>
;<Image>
;<X> 483 </X>
;<Y> 900 </Y>
;<Filename> Var( DirImage + "/text4.png" )</Filename>
;</Image>
<Text>
<X> 483 </X>
<Y> 930 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> WTCMediumBlueColor </Color>
<Value> "TOTAL BALANCE:" </Value>
</Text>
<Image>
<X> 243 </X>
<Y> 860 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 734 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
@ -1148,7 +1118,7 @@
<FilenamePress> ClosePressFilename </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
@ -1157,7 +1127,7 @@
Open "ROOT/taobin_project/inter/sgp/xml/page_check_member.lxml"
EndIf
If Seeker.FromConsent = 1 Then
If Seeker.FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If CoffeePoint > 54 Then
@ -1165,7 +1135,7 @@
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -1555,8 +1525,8 @@
; free
<Button>
<X> 747 </X>
<Y> 1528 </Y>
<X> 740 </X>
<Y> 1535 </Y>
<Filename> Free1 </Filename>
</Button>
@ -1567,24 +1537,24 @@
<Filename> Var( DirImage + taobinImgP55 )</Filename>
</Button>
<Text>
<X> 250 </X>
<Y> 790 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-3 </Format>
</Text>
;<Text>
;<X> 250 </X>
;<Y> 790 </Y>
;<Size> 20 </Size>
;<Width> 1000 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> 0x746253 </Color>
;<Value> TNumberTaobinMemberXXX </Value>
;<Format> Telnum-mask-3 </Format>
;</Text>
<Text>
<X> 250 </X>
<Y> 890 </Y>
<Size> 50 </Size>
<X> 720 </X>
<Y> 930 </Y>
<Size> 20 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Font> PepsiExtend </Font>
<Color> WTCMediumBlueColor </Color>
<Value> CoffeePointRank </Value>
</Text>
@ -1595,15 +1565,37 @@
<Filename> Var( DirImage + "/pointMask.png" )</Filename>
</Button>
;<Text>
;<X> 250 </X>
;<Y> 990 </Y>
;<Size> 25 </Size>
;<Width> 1000 </Width>
;<Font> KanitRegularTTF </Font>
;<Color> 0xDE794E </Color>
;<Value> TaobinLevelDesc1 </Value>
;</Text>
<Text>
<X> 483 </X>
<Y> 800 </Y>
<Size> 50 </Size>
<Font> PepsiExtend </Font>
<Color> HeadlineColor </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
; TaobinLevelDesc1Cont
<Text>
<X> 483 </X>
<Y> 838 </Y>
<Size> 50 </Size>
<Font> PepsiExtend </Font>
<Color> HeadlineColor </Color>
<Value> TaobinLevelDesc1Cont </Value>
</Text>
; TaobinLevelDesc1More
<Text>
<X> 483 </X>
<Y> 898 </Y>
<Size> 20 </Size>
<Font> PepsiExtend </Font>
<Color> HeadlineColor </Color>
<Value> TaobinLevelDesc1More </Value>
</Text>
;<Text>
;<X> 250 </X>
@ -1703,8 +1695,9 @@
Var taobinP42 = "Enable"
Var taobinP50 = "Enable"
Var taobinP55 = "Enable"
</EventUnitTest1>
</Popup>