taobin_project/xml/page_collect_point_3.xml
2021-02-09 13:02:44 +07:00

611 lines
No EOL
13 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 = 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 = "/taobinP"
Var pImageStr = pImageStr + pImage
Var pImageStr = pImageStr + ".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 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 = 0
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.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 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 = 0
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.png"
EndIf
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Open "ROOT/taobin_project/xml/page_check_member2.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>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/video/taobin_adv2.mp4" </Filename>
</Video>
<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 + "/text5.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 857 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 624 </X>
<Y> 734 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
<Image>
<X> 252 </X>
<Y> 1341 </Y>
<Filename> pImageStr </Filename>
</Image>
<Button>
<X> 560 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + "/bn_close.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_close.png" )</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 FromConsent = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 253 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + "/bn_check.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_check.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
GETACCEXT TelephoneNumber 15
Var CheckCoupons = 1
</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>
<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> 800 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 890 </Y>
<Size> 50 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>
<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>
<Text>
<X> 300 </X>
<Y> 1500 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc3 </Value>
</Text>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
</Popup>