This commit is contained in:
kong 2021-02-05 14:11:05 +07:00
commit 36ceee08bc
160 changed files with 5829 additions and 360 deletions

View file

@ -0,0 +1,31 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<EventOpen>
TopView "hide"
If TNumberTaobinMember = "" Then
Else
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
AddData 4 TNumberTaobinMember BmiYear PointCrm GetScore
Var TNumberTaobinMember = ""
EndIf
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_back_to_main.xml"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Var menu_status = "stop"
</EventTimeout>
</Popup>

View file

@ -16,10 +16,17 @@
Var VendingTSID = VendingTSIDTmp
EndIf
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var BmiYear = PointTaobinStr
Var PointCrm = ""
If FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
AddData 4 TNumberTaobinMember BmiYear PointCrm GetScore
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
Var TNumberTaobinMember = ""
Var VendingTSID = ""

View file

@ -107,12 +107,15 @@
StopLongPlay
<<<<<<< HEAD
Var TimerFirst = "true"
; TODO: remove when release
;Var IgnoreNetCore = "true"
=======
>>>>>>> 546c45f9efeb4082632779505569a6c9da59fbde
</EventOpen>
<Timeout> 1000 </Timeout>
@ -222,6 +225,7 @@
Open CurrentXMLFileName0
TouchTapClose
Refresh
</EventEnd>
@ -239,7 +243,11 @@
<Video>
<X> 0 </X>
<Y> 0 </Y>
<<<<<<< HEAD
;<Loop>"true"</Loop>
=======
<Loop>"true"</Loop>
>>>>>>> 546c45f9efeb4082632779505569a6c9da59fbde
;<Volume> 80 </Volume>
<Filename> "ROOT/taobin_project/video/main_page.mp4" </Filename>
</Video>
@ -301,7 +309,11 @@
<EventClick>
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
<<<<<<< HEAD
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_memeber.xml"
=======
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
>>>>>>> 546c45f9efeb4082632779505569a6c9da59fbde
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"

View file

@ -30,10 +30,20 @@
Var VendingTSIDTmp = VendingTSID
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
If PayWithQR = 1 Then
Var VendingTSIDTmp = VendingTSID
EndIf
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
@ -71,6 +81,7 @@
Var ActionOKCase = 2
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
@ -86,6 +97,10 @@
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
<<<<<<< HEAD
=======
>>>>>>> 546c45f9efeb4082632779505569a6c9da59fbde
</EventActionOk>
<EventActionError>
@ -191,28 +206,45 @@
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/page_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var TelephoneNumber = "0899999999"
;Var TelephoneNumber = "0899999999"
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
@ -263,9 +295,18 @@
Var waitAckPay = 1
Var Timeout = 0
Var ProcessText = ""
Var TelephoneNumber = "0899999999"
Var ProcessText = ""
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
@ -307,6 +348,7 @@
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
<<<<<<< HEAD
EndIf
@ -326,8 +368,45 @@
EndIf
EndIf
=======
EndIf
Else
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If StoreCreditFlag = 1 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
;no wait ack pay
Var waitAckPay = 0
EndIf
EndIf
EndIf
>>>>>>> 546c45f9efeb4082632779505569a6c9da59fbde
EndIf
Var ServiceSuccess = "yes"
If waitAckPay = 0 Then
@ -346,7 +425,12 @@
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
Else
@ -355,7 +439,12 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
Else
@ -382,7 +471,11 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
Else
@ -399,7 +492,11 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
Else

View file

@ -227,7 +227,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
;Open "ROOT/xml/service_menu.xml"
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>
</Button>

657
xml/page_check_member.xml Normal file
View file

