"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 TNumberTaobinMember = TelephoneNumber
;AddData 4 TelephoneNumber BmiYear PointCrm GetScore
;Add after pay
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 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 = 350 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " stamps "
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
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
1000
Var CountDownBrewing = CountDownBrewing - 1
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
; goto lid straw
If CoffeePoint > 29 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
If 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
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 250 890 50 120
KanitRegularTTF
0xDE794E CoffeePointRank 250 990 25 1000
KanitRegularTTF
0xDE794E TaobinLevelDesc1 250 1020 20 1000
KanitRegularTTF
0x746253 TaobinLevelDesc2 310 1595 25 1000
KanitRegularTTF
0x746253 TaobinLevelDesc3
;
751 413 "ROOT/taobin_project/image/page_doing/img2.png"
;
XPosiShowCountDownBrew 470 End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing