pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/xml/page_check_member2.xml
pichet 9e85d15563 promotion pepsi
2023-06-02 20:11:53 +07:00

1268 lines
No EOL
33 KiB
XML
Raw Blame History

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </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 page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
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 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 show_eng = "true" Then
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
INT CouponExireA_D
INT CouponExireA_Y
Var CouponExireA_Y = CouponExireA_Y + 0
If CouponExireA_M = "01" Then
Var CouponExireA_M = "January"
EndIf
If CouponExireA_M = "02" Then
Var CouponExireA_M = "February"
EndIf
If CouponExireA_M = "03" Then
Var CouponExireA_M = "March"
EndIf
If CouponExireA_M = "04" Then
Var CouponExireA_M = "April"
EndIf
If CouponExireA_M = "05" Then
Var CouponExireA_M = "May"
EndIf
If CouponExireA_M = "06" Then
Var CouponExireA_M = "June"
EndIf
If CouponExireA_M = "07" Then
Var CouponExireA_M = "July"
EndIf
If CouponExireA_M = "08" Then
Var CouponExireA_M = "August"
EndIf
If CouponExireA_M = "09" Then
Var CouponExireA_M = "September"
EndIf
If CouponExireA_M = "10" Then
Var CouponExireA_M = "October"
EndIf
If CouponExireA_M = "11" Then
Var CouponExireA_M = "November"
EndIf
If CouponExireA_M = "12" Then
Var CouponExireA_M = "December"
EndIf
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = "Expires " + CouponExpireA
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
INT CouponExireB_D
INT CouponExireB_Y
Var CouponExireB_Y = CouponExireB_Y + 0
If CouponExireB_M = "01" Then
Var CouponExireB_M = "January"
EndIf
If CouponExireB_M = "02" Then
Var CouponExireB_M = "February"
EndIf
If CouponExireB_M = "03" Then
Var CouponExireB_M = "March"
EndIf
If CouponExireB_M = "04" Then
Var CouponExireB_M = "April"
EndIf
If CouponExireB_M = "05" Then
Var CouponExireB_M = "May"
EndIf
If CouponExireB_M = "06" Then
Var CouponExireB_M = "June"
EndIf
If CouponExireB_M = "07" Then
Var CouponExireB_M = "July"
EndIf
If CouponExireB_M = "08" Then
Var CouponExireB_M = "August"
EndIf
If CouponExireB_M = "09" Then
Var CouponExireB_M = "September"
EndIf
If CouponExireB_M = "10" Then
Var CouponExireB_M = "October"
EndIf
If CouponExireB_M = "11" Then
Var CouponExireB_M = "November"
EndIf
If CouponExireB_M = "12" Then
Var CouponExireB_M = "December"
EndIf
Var CouponExpireB = CouponExpireB + CouponExireB_D
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_M
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_Y
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Else
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
INT CouponExireA_D
INT CouponExireA_Y
Var CouponExireA_Y = CouponExireA_Y + 543
If CouponExireA_M = "01" Then
Var CouponExireA_M = "มกราคม"
EndIf
If CouponExireA_M = "02" Then
Var CouponExireA_M = "กุมภาพันธ์"
EndIf
If CouponExireA_M = "03" Then
Var CouponExireA_M = "มีนาคม"
EndIf
If CouponExireA_M = "04" Then
Var CouponExireA_M = "เมษายน"
EndIf
If CouponExireA_M = "05" Then
Var CouponExireA_M = "พฤษภาคม"
EndIf
If CouponExireA_M = "06" Then
Var CouponExireA_M = "มิถุนายน"
EndIf
If CouponExireA_M = "07" Then
Var CouponExireA_M = "กรกฎาคม"
EndIf
If CouponExireA_M = "08" Then
Var CouponExireA_M = "สิงหาคม"
EndIf
If CouponExireA_M = "09" Then
Var CouponExireA_M = "กันยายน"
EndIf
If CouponExireA_M = "10" Then
Var CouponExireA_M = "ตุลาคม"
EndIf
If CouponExireA_M = "11" Then
Var CouponExireA_M = "พฤศจิกายน"
EndIf
If CouponExireA_M = "12" Then
Var CouponExireA_M = "ธันวาคม"
EndIf
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = "หมดอายุ " + CouponExpireA
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
INT CouponExireB_D
INT CouponExireB_Y
Var CouponExireB_Y = CouponExireB_Y + 543
If CouponExireB_M = "01" Then
Var CouponExireB_M = "มกราคม"
EndIf
If CouponExireB_M = "02" Then
Var CouponExireB_M = "กุมภาพันธ์"
EndIf
If CouponExireB_M = "03" Then
Var CouponExireB_M = "มีนาคม"
EndIf
If CouponExireB_M = "04" Then
Var CouponExireB_M = "เมษายน"
EndIf
If CouponExireB_M = "05" Then
Var CouponExireB_M = "พฤษภาคม"
EndIf
If CouponExireB_M = "06" Then
Var CouponExireB_M = "มิถุนายน"
EndIf
If CouponExireB_M = "07" Then
Var CouponExireB_M = "กรกฎาคม"
EndIf
If CouponExireB_M = "08" Then
Var CouponExireB_M = "สิงหาคม"
EndIf
If CouponExireB_M = "09" Then
Var CouponExireB_M = "กันยายน"
EndIf
If CouponExireB_M = "10" Then
Var CouponExireB_M = "ตุลาคม"
EndIf
If CouponExireB_M = "11" Then
Var CouponExireB_M = "พฤศจิกายน"
EndIf
If CouponExireB_M = "12" Then
Var CouponExireB_M = "ธันวาคม"
EndIf
Var CouponExpireB = CouponExpireB + CouponExireB_D
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_M
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_Y
Var CouponExpireB = "หมดอายุ " + CouponExpireB
EndIf
Var CouponText = "คูปองสะสม (" + CouponNum
Var CouponText = CouponText + ")"
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
Var text5Img = "/text5.png"
If CountryName = "Malaysia" Then
Var text5Img = "/text5-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var text5Img = "/text5-IDR.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If MakeDrinkState = 1 Then
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
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>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Button>
<X> 990 </X>
<Y> 416 </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> 433 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_topupCredit.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_topupCredit.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>
<Button>
<X> 719 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_changePin.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_changePin.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>
<Image>
<X> 162 </X>
<Y> 560 </Y>
<Filename> Var( DirImage + text5Img )</Filename>
</Image>
<Image>
<X> 617 </X>
<Y> 587 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
<Text>
<X> 253 </X>
<Y> 669 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 253 </X>
<Y> 720 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Text>
<X> 546 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>
<Text>
<X> 162 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCreditStr </Value>
</Text>
<Text>
<X> 159 </X>
<Y> 1000 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 159 </X>
<Y> 1032 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Button>
<X> 397 </X>
<Y> 1746 </Y>
<Filename> Var( DirImage + bn_exit )</Filename>
<FilenamePress> Var( DirImage + bp_exit )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If MakeDrinkState = 1 Then
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Text>
<X> 159 </X>
<Y> 1121 </Y>
<Size> 36 </Size>
<Width> 240 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> CouponText </Value>
</Text>
<Button>
<X> 166 </X>
<Y> 1228 </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> 372 </X>
<Y> 1370 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireA </Value>
</Text>
<Button>
<X> 166 </X>
<Y> 1470 </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> 372 </X>
<Y> 1613 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireB </Value>
</Text>
<Button>
<X> 65 </X>
<Y> 1405 </Y>
<State> PolygonST1 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon1.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> 990 </X>
<Y> 1405 </Y>
<State> PolygonST2 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon2.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>
</Popup>
Reference in a new issue View git blame Copy permalink