This commit is contained in:
miggaze 2021-01-28 13:41:28 +07:00
parent 691a292501
commit 271d219278
19 changed files with 982 additions and 391 deletions

View file

@ -10,12 +10,13 @@
Var Timeout = 0
;CoffeePoint
;Var CoffeePoint = 5
;Var CoffeePoint = 30
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
AddData 4 TelephoneNumber BmiYear PointCrm GetScore
Var TNumberTaobinMember = TelephoneNumber
;AddData 4 TelephoneNumber BmiYear PointCrm GetScore
;Add after pay
Var CoffeePointStr = CoffeePoint
@ -30,101 +31,140 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var stamp1 = "ROOT/taobin_project/image/display_point_en/btp_stamp_1.png"
If CoffeePoint >= 2 Then
Var stamp2 = "ROOT/taobin_project/image/display_point_en/btp_stamp_2.png"
Else
Var stamp2 = "ROOT/taobin_project/image/display_point/btn_stamp_2.png"
EndIf
If CoffeePoint >= 3 Then
Var stamp3 = "ROOT/taobin_project/image/display_point_en/btp_stamp_3.png"
Else
Var stamp3 = "ROOT/taobin_project/image/display_point/btn_stamp_3.png"
EndIf
If CoffeePoint >= 4 Then
Var stamp4 = "ROOT/taobin_project/image/display_point_en/btp_stamp_4.png"
Else
Var stamp4 = "ROOT/taobin_project/image/display_point/btn_stamp_4.png"
EndIf
If CoffeePoint >= 5 Then
Var stamp5 = "ROOT/taobin_project/image/display_point_en/btp_stamp_5.png"
Else
Var stamp5 = "ROOT/taobin_project/image/display_point/btn_stamp_5.png"
EndIf
If CoffeePoint >= 6 Then
Var stamp6 = "ROOT/taobin_project/image/display_point_en/btp_stamp_6.png"
Else
Var stamp6 = "ROOT/taobin_project/image/display_point/btn_stamp_6.png"
EndIf
If CoffeePoint >= 7 Then
Var stamp7 = "ROOT/taobin_project/image/display_point_en/btp_stamp_7.png"
Else
Var stamp7 = "ROOT/taobin_project/image/display_point/btn_stamp_7.png"
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
Var Timeout = 18
Var CoffeePointTmp = 30
EndIf
If CoffeePoint >= 8 Then
Var stamp8 = "ROOT/taobin_project/image/display_point_en/btp_stamp_8.png"
Else
Var stamp8 = "ROOT/taobin_project/image/display_point/btn_stamp_8.png"
EndIf
If CoffeePoint >= 9 Then
Var stamp9 = "ROOT/taobin_project/image/display_point_en/btp_stamp_9.png"
Else
Var stamp9 = "ROOT/taobin_project/image/display_point/btn_stamp_9.png"
EndIf
Var pImage = CoffeePointTmp * 20
Var pImage = pImage / 30
Var pImageStr = "/taobinP"
Var pImageStr = pImageStr + pImage
Var pImageStr = pImageStr + ".png"
Var pointStr = ""
Var pointStr = pointStr + CoffeePointTmp
Var pointStr = pointStr + "/"
Var pointStr = pointStr + "30"
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 TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireYear = ""
If CoffeePoint >= 10 Then
Var stamp10 = "ROOT/taobin_project/image/display_point_en/btp_stamp_10.png"
Else
Var stamp10 = "ROOT/taobin_project/image/display_point/btn_stamp_10.png"
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
EndIf
If CoffeePoint >= 11 Then
Var stamp11 = "ROOT/taobin_project/image/display_point_en/btp_stamp_11.png"
Else
Var stamp11 = "ROOT/taobin_project/image/display_point/btn_stamp_11.png"
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "ก.พ."
EndIf
Var stamp_free = "ROOT/taobin_project/image/display_point/btp_stamp_free.png"
If CoffeePoint == 11 Then
Var Timeout = 8
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "มี.ค."
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "เม.ย."
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "พ.ค."
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "มิ.ย."
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "ก.ค."
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "ส.ค."
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "ก.ย."
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "ต.ค."
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "พ.ย."
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "ธ.ค."
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 543
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
Var TaobinLevelDesc1 = TaobinLevelDesc1 + ExpireStrTmp
Var TaobinLevelDesc2 = TaobinLevelDesc2 + ExpireStrTmp
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " เพื่อเลื่อนขั้นเป็นเต่าบิน"
; for test
;Var CoffeePoint = CoffeePoint + 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
; run test;
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
;If CountDownBrewing = 0 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
Var ShowCountDownBrewing = CountDownBrewing
;Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Var Timeout = Timeout + 1
If Timeout > 10 Then
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
; goto lid straw
If CoffeePoint == 11 Then
If CoffeePoint > 29 Then
Open "ROOT/taobin_project/xml/page_display_get_free.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
@ -144,8 +184,7 @@
</EventSecurity>
<EventActionOk>
;
;Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventActionOk>
@ -182,91 +221,53 @@
;
<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 + "/taoLevel1.png" )</Filename>
</Image>
;
<Image>
<X> 253 </X>
<Y> 992 </Y>
<Filename> stamp1 </Filename>
</Image>
<Image>
<X> 445 </X>
<Y> 992 </Y>
<Filename> stamp2 </Filename>
<X> 252 </X>
<Y> 1341 </Y>
<Filename> Var( DirImage + pImageStr )</Filename>
</Image>
<Image>
<X> 637 </X>
<Y> 992 </Y>
<Filename> stamp3 </Filename>
</Image>
;
<Image>
<X> 253 </X>
<Y> 1152 </Y>
<Filename> stamp4 </Filename>
</Image>
<Image>
<X> 445 </X>
<Y> 1152 </Y>
<Filename> stamp5 </Filename>
</Image>
<Image>
<X> 637 </X>
<Y> 1152 </Y>
<Filename> stamp6 </Filename>
</Image>
;
<Image>
<X> 253 </X>
<Y> 1322 </Y>
<Filename> stamp7 </Filename>
</Image>
<Image>
<X> 445 </X>
<Y> 1322 </Y>
<Filename> stamp8 </Filename>
</Image>
<Image>
<X> 637 </X>
<Y> 1322 </Y>
<Filename> stamp9 </Filename>
</Image>
;
<Image>
<X> 253 </X>
<Y> 1463 </Y>
<Filename> stamp10 </Filename>
</Image>
<Image>
<X> 445 </X>
<Y> 1463 </Y>
<Filename> stamp11 </Filename>
</Image>
<Image>
<X> 637 </X>
<Y> 1463 </Y>
<Filename> stamp_free </Filename>
</Image>
<Button>
<X> 397 </X>
<X> 560 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + "/bn_close.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_close.png" )</FilenamePress>
@ -274,11 +275,32 @@
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</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
AddData 11 "0617944956" "3330/3330" "" ""
;GETACCEXT TelephoneNumber 15
</EventClick>
</Button>
;<Text>
;<X> 420 </X>
;<Y> 638 </Y>
@ -301,6 +323,80 @@
;<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>
@ -320,5 +416,7 @@
</Text>
</Popup>