"Enable" 1080 1920 BackgroundColor SoundVolume
; On open
Var Timeout = 0
;CoffeePoint
;Var CoffeePoint = 30
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
;AddData 4 TelephoneNumber BmiYear PointCrm GetScore
;Add after pay
Var PointMaskState = "Invisible"
Var CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
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"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 54 Then
Var Timeout = 18
Var CoffeePointTmp = 55
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 55
Var pImageStr = "/taobinPoint55.png"
If DebugCupSGP = 1 Then
Var pImageStr = "/taobinPoint55_debug.png"
EndIf
If UsePepsiTheme = 1 Then
Var pImageStr = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member" + pImageStr
Else
Var pImageStr = "ROOT/taobin_project/inter/sgp/image/page_member" + pImageStr
EndIf
Var pointStr = ""
Var pointStr = pointStr + CoffeePointTmp
Var pointStr = pointStr + "/"
Var pointStr = pointStr + "55"
;Var PointDiff = 150 - CoffeePointRank
Var PointDiff = 0
Var TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
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 = "EXPIRES IN "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
DEBUGVAR ExpireStrTmp
Var ExpireCupsDate = " 31/12/" + SystemDateYear
DEBUGVAR ExpireCupsDate
If TaobinLevel = "1" Then
Var PointMaskState = "Enable"
EndIf
If show_eng = "true" Then
Var TaobinLevelDesc3 = "You have coupons "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " numbers"
;If TaobinLevel = "1" Then
; Var TaobinLevelDesc1 = "Shy turtle level"
; Var TaobinLevelDesc2 = ""
; Var TaobinLeveImg = "/taoLevel1.png"
;EndIf
If TaobinLevel = "2" Then
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 = "/WTCLevel1.png"
If CoffeePointRank > 149 Then
Var TaobinLeveImg = "/WTCLevel2.png"
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BETTER!"
Var TaobinLevelDesc1More = "SILVER LEVEL"
Var TaobinLevelDesc2 = ""
; reset-rank
DEBUGVAR CoffeePointRank
Var CoffeePointRank = 0
DEBUGVAR CoffeePointRank
EndIf
EndIf
If TaobinLevel = "3" Then
;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 = "/WTCLevel2.png"
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BETTER!"
Var TaobinLevelDesc1More = "SILVER LEVEL"
If CoffeePointRank > 199 Then
Var TaobinLeveImg = "/WTCLevel3.png"
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BEST!"
Var TaobinLevelDesc1More = "GOLD LEVEL"
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 199
DEBUGVAR CoffeePointRank
Var CoffeePointRank = 0
DEBUGVAR CoffeePointRank
EndIf
EndIf
If TaobinLevel = "4" Then
;Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/WTCLevel3.png"
Var TaobinLevelDesc1 = "CUPPING"
Var TaobinLevelDesc1Cont = "BEST!"
Var TaobinLevelDesc1More = "GOLD LEVEL"
Var TaobinLevelDesc2 = ""
EndIf
EndIf
DEBUGVAR TaobinLevel
DEBUGVAR TaobinLevelDesc1
DEBUGVAR TaobinLevelDesc1Cont
DEBUGVAR TaobinLevelDesc1More
DEBUGVAR CoffeePointRank
Var CheckCoupons = 0
Var MakeDrinkState = 0
; X Y taobin
Var ShellXCol1 = 168
Var ShellXCol2 = 268
Var ShellXCol3 = 367
Var ShellXCol4 = 467
Var ShellXCol5 = 562
Var ShellXCol6 = 662
Var ShellXCol7 = 762
Var ShellXCol8 = 860
; 1-8
Var ShellYRow1 = 1045
; 9-16
Var ShellYRow2 = 1125
; 17-24
Var ShellYRow3 = 1208
; 25-32
Var ShellYRow4 = 1292
; 33-40
Var ShellYRow5 = 1375
; 41-48
Var ShellYRow6 = 1453
; 49-55
Var ShellYRow7 = 1536
Var taobinP1 = "Invisible"
Var taobinP2 = "Invisible"
Var taobinP3 = "Invisible"
Var taobinP4 = "Invisible"
Var taobinP5 = "Invisible"
Var taobinP6 = "Invisible"
Var taobinP7 = "Invisible"
Var taobinP8 = "Invisible"
Var taobinP9 = "Invisible"
Var taobinP10 = "Invisible"
Var taobinP11 = "Invisible"
Var taobinP12 = "Invisible"
Var taobinP13 = "Invisible"
Var taobinP14 = "Invisible"
Var taobinP15 = "Invisible"
Var taobinP16 = "Invisible"
Var taobinP17 = "Invisible"
Var taobinP18 = "Invisible"
Var taobinP19 = "Invisible"
Var taobinP20 = "Invisible"
Var taobinP21 = "Invisible"
Var taobinP22 = "Invisible"
Var taobinP23 = "Invisible"
Var taobinP24 = "Invisible"
Var taobinP25 = "Invisible"
Var taobinP26 = "Invisible"
Var taobinP27 = "Invisible"
Var taobinP28 = "Invisible"
Var taobinP29 = "Invisible"
Var taobinP30 = "Invisible"
；NEW 31-40
Var taobinP31 = "Invisible"
Var taobinP32 = "Invisible"
Var taobinP33 = "Invisible"
Var taobinP34 = "Invisible"
Var taobinP35 = "Invisible"
Var taobinP36 = "Invisible"
Var taobinP37 = "Invisible"
Var taobinP38 = "Invisible"
Var taobinP39 = "Invisible"
Var taobinP40 = "Invisible"
; 41-50
Var taobinP41 = "Invisible"
Var taobinP42 = "Invisible"
Var taobinP43 = "Invisible"
Var taobinP44 = "Invisible"
Var taobinP45 = "Invisible"
Var taobinP46 = "Invisible"
Var taobinP47 = "Invisible"
Var taobinP48 = "Invisible"
Var taobinP49 = "Invisible"
Var taobinP50 = "Invisible"
; 51-55
Var taobinP51 = "Invisible"
Var taobinP52 = "Invisible"
Var taobinP53 = "Invisible"
Var taobinP54 = "Invisible"
Var taobinP55 = "Invisible"
Var taobinImgP1 = "/taobinPN.png"
Var taobinImgP2 = "/taobinPN.png"
Var taobinImgP3 = "/taobinPN.png"
Var taobinImgP4 = "/taobinPN.png"
Var taobinImgP5 = "/taobinPN.png"
Var taobinImgP6 = "/taobinPN.png"
Var taobinImgP7 = "/taobinPN.png"
Var taobinImgP8 = "/taobinPN.png"
Var taobinImgP9 = "/taobinPN.png"
Var taobinImgP10 = "/taobinPN.png"
Var taobinImgP11 = "/taobinPN.png"
Var taobinImgP12 = "/taobinPN.png"
Var taobinImgP13 = "/taobinPN.png"
Var taobinImgP14 = "/taobinPN.png"
Var taobinImgP15 = "/taobinPN.png"
Var taobinImgP16 = "/taobinPN.png"
Var taobinImgP17 = "/taobinPN.png"
Var taobinImgP18 = "/taobinPN.png"
Var taobinImgP19 = "/taobinPN.png"
Var taobinImgP20 = "/taobinPN.png"
Var taobinImgP21 = "/taobinPN.png"
Var taobinImgP22 = "/taobinPN.png"
Var taobinImgP23 = "/taobinPN.png"
Var taobinImgP24 = "/taobinPN.png"
Var taobinImgP25 = "/taobinPN.png"
Var taobinImgP26 = "/taobinPN.png"
Var taobinImgP27 = "/taobinPN.png"
Var taobinImgP28 = "/taobinPN.png"
Var taobinImgP29 = "/taobinPN.png"
Var taobinImgP30 = "/taobinPN.png"
; 31-40
Var taobinImgP31 = "/taobinPN.png"
Var taobinImgP32 = "/taobinPN.png"
Var taobinImgP33 = "/taobinPN.png"
Var taobinImgP34 = "/taobinPN.png"
Var taobinImgP35 = "/taobinPN.png"
Var taobinImgP36 = "/taobinPN.png"
Var taobinImgP37 = "/taobinPN.png"
Var taobinImgP38 = "/taobinPN.png"
Var taobinImgP39 = "/taobinPN.png"
Var taobinImgP40 = "/taobinPN.png"
; 41-50
Var taobinImgP41 = "/taobinPN.png"
Var taobinImgP42 = "/taobinPN.png"
Var taobinImgP43 = "/taobinPN.png"
Var taobinImgP44 = "/taobinPN.png"
Var taobinImgP45 = "/taobinPN.png"
Var taobinImgP46 = "/taobinPN.png"
Var taobinImgP47 = "/taobinPN.png"
Var taobinImgP48 = "/taobinPN.png"
Var taobinImgP49 = "/taobinPN.png"
Var taobinImgP50 = "/taobinPN.png"
; 51-55
Var taobinImgP51 = "/taobinPN.png"
Var taobinImgP52 = "/taobinPN.png"
Var taobinImgP53 = "/taobinPN.png"
Var taobinImgP54 = "/taobinPN.png"
Var taobinImgP55 = "/taobinPN.png"
If CoffeePointOld >= 1 Then
Var taobinImgP1 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 2 Then
Var taobinImgP2 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 3 Then
Var taobinImgP3 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 4 Then
Var taobinImgP4 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 5 Then
Var taobinImgP5 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 6 Then
Var taobinImgP6 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 7 Then
Var taobinImgP7 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 8 Then
Var taobinImgP8 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 9 Then
Var taobinImgP9 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 10 Then
Var taobinImgP10 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 11 Then
Var taobinImgP11 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 12 Then
Var taobinImgP12 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 13 Then
Var taobinImgP13 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 14 Then
Var taobinImgP14 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 15 Then
Var taobinImgP15 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 16 Then
Var taobinImgP16 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 17 Then
Var taobinImgP17 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 18 Then
Var taobinImgP18 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 19 Then
Var taobinImgP19 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 20 Then
Var taobinImgP20 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 21 Then
Var taobinImgP21 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 22 Then
Var taobinImgP22 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 23 Then
Var taobinImgP23 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 24 Then
Var taobinImgP24 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 25 Then
Var taobinImgP25 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 26 Then
Var taobinImgP26 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 27 Then
Var taobinImgP27 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 28 Then
Var taobinImgP28 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 29 Then
Var taobinImgP29 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 30 Then
Var taobinImgP30 = "/taobinPO.png"
EndIf
; 31-40
If CoffeePointOld >= 31 Then
Var taobinImgP31 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 32 Then
Var taobinImgP32 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 33 Then
Var taobinImgP33 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 34 Then
Var taobinImgP34 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 35 Then
Var taobinImgP35 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 36 Then
Var taobinImgP36 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 37 Then
Var taobinImgP37 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 38 Then
Var taobinImgP38 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 39 Then
Var taobinImgP39 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 40 Then
Var taobinImgP40 = "/taobinPO.png"
EndIf
; 41-50
If CoffeePointOld >= 41 Then
Var taobinImgP41 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 42 Then
Var taobinImgP42 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 43 Then
Var taobinImgP43 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 44 Then
Var taobinImgP44 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 45 Then
Var taobinImgP45 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 46 Then
Var taobinImgP46 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 47 Then
Var taobinImgP47 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 48 Then
Var taobinImgP48 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 49 Then
Var taobinImgP49 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 50 Then
Var taobinImgP50 = "/taobinPO.png"
EndIf
; 51-55
If CoffeePointOld >= 51 Then
Var taobinImgP51 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 52 Then
Var taobinImgP52 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 53 Then
Var taobinImgP53 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 54 Then
Var taobinImgP55 = "/taobinPO.png"
EndIf
If CoffeePointOld >= 55 Then
Var taobinImgP55 = "/taobinPO.png"
EndIf
If CoffeePoint >= 1 Then
Var taobinP1 = "Enable"
EndIf
If CoffeePoint >= 2 Then
Var taobinP2 = "Enable"
EndIf
If CoffeePoint >= 3 Then
Var taobinP3 = "Enable"
EndIf
If CoffeePoint >= 4 Then
Var taobinP4 = "Enable"
EndIf
If CoffeePoint >= 5 Then
Var taobinP5 = "Enable"
EndIf
If CoffeePoint >= 6 Then
Var taobinP6 = "Enable"
EndIf
If CoffeePoint >= 7 Then
Var taobinP7 = "Enable"
EndIf
If CoffeePoint >= 8 Then
Var taobinP8 = "Enable"
EndIf
If CoffeePoint >= 9 Then
Var taobinP9 = "Enable"
EndIf
If CoffeePoint >= 10 Then
Var taobinP10 = "Enable"
EndIf
If CoffeePoint >= 11 Then
Var taobinP11 = "Enable"
EndIf
If CoffeePoint >= 12 Then
Var taobinP12 = "Enable"
EndIf
If CoffeePoint >= 13 Then
Var taobinP13 = "Enable"
EndIf
If CoffeePoint >= 14 Then
Var taobinP14 = "Enable"
EndIf
If CoffeePoint >= 15 Then
Var taobinP15 = "Enable"
EndIf
If CoffeePoint >= 16 Then
Var taobinP16 = "Enable"
EndIf
If CoffeePoint >= 17 Then
Var taobinP17 = "Enable"
EndIf
If CoffeePoint >= 18 Then
Var taobinP18 = "Enable"
EndIf
If CoffeePoint >= 19 Then
Var taobinP19 = "Enable"
EndIf
If CoffeePoint >= 20 Then
Var taobinP20 = "Enable"
EndIf
If CoffeePoint >= 21 Then
Var taobinP21 = "Enable"
EndIf
If CoffeePoint >= 22 Then
Var taobinP22 = "Enable"
EndIf
If CoffeePoint >= 23 Then
Var taobinP23 = "Enable"
EndIf
If CoffeePoint >= 24 Then
Var taobinP24 = "Enable"
EndIf
If CoffeePoint >= 25 Then
Var taobinP25 = "Enable"
EndIf
If CoffeePoint >= 26 Then
Var taobinP26 = "Enable"
EndIf
If CoffeePoint >= 27 Then
Var taobinP27 = "Enable"
EndIf
If CoffeePoint >= 28 Then
Var taobinP28 = "Enable"
EndIf
If CoffeePoint >= 29 Then
Var taobinP29 = "Enable"
EndIf
If CoffeePoint >= 30 Then
Var taobinP30 = "Enable"
EndIf
; 31-40
If CoffeePoint >= 31 Then
Var taobinP31 = "Enable"
EndIf
If CoffeePoint >= 32 Then
Var taobinP32 = "Enable"
EndIf
If CoffeePoint >= 33 Then
Var taobinP33 = "Enable"
EndIf
If CoffeePoint >= 34 Then
Var taobinP34 = "Enable"
EndIf
If CoffeePoint >= 35 Then
Var taobinP35 = "Enable"
EndIf
If CoffeePoint >= 36 Then
Var taobinP36 = "Enable"
EndIf
If CoffeePoint >= 37 Then
Var taobinP37 = "Enable"
EndIf
If CoffeePoint >= 38 Then
Var taobinP38 = "Enable"
EndIf
If CoffeePoint >= 39 Then
Var taobinP39 = "Enable"
EndIf
If CoffeePoint >= 40 Then
Var taobinP40 = "Enable"
EndIf
; 41-50
If CoffeePoint >= 41 Then
Var taobinP41 = "Enable"
EndIf
If CoffeePoint >= 42 Then
Var taobinP42 = "Enable"
EndIf
If CoffeePoint >= 43 Then
Var taobinP43 = "Enable"
EndIf
If CoffeePoint >= 44 Then
Var taobinP44 = "Enable"
EndIf
If CoffeePoint >= 45 Then
Var taobinP45 = "Enable"
EndIf
If CoffeePoint >= 46 Then
Var taobinP46 = "Enable"
EndIf
If CoffeePoint >= 47 Then
Var taobinP47 = "Enable"
EndIf
If CoffeePoint >= 48 Then
Var taobinP48 = "Enable"
EndIf
If CoffeePoint >= 49 Then
Var taobinP49 = "Enable"
EndIf
If CoffeePoint >= 50 Then
Var taobinP50 = "Enable"
EndIf
; 51-55
If CoffeePoint >= 51 Then
Var taobinP51 = "Enable"
EndIf
If CoffeePoint >= 52 Then
Var taobinP52 = "Enable"
EndIf
If CoffeePoint >= 53 Then
Var taobinP53 = "Enable"
EndIf
If CoffeePoint >= 54 Then
Var taobinP54 = "Enable"
EndIf
If CoffeePoint >= 55 Then
Var taobinP55 = "Enable"
EndIf
If Seeker = "curr" Then
Var CheckCouponState = "Enable"
Else
Var CheckCouponState = "Disable"
EndIf
Var PointEndDate = ""
GetDateEndOfMonth PointEndDate
DEBUGVAR PointEndDate
Var xPointEndDate = 570
If show_eng = "true" Then
Var xPointEndDate = 618
EndIf
Var Point2XState = "Invisible"
Var Point2XImage = ""
If Point2X = 1 Then
Var Point2XState = "Enable"
If Seeker.CampaignPayChanel = "kbank" Then
Var Point2XImage = "/text9.png"
EndIf
If Seeker.CampaignPayChanel = "true" Then
Var Point2XImage = "/text10.png"
EndIf
If Seeker.CampaignPayChanel = "dolfin" Then
Var Point2XImage = "/text11.png"
EndIf
EndIf
;inter-from-consent
If CountryName = "Malaysia" Then
Var Seeker.FromConsent = 0
EndIf
;inter-from-consent
If CountryName = "Indonesia" Then
Var Seeker.FromConsent = 0
EndIf
;inter-from-consent
If CountryName = "Australia" Then
Var Seeker.FromConsent = 0
EndIf
;inter-from-consent
If CountryName = "Singapore" Then
Var Seeker.FromConsent = 0
EndIf
Var AlphaBg = "ROOT/taobin_project/image/display_point/alpha.png"
Var InitCNT = BREW_CNT
Var ShowPercent = "Invisible"
Var ShowCountdown = "Enable"
If ShowCountDownAsPercent = 1 Then
Var ShowPercent = "Enable"
Var ShowCountdown = "Invisible"
Var IMG_CNT = "ROOT/taobin_project/inter/sgp/image/page_doing/img2_percent_eng.png"
EndIf
Var MemberPtCard = Var MemberPtCard = "ROOT/taobin_project/inter/sgp/image/page_member/member_point_card.png"
Var MemberProfileFilename = "ROOT/taobin_project/inter/sgp/image/page_member/member_profile.png"
Var CloseFilename = "ROOT/taobin_project/inter/sgp/image/page_member/bn_close.png"
Var ClosePressFilename = "ROOT/taobin_project/inter/sgp/image/page_member/bp_close.png"
Var PointAlert = "ROOT/taobin_project/inter/sgp/image/page_member/points_alert.png"
Var Free1 = "ROOT/taobin_project/inter/sgp/image/page_member/free1.png"
If UsePepsiTheme = 1 Then
Var AlphaBg = "ROOT/taobin_project/inter/whatthecup/sgp/image/collectiing_en/alpha.png"
Var IMG_CNT = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_doing/img2_percent_eng.png"
Var MemberPtCard = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/member-point-card.png"
Var MemberProfileFilename = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/member-profile.png"
Var DirImage = "ROOT/taobin_project/inter/whatthecup/sgp/image/display_point_en/"
Var CloseFilename = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/bn_close.png"
Var ClosePressFilename = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/bp_close.png"
Var PointAlert = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/points_alert.png"
Var Free1 = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member/free1.png"
EndIf
1000
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
;percent
If ShowCountDownAsPercent = 1 Then
Var XPercent = InitCNT - ShowCountDownBrewing
If ShowCountDownBrewing <= 5 Then
Var XPercent = 95
Else
Var XPercent = XPercent * 100
DEBUGVAR XPercent
Var XPercent = XPercent / InitCNT
EndIf
DEBUGVAR XPercent
EndIf
Var Timeout = Timeout + 1
If DebugStayInPage = 1 Then
Var Timeout = 0
EndIf
If Timeout > 25 Then
; goto lid straw
If CoffeePoint > 54 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
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
Open "/media/bt/xml/security_alarm.xml"
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
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 TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 13
Var CheckCoupons = 2
Else
If CheckCoupons = 2 Then
Var TaobinCredit = Ext1b
If InternationalEnable = 1 Then
Var ChackMemberPage = CountryRootPath + "xml/page_check_member2.lxml"
Open ChackMemberPage
Else
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
EndIf
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
;include="ROOT/taobin_project/inc/video.inc"
0 380 AlphaBg
;
108 665 MemberPtCard 108 665 MemberProfileFilename
;
; 483
; 700
; Var( DirImage + "/text7.png" )
;
;
; 483
; 750
; 38
; PepsiExtend
; HeadlineColor
; TaobinLevelDesc1
; 483 730 20
PepsiExtend
WTCMediumBlueColor "MEMBERSHIP\nSTATUS:"
;
; 483
; 900
; Var( DirImage + "/text4.png" )
; 483 930 20
PepsiExtend
WTCMediumBlueColor "TOTAL BALANCE:" 243 734 Var( DirImage + TaobinLeveImg )
;
170 1036 pImageStr
; free
;
; 250
; 790
; 20
; 1000
; KanitRegularTTF
; 0x746253
; TNumberTaobinMemberXXX
; Telnum-mask-3
; 720 930 20 120
PepsiExtend
WTCMediumBlueColor CoffeePointRank 483 800 50
PepsiExtend
HeadlineColor TaobinLevelDesc1
; TaobinLevelDesc1Cont
483 838 50
PepsiExtend
HeadlineColor TaobinLevelDesc1Cont
; TaobinLevelDesc1More
483 898 20
PepsiExtend
HeadlineColor TaobinLevelDesc1More
;
; 250
; 1020
; 20
; 1000
; KanitRegularTTF
; 0x746253
; TaobinLevelDesc2
;
; expire-cup
172 1650 PointAlert
; ExpireCupsDate
330 1655 20
PepsiExtend
WTCWhiteColor ExpireCupsDate
; ExpireStrTmp
;
483 960 20
PepsiExtend
WTCMediumBlueColor ExpireStrTmp
;
; xPointEndDate
; 1576
; 25
; 500
; KanitRegularTTF
; 0xDE794E
; PointEndDate
;
;
; 310
; 1621
; 25
; 1000
; KanitRegularTTF
; 0x746253
; TaobinLevelDesc3
;
;
751 413 IMG_CNT
;
XPosiShowCountDownBrew 470 ShowCountdown End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing
;
XPosiShowCountDownBrew 470 ShowPercent End 153 88
RobotoBold
HeadlineColor XPercent
Var taobinP1 = "Enable"
Var taobinP2 = "Enable"
Var taobinP3 = "Enable"
Var taobinP4 = "Enable"
Var taobinP5 = "Enable"
Var taobinP6 = "Enable"
Var taobinP7 = "Enable"
Var taobinP8 = "Enable"
Var taobinP10 = "Enable"
Var taobinP18 = "Enable"
Var taobinP26 = "Enable"
Var taobinP34 = "Enable"
Var taobinP42 = "Enable"
Var taobinP50 = "Enable"
Var taobinP55 = "Enable"