1250 lines
No EOL
31 KiB
XML
1250 lines
No EOL
31 KiB
XML
<Popup>
|
|
<Cache> "Enable" </Cache>
|
|
<Width> 1080 </Width>
|
|
<Height> 1920 </Height>
|
|
<Background> "0xDFD9D6" </Background>
|
|
<Volume> SoundVolume </Volume>
|
|
|
|
<EventOpen>
|
|
; On open
|
|
|
|
Var Timeout = 0
|
|
|
|
If show_eng = "true" Then
|
|
Var DirImage = "ROOT/taobin_project/image/display_point_en"
|
|
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en"
|
|
|
|
Else
|
|
Var DirImage = "ROOT/taobin_project/image/display_point"
|
|
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign"
|
|
EndIf
|
|
|
|
If show_eng = "true" Then
|
|
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
|
|
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
|
|
Else
|
|
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
|
|
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
|
|
|
|
EndIf
|
|
|
|
Var CoffeePointRank = CoffeePointRankTmp
|
|
;Var PointDiff = 150 - CoffeePointRank
|
|
|
|
|
|
|
|
Var TaobinExpireDay = ""
|
|
Var TaobinExpireMonth = ""
|
|
Var TaobinExpireMonthX = ""
|
|
Var TaobinExpireYear = ""
|
|
|
|
|
|
Var buttonState = "Enable"
|
|
|
|
If MakeDrinkState = 1 Then
|
|
Var buttonState = "Invisible"
|
|
EndIf
|
|
|
|
|
|
|
|
SPLIT TaobinExpire "/" 1 TaobinExpireDay
|
|
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
|
|
SPLIT TaobinExpire "/" 3 TaobinExpireYear
|
|
|
|
|
|
If show_eng = "true" Then
|
|
If TaobinExpireMonth = "01" Then
|
|
Var TaobinExpireMonth = "Jan"
|
|
Var TaobinExpireMonthX = "January"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "02" Then
|
|
Var TaobinExpireMonth = "Feb"
|
|
Var TaobinExpireMonthX = "February"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "03" Then
|
|
Var TaobinExpireMonth = "Mar"
|
|
Var TaobinExpireMonthX = "March"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "04" Then
|
|
Var TaobinExpireMonth = "Apr"
|
|
Var TaobinExpireMonthX = "April"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "05" Then
|
|
Var TaobinExpireMonth = "May"
|
|
Var TaobinExpireMonthX = "May"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "06" Then
|
|
Var TaobinExpireMonth = "Jun"
|
|
Var TaobinExpireMonthX = "June"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "07" Then
|
|
Var TaobinExpireMonth = "Jul"
|
|
Var TaobinExpireMonthX = "July"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "08" Then
|
|
Var TaobinExpireMonth = "Aug"
|
|
Var TaobinExpireMonthX = "August"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "09" Then
|
|
Var TaobinExpireMonth = "Sep"
|
|
Var TaobinExpireMonthX = "September"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "10" Then
|
|
Var TaobinExpireMonth = "Oct"
|
|
Var TaobinExpireMonthX = "October"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "11" Then
|
|
Var TaobinExpireMonth = "Nov"
|
|
Var TaobinExpireMonthX = "November"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "12" Then
|
|
Var TaobinExpireMonth = "Dec"
|
|
Var TaobinExpireMonthX = "December"
|
|
EndIf
|
|
|
|
INT TaobinExpireYear
|
|
INT TaobinExpireDay
|
|
|
|
Var TaobinExpireYear = TaobinExpireYear + 0
|
|
|
|
Else
|
|
|
|
If TaobinExpireMonth = "01" Then
|
|
Var TaobinExpireMonth = "ม.ค."
|
|
Var TaobinExpireMonthX = "มกราคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "02" Then
|
|
Var TaobinExpireMonth = "ก.พ."
|
|
Var TaobinExpireMonthX = "กุมภาพันธ์"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "03" Then
|
|
Var TaobinExpireMonth = "มี.ค."
|
|
Var TaobinExpireMonthX = "มีนาคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "04" Then
|
|
Var TaobinExpireMonth = "เม.ย."
|
|
Var TaobinExpireMonthX = "เมษายน"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "05" Then
|
|
Var TaobinExpireMonth = "พ.ค."
|
|
Var TaobinExpireMonthX = "พฤษภาคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "06" Then
|
|
Var TaobinExpireMonth = "มิ.ย."
|
|
Var TaobinExpireMonthX = "มิถุนายน"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "07" Then
|
|
Var TaobinExpireMonth = "ก.ค."
|
|
Var TaobinExpireMonthX = "กรกฎาคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "08" Then
|
|
Var TaobinExpireMonth = "ส.ค."
|
|
Var TaobinExpireMonthX = "สิงหาคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "09" Then
|
|
Var TaobinExpireMonth = "ก.ย."
|
|
Var TaobinExpireMonthX = "กันยายน"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "10" Then
|
|
Var TaobinExpireMonth = "ต.ค."
|
|
Var TaobinExpireMonthX = "ตุลาคม"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "11" Then
|
|
Var TaobinExpireMonth = "พ.ย."
|
|
Var TaobinExpireMonthX = "พฤศจิกายน"
|
|
EndIf
|
|
|
|
If TaobinExpireMonth = "12" Then
|
|
Var TaobinExpireMonth = "ธ.ค."
|
|
Var TaobinExpireMonthX = "ธันวาคม"
|
|
EndIf
|
|
|
|
INT TaobinExpireYear
|
|
INT TaobinExpireDay
|
|
|
|
Var TaobinExpireYear = TaobinExpireYear + 543
|
|
|
|
EndIf
|
|
|
|
|
|
Var ExpireStrTmp = ""
|
|
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
|
|
Var ExpireStrTmp = ExpireStrTmp + " "
|
|
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
|
|
Var ExpireStrTmp = ExpireStrTmp + " "
|
|
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
|
|
|
|
|
|
If show_eng = "true" Then
|
|
|
|
If TaobinLevel = "1" Then
|
|
Var TaobinLevelDesc1 = "Shy turtle level"
|
|
Var TaobinLevelDesc2 = ""
|
|
|
|
Var TaobinLeveImg = "/taoLevel1.png"
|
|
EndIf
|
|
|
|
If TaobinLevel = "2" Then
|
|
Var TaobinLevelDesc1 = "Walking turtle 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"
|
|
|
|
If CoffeePointRank > 149 Then
|
|
;Var TaobinLeveImg = "/taoLevel3.png"
|
|
|
|
;Var TaobinLevelDesc1 = "Flying turtle level "
|
|
Var TaobinLevelDesc2 = ""
|
|
;Var CoffeePointRank = CoffeePointRank - 150
|
|
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
If TaobinLevel = "3" Then
|
|
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
|
|
|
|
Var PointDiff = 200 - CoffeePointRank
|
|
Var TaobinLevelDesc2 = "Earn " + PointDiff
|
|
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
|
|
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
|
|
|
|
Var TaobinLeveImg = "/taoLevel3.png"
|
|
|
|
If CoffeePointRank > 199 Then
|
|
;Var TaobinLeveImg = "/taoLevel4.png"
|
|
|
|
;Var TaobinLevelDesc1 = "Master turtle level "
|
|
Var TaobinLevelDesc2 = ""
|
|
;Var CoffeePointRank = CoffeePointRank - 350
|
|
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
If TaobinLevel = "4" Then
|
|
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
|
|
|
|
Var TaobinLevelDesc2 = ""
|
|
|
|
Var TaobinLeveImg = "/taoLevel4.png"
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
Else
|
|
|
|
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 = 200 - CoffeePointRank
|
|
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
|
|
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
|
|
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
|
|
|
|
|
|
Var TaobinLeveImg = "/taoLevel3.png"
|
|
|
|
If CoffeePointRank > 199 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 FromCheckMemberPoint = 0
|
|
|
|
|
|
|
|
|
|
|
|
Var PolygonST1 = "Invisible"
|
|
Var PolygonST2 = "Invisible"
|
|
|
|
|
|
|
|
|
|
;Var CouponInfo1 = Ext1a
|
|
;Var CouponInfo2 = Ext1b
|
|
;Var CouponInfo3 = Ext1c
|
|
;Var CouponInfo4 = Ext1d
|
|
;Var CouponInfo5 = Ext1e
|
|
;Var CouponInfo6 = Ext1f
|
|
;Var CouponInfo7 = Ext1g
|
|
;Var CouponInfo8 = Ext1h
|
|
;Var CouponInfo9 = Ext1i
|
|
;Var CouponInfo10 = Ext1j
|
|
|
|
Var CouponInfoA = ""
|
|
Var CouponInfoB = ""
|
|
|
|
Var CouponSTA = "Invisible"
|
|
Var CouponSTB = "Invisible"
|
|
Var CouponExpireA = ""
|
|
Var CouponExpireB = ""
|
|
Var CouponIDA = ""
|
|
Var CouponIDB = ""
|
|
|
|
|
|
Var CouponNum = TaobinCoupons
|
|
|
|
If CouponPage = 1 Then
|
|
|
|
If CouponInfo3 = "" Then
|
|
Else
|
|
Var PolygonST2 = "Enable"
|
|
EndIf
|
|
Var PolygonST1 = "Invisible"
|
|
|
|
Var CouponInfoA = CouponInfo1
|
|
Var CouponInfoB = CouponInfo2
|
|
SPLIT CouponInfoA "/" 1 CouponIDA
|
|
SPLIT CouponInfoB "/" 1 CouponIDB
|
|
|
|
EndIf
|
|
|
|
If CouponPage = 2 Then
|
|
|
|
If CouponInfo5 = "" Then
|
|
Else
|
|
Var PolygonST2 = "Enable"
|
|
EndIf
|
|
Var PolygonST1 = "Enable"
|
|
|
|
Var CouponInfoA = CouponInfo3
|
|
Var CouponInfoB = CouponInfo4
|
|
SPLIT CouponInfoA "/" 1 CouponIDA
|
|
SPLIT CouponInfoB "/" 1 CouponIDB
|
|
|
|
EndIf
|
|
|
|
If CouponPage = 3 Then
|
|
|
|
If CouponInfo7 = "" Then
|
|
Else
|
|
Var PolygonST2 = "Enable"
|
|
EndIf
|
|
Var PolygonST1 = "Enable"
|
|
|
|
Var CouponInfoA = CouponInfo5
|
|
Var CouponInfoB = CouponInfo6
|
|
SPLIT CouponInfoA "/" 1 CouponIDA
|
|
SPLIT CouponInfoB "/" 1 CouponIDB
|
|
|
|
EndIf
|
|
|
|
If CouponPage = 4 Then
|
|
|
|
If CouponInfo9 = "" Then
|
|
Else
|
|
Var PolygonST2 = "Enable"
|
|
EndIf
|
|
Var PolygonST1 = "Enable"
|
|
|
|
Var CouponInfoA = CouponInfo7
|
|
Var CouponInfoB = CouponInfo8
|
|
SPLIT CouponInfoA "/" 1 CouponIDA
|
|
SPLIT CouponInfoB "/" 1 CouponIDB
|
|
|
|
EndIf
|
|
|
|
If CouponPage = 5 Then
|
|
|
|
Var PolygonST1 = "Enable"
|
|
Var PolygonST2 = "Invisible"
|
|
|
|
Var CouponInfoA = CouponInfo9
|
|
Var CouponInfoB = CouponInfo10
|
|
SPLIT CouponInfoA "/" 1 CouponIDA
|
|
SPLIT CouponInfoB "/" 1 CouponIDB
|
|
|
|
|
|
EndIf
|
|
|
|
If CouponIDA = "" Then
|
|
Else
|
|
|
|
Var CouponSTA = "Enable"
|
|
Var CouponExireA_D = ""
|
|
Var CouponExireA_M = ""
|
|
Var CouponExireA_Y = ""
|
|
Var CouponTypeA = ""
|
|
Var CouponNameA = ""
|
|
|
|
|
|
SPLIT CouponInfoA "/" 2 CouponTypeA
|
|
SPLIT CouponInfoA "/" 4 CouponExireA_D
|
|
SPLIT CouponInfoA "/" 5 CouponExireA_M
|
|
SPLIT CouponInfoA "/" 6 CouponExireA_Y
|
|
|
|
|
|
If CouponTypeA = "100" Then
|
|
Var CouponNameA = "/imgCouponC33.png"
|
|
EndIf
|
|
If CouponTypeA = "101" Then
|
|
Var CouponNameA = "/imgCouponC44.png"
|
|
EndIf
|
|
If CouponTypeA = "102" Then
|
|
Var CouponNameA = "/imgCouponC39.png"
|
|
EndIf
|
|
If CouponTypeA = "103" Then
|
|
Var CouponNameA = "/imgCouponC40.png"
|
|
EndIf
|
|
If CouponTypeA = "105" Then
|
|
Var CouponNameA = "/imgCouponC38.png"
|
|
EndIf
|
|
If CouponTypeA = "106" Then
|
|
Var CouponNameA = "/imgCouponC41.png"
|
|
EndIf
|
|
If CouponTypeA = "107" Then
|
|
Var CouponNameA = "/imgCouponC42.png"
|
|
EndIf
|
|
If CouponTypeA = "109" Then
|
|
Var CouponNameA = "/imgCouponC33.png"
|
|
EndIf
|
|
If CouponTypeA = "112" Then
|
|
Var CouponNameA = "/imgCoupon112.png"
|
|
EndIf
|
|
If CouponTypeA = "113" Then
|
|
Var CouponNameA = "/imgCoupon113.png"
|
|
EndIf
|
|
|
|
If CouponTypeA = "120" Then
|
|
Var CouponNameA = "/imgCoupon120.png"
|
|
EndIf
|
|
If CouponTypeA = "121" Then
|
|
Var CouponNameA = "/imgCoupon121.png"
|
|
EndIf
|
|
|
|
If CouponTypeA = "135" Then
|
|
Var CouponNameA = "/imgCouponMKP1.png"
|
|
EndIf
|
|
|
|
INT CouponExireA_D
|
|
INT CouponExireA_Y
|
|
Var CouponExireA_Y = CouponExireA_Y + 0
|
|
|
|
Var CouponExpireA = CouponExpireA + CouponExireA_D
|
|
Var CouponExpireA = CouponExpireA + " "
|
|
Var CouponExpireA = CouponExpireA + CouponExireA_M
|
|
Var CouponExpireA = CouponExpireA + " "
|
|
Var CouponExpireA = CouponExpireA + CouponExireA_Y
|
|
|
|
EndIf
|
|
|
|
If CouponIDB = "" Then
|
|
Else
|
|
|
|
|
|
Var CouponSTB = "Enable"
|
|
Var CouponExireB_D = ""
|
|
Var CouponExireB_M = ""
|
|
Var CouponExireB_Y = ""
|
|
Var CouponTypeB = ""
|
|
Var CouponNameB = ""
|
|
|
|
SPLIT CouponInfoB "/" 2 CouponTypeB
|
|
SPLIT CouponInfoB "/" 4 CouponExireB_D
|
|
SPLIT CouponInfoB "/" 5 CouponExireB_M
|
|
SPLIT CouponInfoB "/" 6 CouponExireB_Y
|
|
|
|
|
|
If CouponTypeB = "100" Then
|
|
Var CouponNameB = "/imgCouponC33.png"
|
|
EndIf
|
|
If CouponTypeB = "101" Then
|
|
Var CouponNameB = "/imgCouponC44.png"
|
|
EndIf
|
|
If CouponTypeB = "102" Then
|
|
Var CouponNameB = "/imgCouponC39.png"
|
|
EndIf
|
|
If CouponTypeB = "103" Then
|
|
Var CouponNameB = "/imgCouponC40.png"
|
|
EndIf
|
|
If CouponTypeB = "105" Then
|
|
Var CouponNameB = "/imgCouponC38.png"
|
|
EndIf
|
|
If CouponTypeB = "106" Then
|
|
Var CouponNameB = "/imgCouponC41.png"
|
|
EndIf
|
|
If CouponTypeB = "107" Then
|
|
Var CouponNameB = "/imgCouponC42.png"
|
|
EndIf
|
|
If CouponTypeB = "109" Then
|
|
Var CouponNameB = "/imgCouponC33.png"
|
|
EndIf
|
|
If CouponTypeB = "112" Then
|
|
Var CouponNameB = "/imgCoupon112.png"
|
|
EndIf
|
|
If CouponTypeB = "113" Then
|
|
Var CouponNameB = "/imgCoupon113.png"
|
|
EndIf
|
|
|
|
If CouponTypeB = "120" Then
|
|
Var CouponNameB = "/imgCoupon120.png"
|
|
EndIf
|
|
If CouponTypeB = "121" Then
|
|
Var CouponNameB = "/imgCoupon121.png"
|
|
EndIf
|
|
|
|
If CouponTypeB = "135" Then
|
|
Var CouponNameB = "/imgCouponMKP1.png"
|
|
EndIf
|
|
|
|
INT CouponExireB_D
|
|
INT CouponExireB_Y
|
|
Var CouponExireB_Y = CouponExireB_Y + 0
|
|
|
|
Var CouponExpireB = CouponExpireB + CouponExireB_D
|
|
Var CouponExpireB = CouponExpireB + " "
|
|
Var CouponExpireB = CouponExpireB + CouponExireB_M
|
|
Var CouponExpireB = CouponExpireB + " "
|
|
Var CouponExpireB = CouponExpireB + CouponExireB_Y
|
|
|
|
EndIf
|
|
|
|
If show_eng = "true" Then
|
|
|
|
Var Months[0] = "January"
|
|
Var Months[1] = "February"
|
|
Var Months[2] = "March"
|
|
Var Months[3] = "April"
|
|
Var Months[4] = "May"
|
|
Var Months[5] = "June"
|
|
Var Months[6] = "July"
|
|
Var Months[7] = "August"
|
|
Var Months[8] = "September"
|
|
Var Months[9] = "October"
|
|
Var Months[10] = "November"
|
|
Var Months[11] = "December"
|
|
|
|
|
|
|
|
If CouponIDA = "" Then
|
|
Else
|
|
|
|
Var MonthIndex = CouponExireA_M
|
|
INT MonthIndex
|
|
Var MonthIndex = MonthIndex - 1
|
|
Var CouponExireA_M = Months[MonthIndex]
|
|
|
|
Var CouponExpireA = "Expires " + CouponExpireA
|
|
EndIf
|
|
|
|
If CouponIDB = "" Then
|
|
Else
|
|
|
|
Var MonthIndex = CouponExireB_M
|
|
INT MonthIndex
|
|
Var MonthIndex = MonthIndex - 1
|
|
Var CouponExireB_M = Months[MonthIndex]
|
|
|
|
Var CouponExpireB = "Expires " + CouponExpireB
|
|
|
|
EndIf
|
|
|
|
Var CouponText = "Coupons (" + CouponNum
|
|
Var CouponText = CouponText + ")"
|
|
|
|
Else
|
|
|
|
Var Months[0] = "มกราคม"
|
|
Var Months[1] = "กุมภาพันธ์"
|
|
Var Months[2] = "มีนาคม"
|
|
Var Months[3] = "เมษายน"
|
|
Var Months[4] = "พฤษภาคม"
|
|
Var Months[5] = "มิถุนายน"
|
|
Var Months[6] = "กรกฎาคม"
|
|
Var Months[7] = "สิงหาคม"
|
|
Var Months[8] = "กันยายน"
|
|
Var Months[9] = "ตุลาคม"
|
|
Var Months[10] = "พฤศจิกายน"
|
|
Var Months[11] = "ธันวาคม"
|
|
|
|
|
|
|
|
If CouponIDA = "" Then
|
|
Else
|
|
|
|
Var MonthIndex = CouponExireA_M
|
|
INT MonthIndex
|
|
Var MonthIndex = MonthIndex - 1
|
|
Var CouponExireA_M = Months[MonthIndex]
|
|
|
|
Var CouponExpireA = "หมดอายุ " + CouponExpireA
|
|
EndIf
|
|
|
|
If CouponIDB = "" Then
|
|
Else
|
|
|
|
Var MonthIndex = CouponExireB_M
|
|
INT MonthIndex
|
|
Var MonthIndex = MonthIndex - 1
|
|
Var CouponExireB_M = Months[MonthIndex]
|
|
|
|
Var CouponExpireB = "หมดอายุ " + CouponExpireB
|
|
|
|
EndIf
|
|
|
|
Var CouponText = "คูปองสะสม (" + CouponNum
|
|
Var CouponText = CouponText + ")"
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
If show_eng = "true" Then
|
|
Var MemberText = "MEMBERSHIP STATUS"
|
|
Var CreditTotalLabel = "TAO BIN CREDIT"
|
|
Var ShellTotalLabel = "TOTAL SHELL BALANCE"
|
|
Var CreditUnit = "BATH"
|
|
Var ShellUnit = "SHELLS"
|
|
Var dayDiff_X = 170
|
|
Var dayDiff_Y = 1154
|
|
Var dayDiff_Size = 16
|
|
Else
|
|
Var MemberText = "สถานะสมาชิก"
|
|
Var CreditTotalLabel = "เครดิตสะสม"
|
|
Var ShellTotalLabel = "กระดองสะสม"
|
|
Var CreditUnit = "บาท"
|
|
Var ShellUnit = "กระดอง"
|
|
Var dayDiff_X = 244
|
|
Var dayDiff_Y = 1138
|
|
Var dayDiff_Size = 25
|
|
EndIf
|
|
|
|
|
|
|
|
If MakeDrinkState = 1 Then
|
|
Var bn_exit = "/bn_cancel2.png"
|
|
Var bp_exit = "/bp_cancel2.png"
|
|
Else
|
|
Var bn_exit = "/bn_main.png"
|
|
Var bp_exit = "/bp_main.png"
|
|
EndIf
|
|
|
|
|
|
INT TaobinCredit
|
|
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
|
|
|
|
Var LuckyDrawTicketFormat = "%03.0f"
|
|
|
|
If SystemDateMonthInt = 6 Then
|
|
If SystemDateDayInt >= 17 Then
|
|
Var prize_x = 437
|
|
Var prizeImg = "/prize_iphone15.png"
|
|
Var targetDate = "31-07-2024"
|
|
EndIf
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 7 Then
|
|
Var prize_x = 437
|
|
Var prizeImg = "/prize_iphone15.png"
|
|
Var targetDate = "31-07-2024"
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 8 Then
|
|
Var prize_x = 380
|
|
Var prizeImg = "/prize_ora_gootcat.png"
|
|
Var targetDate = "30-08-2024"
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 9 Then
|
|
Var prize_x = 437
|
|
Var prizeImg = "/prize_iphone15.png"
|
|
Var targetDate = "30-09-2024"
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 10 Then
|
|
Var prize_x = 437
|
|
Var prizeImg = "/prize_iphone15.png"
|
|
Var targetDate = "31-10-2024"
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 11 Then
|
|
Var prize_x = 380
|
|
Var prizeImg = "/prize_byd_atto3_standard_range.png"
|
|
Var targetDate = "30-11-2024"
|
|
EndIf
|
|
|
|
If SystemDateMonthInt = 12 Then
|
|
Var prize_x = 437
|
|
Var prizeImg = "/prize_iphone15.png"
|
|
Var targetDate = "31-12-2024"
|
|
EndIf
|
|
|
|
If SystemDateYearInt = 2025 Then
|
|
If SystemDateMonthInt = 1 Then
|
|
Var prize_x = 380
|
|
Var prizeImg = "/prize_tesla_model3.png"
|
|
Var targetDate = "31-01-2025"
|
|
EndIf
|
|
EndIf
|
|
|
|
DateDayDiffNow targetDate dayDiff
|
|
DEBUGVAR SystemDate
|
|
DEBUGVAR targetDate
|
|
DEBUGVAR dayDiff
|
|
|
|
|
|
Var ShowLuckyDrawTicketState = "Enable"
|
|
Var ShowLuckyDrawAlreadyGotRewardState = "Invisible"
|
|
If luckyDrawAlredyGotReward = 1 Then
|
|
Var ShowLuckyDrawTicketState = "Invisible"
|
|
Var ShowLuckyDrawAlreadyGotRewardState = "Enable"
|
|
EndIf
|
|
|
|
</EventOpen>
|
|
<Timeout> 1000 </Timeout>
|
|
<EventTimeout>
|
|
|
|
|
|
|
|
|
|
|
|
Var Timeout = Timeout + 1
|
|
If Timeout > 30 Then
|
|
|
|
If MakeDrinkState = 1 Then
|
|
|
|
|
|
|
|
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
|
|
EndIf
|
|
|
|
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
|
|
|
EndIf
|
|
|
|
TimerReset
|
|
Refresh
|
|
</EventTimeout>
|
|
|
|
|
|
|
|
|
|
|
|
<EventSecurity>
|
|
Open "/media/bt/xml/security_alarm.xml"
|
|
</EventSecurity>
|
|
|
|
<EventActionOk>
|
|
Open "ROOT/taobin_project/xml/page_check_member2.xml"
|
|
</EventActionOk>
|
|
|
|
|
|
<EventMachine>
|
|
If MachineStage = "drink-success" Then
|
|
Var MachineState_Result = 1
|
|
EndIf
|
|
|
|
If MachineStage = "drink-failed" Then
|
|
Var MachineState_Result = 2
|
|
EndIf
|
|
</EventMachine>
|
|
|
|
;<Image>
|
|
;<X> 0 </X>
|
|
;<Y> 0 </Y>
|
|
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
|
|
;</Image>
|
|
|
|
;include="ROOT/taobin_project/inc/video.inc"
|
|
|
|
|
|
|
|
|
|
<Button>
|
|
<X> 60 </X>
|
|
<Y> 420 </Y>
|
|
<Filename> "ROOT/taobin_project/image/display_point_campaign/back_icon.png" </Filename>
|
|
<FilenamePress> "ROOT/taobin_project/image/display_point_campaign/back_icon.png" </FilenamePress>
|
|
<EventClick>
|
|
; goto lid straw
|
|
|
|
If MakeDrinkState = 1 Then
|
|
|
|
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
|
|
EndIf
|
|
|
|
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
|
|
|
|
<Button>
|
|
<X> 964 </X>
|
|
<Y> 420 </Y>
|
|
<State> show_eng_button_stage </State>
|
|
<Filename> show_btn </Filename>
|
|
<FilenamePress> show_btp </FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
; eng
|
|
If show_eng = "true" Then
|
|
Var show_eng = "false"
|
|
Else
|
|
Var show_eng = "true"
|
|
EndIf
|
|
Open CurrentXMLFileName2
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<Button>
|
|
<X> 708 </X>
|
|
<Y> 420 </Y>
|
|
<State> buttonState </State>
|
|
<Filename> Var( DirImageCampaign + "/change_pass_btn.png" )</Filename>
|
|
<FilenamePress> Var( DirImageCampaign + "/change_pass_btn_pressed.png" )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
|
|
Open "ROOT/taobin_project/xml/page_payment_changePin1.xml"
|
|
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<Button>
|
|
<X> 452 </X>
|
|
<Y> 420 </Y>
|
|
<State> buttonState </State>
|
|
<Filename> Var( DirImageCampaign + "/topup_btn.png" )</Filename>
|
|
<FilenamePress> Var( DirImageCampaign + "/topup_btn_pressed.png" )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
|
|
;Open "ROOT/taobin_project/xml/page_member_topup2.xml"
|
|
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
|
|
|
|
</EventClick>
|
|
</Button>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<Image>
|
|
<X> 142 </X>
|
|
<Y> 516 </Y>
|
|
<Filename> "ROOT/taobin_project/image/display_point_campaign/member_card.png" </Filename>
|
|
</Image>
|
|
|
|
|
|
|
|
|
|
<Image>
|
|
<X> 633 </X>
|
|
<Y> 529 </Y>
|
|
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
|
|
</Image>
|
|
;
|
|
|
|
<Text>
|
|
<X> 222 </X>
|
|
<Y> 580 </Y>
|
|
<Width> 300 </Width>
|
|
<Height> 35 </Height>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Size> 25 </Size>
|
|
<Color> 0xFFFFFF </Color>
|
|
<Value> MemberText </Value>
|
|
</Text>
|
|
|
|
|
|
<Text>
|
|
<X> 222 </X>
|
|
<Y> 613 </Y>
|
|
<Size> 39 </Size>
|
|
<Width> 300 </Width>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Color> 0xFFFFFF </Color>
|
|
<Value> TaobinName </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 222 </X>
|
|
<Y> 664 </Y>
|
|
<Size> 24 </Size>
|
|
<Width> 300 </Width>
|
|
<Font> RobotoRegular </Font>
|
|
<Color> 0xFFFFFF </Color>
|
|
<Value> TNumberTaobinMemberXXX </Value>
|
|
<Format> Telnum-mask-1 </Format>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 581 </X>
|
|
<Y> 807 </Y>
|
|
<Size> 64 </Size>
|
|
<Width> 317 </Width>
|
|
<Height> 75 </Height>
|
|
<Align> center-vertical-horizontal </Align>
|
|
<Font> RobotoBold </Font>
|
|
<Color> 0xDE794E </Color>
|
|
<Value> CoffeePointRank </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 182 </X>
|
|
<Y> 807 </Y>
|
|
<Size> 64 </Size>
|
|
<Width> 317 </Width>
|
|
<Height> 75 </Height>
|
|
<Align> center-vertical-horizontal </Align>
|
|
<Font> RobotoBold </Font>
|
|
<Color> 0xDE794E </Color>a
|
|
<Value> TaobinCreditStr </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 182 </X>
|
|
<Y> 772 </Y>
|
|
<Size> 25 </Size>
|
|
<Width> 300 </Width>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Color> 0x584235 </Color>
|
|
<Value> CreditTotalLabel </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 581 </X>
|
|
<Y> 772 </Y>
|
|
<Size> 25 </Size>
|
|
<Width> 300 </Width>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Color> 0x584235 </Color>
|
|
<Value> ShellTotalLabel </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 182 </X>
|
|
<Y> 886 </Y>
|
|
<Size> 25 </Size>
|
|
<Width> 317 </Width>
|
|
<Font> KanitRegularTTF </Font>
|
|
<Align> end </Align>
|
|
<Color> 0x584235 </Color>
|
|
<Value> CreditUnit </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 581 </X>
|
|
<Y> 886 </Y>
|
|
<Size> 25 </Size>
|
|
<Width> 317 </Width>
|
|
<Font> KanitRegularTTF </Font>
|
|
<Align> end </Align>
|
|
<Color> 0x584235 </Color>
|
|
<Value> ShellUnit </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 142 </X>
|
|
<Y> 954 </Y>
|
|
<Size> 18 </Size>
|
|
<Width> 600 </Width>
|
|
<Font> RobotoBold </Font>
|
|
<Color> 0xDE794E </Color>
|
|
<Value> TaobinLevelDesc1 </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<X> 142 </X>
|
|
<Y> 975 </Y>
|
|
<Size> 18 </Size>
|
|
<Width> 1000 </Width>
|
|
<Font> RobotoRegular </Font>
|
|
<Color> 0x746253 </Color>
|
|
<Value> TaobinLevelDesc2 </Value>
|
|
</Text>
|
|
|
|
|
|
<Image>
|
|
<X> 142 </X
|
|
<Y> 1036 </Y>
|
|
<State> ShowLuckyDrawTicketState </State>
|
|
<Filename> Var( DirImageCampaign + "/luckydraw_detail_container.png" ) </Filename>
|
|
</Image>
|
|
|
|
<Image>
|
|
<X> prize_x </X>
|
|
<Y> 1046 </Y>
|
|
<State> ShowLuckyDrawTicketState </State>
|
|
<Filename> Var( "ROOT/taobin_project/image/display_point_campaign" + prizeImg ) </Filename>
|
|
</Image>
|
|
|
|
<Text>
|
|
<State> ShowLuckyDrawTicketState </State>
|
|
<X> dayDiff_X </X>
|
|
<Y> dayDiff_Y </Y>
|
|
<Width> 40 </Width>
|
|
<Height> 40 </Height>
|
|
<Font> KanitRegularTTF </Font>
|
|
<Size> dayDiff_Size </Size>
|
|
<Color> 0xF1F1F </Color>
|
|
<Value> dayDiff </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<State> ShowLuckyDrawTicketState </State>
|
|
<X> 620 </X>
|
|
<Y> 1076 </Y>
|
|
<Width> 164 </Width>
|
|
<Height> 80 </Height>
|
|
<Font> RobotoBold </Font>
|
|
<Size> 64 </Size>
|
|
<Color> 0x3F2C20 </Color>
|
|
<Align> center-vertical-horizontal </Align>
|
|
<Value> StringFmt( luckyDrawTicket , LuckyDrawTicketFormat, PreScaleConvertShow) </Value>
|
|
</Text>
|
|
|
|
<Text>
|
|
<State> ShowLuckyDrawAlreadyGotRewardState </State>
|
|
<X> 334 </X>
|
|
<Y> 1057 </Y>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Width> 390 </Width>
|
|
<Size> 24 </Size>
|
|
<Color> 0x84776F </Color>
|
|
<Align> center-vertical-horizontal </Align>
|
|
<Value>
|
|
eval(
|
|
If show_eng = "true" Then
|
|
Var return = "You already got Lucky Draw reward."
|
|
Else
|
|
Var return = "คุณได้รับรางวัล Lucky Draw ไปแล้ว"
|
|
EndIf
|
|
)
|
|
</Value>
|
|
</Text>
|
|
|
|
|
|
<Text>
|
|
<X> 142 </X>
|
|
<Y> 1252 </Y>
|
|
<Size> 49 </Size>
|
|
<Width> 300 </Width>
|
|
<Font> KanitSemiBoldTTF </Font>
|
|
<Color> 0x3F2C20 </Color>
|
|
<Value> CouponText </Value>
|
|
</Text>
|
|
|
|
|
|
|
|
|
|
<Button>
|
|
<X> 165 </X>
|
|
<Y> 1341 </Y>
|
|
<State> CouponSTA </State>
|
|
<Filename> Var( DirImage + CouponNameA )</Filename>
|
|
<FilenamePress> Var( DirImage + CouponNameA )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
; goto lid straw
|
|
|
|
Var CouponSendSms = CouponIDA
|
|
Var CouponExpireDate = CouponExpireA
|
|
Var CouponName = CouponNameA
|
|
Var BmiYear = CouponSendSms
|
|
Var PointCrm = ""
|
|
Var GetScore = ""
|
|
AddData 12 TelephoneNumber BmiYear PointCrm GetScore
|
|
Open "ROOT/taobin_project/xml/page_check_member3.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<Text>
|
|
<X> 325 </X>
|
|
<Y> 1494 </Y>
|
|
<Size> 16 </Size>
|
|
<Width> 580 </Width>
|
|
<Font> KanitRegularTTF </Font>
|
|
<Color> 0xA61100 </Color>
|
|
<Align> end </Align>
|
|
<Value> CouponExpireA </Value>
|
|
</Text>
|
|
|
|
|
|
<Button>
|
|
<X> 165 </X>
|
|
<Y> 1565 </Y>
|
|
<State> CouponSTB </State>
|
|
<Filename> Var( DirImage + CouponNameB )</Filename>
|
|
<FilenamePress> Var( DirImage + CouponNameB )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
; goto lid straw
|
|
|
|
Var CouponSendSms = CouponIDB
|
|
Var CouponExpireDate = CouponExpireB
|
|
Var CouponName = CouponNameB
|
|
Var BmiYear = CouponSendSms
|
|
Var PointCrm = ""
|
|
Var GetScore = ""
|
|
AddData 12 TelephoneNumber BmiYear PointCrm GetScore
|
|
Open "ROOT/taobin_project/xml/page_check_member3.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<Text>
|
|
<X> 325 </X>
|
|
<Y> 1714 </Y>
|
|
<Size> 16 </Size>
|
|
<Width> 580 </Width>
|
|
<Font> KanitRegularTTF </Font>
|
|
<Color> 0xA61100 </Color>
|
|
<Align> end </Align>
|
|
<Value> CouponExpireB </Value>
|
|
</Text>
|
|
|
|
|
|
<Button>
|
|
<X> 78 </X>
|
|
<Y> 1514 </Y>
|
|
<State> PolygonST1 </State>
|
|
<Filename> "ROOT/taobin_project/image/display_point_campaign/arrow_left.png"</Filename>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
Var CouponPage = CouponPage - 1
|
|
Open "ROOT/taobin_project/xml/page_check_member2.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<Button>
|
|
<X> 938 </X>
|
|
<Y> 1514 </Y>
|
|
<State> PolygonST2 </State>
|
|
<Filename> "ROOT/taobin_project/image/display_point_campaign/arrow_right.png"</Filename>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
Var CouponPage = CouponPage + 1
|
|
Open "ROOT/taobin_project/xml/page_check_member2.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
|
|
<Button>
|
|
<X> 224 </X>
|
|
<Y> 1804 </Y>
|
|
<Filename> Var( DirImageCampaign + "/check_taobin_shell.png" )</Filename>
|
|
<FilenamePress> Var( DirImageCampaign + "/check_taobin_shell_press.png" )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
|
|
GETACCEXT TNumberTaobinMemberXXX 14
|
|
Var CoffeePointOld = 0
|
|
Var CoffeePoint = 0
|
|
Open "ROOT/taobin_project/xml/page_check_member_point.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
|
|
<Button>
|
|
<X> 560 </X>
|
|
<Y> 1804 </Y>
|
|
<Filename> Var( DirImageCampaign + "/cancel_btn.png" )</Filename>
|
|
<FilenamePress> Var( DirImageCampaign + "/cancel_btn_pressed.png" )</FilenamePress>
|
|
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
|
<Volume> SoundVolume </Volume>
|
|
<EventClick>
|
|
; goto lid straw
|
|
|
|
If MakeDrinkState = 1 Then
|
|
|
|
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
|
|
EndIf
|
|
|
|
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
|
</EventClick>
|
|
</Button>
|
|
|
|
<EventUnitTest4>
|
|
Open CurrentXMLFileName2
|
|
</EventUnitTest4>
|
|
|
|
|
|
|
|
</Popup>
|
|
|