"Enable" 1080 1920 "0xDFD9D6" SoundVolume ; On open Var Timeout = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/display_point_en" Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en" Else Var DirImage = "ROOT/taobin_project/image/display_point" Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign" EndIf If show_eng = "true" Then Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Else Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" EndIf Var CoffeePointRank = CoffeePointRankTmp ;Var PointDiff = 150 - CoffeePointRank Var TaobinExpireDay = "" Var TaobinExpireMonth = "" Var TaobinExpireMonthX = "" Var TaobinExpireYear = "" Var buttonState = "Enable" If MakeDrinkState = 1 Then Var buttonState = "Invisible" EndIf SPLIT TaobinExpire "/" 1 TaobinExpireDay SPLIT TaobinExpire "/" 2 TaobinExpireMonth SPLIT TaobinExpire "/" 3 TaobinExpireYear If show_eng = "true" Then If TaobinExpireMonth = "01" Then Var TaobinExpireMonth = "Jan" Var TaobinExpireMonthX = "January" EndIf If TaobinExpireMonth = "02" Then Var TaobinExpireMonth = "Feb" Var TaobinExpireMonthX = "February" EndIf If TaobinExpireMonth = "03" Then Var TaobinExpireMonth = "Mar" Var TaobinExpireMonthX = "March" EndIf If TaobinExpireMonth = "04" Then Var TaobinExpireMonth = "Apr" Var TaobinExpireMonthX = "April" EndIf If TaobinExpireMonth = "05" Then Var TaobinExpireMonth = "May" Var TaobinExpireMonthX = "May" EndIf If TaobinExpireMonth = "06" Then Var TaobinExpireMonth = "Jun" Var TaobinExpireMonthX = "June" EndIf If TaobinExpireMonth = "07" Then Var TaobinExpireMonth = "Jul" Var TaobinExpireMonthX = "July" EndIf If TaobinExpireMonth = "08" Then Var TaobinExpireMonth = "Aug" Var TaobinExpireMonthX = "August" EndIf If TaobinExpireMonth = "09" Then Var TaobinExpireMonth = "Sep" Var TaobinExpireMonthX = "September" EndIf If TaobinExpireMonth = "10" Then Var TaobinExpireMonth = "Oct" Var TaobinExpireMonthX = "October" EndIf If TaobinExpireMonth = "11" Then Var TaobinExpireMonth = "Nov" Var TaobinExpireMonthX = "November" EndIf If TaobinExpireMonth = "12" Then Var TaobinExpireMonth = "Dec" Var TaobinExpireMonthX = "December" EndIf INT TaobinExpireYear INT TaobinExpireDay Var TaobinExpireYear = TaobinExpireYear + 0 Else If TaobinExpireMonth = "01" Then Var TaobinExpireMonth = "ม.ค." Var TaobinExpireMonthX = "มกราคม" EndIf If TaobinExpireMonth = "02" Then Var TaobinExpireMonth = "ก.พ." Var TaobinExpireMonthX = "กุมภาพันธ์" EndIf If TaobinExpireMonth = "03" Then Var TaobinExpireMonth = "มี.ค." Var TaobinExpireMonthX = "มีนาคม" EndIf If TaobinExpireMonth = "04" Then Var TaobinExpireMonth = "เม.ย." Var TaobinExpireMonthX = "เมษายน" EndIf If TaobinExpireMonth = "05" Then Var TaobinExpireMonth = "พ.ค." Var TaobinExpireMonthX = "พฤษภาคม" EndIf If TaobinExpireMonth = "06" Then Var TaobinExpireMonth = "มิ.ย." Var TaobinExpireMonthX = "มิถุนายน" EndIf If TaobinExpireMonth = "07" Then Var TaobinExpireMonth = "ก.ค." Var TaobinExpireMonthX = "กรกฎาคม" EndIf If TaobinExpireMonth = "08" Then Var TaobinExpireMonth = "ส.ค." Var TaobinExpireMonthX = "สิงหาคม" EndIf If TaobinExpireMonth = "09" Then Var TaobinExpireMonth = "ก.ย." Var TaobinExpireMonthX = "กันยายน" EndIf If TaobinExpireMonth = "10" Then Var TaobinExpireMonth = "ต.ค." Var TaobinExpireMonthX = "ตุลาคม" EndIf If TaobinExpireMonth = "11" Then Var TaobinExpireMonth = "พ.ย." Var TaobinExpireMonthX = "พฤศจิกายน" EndIf If TaobinExpireMonth = "12" Then Var TaobinExpireMonth = "ธ.ค." Var TaobinExpireMonthX = "ธันวาคม" EndIf INT TaobinExpireYear INT TaobinExpireDay Var TaobinExpireYear = TaobinExpireYear + 543 EndIf Var ExpireStrTmp = "" Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay Var ExpireStrTmp = ExpireStrTmp + " " Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth Var ExpireStrTmp = ExpireStrTmp + " " Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear If show_eng = "true" Then If TaobinLevel = "1" Then Var TaobinLevelDesc1 = "Shy turtle level" Var TaobinLevelDesc2 = "" Var TaobinLeveImg = "/taoLevel1.png" EndIf If TaobinLevel = "2" Then Var TaobinLevelDesc1 = "Walking turtle level" Var PointDiff = 150 - CoffeePointRank Var TaobinLevelDesc2 = "Earn " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level" Var TaobinLeveImg = "/taoLevel2.png" If CoffeePointRank > 149 Then ;Var TaobinLeveImg = "/taoLevel3.png" ;Var TaobinLevelDesc1 = "Flying turtle level " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 150 EndIf EndIf If TaobinLevel = "3" Then Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp Var PointDiff = 200 - CoffeePointRank Var TaobinLevelDesc2 = "Earn " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level" Var TaobinLeveImg = "/taoLevel3.png" If CoffeePointRank > 199 Then ;Var TaobinLeveImg = "/taoLevel4.png" ;Var TaobinLevelDesc1 = "Master turtle level " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 350 EndIf EndIf If TaobinLevel = "4" Then Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp Var TaobinLevelDesc2 = "" Var TaobinLeveImg = "/taoLevel4.png" EndIf Else If TaobinLevel = "1" Then Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย" Var TaobinLevelDesc2 = "" Var TaobinLeveImg = "/taoLevel1.png" EndIf If TaobinLevel = "2" Then Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ" Var PointDiff = 150 - CoffeePointRank Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก" Var TaobinLeveImg = "/taoLevel2.png" If CoffeePointRank > 149 Then ;Var TaobinLeveImg = "/taoLevel3.png" ;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 150 EndIf EndIf If TaobinLevel = "3" Then Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp Var PointDiff = 200 - CoffeePointRank Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง " Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า" Var TaobinLeveImg = "/taoLevel3.png" If CoffeePointRank > 199 Then ;Var TaobinLeveImg = "/taoLevel4.png" ;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า " Var TaobinLevelDesc2 = "" ;Var CoffeePointRank = CoffeePointRank - 350 EndIf EndIf If TaobinLevel = "4" Then Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp Var TaobinLevelDesc2 = "" Var TaobinLeveImg = "/taoLevel4.png" EndIf EndIf Var 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 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 Var CouponExpireA = CouponExpireA + CouponExireA_D Var CouponExpireA = CouponExpireA + " " Var CouponExpireA = CouponExpireA + CouponExireA_M Var CouponExpireA = CouponExpireA + " " Var CouponExpireA = CouponExpireA + CouponExireA_Y 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 Var CouponExpireB = CouponExpireB + CouponExireB_D Var CouponExpireB = CouponExpireB + " " Var CouponExpireB = CouponExpireB + CouponExireB_M Var CouponExpireB = CouponExpireB + " " Var CouponExpireB = CouponExpireB + CouponExireB_Y EndIf If show_eng = "true" Then Var Months[0] = "January" Var Months[1] = "February" Var Months[2] = "March" Var Months[3] = "April" Var Months[4] = "May" Var Months[5] = "June" Var Months[6] = "July" Var Months[7] = "August" Var Months[8] = "September" Var Months[9] = "October" Var Months[10] = "November" Var Months[11] = "December" If CouponIDA = "" Then Else Var MonthIndex = CouponExireA_M INT MonthIndex Var MonthIndex = MonthIndex - 1 Var CouponExireA_M = Months[MonthIndex] Var CouponExpireA = "Expires " + CouponExpireA EndIf If CouponIDB = "" Then Else Var MonthIndex = CouponExireB_M INT MonthIndex Var MonthIndex = MonthIndex - 1 Var CouponExireB_M = Months[MonthIndex] Var CouponExpireB = "Expires " + CouponExpireB EndIf Var CouponText = "Coupons (" + CouponNum Var CouponText = CouponText + ")" Else Var Months[0] = "มกราคม" Var Months[1] = "กุมภาพันธ์" Var Months[2] = "มีนาคม" Var Months[3] = "เมษายน" Var Months[4] = "พฤษภาคม" Var Months[5] = "มิถุนายน" Var Months[6] = "กรกฎาคม" Var Months[7] = "สิงหาคม" Var Months[8] = "กันยายน" Var Months[9] = "ตุลาคม" Var Months[10] = "พฤศจิกายน" Var Months[11] = "ธันวาคม" If CouponIDA = "" Then Else Var MonthIndex = CouponExireA_M INT MonthIndex Var MonthIndex = MonthIndex - 1 Var CouponExireA_M = Months[MonthIndex] Var CouponExpireA = "หมดอายุ " + CouponExpireA EndIf If CouponIDB = "" Then Else Var MonthIndex = CouponExireB_M INT MonthIndex Var MonthIndex = MonthIndex - 1 Var CouponExireB_M = Months[MonthIndex] Var CouponExpireB = "หมดอายุ " + CouponExpireB EndIf Var CouponText = "คูปองสะสม (" + CouponNum Var CouponText = CouponText + ")" EndIf If show_eng = "true" Then Var MemberText = "MEMBERSHIP STATUS" Var CreditTotalLabel = "TAO BIN CREDIT" Var ShellTotalLabel = "TOTAL SHELL BALANCE" Var CreditUnit = "BATH" Var ShellUnit = "SHELLS" Var dayDiff_X = 170 Var dayDiff_Y = 1154 Var dayDiff_Size = 16 Else Var MemberText = "สถานะสมาชิก" Var CreditTotalLabel = "เครดิตสะสม" Var ShellTotalLabel = "กระดองสะสม" Var CreditUnit = "บาท" Var ShellUnit = "กระดอง" Var dayDiff_X = 244 Var dayDiff_Y = 1138 Var dayDiff_Size = 25 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 INT TaobinCredit Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow ) Var LuckyDrawTicketFormat = "%03.0f" If SystemDateMonthInt = 6 Then If SystemDateDayInt >= 17 Then Var prize_x = 437 Var prizeImg = "/prize_iphone15.png" Var targetDate = "31-07-2024" EndIf EndIf If SystemDateMonthInt = 7 Then Var prize_x = 437 Var prizeImg = "/prize_iphone15.png" Var targetDate = "31-07-2024" EndIf If SystemDateMonthInt = 8 Then Var prize_x = 380 Var prizeImg = "/prize_ora_gootcat.png" Var targetDate = "30-08-2024" EndIf If SystemDateMonthInt = 9 Then Var prize_x = 437 Var prizeImg = "/prize_iphone15.png" Var targetDate = "30-09-2024" EndIf If SystemDateMonthInt = 10 Then Var prize_x = 437 Var prizeImg = "/prize_iphone15.png" Var targetDate = "31-10-2024" EndIf If SystemDateMonthInt = 11 Then Var prize_x = 380 Var prizeImg = "/prize_byd_atto3_standard_range.png" Var targetDate = "30-11-2024" EndIf If SystemDateMonthInt = 12 Then Var prize_x = 437 Var prizeImg = "/prize_iphone15.png" Var targetDate = "31-12-2024" EndIf If SystemDateYearInt = 2025 Then If SystemDateMonthInt = 1 Then Var prize_x = 380 Var prizeImg = "/prize_tesla_model3.png" Var targetDate = "31-01-2025" EndIf EndIf DateDayDiffNow targetDate dayDiff DEBUGVAR SystemDate DEBUGVAR targetDate DEBUGVAR dayDiff Var ShowLuckyDrawTicketState = "Enable" Var ShowLuckyDrawAlreadyGotRewardState = "Invisible" If luckyDrawAlredyGotReward = 1 Then Var ShowLuckyDrawTicketState = "Invisible" Var ShowLuckyDrawAlreadyGotRewardState = "Enable" EndIf 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" 60 420 "ROOT/taobin_project/image/display_point_campaign/back_icon.png" "ROOT/taobin_project/image/display_point_campaign/back_icon.png" ; goto lid straw If MakeDrinkState = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Open "ROOT/taobin_project/xml/page_back_to_main.xml" 964 420 show_eng_button_stage show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; eng If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Open CurrentXMLFileName2 708 420 buttonState Var( DirImageCampaign + "/change_pass_btn.png" ) Var( DirImageCampaign + "/change_pass_btn_pressed.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_payment_changePin1.xml" 452 420 buttonState Var( DirImageCampaign + "/topup_btn.png" ) Var( DirImageCampaign + "/topup_btn_pressed.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Open "ROOT/taobin_project/xml/page_member_topup2.xml" Open "ROOT/taobin_project/xml/page_member_topup3.xml" 142 516 "ROOT/taobin_project/image/display_point_campaign/member_card.png" 633 529 Var( DirImage + TaobinLeveImg ) ; 222 580 300 35 KanitSemiBoldTTF 25 0xFFFFFF MemberText 222 613 39 300 KanitSemiBoldTTF 0xFFFFFF TaobinName 222 664 24 300 RobotoRegular 0xFFFFFF TNumberTaobinMemberXXX Telnum-mask-1 581 807 64 317 75 center-vertical-horizontal RobotoBold 0xDE794E CoffeePointRank 182 807 64 317 75 center-vertical-horizontal RobotoBold 0xDE794E a TaobinCreditStr 182 772 25 300 KanitSemiBoldTTF 0x584235 CreditTotalLabel 581 772 25 300 KanitSemiBoldTTF 0x584235 ShellTotalLabel 182 886 25 317 KanitRegularTTF end 0x584235 CreditUnit 581 886 25 317 KanitRegularTTF end 0x584235 ShellUnit 142 954 18 600 RobotoBold 0xDE794E TaobinLevelDesc1 142 975 18 1000 RobotoRegular 0x746253 TaobinLevelDesc2 142 1036 ShowLuckyDrawTicketState Var( DirImageCampaign + "/luckydraw_detail_container.png" ) prize_x 1046 ShowLuckyDrawTicketState Var( "ROOT/taobin_project/image/display_point_campaign" + prizeImg ) ShowLuckyDrawTicketState dayDiff_X dayDiff_Y 40 40 KanitRegularTTF dayDiff_Size 0xF1F1F dayDiff ShowLuckyDrawTicketState 620 1076 164 80 RobotoBold 64 0x3F2C20 center-vertical-horizontal StringFmt( luckyDrawTicket , LuckyDrawTicketFormat, PreScaleConvertShow) ShowLuckyDrawAlreadyGotRewardState 334 1057 KanitSemiBoldTTF 390 24 0x84776F center-vertical-horizontal eval( If show_eng = "true" Then Var return = "You already got Lucky Draw reward." Else Var return = "คุณได้รับรางวัล Lucky Draw ไปแล้ว" EndIf ) 142 1252 49 300 KanitSemiBoldTTF 0x3F2C20 CouponText 165 1341 CouponSTA Var( DirImage + CouponNameA ) Var( DirImage + CouponNameA ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw Var CouponSendSms = CouponIDA Var CouponExpireDate = CouponExpireA Var CouponName = CouponNameA Var BmiYear = CouponSendSms Var PointCrm = "" Var GetScore = "" AddData 12 TelephoneNumber BmiYear PointCrm GetScore Open "ROOT/taobin_project/xml/page_check_member3.xml" 325 1494 16 580 KanitRegularTTF 0xA61100 end CouponExpireA 165 1565 CouponSTB Var( DirImage + CouponNameB ) Var( DirImage + CouponNameB ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw Var CouponSendSms = CouponIDB Var CouponExpireDate = CouponExpireB Var CouponName = CouponNameB Var BmiYear = CouponSendSms Var PointCrm = "" Var GetScore = "" AddData 12 TelephoneNumber BmiYear PointCrm GetScore Open "ROOT/taobin_project/xml/page_check_member3.xml" 325 1714 16 580 KanitRegularTTF 0xA61100 end CouponExpireB 78 1514 PolygonST1 "ROOT/taobin_project/image/display_point_campaign/arrow_left.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var CouponPage = CouponPage - 1 Open "ROOT/taobin_project/xml/page_check_member2.xml" 938 1514 PolygonST2 "ROOT/taobin_project/image/display_point_campaign/arrow_right.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var CouponPage = CouponPage + 1 Open "ROOT/taobin_project/xml/page_check_member2.xml" 224 1804 Var( DirImageCampaign + "/check_taobin_shell.png" ) Var( DirImageCampaign + "/check_taobin_shell_press.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume GETACCEXT TNumberTaobinMemberXXX 14 Var CoffeePointOld = 0 Var CoffeePoint = 0 Open "ROOT/taobin_project/xml/page_check_member_point.xml" 560 1804 Var( DirImageCampaign + "/cancel_btn.png" ) Var( DirImageCampaign + "/cancel_btn_pressed.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw If MakeDrinkState = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open CurrentXMLFileName2