"Enable" 1080 1920 "0xeae6e1" 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
SAVELOG 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"
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "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 pImageStr = "/taobinPoint.png"
Var pImageStr = "ROOT/taobin_project/image/display_point" + pImageStr
Var pointStr = ""
Var pointStr = pointStr + CoffeePointTmp
Var pointStr = pointStr + "/"
Var pointStr = pointStr + "30"
;Var PointDiff = 150 - CoffeePointRank
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 + " stamps "
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 + " stamps "
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 CheckCoupons = 0
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 = "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"
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"
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
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
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"
If Point2X = 1 Then
Var Point2XState = "Enable"
EndIf
1000
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
If CoffeePoint > 29 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
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
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"
; 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 pImageStr
;
; 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.png" ) xPointEndDate 1576 25 500
KanitRegularTTF
0xDE794E PointEndDate 310 1621 25 1000
KanitRegularTTF
0x746253 TaobinLevelDesc3
;
751 413 "ROOT/taobin_project/image/page_doing/img2.png"
;
XPosiShowCountDownBrew 470 End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing