"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" Var UsePointGauge = 0 Var GaugeEV = CountryWTCRootPath ; new-ui-collect-pt Var template = CountryWTCRootPath + "/image/page_member/base_template.png" If UsePepsiTheme = 1 Then Var pImageStr = "ROOT/taobin_project/inter/whatthecup/sgp/image/page_member" + pImageStr Var UsePointGauge = 1 Var GaugeEV = GaugeEV + "/xml/collect_point_gauge.ev" 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 TRY GaugeEV 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 = "" Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay Var ExpireStrTmp = ExpireStrTmp + " " Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth Var ExpireStrTmp = ExpireStrTmp + " " Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear 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 = "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 = 350 - CoffeePointRank Var TaobinLevelDesc2 = "Earn " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level" Var TaobinLeveImg = "/taoLevel3.png" If CoffeePointRank > 349 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 Var TaobinLevelDesc3 = "ตอนนี้คุณมีคูปองแลกเครื่องดื่มฟรีเหลืออยู่ " Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons Var TaobinLevelDesc3 = TaobinLevelDesc3 + " ใบ" ;If TaobinLevel = "1" Then ; Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย" ; Var TaobinLevelDesc2 = "" ; Var TaobinLeveImg = "/taoLevel1.png" ;EndIf If TaobinLevel = "2" Then Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ" Var PointDiff = 150 - CoffeePointRank Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก" Var TaobinLeveImg = "/taoLevel2.png" If CoffeePointRank > 149 Then ;Var TaobinLeveImg = "/taoLevel3.png" ;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 150 EndIf EndIf If TaobinLevel = "3" Then Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp Var PointDiff = 350 - CoffeePointRank Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า" Var TaobinLeveImg = "/taoLevel3.png" If CoffeePointRank > 349 Then ;Var TaobinLeveImg = "/taoLevel4.png" ;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 350 EndIf EndIf If TaobinLevel = "4" Then Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp Var TaobinLevelDesc2 = "" Var TaobinLeveImg = "/taoLevel4.png" EndIf EndIf Var CheckCoupons = 0 Var MakeDrinkState = 0 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 > 5 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 243 722 Var( DirImage + "/text7.png" ) 243 860 Var( DirImage + "/text4.png" ) 625 734 Var( DirImage + TaobinLeveImg ) ; 170 1036 pImageStr ; free 747 1528 Free1 ShellXCol7 ShellYRow7 taobinP55 Var( DirImage + taobinImgP55 ) 250 790 20 1000 KanitRegularTTF 0x746253 TNumberTaobinMemberXXX Telnum-mask-3 250 890 50 120 KanitRegularTTF 0xDE794E CoffeePointRank 230 903 PointMaskState Var( DirImage + "/pointMask.png" ) ; ; 250 ; 990 ; 25 ; 1000 ; KanitRegularTTF ; 0xDE794E ; TaobinLevelDesc1 ; ; ; 250 ; 1020 ; 20 ; 1000 ; KanitRegularTTF ; 0x746253 ; TaobinLevelDesc2 ; ; expire 172 1650 PointAlert ; ; xPointEndDate ; 1576 ; 25 ; 500 ; KanitRegularTTF ; 0xDE794E ; PointEndDate ; ; ; 310 ; 1621 ; 25 ; 1000 ; KanitRegularTTF ; 0x746253 ; TaobinLevelDesc3 ; 172 1093 Point2XState Var( DirImage + Point2XImage ) ; new-ui-collect-pt 0 380 template ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 ShowCountdown End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing ; XPosiShowCountDownBrew 470 ShowPercent End 153 88 RobotoBold HeadlineColor XPercent 805 1000 84 PepsiExtend WTCWhiteColor CoffeePointRank 135 1150 84 PepsiExtend 0x0025FF shellText55 ; shell-left 145 1300 40 InterRegular 0x0025FF ptForFreeCoupon 79 1470 gauge_display cup_pin_x 1410 CupPinImg 396 1820 CloseFilename ClosePressFilename "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw ;Open "ROOT/taobin_project/xml/page_back_to_main.xml" If DebugStayInPage = 1 Then Var DebugStayInPage = 0 Open "ROOT/taobin_project/inter/sgp/xml/page_check_member.lxml" EndIf If Seeker.FromConsent = 1 Then Open "ROOT/taobin_project/xml/page_display_get_free.xml" Else If CoffeePoint > 54 Then Open "ROOT/taobin_project/xml/page_display_get_free.xml" EndIf Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf 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 TaobinLevel = "2"