This commit is contained in:
miggaze 2021-02-02 13:33:11 +07:00
parent df040290dd
commit ab5218f9b1
30 changed files with 1196 additions and 178 deletions

View file

@ -9,6 +9,8 @@
; On open
Var Timeout = 0
@ -25,22 +27,12 @@
EndIf
Var PointDiff = 400 - CoffeePointRank
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเดิน จนถึง "
Var TaobinLevelDesc2 = "สะสมแสตมป์อีก "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " ดวง ก่อน "
Var TaobinLevelDesc3 = "ตอนนี้คุณมีคูปองแลกเครื่องดื่มฟรีเหลืออยู่ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " ใบ"
Var PointDiff = 150 - CoffeePointRank
Var TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
@ -51,50 +43,62 @@
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
@ -110,9 +114,490 @@
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
Var TaobinLevelDesc1 = TaobinLevelDesc1 + ExpireStrTmp
Var TaobinLevelDesc2 = TaobinLevelDesc2 + ExpireStrTmp
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " เพื่อเลื่อนขั้นเป็นเต่าบิน"
If show_eng = "true" Then
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"
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.png"
EndIf
Else
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"
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.png"
EndIf
EndIf
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
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 CouponInfoA = ""
Var CouponInfoB = ""
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponExpireA = ""
Var CouponExpireB = ""
Var CouponIDA = ""
Var CouponIDB = ""
Var CouponNum = TaobinCoupons
If CouponPage = 1 Then
If CouponInfo3 = "" Then
Else
Var PolygonST2 = "Enable"
EndIf
Var PolygonST1 = "Invisible"
Var CouponInfoA = CouponInfo1
Var CouponInfoB = CouponInfo2
SPLIT CouponInfoA "/" 1 CouponIDA
SPLIT CouponInfoB "/" 1 CouponIDB
EndIf
If CouponPage = 2 Then
If CouponInfo5 = "" Then
Else
Var PolygonST2 = "Enable"
EndIf
Var PolygonST1 = "Enable"
Var CouponInfoA = CouponInfo3
Var CouponInfoB = CouponInfo4
SPLIT CouponInfoA "/" 1 CouponIDA
SPLIT CouponInfoB "/" 1 CouponIDB
EndIf
If CouponPage = 3 Then
If CouponInfo7 = "" Then
Else
Var PolygonST2 = "Enable"
EndIf
Var PolygonST1 = "Enable"
Var CouponInfoA = CouponInfo5
Var CouponInfoB = CouponInfo6
SPLIT CouponInfoA "/" 1 CouponIDA
SPLIT CouponInfoB "/" 1 CouponIDB
EndIf
If CouponPage = 4 Then
If CouponInfo9 = "" Then
Else
Var PolygonST2 = "Enable"
EndIf
Var PolygonST1 = "Enable"
Var CouponInfoA = CouponInfo7
Var CouponInfoB = CouponInfo8
SPLIT CouponInfoA "/" 1 CouponIDA
SPLIT CouponInfoB "/" 1 CouponIDB
EndIf
If CouponPage = 5 Then
Var PolygonST1 = "Enable"
Var PolygonST2 = "Invisible"
Var CouponInfoA = CouponInfo9
Var CouponInfoB = CouponInfo10
SPLIT CouponInfoA "/" 1 CouponIDA
SPLIT CouponInfoB "/" 1 CouponIDB
EndIf
If show_eng = "true" Then
If CouponIDA = "" Then
Else
Var CouponSTA = "Enable"
Var CouponExireA_D = ""
Var CouponExireA_M = ""
Var CouponExireA_Y = ""
SPLIT CouponInfoA "/" 4 CouponExireA_D
SPLIT CouponInfoA "/" 5 CouponExireA_M
SPLIT CouponInfoA "/" 6 CouponExireA_Y
INT CouponExireA_D
INT CouponExireA_Y
Var CouponExireA_Y = CouponExireA_Y + 0
If CouponExireA_M = "01" Then
Var CouponExireA_M = "January"
EndIf
If CouponExireA_M = "02" Then
Var CouponExireA_M = "February"
EndIf
If CouponExireA_M = "03" Then
Var CouponExireA_M = "March"
EndIf
If CouponExireA_M = "04" Then
Var CouponExireA_M = "April"
EndIf
If CouponExireA_M = "05" Then
Var CouponExireA_M = "May"
EndIf
If CouponExireA_M = "06" Then
Var CouponExireA_M = "June"
EndIf
If CouponExireA_M = "07" Then
Var CouponExireA_M = "July"
EndIf
If CouponExireA_M = "08" Then
Var CouponExireA_M = "August"
EndIf
If CouponExireA_M = "09" Then
Var CouponExireA_M = "September"
EndIf
If CouponExireA_M = "10" Then
Var CouponExireA_M = "October"
EndIf
If CouponExireA_M = "11" Then
Var CouponExireA_M = "November"
EndIf
If CouponExireA_M = "12" Then
Var CouponExireA_M = "December"
EndIf
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
EndIf
If CouponIDB = "" Then
Else
Var CouponSTB = "Enable"
Var CouponExireB_D = ""
Var CouponExireB_M = ""
Var CouponExireB_Y = ""
SPLIT CouponInfoB "/" 4 CouponExireB_D
SPLIT CouponInfoB "/" 5 CouponExireB_M
SPLIT CouponInfoB "/" 6 CouponExireB_Y
INT CouponExireB_D
INT CouponExireB_Y
Var CouponExireB_Y = CouponExireB_Y + 0
If CouponExireB_M = "01" Then
Var CouponExireB_M = "January"
EndIf
If CouponExireB_M = "02" Then
Var CouponExireB_M = "February"
EndIf
If CouponExireB_M = "03" Then
Var CouponExireB_M = "March"
EndIf
If CouponExireB_M = "04" Then
Var CouponExireB_M = "April"
EndIf
If CouponExireB_M = "05" Then
Var CouponExireB_M = "May"
EndIf
If CouponExireB_M = "06" Then
Var CouponExireB_M = "June"
EndIf
If CouponExireB_M = "07" Then
Var CouponExireB_M = "July"
EndIf
If CouponExireB_M = "08" Then
Var CouponExireB_M = "August"
EndIf
If CouponExireB_M = "09" Then
Var CouponExireB_M = "September"
EndIf
If CouponExireB_M = "10" Then
Var CouponExireB_M = "October"
EndIf
If CouponExireB_M = "11" Then
Var CouponExireB_M = "November"
EndIf
If CouponExireB_M = "12" Then
Var CouponExireB_M = "December"
EndIf
Var CouponExpireB = CouponExpireB + CouponExireB_D
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_M
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_Y
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Else
If CouponIDA = "" Then
Else
Var CouponSTA = "Enable"
Var CouponExireA_D = ""
Var CouponExireA_M = ""
Var CouponExireA_Y = ""
SPLIT CouponInfoA "/" 4 CouponExireA_D
SPLIT CouponInfoA "/" 5 CouponExireA_M
SPLIT CouponInfoA "/" 6 CouponExireA_Y
INT CouponExireA_D
INT CouponExireA_Y
Var CouponExireA_Y = CouponExireA_Y + 543
If CouponExireA_M = "01" Then
Var CouponExireA_M = "มกราคม"
EndIf
If CouponExireA_M = "02" Then
Var CouponExireA_M = "กุมภาพันธ์"
EndIf
If CouponExireA_M = "03" Then
Var CouponExireA_M = "มีนาคม"
EndIf
If CouponExireA_M = "04" Then
Var CouponExireA_M = "เมษายน"
EndIf
If CouponExireA_M = "05" Then
Var CouponExireA_M = "พฤษภาคม"
EndIf
If CouponExireA_M = "06" Then
Var CouponExireA_M = "มิถุนายน"
EndIf
If CouponExireA_M = "07" Then
Var CouponExireA_M = "กรกฎาคม"
EndIf
If CouponExireA_M = "08" Then
Var CouponExireA_M = "สิงหาคม"
EndIf
If CouponExireA_M = "09" Then
Var CouponExireA_M = "กันยายน"
EndIf
If CouponExireA_M = "10" Then
Var CouponExireA_M = "ตุลาคม"
EndIf
If CouponExireA_M = "11" Then
Var CouponExireA_M = "พฤศจิกายน"
EndIf
If CouponExireA_M = "12" Then
Var CouponExireA_M = "ธันวาคม"
EndIf
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
EndIf
If CouponIDB = "" Then
Else
Var CouponSTB = "Enable"
Var CouponExireB_D = ""
Var CouponExireB_M = ""
Var CouponExireB_Y = ""
SPLIT CouponInfoB "/" 4 CouponExireB_D
SPLIT CouponInfoB "/" 5 CouponExireB_M
SPLIT CouponInfoB "/" 6 CouponExireB_Y
INT CouponExireB_D
INT CouponExireB_Y
Var CouponExireB_Y = CouponExireB_Y + 543
If CouponExireB_M = "01" Then
Var CouponExireB_M = "มกราคม"
EndIf
If CouponExireB_M = "02" Then
Var CouponExireB_M = "กุมภาพันธ์"
EndIf
If CouponExireB_M = "03" Then
Var CouponExireB_M = "มีนาคม"
EndIf
If CouponExireB_M = "04" Then
Var CouponExireB_M = "เมษายน"
EndIf
If CouponExireB_M = "05" Then
Var CouponExireB_M = "พฤษภาคม"
EndIf
If CouponExireB_M = "06" Then
Var CouponExireB_M = "มิถุนายน"
EndIf
If CouponExireB_M = "07" Then
Var CouponExireB_M = "กรกฎาคม"
EndIf
If CouponExireB_M = "08" Then
Var CouponExireB_M = "สิงหาคม"
EndIf
If CouponExireB_M = "09" Then
Var CouponExireB_M = "กันยายน"
EndIf
If CouponExireB_M = "10" Then
Var CouponExireB_M = "ตุลาคม"
EndIf
If CouponExireB_M = "11" Then
Var CouponExireB_M = "พฤศจิกายน"
EndIf
If CouponExireB_M = "12" Then
Var CouponExireB_M = "ธันวาคม"
EndIf
Var CouponExpireB = CouponExpireB + CouponExireB_D
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_M
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_Y
EndIf
Var CouponText = "คูปอง (" + CouponNum
Var CouponText = CouponText + ")"
EndIf
</EventOpen>
@ -126,6 +611,10 @@
Var Timeout = Timeout + 1
If Timeout > 30 Then
If MakeDrinkState = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
@ -185,34 +674,34 @@
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Y> 591 </Y>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Y> 591 </Y>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 722 </Y>
<Y> 648 </Y>
<Filename> Var( DirImage + "/text5.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 857 </Y>
<Y> 783 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 624 </X>
<Y> 734 </Y>
<Filename> Var( DirImage + "/taoLevel1.png" )</Filename>
<Y> 660 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
@ -226,7 +715,7 @@
<Text>
<X> 250 </X>
<Y> 745 </Y>
<Y> 684 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
@ -236,7 +725,7 @@
<Text>
<X> 250 </X>
<Y> 800 </Y>
<Y> 725 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
@ -246,7 +735,7 @@
<Text>
<X> 250 </X>
<Y> 890 </Y>
<Y> 828 </Y>
<Size> 50 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
@ -256,7 +745,7 @@
<Text>
<X> 250 </X>
<Y> 990 </Y>
<Y> 898 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
@ -266,7 +755,7 @@
<Text>
<X> 250 </X>
<Y> 1020 </Y>
<Y> 935 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
@ -277,7 +766,7 @@
<Button>
<X> 398 </X>
<X> 430 </X>
<Y> 1597 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
@ -285,12 +774,114 @@
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If MakeDrinkState = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Text>
<X> 243 </X>
<Y> 1064 </Y>
<Size> 24 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> CouponText </Value>
</Text>
<Button>
<X> 243 </X>
<Y> 1131 </Y>
<State> CouponSTA </State>
<Filename> Var( DirImage + "/imgCouponFree.png" )</Filename>
<FilenamePress> Var( DirImage + "/imgCouponFree.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CouponSendSms = CouponIDA
Var CouponExpireDate = CouponExpireA
Open "ROOT/taobin_project/xml/page_check_member3.xml"
</EventClick>
</Button>
<Text>
<X> 480 </X>
<Y> 1287 </Y>
<Size> 15 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireA </Value>
</Text>
<Button>
<X> 243 </X>
<Y> 1355 </Y>
<State> CouponSTB </State>
<Filename> Var( DirImage + "/imgCouponFree.png" )</Filename>
<FilenamePress> Var( DirImage + "/imgCouponFree.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CouponSendSms = CouponIDB
Var CouponExpireDate = CouponExpireB
Open "ROOT/taobin_project/xml/page_check_member3.xml"
</EventClick>
</Button>
<Text>
<X> 480 </X>
<Y> 1511 </Y>
<Size> 15 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireB </Value>
</Text>
<Button>
<X> 173 </X>
<Y> 1290 </Y>
<State> PolygonST1 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon1.png"</Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CouponPage = CouponPage - 1
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>
<Button>
<X> 860 </X>
<Y> 1290 </Y>
<State> PolygonST2 </State>
<Filename> "ROOT/taobin_project/image/display_point/Polygon2.png"</Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CouponPage = CouponPage + 1
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>
</Popup>