"Enable" 1080 1920 "0xeae6e1" SoundVolume
; On open
RootLayoutVisible 3 "show"
If LuckyDrawCampaign = 1 Then
;Open "ROOT/taobin_project/xml/page_check_member2_campaign.xml"
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "show"
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
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
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 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"
;inter-image
If LanguageShow = "MSC" Then
Var text5Img = "/text5-MSC.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var text5Img = "/text5-MMR.png"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var text5Img = "/text5-MYR.png"
EndIf
;inter-image
If CountryName = "Indonesia" Then
Var text5Img = "/text5-IDR.png"
EndIf
;inter-image
If CountryName = "Singapore" Then
Var text5Img = "/text5-SGD.png"
EndIf
;inter-image
If CountryName = "HongKong" Then
Var text5Img = "/text5-HKG.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
DEBUGVAR LanguageShow
Var text5Img = "/text5.png"
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var text5Img = "/text5.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
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
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
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
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 = ""
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
Var CouponExpireAPosittion = 1375
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
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 = ""
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 + ")"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var text5Img = "/text5.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
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
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
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 + 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 = ""
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = "หมดอายุ " + CouponExpireA
Var CouponExpireAPosittion = 1375
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 + 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 = ""
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 LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var text5Img = "/text5-MMR.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "ေဖေဖာ္ဝါရီလ"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "မတ္လ"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "ဧျပီလ"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "ေမလ"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "ဇြန္လ"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "ဇူလိုင္လ"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "ၾသဂုတ္လ"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "စက္တင္ဘာလ"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "ေအာက္တိုဘာလ"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "ႏိုဝင္ဘာလ"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "ဒီဇင္ဘာလ"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
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
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 + 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 = ""
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = "သက်တမ်းကုန် " + CouponExpireA
Var CouponExpireAPosittion = 1400
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
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 = ""
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 LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
Var text5Img = "/text5-MSC.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
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 + " shells, "
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 + " shells, "
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
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
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 = ""
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = CouponExpireA + " 天后过期"
Var CouponExpireAPosittion = 1375
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
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 = ""
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
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
1000
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
Open "/media/bt/xml/security_alarm.xml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
;include="ROOT/taobin_project/inc/video.inc"
162 560 Var( DirImage + text5Img ) 617 587 Var( DirImage + TaobinLeveImg )
;
253 669 35 1000
KanitRegularTTF
0xFFFFFF TaobinName 253 720 20 1000
KanitRegularTTF
0xFFFFFF TNumberTaobinMemberXXX Telnum-mask-1 546 865 70 384 Center
KanitRegularTTF
0xDE794E CoffeePointRank 162 865 70 384 Center
KanitRegularTTF
0xDE794E TaobinCreditStr 159 1000 25 1000
KanitRegularTTF
0xDE794E TaobinLevelDesc1 159 1032 20 1000
KanitRegularTTF
0x746253 TaobinLevelDesc2 159 1121 36 500
KanitRegularTTF
0x513C2F CouponText 372 CouponExpireAPosittion 15 600
KanitRegularTTF
0x746253 CouponExpireA 372 1618 15 600
KanitRegularTTF
0x746253 CouponExpireB