"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 ;CoffeePoint ;Var CoffeePoint = 28 Var BmiYear = "0/0/0/0/0/0/0/0/0/1" Var PointCrm = "pdpa1" Var GetScore = "" Var Seeker.TNumberTaobinMember = TelephoneNumber ;AddData 4 TelephoneNumber BmiYear PointCrm GetScore ;Add after pay Var PointMaskState = "Invisible" Var CoffeePointStr = CoffeePoint DEBUGVAR TelephoneNumber 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 > 29 Then Var Timeout = 18 Var CoffeePointTmp = 30 EndIf Var pImage = CoffeePointTmp * 20 Var pImage = pImage / 30 Var pointStr = "" Var pointStr = pointStr + CoffeePointTmp Var pointStr = pointStr + "/" Var pointStr = pointStr + "30" ;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 = "" 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 = TaobinCoupons Var TaobinLevelDesc3 = TaobinLevelDesc3 + " coupons are available for you" 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 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 = 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 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 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" 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 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 >= 15 Then Var Get15DiscountState = "Enable" Else Var Get15DiscountState = "Disable" EndIf Var KeepBnBtnImage = "/bn_keep.png" Var KeepBpBtnImage = "/bp_keep.png" Var PreviousSeeker = "tempSeeker" Var Seeker.UseGet15Discount = 0 Var GetDrink5Bath = 0 If Seeker = "curr" Then Var PreviousSeeker.TNumberTaobinCredit = Seeker.TNumberTaobinCredit Var PreviousSeeker.UseGet15Discount = 0 Var PreviousSeeker.UseGetDrink5Bath = 0 Else If PreviousSeeker.TNumberTaobinCredit = Seeker.TNumberTaobinCredit Then If PreviousSeeker.UseGet15Discount = 1 Then Var Get15DiscountState = "Disable2" EndIf If PreviousSeeker.UseGetDrink5Bath = 1 Then Var Get15DiscountState = "Disable2" EndIf Else Var PreviousSeeker.TNumberTaobinCredit = Seeker.TNumberTaobinCredit Var PreviousSeeker.UseGet15Discount = 0 Var PreviousSeeker.UseGetDrink5Bath = 0 EndIf EndIf If CoffeePoint >= 28 Then Var KeepBnBtnImage = "/bn_close.png" Var KeepBpBtnImage = "/bp_close.png" If Get15DiscountState = "Disable2" Then Var GetDrink5Bath = 0 Else Var Get15DiscountState = "Disable2" Var GetDrink5Bath = 1 Var PreviousSeeker.UseGetDrink5Bath = 1 EndIf Else If PreviousSeeker.UseGetDrink5Bath = 1 Then Var Get15DiscountState = "Disable2" EndIf EndIf DEBUGVAR Seeker DEBUGVAR Seeker.TNumberTaobinCredit DEBUGVAR Seeker.UseGet15Discount DEBUGVAR PreviousSeeker DEBUGVAR PreviousSeeker.TNumberTaobinCredit DEBUGVAR PreviousSeeker.UseGet15Discount Var PointEndDate = "" GetDateEndOfMonth PointEndDate DEBUGVAR PointEndDate Var xPointEndDate = 490 Var yPointEndDate = 1570 If show_eng = "true" Then Var xPointEndDate = 575 Var yPointEndDate = 1563 EndIf 1000 Var Timeout = Timeout + 1 If Timeout > 15 Then ; goto lid straw If CoffeePoint >= 28 Then If GetDrink5Bath = 1 Then Var FromCheckMemberPoint = 1 Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml" Else Open "ROOT/taobin_project/xml/page_check_member2.xml" EndIf Else Open "ROOT/taobin_project/xml/page_check_member2.xml" EndIf EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" If Ext1a = "ok" Then Var CoffeePoint1 = Ext1c INT CoffeePoint1 Var CoffeePointOld = CoffeePoint1 Var CoffeePoint = CoffeePoint1 DEBUGVAR CoffeePointOld Var TaobinName = Ext1d Var TaobinCoupons = Ext1g Var TaobinExpire = Ext1f Var TaobinLevel = Ext1e Var CoffeePointRank = Ext1b INT CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank Open "ROOT/taobin_project/xml/page_check_member_point.xml" EndIf 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" 0 380 "ROOT/taobin_project/image/display_point/alpha.png" ; 158 665 Var( DirImage + "/img_popup1.png" ) 158 665 Var( DirImage + "/img_popup3.png" ) 243 722 Var( DirImage + "/text7.png" ) 243 860 Var( DirImage + "/text4.png" ) 625 734 Var( DirImage + TaobinLeveImg ) ; 240 1161 Var( DirImage + "/taobinPoint28.png" ) ; ; 420 ; 638 ; 56 ; KanitBoldTTF ; 0x513C2F ; TelephoneNumber ; Telnum ; ; ; ; ; 323 ; 865 ; 434 ; Center ; 64 ; KanitSemiBoldTTF ; 0xDE794E ; CoffeePoint ; ; ; 250 ; 1241 ; 434 ; 64 ; KanitSemiBoldTTF ; 0xDE794E ; pointStr ; 250 745 35 1000 KanitRegularTTF 0x513C2F TaobinName 250 790 20 1000 KanitRegularTTF 0x746253 TNumberTaobinMemberXXX Telnum-mask-1 250 890 50 120 KanitRegularTTF 0xDE794E CoffeePointRank 250 990 25 1000 KanitRegularTTF 0xDE794E TaobinLevelDesc1 250 1020 20 1000 KanitRegularTTF 0x746253 TaobinLevelDesc2 172 1570 Var( DirImage + "/text8_28.png" ) xPointEndDate yPointEndDate 25 500 KanitRegularTTF 0xDE794E PointEndDate 380 1621 25 1000 KanitRegularTTF 0x746253 TaobinLevelDesc3 Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml" If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"