taobin_project/xml/page_check_member_point.xml

1314 lines
No EOL
30 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; 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
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
RootLayoutVisible 3 "hide"
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
If LanguageShow = "MYANMAR" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "ေဖေဖာ္ဝါရီလ"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "မတ္လ"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "ဧျပီလ"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "ေမလ"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "ဇြန္လ"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "ဇူလိုင္လ"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "ၾသဂုတ္လ"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "စက္တင္ဘာလ"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "ေအာက္တိုဘာလ"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "ႏိုဝင္ဘာလ"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "ဒီဇင္ဘာလ"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
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
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
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 = 485
Var yPointEndDate = 1570
Var xDescEndDate = 172
If show_eng = "true" Then
Var xPointEndDate = 566
Var yPointEndDate = 1563
EndIf
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 520
Var yPointEndDate = 1568
Var xDescEndDate = 265
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
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
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
</Image>
;
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 722 </Y>
<Filename> Var( DirImage + "/text7.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 860 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 625 </X>
<Y> 734 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
<Image>
<X> 240 </X>
<Y> 1161 </Y>
<Filename> Var( DirImage + "/taobinPoint28.png" ) </Filename>
</Image>
<Button>
<X> 560 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + KeepBnBtnImage ) </Filename>
<FilenamePress> Var( DirImage + KeepBpBtnImage ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
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
</EventClick>
</Button>
<Button>
<X> 220 </X>
<Y> 1680 </Y>
<State>Get15DiscountState</State>
<Filename> Var( DirImage + "/bn_get15discount.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_get15discount.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_get15discount.png" )</FilenameDisable>
<FilenameDisable2> Var( DirImage + "/disable2_get15discount.png" )</FilenameDisable2>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var FromCheckMemberPoint = 1
Open "ROOT/taobin_project/xml/page_display_get_15_discount.xml"
</EventClick>
</Button>
;<Text>
;<X> 420 </X>
;<Y> 638 </Y>
;<Size> 56 </Size>
;<Font> KanitBoldTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> TelephoneNumber </Value>
;<Format> Telnum </Format>
;</Text>
;
;
;<Text>
;<X> 323 </X>
;<Y> 865 </Y>
;<Width> 434 </Width>
;<Align> Center </Align>
;<Size> 64 </Size>
;<Font> KanitSemiBoldTTF </Font>
;<Color> 0xDE794E </Color>
;<Value> CoffeePoint </Value>
;</Text>
;<Text>
;<X> 250 </X>
;<Y> 1241 </Y>
;<Width> 434 </Width>
;<Size> 64 </Size>
;<Font> KanitSemiBoldTTF </Font>
;<Color> 0xDE794E </Color>
;<Value> pointStr </Value>
;</Text>
<Button>
<X> 240 </X>
<Y> 1158 </Y>
<State> taobinP1 </State>
<Filename> Var( DirImage + taobinImgP1 )</Filename>
</Button>
<Button>
<X> 340 </X>
<Y> 1158 </Y>
<State> taobinP2 </State>
<Filename> Var( DirImage + taobinImgP2 )</Filename>
</Button>
<Button>
<X> 426 </X>
<Y> 1158 </Y>
<State> taobinP3 </State>
<Filename> Var( DirImage + taobinImgP3 )</Filename>
</Button>
<Button>
<X> 525 </X>
<Y> 1158 </Y>
<State> taobinP4 </State>
<Filename> Var( DirImage + taobinImgP4 )</Filename>
</Button>
<Button>
<X> 623 </X>
<Y> 1158 </Y>
<State> taobinP5 </State>
<Filename> Var( DirImage + taobinImgP5 )</Filename>
</Button>
<Button>
<X> 713 </X>
<Y> 1158 </Y>
<State> taobinP6 </State>
<Filename> Var( DirImage + taobinImgP6 )</Filename>
</Button>
<Button>
<X> 805 </X>
<Y> 1158 </Y>
<State> taobinP7 </State>
<Filename> Var( DirImage + taobinImgP7 )</Filename>
</Button>
<Button>
<X> 240 </X>
<Y> 1252 </Y>
<State> taobinP8 </State>
<Filename> Var( DirImage + taobinImgP8 )</Filename>
</Button>
<Button>
<X> 340 </X>
<Y> 1252 </Y>
<State> taobinP9 </State>
<Filename> Var( DirImage + taobinImgP9 )</Filename>
</Button>
<Button>
<X> 426 </X>
<Y> 1252 </Y>
<State> taobinP10 </State>
<Filename> Var( DirImage + taobinImgP10 )</Filename>
</Button>
<Button>
<X> 525 </X>
<Y> 1252 </Y>
<State> taobinP11 </State>
<Filename> Var( DirImage + taobinImgP11 )</Filename>
</Button>
<Button>
<X> 623 </X>
<Y> 1252 </Y>
<State> taobinP12 </State>
<Filename> Var( DirImage + taobinImgP12 )</Filename>
</Button>
<Button>
<X> 713 </X>
<Y> 1252 </Y>
<State> taobinP13 </State>
<Filename> Var( DirImage + taobinImgP13 )</Filename>
</Button>
<Button>
<X> 805 </X>
<Y> 1252 </Y>
<State> taobinP14 </State>
<Filename> Var( DirImage + taobinImgP14 )</Filename>
</Button>
<Button>
<X> 240 </X>
<Y> 1346 </Y>
<State> taobinP15 </State>
<Filename> Var( DirImage + taobinImgP15 )</Filename>
</Button>
<Button>
<X> 340 </X>
<Y> 1346 </Y>
<State> taobinP16 </State>
<Filename> Var( DirImage + taobinImgP16 )</Filename>
</Button>
<Button>
<X> 426 </X>
<Y> 1346 </Y>
<State> taobinP17 </State>
<Filename> Var( DirImage + taobinImgP17 )</Filename>
</Button>
<Button>
<X> 525 </X>
<Y> 1346 </Y>
<State> taobinP18 </State>
<Filename> Var( DirImage + taobinImgP18 )</Filename>
</Button>
<Button>
<X> 623 </X>
<Y> 1346 </Y>
<State> taobinP19 </State>
<Filename> Var( DirImage + taobinImgP19 )</Filename>
</Button>
<Button>
<X> 713 </X>
<Y> 1346 </Y>
<State> taobinP20 </State>
<Filename> Var( DirImage + taobinImgP20 )</Filename>
</Button>
<Button>
<X> 805 </X>
<Y> 1346 </Y>
<State> taobinP21 </State>
<Filename> Var( DirImage + taobinImgP21 )</Filename>
</Button>
<Button>
<X> 240 </X>
<Y> 1440 </Y>
<State> taobinP22 </State>
<Filename> Var( DirImage + taobinImgP22 )</Filename>
</Button>
<Button>
<X> 340 </X>
<Y> 1440 </Y>
<State> taobinP23 </State>
<Filename> Var( DirImage + taobinImgP23 )</Filename>
</Button>
<Button>
<X> 426 </X>
<Y> 1440 </Y>
<State> taobinP24 </State>
<Filename> Var( DirImage + taobinImgP24 )</Filename>
</Button>
<Button>
<X> 525 </X>
<Y> 1440 </Y>
<State> taobinP25 </State>
<Filename> Var( DirImage + taobinImgP25 )</Filename>
</Button>
<Button>
<X> 623 </X>
<Y> 1440 </Y>
<State> taobinP26 </State>
<Filename> Var( DirImage + taobinImgP26 )</Filename>
</Button>
<Button>
<X> 713 </X>
<Y> 1440 </Y>
<State> taobinP27 </State>
<Filename> Var( DirImage + taobinImgP27 )</Filename>
</Button>
<Button>
<X> 805 </X>
<Y> 1440 </Y>
<State> taobinP28 </State>
<Filename> Var( DirImage + taobinImgP28 )</Filename>
</Button>
<Text>
<X> 250 </X>
<Y> 745 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 790 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Text>
<X> 250 </X>
<Y> 890 </Y>
<Size> 50 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>
<Button>
<X> 230 </X>
<Y> 903 </Y>
<State> PointMaskState </State>
<Filename> Var( DirImage + "/pointMask.png" )</Filename>
</Button>
<Text>
<X> 250 </X>
<Y> 990 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 1020 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Image>
<X> xDescEndDate </X>
<Y> 1570 </Y>
<Filename> Var( DirImage + "/text8_28.png" )</Filename>
</Image>
<Text>
<X> xPointEndDate </X>
<Y> yPointEndDate </Y>
<Size> 25 </Size>
<Width> 500 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> PointEndDate </Value>
</Text>
<Text>
<X> 380 </X>
<Y> 1621 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc3 </Value>
</Text>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
</EventUnitTest1>
<EventUnitTest2>
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"
</EventUnitTest2>
<EventUnitTest4>
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest4>
</Popup>