"Enable" 1080 1920 "0x303030" SoundVolume ; On open Var Timeout = 0 Var TargetTimeout = 5 ;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 CoffeePointStr = CoffeePoint DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumberX Var DirImage = "ROOT/taobin_project/inter/aus/image/collect_point/show_point" If show_eng = "true" Then Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Else Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" EndIf Var PointDiff = 0 Var redeemButtonState = "Disable" Var closeButtonState = "Enable" Var RedeemType = "" Var TaobinExpireDay = "" Var TaobinExpireMonth = "" Var TaobinExpireMonthX = "" Var TaobinExpireYear = "" SPLIT TaobinExpire "/" 1 TaobinExpireDay SPLIT TaobinExpire "/" 2 TaobinExpireMonth SPLIT TaobinExpire "/" 3 TaobinExpireYear 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 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 Var shellExpireDescription = "• Shell expire in 3 months." Var shellExpireDescriptionSub = ": collect before " + ExpireStrTmp Var shellExpireDescriptionSub = shellExpireDescriptionSub + " for a free drink" Var couponDescription = "• " + TaobinCoupons Var couponDescription = couponDescription + " coupons" Var couponDescriptionSub = "are available for you, view coupons at Reward point" 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 Var MakeDrinkState = 0 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 = "Enable" 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 = "Enable" 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" Var taobinImgP1 = "/shell_new.png" Var taobinImgP2 = "/shell_new.png" Var taobinImgP3 = "/shell_new.png" Var taobinImgP4 = "/shell_new.png" Var taobinImgP5 = "/shell_new.png" Var taobinImgP6 = "/shell_new.png" Var taobinImgP7 = "/shell_new.png" Var taobinImgP8 = "/shell_new.png" Var taobinImgP9 = "/shell_new.png" Var taobinImgP10 = "/shell_discount_1dollar_inactive.png" Var taobinImgP11 = "/shell_new.png" Var taobinImgP12 = "/shell_new.png" Var taobinImgP13 = "/shell_new.png" Var taobinImgP14 = "/shell_new.png" Var taobinImgP15 = "/shell_new.png" Var taobinImgP16 = "/shell_new.png" Var taobinImgP17 = "/shell_new.png" Var taobinImgP18 = "/shell_new.png" Var taobinImgP19 = "/shell_new.png" Var taobinImgP20 = "/shell_discount_2dollar_inactive.png" Var taobinImgP21 = "/shell_new.png" Var taobinImgP22 = "/shell_new.png" Var taobinImgP23 = "/shell_new.png" Var taobinImgP24 = "/shell_new.png" Var taobinImgP25 = "/shell_new.png" Var taobinImgP26 = "/shell_new.png" Var taobinImgP27 = "/shell_new.png" Var taobinImgP28 = "/shell_new.png" Var taobinImgP29 = "/shell_new.png" If CoffeePointOld >= 1 Then Var taobinImgP1 = "/shell.png" EndIf If CoffeePointOld >= 2 Then Var taobinImgP2 = "/shell.png" EndIf If CoffeePointOld >= 3 Then Var taobinImgP3 = "/shell.png" EndIf If CoffeePointOld >= 4 Then Var taobinImgP4 = "/shell.png" EndIf If CoffeePointOld >= 5 Then Var taobinImgP5 = "/shell.png" EndIf If CoffeePointOld >= 6 Then Var taobinImgP6 = "/shell.png" EndIf If CoffeePointOld >= 7 Then Var taobinImgP7 = "/shell.png" EndIf If CoffeePointOld >= 8 Then Var taobinImgP8 = "/shell.png" EndIf If CoffeePointOld >= 9 Then Var taobinImgP9 = "/shell.png" EndIf If CoffeePointOld >= 11 Then Var taobinImgP11 = "/shell.png" EndIf If CoffeePointOld >= 12 Then Var taobinImgP12 = "/shell.png" EndIf If CoffeePointOld >= 13 Then Var taobinImgP13 = "/shell.png" EndIf If CoffeePointOld >= 14 Then Var taobinImgP14 = "/shell.png" EndIf If CoffeePointOld >= 15 Then Var taobinImgP15 = "/shell.png" EndIf If CoffeePointOld >= 16 Then Var taobinImgP16 = "/shell.png" EndIf If CoffeePointOld >= 17 Then Var taobinImgP17 = "/shell.png" EndIf If CoffeePointOld >= 18 Then Var taobinImgP18 = "/shell.png" EndIf If CoffeePointOld >= 19 Then Var taobinImgP19 = "/shell.png" EndIf If CoffeePointOld >= 21 Then Var taobinImgP21 = "/shell.png" EndIf If CoffeePointOld >= 22 Then Var taobinImgP22 = "/shell.png" EndIf If CoffeePointOld >= 23 Then Var taobinImgP23 = "/shell.png" EndIf If CoffeePointOld >= 24 Then Var taobinImgP24 = "/shell.png" EndIf If CoffeePointOld >= 25 Then Var taobinImgP25 = "/shell.png" EndIf If CoffeePointOld >= 26 Then Var taobinImgP26 = "/shell.png" EndIf If CoffeePointOld >= 27 Then Var taobinImgP27 = "/shell.png" EndIf If CoffeePointOld >= 28 Then Var taobinImgP28 = "/shell.png" EndIf If CoffeePointOld >= 29 Then Var taobinImgP29 = "/shell.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" Var redeemButtonState = "Enable" If CoffeePoint > 19 Then Var taobinImgP10 = "/shell.png" Else If CoffeePointOld >= 10 Then Var taobinImgP10 = "/shell_discount_1dollar_active.png" Else Var taobinImgP10 = "/shell_discount_1dollar_active_new.png" EndIf EndIf 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" If CoffeePoint > 29 Then Var taobinImgP20 = "/shell.png" Else If CoffeePointOld >= 20 Then Var taobinImgP20 = "/shell_discount_2dollar_active.png" Else Var taobinImgP20 = "/shell_discount_2dollar_active_new.png" EndIf EndIf 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" Var taobinImgP30 = "/shell_get_free_active.png" Var TargetTimeout = 2 Var redeemButtonState = "Invisible" Var closeButtonState = "Invisible" EndIf ;inter-from-consent Var Seeker.FromConsent = 0 Var AlradyRedeem = 0 DEBUGVAR Seeker DEBUGVAR Seeker.redeemDiscount If Seeker = "next" Then Var Seeker.redeemDiscount = "" Var CurrSeeker = "curr" If CurrSeeker.TNumberTaobinMember = Seeker.TNumberTaobinMember Then DEBUGVAR CurrSeeker.redeemDiscount If CurrSeeker.redeemDiscount = "" Then Else If CurrSeeker.redeemDiscount = "get_free" Then Var redeemButtonState = "Invisible" Var closeButtonState = "Invisible" Else Var redeemButtonState = "Disable" EndIf Var AlradyRedeem = 1 EndIf EndIf EndIf 1000 Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing Var Timeout = Timeout + 1 If Timeout > TargetTimeout Then ; goto lid straw If CoffeePoint >= 30 Then If Seeker = "next" Then If AlradyRedeem = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else Var RedeemType = "get_free" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml" EndIf Else Var RedeemType = "get_free" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml" EndIf Else Open "ROOT/taobin_project/xml/page_lid_straw.xml" EndIf EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" 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" 118 642 Var( DirImage + "/member-profile-bg.png" ) 702 682 Var( DirImage + TaobinLeveImg ) 158 682 500 KanitRegularTTF 0x3F2C20 25 "Membership status" 158 715 500 KanitSemiBoldTTF 0x4C4542 39 TaobinName 158 766 500 KanitRegularTTF 0x3F2C20 20 TNumberTaobinMemberXXX Telnum-mask-1 158 823 500 KanitSemiBoldTTF 0x58514D 25 "Total Shell balance" 158 856 500 KanitSemiBoldTTF 0x82401E 39 CoffeePointRank 158 907 500 KanitSemiBoldTTF 0x82401E 20 TaobinLevelDesc1 158 934 500 KanitRegularTTF 0x58514D 20 TaobinLevelDesc2 118 999 Var( DirImage + "/points-redemption-bg.png" ) 260 1023 Var( DirImage + "/default_points.png" ) 740 1111 Var( DirImage + shellDiscount1DollarImage ) 260 1023 taobinP1 Var( DirImage + taobinImgP1 ) 380 1023 taobinP2 Var( DirImage + taobinImgP2 ) 500 1023 taobinP3 Var( DirImage + taobinImgP3 ) 620 1023 taobinP4 Var( DirImage + taobinImgP4 ) 740 1023 taobinP5 Var( DirImage + taobinImgP5 ) 260 1111 taobinP6 Var( DirImage + taobinImgP6 ) 380 1111 taobinP7 Var( DirImage + taobinImgP7 ) 500 1111 taobinP8 Var( DirImage + taobinImgP8 ) 620 1111 taobinP9 Var( DirImage + taobinImgP9 ) 740 1111 taobinP10 Var( DirImage + taobinImgP10 ) 260 1199 taobinP11 Var( DirImage + taobinImgP11 ) 380 1199 taobinP12 Var( DirImage + taobinImgP12 ) 500 1199 taobinP13 Var( DirImage + taobinImgP13 ) 620 1199 taobinP14 Var( DirImage + taobinImgP14 ) 740 1199 taobinP15 Var( DirImage + taobinImgP15 ) 260 1287 taobinP16 Var( DirImage + taobinImgP16 ) 380 1287 taobinP17 Var( DirImage + taobinImgP17 ) 500 1287 taobinP18 Var( DirImage + taobinImgP18 ) 620 1287 taobinP19 Var( DirImage + taobinImgP19 ) 740 1287 taobinP20 Var( DirImage + taobinImgP20 ) 260 1375 taobinP21 Var( DirImage + taobinImgP21 ) 380 1375 taobinP22 Var( DirImage + taobinImgP22 ) 500 1375 taobinP23 Var( DirImage + taobinImgP23 ) 620 1375 taobinP24 Var( DirImage + taobinImgP24 ) 740 1375 taobinP25 Var( DirImage + taobinImgP25 ) 260 1463 taobinP26 Var( DirImage + taobinImgP26 ) 380 1463 taobinP27 Var( DirImage + taobinImgP27 ) 500 1463 taobinP28 Var( DirImage + taobinImgP28 ) 620 1463 taobinP29 Var( DirImage + taobinImgP29 ) 740 1463 taobinP30 Var( DirImage + taobinImgP30 ) 212 1583 Var( DirImage + "/points-alert-container.png" ) 228 1587 90 KanitRegularTTF 0x4A4644 25 "You got" 322 1587 50 KanitSemiBoldTTF 0x4A4644 25 Var( CoffeePoint - CoffeePointOld ) center-vertical-horizontal 378 1587 90 KanitRegularTTF 0x4A4644 25 "shells" 228 1638 20 240 KanitRegularTTF 0x3F2C20 shellExpireDescription 470 1638 20 400 KanitSemiBoldTTF 0xA61100 shellExpireDescriptionSub 228 1671 20 120 KanitSemiBoldTTF 0x3F2C20 couponDescription 352 1671 20 500 KanitRegularTTF 0x3F2C20 couponDescriptionSub 212 1752 closeButtonState Var( DirImage + "/close_btn.png" ) Var( DirImage + "/close_btn_pressed.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw If CoffeePoint >= 30 Then Var RedeemType = "get_free" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml" EndIf Open "ROOT/taobin_project/xml/page_lid_straw.xml" 548 1752 redeemButtonState Var( DirImage + "/redeem_btn.png" ) Var( DirImage + "/redeem_btn_pressed.png" ) Var( DirImage + "/redeem_btn_disable.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; goto lid straw If CoffeePoint >= 10 Then Var RedeemType = "1_dollar" EndIf If CoffeePoint >= 20 Then Var RedeemType = "2_dollar" EndIf If CoffeePoint >= 30 Then Var RedeemType = "get_free" EndIf DEBUGVAR RedeemType If RedeemType = "" Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml" EndIf ; 751 413 IMG_CNT ; XPosiShowCountDownBrew 470 End 153 88 RobotoBold 0x513C2F ShowCountDownBrewing Var TaobinName = "Kenta420" Var TaobinCoupons = "10" Var TaobinExpire = "10/05/2025" Var TaobinLevel = "3" Var TNumberTaobinMemberXXX = "0809120280" Var CoffeePointRank = 106 Var CoffeePointOld = 16 Var CoffeePoint = 17 Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_3.lxml"