@ -0,0 +1,657 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
Var Xtext19 = 260
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var StepX = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
If StepX = 0 Then
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TNumberTaobinMemberXXX = TelephoneNumber
Trim TNumberTaobinMemberXXX 3
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + "-XXX-"
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number7
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number8
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number9
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number10
Var CoffeePointRank = Ext1b
INT CoffeePointRank
GETACCEXT TelephoneNumber 15
Var StepX = 1
Else
Var ShowErrorText = "Enable"
EndIf
Else
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponPage = 1
Var MakeDrinkState = 0
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
Refresh
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
</EventActionError>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 44 </X>
<Y> 1783 </Y>
<Filename> Var( DirImage + "/bn_back.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_back.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<Button>
<X> 750 </X>
<Y> 1783 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
GETACCEXT TelephoneNumber 14
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 784 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 349 </X>
<Y> 825 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text15.png" )</Filename>
</Image>
<Image>
<X> 248 </X>
<Y> 800 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 797 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber </Value>
<Format> Telnum </Format>
</Text>
<Image>
<X> Xtext19 </X>
<Y> 521 </Y>
<Filename> Var( DirImage + "/text_19.png" )</Filename>
</Image>
<Image>
<X> 430 </X>
<Y> 942 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> "ROOT/taobin_project/image/collectiing/text_show_notfound.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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
</EventMachine>
</Popup>

887
xml/page_check_member2.xml Normal file
View file

@ -0,0 +1,887 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
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 PointDiff = 150 - CoffeePointRank
Var TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
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
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
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>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</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> 591 </Y>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 591 </Y>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 648 </Y>
<Filename> Var( DirImage + "/text5.png" )</Filename>
</Image>
<Image>
<X> 243 </X>
<Y> 783 </Y>
<Filename> Var( DirImage + "/text4.png" )</Filename>
</Image>
<Image>
<X> 624 </X>
<Y> 660 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
<Text>
<X> 250 </X>
<Y> 684 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 725 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 828 </Y>
<Size> 50 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 898 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 250 </X>
<Y> 935 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Button>
<X> 398 </X>
<Y> 1597 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<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>

202
xml/page_check_member3.xml Normal file
View file

@ -0,0 +1,202 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
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
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
;Open "ROOT/taobin_project/xml/page_check_member2.xml"
</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> 593 </Y>
<Filename> Var( DirImage + "/img_popup4.png" )</Filename>
</Image>
<Button>
<X> 237 </X>
<Y> 1480 </Y>
<Filename> Var( DirImage + "/bn_useCoupon.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_useCoupon.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var BmiYear = CouponSendSms
Var PointCrm = ""
Var GetScore = ""
AddData 12 TelephoneNumber BmiYear PointCrm GetScore
</EventClick>
</Button>
<Button>
<X> 440 </X>
<Y> 1597 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
;Var BmiYear = "30/30"
;Var PointCrm = ""
;Var GetScore = ""
;AddData 11 TelephoneNumber BmiYear PointCrm GetScore
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>
<Button>
<X> 243 </X>
<Y> 661 </Y>
<Filename> Var( DirImage + "/imgCouponFree.png" )</Filename>
<FilenamePress> Var( DirImage + "/imgCouponFree.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Text>
<X> 480 </X>
<Y> 815 </Y>
<Size> 15 </Size>
<Width> 120 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireDate </Value>
</Text>
</Popup>

View file

@ -12,7 +12,7 @@
Var ShowTextNumber = "Enable"
Var Timeout = 0
Var TelephoneNumber = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -21,6 +21,13 @@
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var FromConsent = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -87,6 +94,23 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
</EventClick>
</Button>
@ -107,6 +131,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
</EventClick>
</Button>
@ -127,6 +167,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
</EventClick>
</Button>
@ -147,6 +203,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
</EventClick>
</Button>
@ -167,6 +239,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
</EventClick>
</Button>
@ -187,6 +275,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
</EventClick>
</Button>
@ -207,6 +311,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
</EventClick>
</Button>
@ -227,6 +347,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
</EventClick>
</Button>
@ -247,6 +383,22 @@
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
</EventClick>
</Button>
@ -270,6 +422,21 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
</EventClick>
</Button>
@ -365,7 +532,7 @@
<Image>
<X> 236 </X>
<Y> 699 </Y>
<Filename> Var( DirImage + "/text_1.png") </Filename>
<Filename> Var( DirImage + "/text_2.png") </Filename>
</Image>
; Advertise

View file

@ -15,33 +15,27 @@
Var CoffeePoint = 10
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
Var TaobinLevel = 0
</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
Var Timeout = Timeout + 1
If Timeout > 30 Then
;Var CoffeePoint = 1
;Open "ROOT/taobin_project/xml/page_show_consent.xml"
If StepGetPoint = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var TaobinLevel = 0
Var CoffeePoint = 1
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
@ -65,21 +59,65 @@
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var StepGetPoint = 1
GETACCEXT TelephoneNumber 5
GETACCEXT TelephoneNumber 14
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
If Ext1a = "" Then
Var CoffeePoint = 1
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
;Var CoffeePoint = 1
;Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TNumberTaobinMemberXXX = TelephoneNumber
Trim TNumberTaobinMemberXXX 3
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + "-XXX-"
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number7
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number8
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number9
Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number10
If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20
Else
Var PointTaobin = PayAmount / 15
EndIf
Var PointTaobinStr = "" + PointTaobin
Var PointTaobinStr = PointTaobinStr + "/"
Var PointTaobinStr = PointTaobinStr + PointTaobin
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePoint1 = Ext1c
INT CoffeePoint1
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointRank = CoffeePointRank + PointTaobin
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Else
;Var CoffeePoint = 1
;Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var CoffeePoint1 = Ext27
INT CoffeePoint1
Var CoffeePoint = 1 + CoffeePoint1
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf
@ -92,8 +130,8 @@
If StepGetPoint = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var CoffeePoint = 1
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
;Var CoffeePoint = 1
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventActionError>

View file

@ -10,7 +10,7 @@
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 = ""
@ -18,7 +18,6 @@
;AddData 4 TelephoneNumber BmiYear PointCrm GetScore
;Add after pay
Var CoffeePointStr = CoffeePoint
SAVELOG TelephoneNumber
@ -32,107 +31,250 @@
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 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
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"
Var TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
Var TaobinExpireMonthX = "มกราคม"
EndIf
If CoffeePoint >= 11 Then
Var stamp11 = "ROOT/taobin_project/image/display_point_en/btp_stamp_11.png"
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
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 = ""
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.png"
EndIf
Else
Var stamp11 = "ROOT/taobin_project/image/display_point/btn_stamp_11.png"
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 = ""
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel3.png"
EndIf
EndIf
Var stamp_free = "ROOT/taobin_project/image/display_point/btp_stamp_free.png"
If CoffeePoint == 11 Then
Var Timeout = 8
EndIf
; for test
;Var CoffeePoint = CoffeePoint + 1
Var CheckCoupons = 0
Var MakeDrinkState = 0
</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
; 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"
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>
@ -146,8 +288,12 @@
</EventSecurity>
<EventActionOk>
;
If CheckCoupons = 1 Then
Var MakeDrinkState = 1
Var CouponPage = 1
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
</EventActionOk>
@ -184,91 +330,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 + TaobinLeveImg )</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> 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>
@ -276,7 +384,34 @@
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;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>
@ -303,6 +438,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>
@ -322,5 +531,7 @@
</Text>
</Popup>

View file

@ -16,23 +16,48 @@
Var DirImage = "ROOT/taobin_project/image/display_get_free"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"
Var MemberState3 = "Invisible"
If TaobinLevel = "1" Then
Var MemberState1 = "Invisible"
Var MemberState2 = "Enable"
Var MemberState3 = "Invisible"
EndIf
If TaobinLevel = "2" Then
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"
Var MemberState3 = "Invisible"
EndIf
If TaobinLevel = "3" Then
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"
Var MemberState3 = "Invisible"
EndIf
If FromConsent = 1 Then
Var MemberState1 = "Invisible"
Var MemberState2 = "Invisible"
Var MemberState3 = "Enable"
EndIf
</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
@ -93,14 +118,29 @@
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState1 </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState2 </State>
<Filename> Var( DirImage + "/img_popup2.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState3 </State>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
</Image>
<Button>
<X> 397 </X>
<Y> 1680 </Y>
<Filename> Var( DirImage + "/bp_accept.png" ) </Filename>
<Filename> Var( DirImage + "/bn_accept.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
@ -112,22 +152,22 @@
</Button>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;<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>
;<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>

View file

@ -23,63 +23,7 @@
<Timeout> 800 </Timeout>
<EventTimeout>
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/page_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Var Change3Timeout = Change3Timeout + 1
If Change3Timeout > 3 Then
Open "ROOT/xml/page_closeMaintenance.xml"
EndIf
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
EndIf
EndIf
</EventTimeout>
<EventChangeStatus>

View file

@ -31,15 +31,20 @@
Var VendingTSID = VendingTSIDTmp
EndIf
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var BmiYear = PointTaobinStr
Var PointCrm = ""
If FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
AddData 4 TNumberTaobinMember BmiYear PointCrm GetScore
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
Var TNumberTaobinMember = ""
Var VendingTSID = ""
EndIf
StopLongPlay
</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout>

View file

@ -37,6 +37,12 @@
Var FreeVendingCampaign = 0
Var CodeChannel = 0
Var CoinVendingOnFlag = 0
Var StoreCreditFlag = 0
Var pageStoreCredit0 = 0
Var TNumberTaobinCredit = ""
Var TNumberTaobinMember = ""
Var VendingTSIDTmp = ""
Var TNumberTaobinMember = ""
Var VendingTSIDTmp = ""
@ -70,11 +76,14 @@
Var CountStepPackPayment = CountStepPackPayment + 1
If CountStepPackPayment = 1 Then
SAVELOG ExtendData
If GetPayInfoFlag = 0 Then
If RoadShow = "false" Then
CoinVending ON
;CoinVending ON
CoinVending XBILL
EndIf

View file

@ -29,6 +29,7 @@
; On open
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
Var alphaState3 = "Invisible"
Var CoinInFlag = 0
@ -46,6 +47,8 @@
Var PayOK = 0
Var ChangeOK = 0
Var CoinInOK = 0
Var RemainAmountKeep = 0
Var showRemaining = charOfBaht + RemainAmountStr
@ -59,7 +62,7 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Enable"
Var CancleState = "Invisible"
Var VendingDiscount = DiscountDrink
@ -114,20 +117,25 @@
Var PayState1 = "Enable"
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var showRemaining = "Free"
Else
Var PayState1 = "Enable"
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Else
Var PayState2 = "Disable"
Var PayState4 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var CoinInFlag = 1
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
@ -219,6 +227,9 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var EnoughChange = "yes"
</EventOpen>
<EventActionOk>
@ -356,6 +367,10 @@
If CancelFlag = 0 Then
SAVELOG "Timeout > 180 s."
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
@ -377,7 +392,12 @@
If CancelCounter = CancelNumber Then
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
If StoreCreditFlag = 1 Then
Var ChangeOK = 1
Else
Change CoinAmount
EndIf
Else
If ActionOKCase = 0 Then
Var ActionOKCase = 1
@ -396,6 +416,15 @@
If ChangeOK = 1 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
@ -457,43 +486,79 @@
Var alphaState = "Invisible"
EndIf
;If StoreCreditFlag = 1 Then
; Var ViewBill = 0
;EndIf
Var CoinInFlag = 1
If CoinInOK = 0 Then
If ViewBill > 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
VendingQR OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountKeep = ViewBill
EndIf
Var Timeout = 0
;Var RemainAmount = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState2 = "Enable"
Var alphaState3 = "Enable"
Else
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
VendingQR OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
Var Timeout = 0
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState2 = "Enable"
EndIf
EndIf
EndIf
Refresh
@ -548,18 +613,31 @@
; back
;<Button>
;<X> 19 </X>
;<Y> 420 </Y>
;<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
; Open "ROOT/taobin_project/xml/page_back_to_main.xml"
;
;</EventClick>
;</Button>
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleMain > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
</EventClick>
</Button>
@ -578,25 +656,31 @@
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
<FilenameDisable> FilenameShowbuttonCashBP </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
;Var PayState1 = "PressForever"
;Var PayState2 = "Enable"
;Var QRChannel = 0
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var alphaState2 = "Enable"
If RoadShow = "true" Then
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var MachineStage = "make-drink"
Var BrewingTextThai = "เตรียมแก้ว"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
If EnoughChange = "yes" Then
Var alphaState2 = "Enable"
If RoadShow = "true" Then
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var MachineStage = "make-drink"
Var BrewingTextThai = "เตรียมแก้ว"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
Else
Var alphaState3 = "Enable"
Refresh
EndIf
EndIf
</EventClick>
@ -604,10 +688,11 @@
<Button>
<X> 287 </X>
<Y> 1549</Y>
<Y> 1696</Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_code.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -628,10 +713,11 @@
<Button>
<X> 287 </X>
<Y> 1400 </Y>
<Y> 1401 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_pay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -670,6 +756,34 @@
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1548 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_credit.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
@ -807,7 +921,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
;VendingQR OFF
If CoinInOK = 0 Then
@ -821,13 +936,17 @@
EndIf
EndIf
EndIf
Var alphaState2 = "Invisible"
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
@ -841,6 +960,65 @@
</Text>
; end case popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState3 </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup12.png" )</Filename>
</Image>
<Button>
<X> 327 </X>
<Y> 1208 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_keep.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_keep.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml"
</EventClick>
</Button>
<Button>
<X> 327 </X>
<Y> 1335 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
CoinVending BILLREJECT
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 100 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState3 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountKeep </Value>
</Text>
<QRCode>
<X> 399 </X>

View file

@ -92,6 +92,7 @@
If IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var VendingCampaign = PayAmount
Var FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
@ -142,10 +143,12 @@
Else
Var FreeVendingCampaign = 1
If VendingCode = "C24" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
@ -153,6 +156,7 @@
EndIf
If VendingCode = "C25" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
@ -160,6 +164,7 @@
EndIf
If VendingCode = "C30" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
@ -167,6 +172,15 @@
EndIf
If VendingCode = "C32" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C33" Then
Var VendingCampaign = PayAmount
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID

449
xml/page_payment_credit.xml Normal file
View file

@ -0,0 +1,449 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
VendingQR OFF
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
;Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
If Ext1a = "ok" Then
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
Else
Var ShowErrorText = "Enable"
EndIf
Refresh
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
GETACCEXT TelephoneNumber 13
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 244 </X>
<Y> 817 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text14.png" )</Filename>
</Image>
<Image>
<X> 248 </X>
<Y> 836 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber </Value>
<Format> Telnum </Format>
</Text>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_13.png" )</Filename>
</Image>
<Image>
<X> 444 </X>
<Y> 945 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
;<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -0,0 +1,772 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var Xtext = 246
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
If ReqFlag = 0 Then
If Ext1a = "ok" Then
If Ext1c = "" Then
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
Else
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
Else
EndIf
Refresh
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "1"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "2"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "3"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "4"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "5"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "6"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "7"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "8"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "9"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1432 </Y>
<Filename> Var( DirImage + "/bn_getPin.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_getPin.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Var ShowSentSmsText = "Enable"
Var BmiYear = ""
Var PointCrm = ""
Var GetScore = ""
AddData 13 TelephoneNumber BmiYear PointCrm GetScore
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var ShowErrorText = "Invisible"
Var ReqFlag = 1
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "0"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim PinNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen PinNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
If TelNumLen < 1 Then
Var ShowTextNumber1 = "Invisible"
EndIf
If TelNumLen < 2 Then
Var ShowTextNumber2= "Invisible"
EndIf
If TelNumLen < 3 Then
Var ShowTextNumber3= "Invisible"
EndIf
If TelNumLen < 4 Then
Var ShowTextNumber4= "Invisible"
EndIf
Var ShowSentSmsText = "Invisible"
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ShowSentSmsText = "Invisible"
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
Var ReqFlag = 0
Refresh
</EventClick>
</Button>
<Image>
<X> 242 </X>
<Y> 830 </Y>
<Filename> Var( DirImage + "/img4.png" ) </Filename>
</Image>
<Image>
<X> 289 </X>
<Y> 870 </Y>
<State> ShowTextNumber1 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 446 </X>
<Y> 870 </Y>
<State> ShowTextNumber2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 603 </X>
<Y> 870 </Y>
<State> ShowTextNumber3 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 870 </Y>
<State> ShowTextNumber4 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_16.png" )</Filename>
</Image>
<Image>
<X> 444 </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> Xtext </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowSentSmsText </State>
<Filename> Var( DirImage + "/text_show_sentSMS.png") </Filename>
</Image>
;<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -0,0 +1,167 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var Tel_Confirm_State = "Disable"
Var CoffeeCredit = Ext1b
INT CoffeeCredit
Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then
Var Tel_Confirm_State = "Enable"
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage + "/img_popup11.png" ) </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmount </Value>
</Text>
<Button>
<X> 261 </X>
<Y> 1345 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 624 </X>
<Y> 1345 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_useCredit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
CoinVending OFF
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var StoreCreditFlag = 1
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
</EventClick>
</Button>
;<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -0,0 +1,513 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var FlagWaitUpdateCoinAmount = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If pageStoreCredit0 = 1 Then
Change StoreCreditAmount
Var ChangeFlag2 = 1
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
CoinVending BILLREJECT
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
If FlagWaitUpdateCoinAmount = 1 Then
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
If Ext1a = "ok" Then
Var CoffeeCredit = Ext1b
INT CoffeeCredit
Var CoffeePinNumber = Ext1c
Var TNumberTaobinCredit = TelephoneNumber
If pageStoreCredit0 = 1 Then
Var StoreCreditFlag = 1
Var CoffeeCreditKeep = StoreCreditAmount + CoffeeCredit
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
Else
Var StoreCreditFlag = 1
If ViewBill < RemainAmount Then
CoinVending BILLSTACKALL
Var FlagWaitUpdateCoinAmount = 1
Var Timeout = 0
Else
CoinVending BILLSTACKALL
Var CoffeeCreditKeep = RemainAmountKeep + CoffeeCredit
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
EndIf
EndIf
Else
If Ext1a = "new customer" Then
Var CoffeeCreditKeep = 0
Var TNumberTaobinCredit = TelephoneNumber
Open "ROOT/taobin_project/xml/page_payment_storeCredit2.xml"
Else
Var ShowErrorText = "Enable"
EndIf
EndIf
Refresh
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If pageStoreCredit0 = 1 Then
Change StoreCreditAmount
Var ChangeFlag2 = 1
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
CoinVending BILLREJECT
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
GETACCEXT TelephoneNumber 13
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 244 </X>
<Y> 817 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text14.png" )</Filename>
</Image>
<Image>
<X> 248 </X>
<Y> 836 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber </Value>
<Format> Telnum </Format>
</Text>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_17.png" )</Filename>
</Image>
<Image>
<X> 330 </X>
<Y> 942 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> "ROOT/taobin_project/image/collectiing/text_show_notfound.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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
</Popup>

View file

@ -0,0 +1,170 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
Var clickedChangeFlag = 0
Var pageStoreCredit0 = 1
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Change StoreCreditAmount
Var ChangeFlag2 = 1
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + "/img_popup14.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 100 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> StoreCreditAmount </Value>
</Text>
<Button>
<X> 327 </X>
<Y> 1208 </Y>
<Filename> Var( DirImage2 + "/bn_keep.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_keep.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml"
</EventClick>
</Button>
<Button>
<X> 327 </X>
<Y> 1335 </Y>
<Filename> Var( DirImage2 + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If clickedChangeFlag = 0 Then
Var clickedChangeFlag = 1
Change StoreCreditAmount
Var ChangeFlag2 = 1
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
</EventClick>
</Button>
<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
</Popup>

View file

@ -0,0 +1,725 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml"
EndIf
If FlagWaitUpdateCoinAmount = 1 Then
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "1"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "2"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "3"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "4"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "5"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "6"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "7"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "8"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "9"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "0"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim PinNumber -1
Var Tel_Confirm_State = "Disable"
StrLen PinNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
If TelNumLen < 1 Then
Var ShowTextNumber1 = "Invisible"
EndIf
If TelNumLen < 2 Then
Var ShowTextNumber2= "Invisible"
EndIf
If TelNumLen < 3 Then
Var ShowTextNumber3= "Invisible"
EndIf
If TelNumLen < 4 Then
Var ShowTextNumber4= "Invisible"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If FlagOKButton = 0 Then
Var FlagOKButton = 1
Var StoreCreditFlag = 1
Var CoffeePinNumber = PinNumber
If pageStoreCredit0 = 1 Then
Var CoffeeCreditKeep = StoreCreditAmount + 0
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
Else
If ViewBill < RemainAmount Then
CoinVending BILLSTACKALL
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var FlagWaitUpdateCoinAmount = 1
Var Timeout = 0
Else
CoinVending BILLSTACKALL
Var CoffeeCreditKeep = RemainAmountKeep + 0
Open "ROOT/taobin_project/xml/page_payment_storeCredit3.xml"
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Image>
<X> 242 </X>
<Y> 830 </Y>
<Filename> Var( DirImage + "/img4.png" ) </Filename>
</Image>
<Image>
<X> 289 </X>
<Y> 870 </Y>
<State> ShowTextNumber1 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 446 </X>
<Y> 870 </Y>
<State> ShowTextNumber2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 603 </X>
<Y> 870 </Y>
<State> ShowTextNumber3 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 870 </Y>
<State> ShowTextNumber4 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_16.png" )</Filename>
</Image>
<Image>
<X> 330 </X>
<Y> 942 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "text_show_notfound.png" )</Filename>
</Image>
;<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
</Popup>

View file

@ -0,0 +1,154 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If pageStoreCredit0 = 1 Then
Else
VendingQR OFF
CoinVending OFF
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 5 Then
If pageStoreCredit0 = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
;Var TNumberTaobinCredit = TelephoneNumber
;Var CoffeePinNumber = PinNumber
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage + "/img_popup11.png" ) </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeeCreditKeep </Value>
</Text>
;<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
</Popup>

View file

@ -27,13 +27,8 @@
<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
@ -71,7 +66,7 @@
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup1.png") </Filename>
<Filename> Var( DirImage + "/img_popup2.png") </Filename>
</Image>
@ -88,8 +83,10 @@
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Var FromConsent = 1
Var StepGetPoint = 1
GETACCEXT TelephoneNumber 5
GETACCEXT TelephoneNumber 14
; goto lid straw
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"

View file

@ -19,6 +19,10 @@
Var ChangeTimeout = 0
Var ChangeFlag2 = 0
Var GotoStoreCredit0 = 0
Var StoreCreditAmount = 0
If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
@ -40,36 +44,46 @@
Var Timeout = Timeout + 1
If Timeout = 2 Then
If PayWithQR = 0 Then
If FreeVendingCampaign = 0 Then
If IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
Change Canout
Var ChangeFlag2 = 1
EndIf
EndIf
EndIf
Else
If PayWithQR = 0 Then
If FreeVendingCampaign = 0 Then
If IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
Change Canout
Var ChangeFlag2 = 1
EndIf
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
Else
EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
Change Canout
Var ChangeFlag2 = 1
EndIf
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
EndIf
EndIf
@ -90,7 +104,16 @@
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
If StoreCreditFlag = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
If GotoStoreCredit0 = 1 Then
Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
EndIf
EndIf
EndIf