THAI INTER: layout Thai inter 3 lang with image.

This commit is contained in:
Ittipat Lusuk 2024-11-27 14:58:15 +07:00
parent f3a2774d63
commit 7e3c847aef
903 changed files with 4726 additions and 18999 deletions

File diff suppressed because it is too large Load diff

View file

@ -39,10 +39,8 @@ EndIf
OpenRedirect "/taobin_project/inter/tha/xml/page_catalog_group_pepsi_7up.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/pepsi7up.ev"
Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
OpenRedirect "/taobin_project/xml/topview2.xml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/topview.ev"
Var InstanceTabOpenFile9 = "ROOT/taobin_project/xml/topview2.xml"
;Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile11 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile12 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
@ -60,6 +58,4 @@ DEBUGVAR WheyButtonState
DEBUGVAR MenuKidButtonState
DEBUGVAR CocktailShow
Var SlientRefreshIndex = 2
LanguageShow = "ENG"

View file

@ -24,7 +24,6 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf

View file

@ -594,7 +594,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Var CheckMemberPage = "ROOT/taobin_project/xml/page_check_member.xml"
Open CheckMemberPage
</EventClick>
@ -764,11 +764,37 @@
Var Top2Timeout = 19
DEBUGVAR CountDownBrewing
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_lid_straw.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest2>
; Initial for jump to page_brewing3.xml
<EventUnitTest3>
;Open "ROOT/taobin_project/inter/tha/xml/page_collect_point_1.lxml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventUnitTest3>
<EventUnitTest5>
Open "ROOT/taobin_project/xml/page_check_member2_campaign.xml"
</EventUnitTest5>
<EventUnitTest6>
Open "ROOT/taobin_project/xml/page_topup_credit3-TopupQR.xml"
</EventUnitTest6>
<EventUnitTest7>
Open "ROOT/taobin_project/xml/page_topup_credit3-TopupSuccess.xml"
</EventUnitTest7>
<EventUnitTest8>
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml"
</EventUnitTest8>
</Popup>

View file

@ -122,15 +122,15 @@
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
DEBUGVAR EnabledBlockUpdateInst12
DEBUGVAR EnabledBlocksDrawInst12
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
If EnabledBlocksDrawInst12 = EnabledBlockUpdateInst12 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else

File diff suppressed because it is too large Load diff

File diff suppressed because it is too large Load diff

View file

@ -604,7 +604,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Var CheckMemberPage = "ROOT/taobin_project/xml/page_check_member.xml"
Open CheckMemberPage
</EventClick>

View file

@ -1,643 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
DEBUGVAR "Open page_check_member Thailand"
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var StepX = 2
Var TaobinCredit = 0
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
EndIf
If LanguageShow = "THAI" Then
EndIf
Refresh
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_catalog.lxml"
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
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePointRankTmp = CoffeePointRank
GETACCEXT TelephoneNumber 15
Var StepX = 1
Else
Var ShowErrorText = "Enable"
EndIf
Else
If StepX = 1 Then
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponPage = 1
Var MakeDrinkState = 0
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 CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
;GETACCEXT TelephoneNumber 13
;Var StepX = 2
Else
Var CouponPage = 1
Var MakeDrinkState = 0
;Var TaobinCredit = Ext1b
;GETACCEXT TelephoneNumber 14
;Var StepX = 0
;Open "ROOT/taobin_project/xml/page_check_member1.xml"
If Ext1a = "ok" Then
Var CheckMemberPage1 = CountryRootPath + "xml/page_check_member1.lxml"
Open CheckMemberPage1
Else
If Ext1a = "new customer" Then
Var CheckNewMember1 = CountryRootPath + "xml/page_check_newmember1.lxml"
Open CheckNewMember1
EndIf
EndIf
EndIf
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 MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber MaxPhoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
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 TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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 TelephoneNumber -1
StrLen TelephoneNumber TelNumLen
If TelNumLen < MinPhoneNumber Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "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>
Var Tel2DFlag = 0
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
If Tel2DFlag = 1 Then
GETACCEXT TelephoneNumber 19
Else
Var ShowErrorText2 = "Enable"
;Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
</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-mask-1 </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> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 910 </Y>
<State> ShowErrorText2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_error5.png") </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
</EventMachine>
<EventUnitTest1>
Var CheckNewMemberPage1 = CountryRootPath + "xml/page_check_newmember1.lxml"
Open CheckNewMemberPage1
</EventUnitTest1>
<EventUnitTest4>
Var CheckMemberPage1 = CountryRootPath + "xml/page_check_member1.lxml"
Open CheckMemberPage1
</EventUnitTest4>
</Popup>

View file

@ -1,828 +0,0 @@
<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 TimeoutSMS = 0
Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowText = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Var Ext1a = ""
Var GetAccFlag = 0
Var StepX = 0
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_4_digits_pin.mp3"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
If StepX = 1 Then
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TNumberTaobinMemberXXX = TelephoneNumber
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePointRankTmp = CoffeePointRank
GETACCEXT TelephoneNumber 15
Var StepX = 2
Var Ext1a = ""
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
Else
If StepX = 2 Then
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponPage = 1
Var MakeDrinkState = 0
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 CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
EndIf
If GetAccFlag = 1 Then
Var GetAccFlag = 0
If Ext1a = "ok" Then
Var TaobinCredit = Ext1b
GETACCEXT TelephoneNumber 14
Var StepX = 1
Var Ext1a = ""
;Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetAccFlag = 1 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var GetAccFlag = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
If StepX = 1 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
If StepX = 2 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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> 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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 398 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetAccFlag = 0 Then
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 19
Var GetAccFlag = 1
EndIf
</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 BmiYear = ""
Var PointCrm = ""
Var GetScore = ""
AddData 13 TelephoneNumber BmiYear PointCrm GetScore
Var PinSMSFlag = 1
Var ChangePinPageSMS = CountryRootPath + "xml/page_payment_changePinSMS.lxml"
Open ChangePinPageSMS
</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> 640 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowText </State>
<Filename> Var( DirImage + "/text_16.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 638 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_25.png") </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventUnitTest4>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventUnitTest4>
</Popup>

View file

@ -1,840 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var CoffeePointRank = CoffeePointRankTmp
;Var PointDiff = 150 - CoffeePointRank
Var TaobinExpireDay = ""
Var TaobinExpireMonth = ""
Var TaobinExpireMonthX = ""
Var TaobinExpireYear = ""
Var buttonState = "Enable"
If MakeDrinkState = 1 Then
Var buttonState = "Invisible"
EndIf
SPLIT TaobinExpire "/" 1 TaobinExpireDay
SPLIT TaobinExpire "/" 2 TaobinExpireMonth
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "January"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "February"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "March"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "April"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "May"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "June"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "July"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "August"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "September"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "October"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "November"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "December"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "Shy turtle level"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
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 CouponIDA = "" Then
Else
Var CouponSTA = "Enable"
Var CouponExireA_D = ""
Var CouponExireA_M = ""
Var CouponExireA_Y = ""
Var CouponTypeA = ""
Var CouponNameA = ""
SPLIT CouponInfoA "/" 2 CouponTypeA
SPLIT CouponInfoA "/" 4 CouponExireA_D
SPLIT CouponInfoA "/" 5 CouponExireA_M
SPLIT CouponInfoA "/" 6 CouponExireA_Y
If CouponTypeA = "100" Then
Var CouponNameA = "/imgCouponC33.png"
EndIf
If CouponTypeA = "101" Then
Var CouponNameA = "/imgCouponC44.png"
EndIf
If CouponTypeA = "102" Then
Var CouponNameA = "/imgCouponC39.png"
EndIf
If CouponTypeA = "103" Then
Var CouponNameA = "/imgCouponC40.png"
EndIf
If CouponTypeA = "105" Then
Var CouponNameA = "/imgCouponC38.png"
EndIf
If CouponTypeA = "106" Then
Var CouponNameA = "/imgCouponC41.png"
EndIf
If CouponTypeA = "107" Then
Var CouponNameA = "/imgCouponC42.png"
EndIf
If CouponTypeA = "109" Then
Var CouponNameA = "/imgCouponC33.png"
EndIf
If CouponTypeA = "112" Then
Var CouponNameA = "/imgCoupon112.png"
EndIf
If CouponTypeA = "113" Then
Var CouponNameA = "/imgCoupon113.png"
EndIf
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
Var CouponExpireA = "Expires " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var CouponSTB = "Enable"
Var CouponExireB_D = ""
Var CouponExireB_M = ""
Var CouponExireB_Y = ""
Var CouponTypeB = ""
Var CouponNameB = ""
SPLIT CouponInfoB "/" 2 CouponTypeB
SPLIT CouponInfoB "/" 4 CouponExireB_D
SPLIT CouponInfoB "/" 5 CouponExireB_M
SPLIT CouponInfoB "/" 6 CouponExireB_Y
If CouponTypeB = "100" Then
Var CouponNameB = "/imgCouponC33.png"
EndIf
If CouponTypeB = "101" Then
Var CouponNameB = "/imgCouponC44.png"
EndIf
If CouponTypeB = "102" Then
Var CouponNameB = "/imgCouponC39.png"
EndIf
If CouponTypeB = "103" Then
Var CouponNameB = "/imgCouponC40.png"
EndIf
If CouponTypeB = "105" Then
Var CouponNameB = "/imgCouponC38.png"
EndIf
If CouponTypeB = "106" Then
Var CouponNameB = "/imgCouponC41.png"
EndIf
If CouponTypeB = "107" Then
Var CouponNameB = "/imgCouponC42.png"
EndIf
If CouponTypeB = "109" Then
Var CouponNameB = "/imgCouponC33.png"
EndIf
If CouponTypeB = "112" Then
Var CouponNameB = "/imgCoupon112.png"
EndIf
If CouponTypeB = "113" Then
Var CouponNameB = "/imgCoupon113.png"
EndIf
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
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
If MakeDrinkState = 1 Then
Var bn_exit = "/bn_cancel2.png"
Var bp_exit = "/bp_cancel2.png"
Else
Var bn_exit = "/bn_main.png"
Var bp_exit = "/bp_main.png"
EndIf
Var text5Img = "/text5-AUS.png"
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
</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>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Button>
<X> 433 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_topupCredit.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_topupCredit.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var MemberTopup = CountryRootPath + "xml/page_member_topup.lxml"
Open MemberTopup
</EventClick>
</Button>
<Button>
<X> 719 </X>
<Y> 411 </Y>
<State> buttonState </State>
<Filename> Var( DirImage + "/bn_changePin.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_changePin.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ChangePinPage1 = CountryRootPath + "xml/page_payment_changePin1.lxml"
Open ChangePinPage1
</EventClick>
</Button>
<Image>
<X> 162 </X>
<Y> 560 </Y>
<Filename> Var( DirImage + text5Img )</Filename>
</Image>
<Image>
<X> 617 </X>
<Y> 587 </Y>
<Filename> Var( DirImage + TaobinLeveImg )</Filename>
</Image>
;
<Text>
<X> 253 </X>
<Y> 669 </Y>
<Size> 35 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 253 </X>
<Y> 720 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xFFFFFF </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Text>
<X> 546 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeePointRank </Value>
</Text>
<Text>
<X> 162 </X>
<Y> 865 </Y>
<Size> 70 </Size>
<Width> 384 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCreditStr </Value>
</Text>
<Text>
<X> 159 </X>
<Y> 1000 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 159 </X>
<Y> 1032 </Y>
<Size> 20 </Size>
<Width> 1000 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Button>
<X> 397 </X>
<Y> 1746 </Y>
<Filename> Var( DirImage + bn_exit )</Filename>
<FilenamePress> Var( DirImage + bp_exit )</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> 159 </X>
<Y> 1121 </Y>
<Size> 36 </Size>
<Width> 240 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Value> CouponText </Value>
</Text>
<Button>
<X> 166 </X>
<Y> 1228 </Y>
<State> CouponSTA </State>
<Filename> Var( DirImage + CouponNameA )</Filename>
<FilenamePress> Var( DirImage + CouponNameA )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CouponSendSms = CouponIDA
Var CouponExpireDate = CouponExpireA
Var CouponName = CouponNameA
Var BmiYear = CouponSendSms
Var PointCrm = ""
Var GetScore = ""
AddData 12 TelephoneNumber BmiYear PointCrm GetScore
Var CheckMemberPage3 = CountryRootPath + "xml/page_check_member3.lxml"
Open CheckMemberPage3
</EventClick>
</Button>
<Text>
<X> 372 </X>
<Y> 1370 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireA </Value>
</Text>
<Button>
<X> 166 </X>
<Y> 1470 </Y>
<State> CouponSTB </State>
<Filename> Var( DirImage + CouponNameB )</Filename>
<FilenamePress> Var( DirImage + CouponNameB )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CouponSendSms = CouponIDB
Var CouponExpireDate = CouponExpireB
Var CouponName = CouponNameB
Var BmiYear = CouponSendSms
Var PointCrm = ""
Var GetScore = ""
AddData 12 TelephoneNumber BmiYear PointCrm GetScore
Var CheckMemberPage3 = CountryRootPath + "xml/page_check_member3.lxml"
Open CheckMemberPage3
</EventClick>
</Button>
<Text>
<X> 372 </X>
<Y> 1613 </Y>
<Size> 15 </Size>
<Width> 600 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireB </Value>
</Text>
<Button>
<X> 65 </X>
<Y> 1405 </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
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
<Button>
<X> 990 </X>
<Y> 1405 </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
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
<EventUnitTest4>
Var CheckMemberPage3 = CountryRootPath + "xml/page_check_member3.lxml"
Open CheckMemberPage3
</EventUnitTest4>
</Popup>

View file

@ -1,182 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
</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>
;include="ROOT/taobin_project/inc/video.inc"
;
<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
If MakeDrinkState = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<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
;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> 158 </X>
<Y> 661 </Y>
<Filename> Var( DirImage + CouponName )</Filename>
<FilenamePress> Var( DirImage + CouponName )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Text>
<X> 415 </X>
<Y> 815 </Y>
<Size> 15 </Size>
<Width> 300 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> CouponExpireDate </Value>
</Text>
</Popup>

View file

@ -1,703 +0,0 @@
<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 TimeoutSMS = 0
Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowText = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Var Ext1a = ""
Var GetAccFlag = 0
Var StepX = 0
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_create_new_pin.mp3"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
Refresh
</EventActionOk>
<EventActionError>
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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> 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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 398 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetAccFlag = 0 Then
Var PinNumber_New = PinNumber
Var CheckNewMember2 = CountryRootPath + "xml/page_check_newmember2.lxml"
Open CheckNewMember2
EndIf
</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> 640 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowText </State>
<Filename> Var( DirImage + "/text_23.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 638 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_25.png") </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,858 +0,0 @@
<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 TimeoutSMS = 0
Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowText = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Var Ext1a = "ok"
Var GetAccFlag = 0
Var StepX = 0
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_confirm_your_pin_again.mp3"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 40 Then
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
If StepX = 1 Then
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TNumberTaobinMemberXXX = TelephoneNumber
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePointRankTmp = CoffeePointRank
GETACCEXT TelephoneNumber 15
Var StepX = 2
Var Ext1a = ""
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
Else
If StepX = 2 Then
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponPage = 1
Var MakeDrinkState = 0
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 GetAccFlag = 0
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
EndIf
If GetAccFlag = 1 Then
Var GetAccFlag = 2
If Ext1a = "ok" Then
Var TaobinName = ""
Var TaobinCoupons = ""
Var TaobinExpire = ""
Var TaobinLevel = ""
Var TNumberTaobinMemberXXX = TelephoneNumber
Var CoffeePointRank = 0
INT CoffeePointRank
Var CoffeePointRankTmp = CoffeePointRank
Var PolygonST1 = "Invisible"
Var PolygonST2 = "Invisible"
Var CouponSTA = "Invisible"
Var CouponSTB = "Invisible"
Var CouponPage = 1
Var MakeDrinkState = 0
Var CouponInfo1 = ""
Var CouponInfo2 = ""
Var CouponInfo3 = ""
Var CouponInfo4 = ""
Var CouponInfo5 = ""
Var CouponInfo6 = ""
Var CouponInfo7 = ""
Var CouponInfo8 = ""
Var CouponInfo9 = ""
Var CouponInfo10 = ""
Var TaobinCredit = 0
GETACCEXT TelephoneNumber 14
Var StepX = 1
Var Ext1a = "ok"
;Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetAccFlag > 0 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var GetAccFlag = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
If StepX = 1 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
If StepX = 2 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
EndIf
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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> 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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 398 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetAccFlag = 0 Then
If PinNumber_New = PinNumber Then
Var BmiYear = PinNumber_New
Var PointCrm = ""
Var GetScore = "setPin"
AddData 21 TelephoneNumber BmiYear PointCrm GetScore
Var GetAccFlag = 1
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var GetAccFlag = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
EndIf
</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> 640 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowText </State>
<Filename> Var( DirImage + "/text_30.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 638 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_25.png") </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage = CountryRootPath + "xml/page_check_member.lxml"
Open CheckMemberPage
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,692 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
;<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var InternationalEnable = 1
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ShowTextNumber = "Enable"
Var Timeout = 0
Var TelephoneNumber = ""
Var TelephoneNumberX = ""
Var TimeOutPlay = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/collect_point1"
;Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
SAVELOG "collect_point1"
SAVELOG Seeker.TNumberTaobinCredit
SAVELOG TelephoneNumber
SAVELOG "collect_point1_"
Var Seeker.FromConsent = 0
Var ParamCP = ""
Var ParamCP = ParamCP + Seeker.CampaignPPrice
Var ParamCP = ParamCP + "/"
Var ParamCP = ParamCP + Seeker.CampaignPCode
Var ParamCP = ParamCP + "/"
Var ParamCP = ParamCP + Seeker.CampaignPayChanel
Var ParamCP = ParamCP + "/"
Var CampaingRef = ""
GenHashWithTimeStamp CampaingRef
Var CampaingRef1 = ""
Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2
Var CampaingRef1 = CampaingRef1 + CampaingRef2
Var ParamCP = ParamCP + CampaingRef1
If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then
If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
EndIf
Else
Var TelephoneNumber = web_telnumOK
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p52."
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf
Var Tel_Confirm_Flag = 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then
Var ShowTextNumber = "Invisible"
Else
; Add
Var TimeOutPlay = TimeOutPlay + 1
If TimeOutPlay > 10 Then
Var TimeOutPlay = 0
If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
EndIf
EndIf
;
EndIf
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 30 Then
SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If Timeout = 18 Then
Var date_time_str = ""
STRDATETIME date_time_str
Var date_time_str = "/mnt/sdcard/scn_" + date_time_str
Var date_time_str = date_time_str + ".png"
DEBUGVAR date_time_str
SCREEN_CAP date_time_str
EndIf
If Timeout = 9 Then
;RefreshAll
EndIf
Refresh
TimerReset
</EventTimeout>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1086 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1086 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1086 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1230 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1230 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1230 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1373 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1373 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1373 </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"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1517 </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 MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1517 </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
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Button>
<X> 218 </X>
<Y> 1671 </Y>
<Filename> Var( DirImage + "/bn_negative.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1671 </Y>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_positive.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_positive.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Tel_Confirm_Flag = 1 Then
Var Tel2DFlag = 0
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
If Tel2DFlag = 1 Then
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p583."
Var TelephoneNumberX = TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
If FromTeaTimePro = 1 Then
Var TelPhoneNum = TelephoneNumber
Var drink_price = PriceFromCatalog
Var param2 = ""
Var param3 = ""
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Else
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"
;Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
EndIf
</EventClick>
</Button>
; Border Edit
<Image>
<X> 217 </X>
<Y> 866 </Y>
<Filename> "ROOT/taobin_project/image/collect_point1/img3.png" </Filename>
</Image>
<Image>
<X> 157 </X>
<Y> 868 </Y>
<State> ShowTextNumber </State>
<Filename> Var( DirImage + "/text_edit.png") </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc"
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </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>
<Image>
<X> 152 </X>
<Y> 955 </Y>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>
<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

@ -1,264 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG UnitTestType
If UnitTestType = "1" Then
Var CoffeePoint = 10
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
Var TaobinLevel = 0
Var Point2X = 0
Var Seeker.IsLineMember = 0
Var Seeker.TaobinErrorNetwork = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.xml"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If StepGetPoint = 0 Then
If PdpaAsk = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var StepGetPoint = 1
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 14
Var Ext1a = ""
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.xml"
EndIf
Else
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.xml"
Else
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TaobinPDPA = Ext1h
Var TaobinPromoX = Ext1j
DEBUGVAR TaobinPDPA
Var PointTaobinTmp = Ext1i
DEBUGVAR PointTaobinTmp
INT PointTaobinTmp
INT TaobinPDPA
If TaobinName = "-" Then
Var Seeker.IsLineMember = 0
Else
Var Seeker.IsLineMember = 1
EndIf
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
;Var PointTaobinTmp = 4
Var PointTaobin = PointTaobinTmp
DEBUGVAR TaobinLevel
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePoint1 = Ext1c
INT CoffeePoint1
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1
If TaobinLevel = 1 Then
Var CoffeePointRank = CoffeePointRank + 0
Else
Var CoffeePointRank = CoffeePointRank + PointTaobin
EndIf
Var CoffeePointRankTmp = CoffeePointRank
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
If NewCollectPointFlag = 1 Then
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_3.lxml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.lxml"
EndIf
EndIf
EndIf
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_error.lxml"
</EventActionError>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 178 </X>
<Y> 680 </Y>
<Filename> Var( DirImage + "/text20.png" ) </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum-mask-1 </Format>
</Text>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -1,108 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG show_eng
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var DirImage = "ROOT/taobin_project/image/display_get_free/"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<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> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( DirImage + "/img_popup4.png" )</Filename>
</Image>
<Button>
<X> 397 </X>
<Y> 1680 </Y>
<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>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

View file

@ -1,293 +0,0 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0x303030" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var TargetTimeout = 10
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var DirImage = "ROOT/taobin_project/inter/aus/image/collect_point/redeem/"
Var congratsState = "Enable"
Var sendCodeState = "Invisible"
Var footerButtonSectionState = "Enable"
Var headerBackground = "/header_bg.png"
Var content_X = 178
Var content_Y = 899
If RedeemType = "1_dollar" Then
Var headerImage = DirImage + "/redeem_1dollar_header.png"
Var contentImage = DirImage + "/redeem_1dollar_content.png"
EndIf
If RedeemType = "2_dollar" Then
Var headerImage = DirImage + "/redeem_2dollar_header.png"
Var contentImage = DirImage + "/redeem_2dollar_content.png"
EndIf
If RedeemType = "get_free" Then
Var headerImage = DirImage + "/redeem_get_free_header.png"
Var contentImage = DirImage + "/redeem_get_free_content.png"
Var footerButtonSectionState = "Invisible"
Var content_Y = 984
Var TargetTimeout = 5
EndIf
Var Seeker.redeemDiscount = RedeemType
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > TargetTimeout Then
If sendCodeState = "Enable" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
If RedeemType = "get_free" Then
Var congratsState = "Invisible"
Var sendCodeState = "Enable"
Var Timeout = 0
Var TargetTimeout = 5
Var SELLONLINE = 0
If SELLSTATUS = "SELLONLINE" Then
Var SELLONLINE = 1
EndIf
If SELLSTATUS = "SELLNOCASH" Then
Var SELLONLINE = 1
EndIf
If SELLONLINE = 1 Then
Var headerBackground = "/success_header_bg.png"
Var headerImage = DirImage + "/redeem_success_header.png"
Var contentImage = DirImage + "/redeem_success_content.png"
Var content_X = 308
Var content_Y = 1065
Else
Var headerBackground = "/fail_header_bg.png"
Var headerImage = DirImage + "/redeem_fail_header.png"
Var contentImage = DirImage + "/redeem_fail_content.png"
Var content_X = 243
Var content_Y = 1118
EndIf
Refresh
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 118 </X>
<Y> 642 </Y>
<Filename> Var( DirImage + headerBackground) </Filename>
</Image>
<Image>
<X> 118 </X>
<Y> 859 </Y>
<Filename> Var( DirImage + "/redemption_bg.png") </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 682 </Y>
<Filename> headerImage </Filename>
</Image>
<Image>
<X> content_X </X>
<Y> content_Y </Y>
<Filename> contentImage </Filename>
</Image>
<Button>
<X> 212 </X>
<Y> 1752 </Y>
<State>
eval(
If congratsState = "Enable" Then
If footerButtonSectionState = "Enable" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> Var( DirImage + "/keep_collecting_btn.png" )</Filename>
<FilenamePress> Var( DirImage + "/keep_collecting_btn_pressed.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; Go to lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
<Button>
<X> 548 </X>
<Y> 1752 </Y>
<State>
eval(
If congratsState = "Enable" Then
If footerButtonSectionState = "Enable" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> Var( DirImage + "/redeem_now_btn.png" )</Filename>
<FilenamePress> Var( DirImage + "/redeem_now_btn_pressed.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Seeker.redeemDiscount = RedeemType
Var congratsState = "Invisible"
Var sendCodeState = "Enable"
Var SELLONLINE = 0
If SELLSTATUS = "SELLONLINE" Then
Var SELLONLINE = 1
EndIf
If SELLSTATUS = "SELLNOCASH" Then
Var SELLONLINE = 1
EndIf
Var Timeout = 0
Var TargetTimeout = 5
If SELLONLINE = 1 Then
Var headerBackground = "/success_header_bg.png"
Var headerImage = DirImage + "/redeem_success_header.png"
Var contentImage = DirImage + "/redeem_success_content.png"
Var content_X = 308
Var content_Y = 1065
Else
Var headerBackground = "/fail_header_bg.png"
Var headerImage = DirImage + "/redeem_fail_header.png"
Var contentImage = DirImage + "/redeem_fail_content.png"
Var content_X = 243
Var content_Y = 1118
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 379 </X>
<Y> 1752 </Y>
<State> sendCodeState </State>
<Filename> Var( DirImage + "/close_btn.png" )</Filename>
<FilenamePress> Var( DirImage + "/close_btn_pressed.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </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>
<EventUnitTest1>
Var RedeemType = "1_dollar"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
</EventUnitTest1>
<EventUnitTest2>
Var RedeemType = "2_dollar"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
</EventUnitTest2>
<EventUnitTest3>
Var RedeemType = "get_free"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_redeem.lxml"
</EventUnitTest3>
</Popup>

View file

@ -1,646 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
;<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Seeker.TNumberTaobinMember = ""
DEBUGVAR TelephoneNumberProblem
DEBUGVAR Seeker.PromotionIDCurrentOrder
If TelephoneNumberProblem = "" Then
Else
Var NumberFailed = "true"
CHECKNUMBERFAIL TelephoneNumberProblem NumberFailed
DEBUGVAR NumberFailed
DEBUGVAR ERROR_PAY_TIMEOUT
DEBUGVAR ERROR_BREW_CAUSE_ENG
DEBUGVAR ERROR_BREW_CAUSE_THAI
If FailedCount > 0 Then
Var ERROR_PAY_TIMEOUT = "false"
DEBUGVAR FailedCount
DEBUGVAR ERROR_PAY_TIMEOUT
EndIf
If NextOrder = "true" Then
Var ERROR_PAY_TIMEOUT = "false"
DEBUGVAR FailedCount
DEBUGVAR ERROR_PAY_TIMEOUT
EndIf
If ERROR_PAY_TIMEOUT = "true" Then
If NumberFailed = "false" Then
If show_eng = "true" Then
Var TextErrorShow = ERROR_BREW_CAUSE_ENG
Else
If show_japan = "true" Then
Var TextErrorShow = ERROR_BREW_CAUSE_JAPAN
Else
Var TextErrorShow = ERROR_BREW_CAUSE_THAI
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_drinkfail4.xml"
EndIf
Open "ROOT/taobin_project/xml/page_drinkfail2-2.xml"
Else
Open "ROOT/taobin_project/xml/page_drinkfail2-2.xml"
EndIf
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en/"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
Var Timeout = 0
StopLongPlay
Var MachineErrorDetailAll = MachineErrorDetail + " / "
Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng
If show_eng = "true" Then
Var textRefundChannelX = "textRefundChannel1.png"
Var xRefundChannelX = 249
If Seeker.PayWithQR = 0 Then
If Seeker.StoreCreditFlag = 1 Then
Var textRefundChannelX = "textRefundChannel2.png"
Var xRefundChannelX = 249
EndIf
If Seeker.CodeChannel = 1 Then
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 60
EndIf
Else
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 60
EndIf
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 60
Else
Var textRefundChannelX = "textRefundChannel1.png"
Var xRefundChannelX = 204
If Seeker.PayWithQR = 0 Then
If Seeker.StoreCreditFlag = 1 Then
Var textRefundChannelX = "textRefundChannel2.png"
Var xRefundChannelX = 256
EndIf
If Seeker.CodeChannel = 1 Then
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 162
EndIf
Else
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 162
EndIf
Var textRefundChannelX = "textRefundChannel3.png"
Var xRefundChannelX = 162
EndIf
Var text22 = "/text22.png"
DEBUGVAR CountryName
DEBUGVAR MaxPhoneNumber
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
SAVELOG MachineStage
Var Timeout = Timeout + 1
If Timeout > 15 Then
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
Else
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Button>
<X> 333 </X>
<Y> 1281 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "1"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1281 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "2"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1281 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "3"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1395 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "4"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1395 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "5"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1395 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "6"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1507 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "7"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1507 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "8"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1507 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "9"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1620 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "0"
Trim TelephoneNumberProblem MaxPhoneNumber
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1620 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bns_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bps_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumberProblem -1
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 44 </X>
<Y> 1783 </Y>
<Filename> Var( DirImage + "/bn_back2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_back2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
Else
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</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 + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= MinPhoneNumber Then
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
Else
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
;<Image>
;<X> xRefundChannelX </X>
;<Y> 960 </Y>
;<Filename> Var( DirImage + textRefundChannelX ) </Filename>
;</Image>
<Image>
<X> 47 </X>
<Y> 408 </Y>
<Filename> Var( DirImage + text22 ) </Filename>
</Image>
;<Image>
;<X> 410 </X>
;<Y> 524 </Y>
;<Filename> Var( DirImage + "/Businessman_sorry.png" ) </Filename>
;</Image>
<Image>
<X> 262 </X>
<Y> 1119 </Y>
<Filename> Var( DirImage + "/img5.png" ) </Filename>
</Image>
<Image>
<X> 400 </X>
<Y> 1160 </Y>
<State> ShowTextNumber </State>
;<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text15.png" )</Filename>
</Image>
<Image>
<X> 293 </X>
<Y> 1140 </Y>
<State> ShowTextNumber </State>
;<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1140 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumberProblem </Value>
<Format> Telnum-mask-1 </Format>
</Text>
<Text>
<X> 5 </X>
<Y> 1868 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xDE794E </Color>
<Value> MachineErrorDetailAll </Value>
</Text>
</Popup>

View file

@ -1,363 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var SumCreditAmount = TaobinCredit
Var CashlessPayFlag = 0
Var LOADING_STATE = "Invisible"
Var alphaState = "Invisible"
Var PayAmount = 0
Var AdditionalAmount = 0
Var ChangeOK = 0
Var QRErrorState = "Invisible"
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/inter/aus/image/page_member_topup"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var text_4 = "/text_4-AUS.png"
Var PayCreditChannel = "credit-card"
Var OptionAmount1 = 2900
Var OptionAmount2 = 3900
Var OptionAmount3 = 4900
Var AmountAdditionCredit1 = 0
Var AmountAdditionCredit2 = 0
Var AmountAdditionCredit3 = 0
; Enable / Disable promotion additional credit
Var PromotionAdditionCredit = 1
If PromotionAdditionCredit = 1 Then
Var AmountAdditionCredit1 = 300
Var AmountAdditionCredit2 = 500
Var AmountAdditionCredit3 = 800
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var alphaState = "Invisible"
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
Else
CashlessReq OFF
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If VendingCashless = "OK" Then
CashlessReq SUCCESS
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
EndIf
</EventActionOk>
<EventActionError>
If VendingCashless = "ERROR" Then
Var Timeout = 0
;Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq FAIL
EndIf
Refresh
</EventActionError>
<EventCashlessCard>
Var CreditCardRef = ""
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
If VendingCashless = "READY" Then
Var Timeout = 0
Var QRErrorState = "Invisible"
Var QR_POPUP = "/img_popup8-2.png"
Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var alphaState = "Enable"
Var TopupAmount = PayAmount
Var PromoAmount = AdditionalAmount
CashlessPayV2 TopupAmount CreditCardRef PromoAmount
Var CashlessPayFlag = 1
EndIf
Refresh
</EventCashlessCard>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 70 </X>
<Y> 499 </Y>
<Filename> Var( DirImage + "/text_3.png" )</Filename>
</Image>
<Image>
<X> 252 </X>
<Y> 1223 </Y>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1280 </Y>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCreditStr </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 670 </Y>
<Filename> Var( DirImage2 + "/bn_topup_29.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_29.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_29.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayAmount = OptionAmount1
Var Timeout = 0
If PromotionAdditionCredit = 1 Then
Var AdditionalAmount = AmountAdditionCredit1
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 800 </Y>
<Filename> Var( DirImage2 + "/bn_topup_39.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_39.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_39.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayAmount = OptionAmount2
Var Timeout = 0
If PromotionAdditionCredit = 1 Then
Var AdditionalAmount = AmountAdditionCredit2
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 930 </Y>
<Filename> Var( DirImage2 + "/bn_topup_49.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_49.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_49.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayAmount = OptionAmount3
Var Timeout = 0
If PromotionAdditionCredit = 1 Then
Var AdditionalAmount = AmountAdditionCredit3
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1622 </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 CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
; QR popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + QR_POPUP )</Filename>
</Image>
<Image>
<X> 267 </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
CashlessReq OFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
DEBUGVAR LOADING_STATE
DEBUGVAR QRErrorState
DEBUGVAR alphaState
Refresh
</EventClick>
</Button>
<Button>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<EventUnitTest4>
Var MemberToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open MemberToppupSuccessPage
</EventUnitTest4>
</Popup>

View file

@ -1,161 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
DEBUGVAR PayAmount
DEBUGVAR PromotionAdditionCredit
DEBUGVAR AdditionalAmount
DEBUGVAR TaobinCredit
INT TaobinCredit
INT PayAmount
INT AdditionalAmount
Var SumCreditAmount = TaobinCredit + PayAmount
Var SumCreditAmount = SumCreditAmount + AdditionalAmount
Var ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var text_4 = "/text_4-AUS.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var FlagPayCredit = 1
Var ExitState = "Disable"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
If Timeout > 1 Then
If FlagPayCredit = 1 Then
If PayCreditChannel = "credit-card" Then
Var TelephoneNumber = TelephoneNumber
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = "00-00-00-0000"
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var FlagPayCredit = 0
EndIf
EndIf
Var ExitState = "Enable"
EndIf
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
</EventActionOk>
<EventMachine>
</EventMachine>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 70 </X>
<Y> 741 </Y>
<Filename> Var( DirImage + "/PaymentSuccess.png" )</Filename>
</Image>
<Image>
<X> 252 </X>
<Y> 1053 </Y>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1123 </Y>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmountStr </Value>
</Text>
<Button>
<X> 99 </X>
<Y> 1688 </Y>
<State> ExitState </State>
<Filename> Var( DirImage + "/bn_main.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_main.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 695 </X>
<Y> 1688 </Y>
<State> ExitState </State>
<Filename> Var( DirImage + "/bn_drink.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_drink.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</Button>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -1,754 +0,0 @@
<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 TimeoutSMS = 0
Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowText = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Var Ext1a = ""
Var GetAccFlag = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
If GetAccFlag = 1 Then
If Ext1a = "ok" Then
Var ChangePinPage2 = CountryRootPath + "xml/page_payment_changePin2.lxml"
Open ChangePinPage2
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var GetAccFlag = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetAccFlag = 1 Then
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"
Var GetAccFlag = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
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> 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"
Var ShowText = "Enable"
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"
Var ShowText = "Enable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 188 </X>
<Y> 1600 </Y>
<Filename> Var( DirImage + "/bn_getSMSPage.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_getSMSPage.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var BmiYear = ""
Var PointCrm = ""
Var GetScore = ""
AddData 13 TelephoneNumber BmiYear PointCrm GetScore
Var PinSMSFlag = 0
Var ChangePinPageSMS = CountryRootPath + "xml/page_payment_changePinSMS.lxml"
Open ChangePinPageSMS
</EventClick>
</Button>
<Button>
<X> 616 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_continue.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_continue.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetAccFlag = 0 Then
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
Var GetAccFlag = 1
EndIf
</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> 640 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowText </State>
<Filename> Var( DirImage + "/text_21.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 638 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_25.png") </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,776 +0,0 @@
<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 TimeoutSMS = 0
Var StateBGetSMS = "Enable"
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 PinNumberNew = ""
Var ReqFlag = 0
Var ReqT = 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
Var Ext1a = ""
Var TextWaiting = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If ReqFlag = 0 Then
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
Var ChangePinPageFailed = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open ChangePinPageFailed
EndIf
If ReqFlag = 1 Then
Var TimeoutSMS = TimeoutSMS + 1
If TimeoutSMS > 10 Then
Var DataTmp = TelephoneNumber
GETACCEXT DataTmp 13
Var ReqFlag = 2
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
</EventCoin>
<EventActionOk>
If ReqFlag = 1 Then
Var DataTmp = TelephoneNumber
GETACCEXT DataTmp 13
Var ReqFlag = 2
Else
If ReqFlag = 2 Then
If Ext1a = "ok" Then
Var PinNumberServer = Ext1c
If PinNumberServer = PinNumberNew Then
Var ChangePinPageSuccess = CountryRootPath + "xml/page_payment_changePinSuccess.lxml"
Open ChangePinPageSuccess
Else
Var DataTmp = TelephoneNumber
GETACCEXT DataTmp 13
Var ReqFlag = 2
EndIf
Else
Var ChangePinPageFailed = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open ChangePinPageFailed
Var ShowErrorText = "Enable"
EndIf
EndIf
EndIf
TimerReset
Refresh
</EventActionOk>
<EventActionError>
If ReqFlag = 1 Then
Var ChangePinPageFailed = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open ChangePinPageFailed
Else
If ReqFlag = 2 Then
Var ChangePinPageFailed = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open ChangePinPageFailed
EndIf
EndIf
TimerReset
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> 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> 397 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_continue.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bn_continue.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_continue.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If ReqFlag = 0 Then
Var BmiYear = PinNumber
Var PointCrm = ""
Var GetScore = "1"
Var PinNumberNew = PinNumber
AddData 20 TelephoneNumber BmiYear PointCrm GetScore
Var ReqFlag = 1
Var Tel_Confirm_State = "Invisible"
Var Timeout = 0
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
Else
Var TextWaiting = "กรุณารอซักครู่..."
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>
<Text>
<X> 5 </X>
<Y> 1700 </Y>
<Refresh> "Enable" </Refresh>
<Size> 30 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFF0000 </Color>
<Value> TextWaiting </Value>
</Text>
<Image>
<X> 188 </X>
<Y> 640 </Y>
<Filename> Var( DirImage + "/text_23.png" )</Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,126 +0,0 @@
<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 Tel_Confirm_State = "Enable"
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 CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
TimerReset
Refresh
</EventTimeout>
<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> 248 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_back3.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_back3.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Button>
<X> 558 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_tryAgainPin.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_tryAgainPin.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ChangePinPage1 = CountryRootPath + "xml/page_payment_changePin1.lxml"
Open ChangePinPage1
</EventClick>
</Button>
<Image>
<X> 189 </X>
<Y> 1004 </Y>
<Filename> Var( DirImage + "/PinFailed.png" ) </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,131 +0,0 @@
<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 Tel_Confirm_State = "Enable"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If PinSMSFlag = 1 Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Press_next_to_receive_code_via_SMS.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Press_next_to_receive_code_via_SMS.mp3"
EndIf
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If PinSMSFlag = 1 Then
Var CheckMemberPage1 = CountryRootPath + "xml/page_check_member1.lxml"
Open CheckMemberPage1
Else
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
EndIf
</EventTimeout>
<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> 397 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_continue.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bn_continue.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If PinSMSFlag = 1 Then
Var CheckMemberPage1 = CountryRootPath + "xml/page_check_member1.lxml"
Open CheckMemberPage1
Else
Var ChangePinPage1 = CountryRootPath + "xml/page_payment_changePin1.lxml"
Open ChangePinPage1
EndIf
</EventClick>
</Button>
<Image>
<X> 189 </X>
<Y> 965 </Y>
<Filename> Var( DirImage + "/smartphone.png" ) </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If PinSMSFlag = 1 Then
Var CheckMemberPage1 = CountryRootPath + "xml/page_check_member1.lxml"
Open CheckMemberPage1
Else
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,122 +0,0 @@
<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 Tel_Confirm_State = "Enable"
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 CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
TimerReset
Refresh
</EventTimeout>
<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> 248 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_back3.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_back3.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Button>
<X> 558 </X>
<Y> 1600 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_catalog.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_catalog.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<Image>
<X> 189 </X>
<Y> 1004 </Y>
<Filename> Var( DirImage + "/PinSuccess.png" ) </Filename>
</Image>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -1,148 +0,0 @@
<Page>
<X> 0 </X>
<Y> 608 </Y>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var countClick = 0
Var countClick2 = 0
Var CountryName = "Australia"
DEBUGVAR "AUS Remove Cup"
Var DirImage = "ROOT/taobin_project/inter/common/image/user_take_cup_en/"
LED LedDoorDoor 5 255 255 255 255
Var CheckCupStateDoorCupClose = ""
Var CheckCupStateDoorCupCloseCnt = 0
DEBUGVAR DoorCupPosition
If DoorCupPosition = "bottom" Then
Var buttonRemoveCup = "Enable"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;SAVELOG MachineErrorDetail
Var MachineErrorDetailAll = MachineErrorDetailEng
If MachineStage = "show-menu" Then
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/taobin_project/xml/page_show_error.lxml"
EndIf
Var Timeout = Timeout + 1
DEBUGVAR Timeout
If Timeout > 5 Then
Var Timeout = 0
DEBUGVAR DoorCupPosition
If DoorCupPosition = "bottom" Then
Var buttonRemoveCup = "Enable"
EndIf
EndIf
; Logic have differrent drinkfail3.xml
; protect lock
;
If CheckCupStateDoorCupCloseCnt > 0 Then
Var CheckCupStateDoorCupCloseCnt = CheckCupStateDoorCupCloseCnt - 1
EndIf
If CheckCupStateDoorCupCloseCnt = 0 Then
Var CheckCupStateDoorCupClose = ""
EndIf
DEBUGVAR HaveCup
If HaveCup = "true" Then
Else
If buttonRemoveCup = "Enable" Then
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
DEBUGVAR buttonRemoveCup
DEBUGVAR CheckCupStateDoorCupClose
Refresh
TimerReset
</EventTimeout>
<Text>
<X> 50 </X>
<Y> 852 </Y>
<Width> 1000 </Width>
<Height> 300 </Height>
<Language>
<ID> 000409 </ID>
</Language>
</Text>
<Text>
<X> 50 </X>
<Y> 1200 </Y>
<Width> 1000 </Width>
<Height> 200 </Height>
<Language>
<ID> 000410 </ID>
</Language>
</Text>
<Button>
<X> 212 </X>
<Y> 1661 </Y>
<Filename> Var( DirImage + "/bn_door_open.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_door_open.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<State> buttonRemoveCup </State>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
Var CheckCupStateDoorCupClose = "reset"
Var CheckCupStateDoorCupCloseCnt = 30
</EventClick>
<Language>
<ID> 000411 </ID>
<X> 80 </X>
<Y> 40 </Y>
<Width> 500 </Width>
<Height> 50 <Height>
</Language>
</Button>
<Text>
<X> 5 </X>
<Y> 1868 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xDE794E </Color>
<Value> MachineErrorDetailAll </Value>
</Text>
</Page>

View file

@ -1,289 +0,0 @@
<Page>
<X> 0 </X>
<Y> 608 </Y>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "0xFCFBF7" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var countClick = 0
Var countClick2 = 0
DEBUGVAR MachineStage
DEBUGVAR stop_now
DEBUGVAR LanguageShow
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
Var show_error_normal = "Invisible"
Var show_error_sp1 = "Enable"
StopLongPlay
If LEDSet = "true" Then
Else
LED LedDoorCup On 255 0 0 255
LED LedDoorLid Off 255 255 255 255
EndIf
DEBUGVAR MachineStage
DEBUGVAR stop_now
Var DirImage = "ROOT/taobin_project/inter/aus/image/vending_error_en"
DEBUGVAR MachineStage
If MachineStage = "close-maintenance" Then
DEBUGVAR stop_now
If stop_now = "true" Then
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
EndIf
EndIf
If MachineStage = "drink-failed" Then
If stop_now = "true" Then
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
EndIf
EndIf
If NETCORE_EVENT_CNT_X >= 30 Then
Var NETCORE_EVENT_CNT_X = 0
EndIf
Var MaintenanceCard = 20
Random MaintenanceCard
Var index = 1 + MaintenanceCard
DEBUGVAR DirImage
Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
Var RandomImage = RandomImage + ".png"
DEBUGVAR RandomImage
DEBUGVAR Seeker
DEBUGVAR DoorCupPosition
DEBUGVAR DoorLidPosition
DEBUGVAR EmergencyStop
Var TimeOut = 0
Var textStep = 0
RootLayoutVisible 3 "show"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var EmergencyStop = "-"
If EmergencyStop = "true" Then
If DoorCupPosition = "bottom" Then
; It normal
Var EmergencyStop = "false"
Else
Var MachineErrorDetailAll = "Emergency stop!"
EndIf
Else
Var MachineErrorDetailAll = MachineErrorDetailEng
If textStep > 3 Then
Var textStep = 0
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ \ ]"
EndIf
If textStep = 3 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ - ]"
EndIf
If textStep = 2 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ / ]"
EndIf
If textStep = 1 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " [ | ]"
EndIf
Var textStep = textStep + 1
;DEBUGVAR MachineErrorDetailAll
;DEBUGVAR textStep
If NETCORE_LOST_CNT > 0 Then
Else
DEBUGVAR NCIC07_EVENT_CNT
DEBUGVAR NETCORE_EVENT_CNT_TMP
If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then
Var NETCORE_LOST_COUNT_UP = NETCORE_LOST_COUNT_UP + 1
DEBUGVAR NETCORE_LOST_COUNT_UP
If NETCORE_LOST_COUNT_UP > 300 Then
If textStep > 3 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " !"
EndIf
If textStep = 3 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " !!"
EndIf
If textStep = 2 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " !!!"
EndIf
If textStep = 1 Then
Var MachineErrorDetailAll = MachineErrorDetailAll + " !!!!"
EndIf
EndIf
Else
If stop_now_from_netcore_event = 1 Then
Var stop_now = "false"
SAVELOG "stop_now_from_netcore_event is set"
Var stop_now_from_netcore_event = 0
EndIf
If stop_now_from_door_cup = 1 Then
Var stop_now = "false"
SAVELOG "stop_now_from_door_cup is set"
Var stop_now_from_door_cup = 0
EndIf
If MachineStage = "" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "show-menu" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "remove-cup" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_remove_cup.xml"
EndIf
If MachineStage = "drink-failed" Then
Var FirstOpen = 1
Var LEDSet = "true"
;Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml"
Refresh
EndIf
If FirstOpen = 1 Then
Var FirstOpen = 0
If MachineStage = "close-maintenance" Then
Var LEDSet = "true"
;Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml"
Refresh
EndIf
EndIf
EndIf
EndIf
EndIf
DEBUGVAR show_error_normal
DEBUGVAR show_error_sp1
DEBUGVAR TimeOut
Var TimeOut = TimeOut + 1
If TimeOut > 30 Then
Var TimeOut = 0
Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml"
EndIf
Refresh
TimerReset
Var LEDSet = "true"
;Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml"
</EventTimeout>
<Image>
<State> show_error_normal </State>
<X> 69 </X>
<Y> 642 </Y>
<Filename> Var(DirImage + "/img1.png") </Filename>
</Image>
<Image>
<State> show_error_sp1 </State>
<X> 69 </X>
<Y> 642 </Y>
<Filename> Var(DirImage + "/img_error_aus.png") </Filename>
</Image>
<Button>
<X> 0 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var countClick = countClick + 1
If countClick = 3 Then
EndIf
If countClick = 10 Then
Var countClick = 0
MainMenu
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Text>
<X> 5 </X>
<Y> 1868 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xDE794E </Color>
<Value> MachineErrorDetailAll </Value>
</Text>
</Page>

View file

@ -564,7 +564,12 @@
EndIf
Var StringToppingOatMilkWithPrice = ""
Var StringToppingOreoWithPrice = ""
Var StringCoffeeLevelWithPrice0 = ""
Var StringCoffeeLevelWithPrice1 = ""
Var StringCoffeeLevelWithPrice2 = ""
Var StringCoffeeLevelWithPrice3 = ""
;Var StringToppingShotWithPrice = ""
</EventOpen>
<Timeout> 1000 </Timeout>
@ -797,6 +802,15 @@
EndIf
If LanguageShow = "MYANMAR" Then
If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then
Var ShowTextSelfTestCountDown = "ခဏစောင့်ပါ။ (" + MACHINE_SELF_TEST_COUNT_DOWN
Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")"
Else
Var ShowTextSelfTestCountDown = "ခဏစောင့်ပါ။"
EndIf
EndIf
If Seeker = "curr" Then
If MenuReason = "arm-not-ready" Then
@ -815,6 +829,9 @@
Else
Var ShowTextSelfTestCountDown = "กรุณานําแก้วออก"
EndIf
If LanguageShow = "MYANMAR" Then
Var ShowTextSelfTestCountDown = "ကျေးဇူးပြုပြီး ဖန်ခွက်ကို ထုတ်လိုက်ပါ။"
EndIf
EndIf
EndIf
EndIf
@ -852,9 +869,17 @@
Var text_show_normal_x = 408
Var text_show_blend_x = 892
Var SugarZeroCalPrice_X = 540
Var text_cancel_xc = 53
Var text_cancel_yc = 16
If BGSugar = "Enable" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3"
EndIf
If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then
Var ShowTextSelfTestCountDown = "Please wait a moment (" + MACHINE_SELF_TEST_COUNT_DOWN
Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")"
Else
Var ShowTextSelfTestCountDown = "Please wait a moment"
EndIf
EndIf
If LanguageShow = "THAI" Then
Var topping_shot_price_x = 600
@ -862,7 +887,15 @@
Var text_show_normal_x = 386
Var text_show_blend_x = 852
Var SugarZeroCalPrice_X = 482
Var text_cancel_xc = 53
Var text_cancel_yc = 16
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then
Var ShowTextSelfTestCountDown ="กรุณารอสักครู่ (" + MACHINE_SELF_TEST_COUNT_DOWN
Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")"
Else
Var ShowTextSelfTestCountDown ="กรุณารอสักครู่"
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
@ -872,9 +905,38 @@
Var text_show_normal_x = 568
Var text_show_blend_x = 892
Var SugarZeroCalPrice_X = 540
Var text_cancel_xc = 5
Var text_cancel_yc = 30
Var DirImage = "ROOT/taobin_project/image/topping_mmr"
If MACHINE_SELF_TEST_COUNT_DOWN > 0 Then
Var ShowTextSelfTestCountDown = "ခဏစောင့်ပါ။ (" + MACHINE_SELF_TEST_COUNT_DOWN
Var ShowTextSelfTestCountDown = ShowTextSelfTestCountDown + ")"
Else
Var ShowTextSelfTestCountDown = "ခဏစောင့်ပါ။"
EndIf
EndIf
Var StringToppingOatMilkWithPrice !assigned GetLanguageID( 000108, LanguageShowByIndex)
Var StringToppingOatMilkWithPrice = StringToppingOatMilkWithPrice + OatMilkPrice
Var StringToppingOreoWithPrice !assigned GetLanguageID( 000101, LanguageShowByIndex)
Var StringToppingOreoWithPrice = StringToppingOreoWithPrice + text_price_6
;Var StringToppingShotWithPrice !assigned GetLanguageID( 000100, LanguageShowByIndex)
;Var StringToppingShotWithPrice = StringToppingShotWithPrice + text_price_topping
Var StringCoffeeLevelWithPrice0 !assigned GetLanguageID( 000108, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice0 = StringCoffeeLevelWithPrice0 + CustomCoffeeLevelAdditionalPrice[0]
Var StringCoffeeLevelWithPrice1 !assigned GetLanguageID( 000109, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice1 = StringCoffeeLevelWithPrice1 + CustomCoffeeLevelAdditionalPrice[1]
Var StringCoffeeLevelWithPrice2 !assigned GetLanguageID( 000110, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice2 = StringCoffeeLevelWithPrice2 + CustomCoffeeLevelAdditionalPrice[2]
Var StringCoffeeLevelWithPrice3 !assigned GetLanguageID( 000111, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice3 = StringCoffeeLevelWithPrice3 + CustomCoffeeLevelAdditionalPrice[3]
Var showname = aliasName[LanguageShowByIndex]
Var showdesc = aliasName[LanguageShowByIndex]
@ -894,7 +956,8 @@
Var ButtonLanguageCurrentYPosition = 438
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 430
OpenInst 3 "ROOT/taobin_project/inter/tha/xml/topview2.xml"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
@ -6150,6 +6213,17 @@
<Width> 800 </Width>
<Height> 65 </Height>
</Text>
;<Text>
;<X> 120 </X>
;<Y> 4 </Y>
;<Font> KanitRegularTTF </Font>
;<State> "ShotCoffeePremium"</State>
;<Size> 36 </Size>
;<Color> 0x513C2F </Color>
;<Value> StringToppingShotWithPrice </Value>
;</Text>
;
<Button>
<X> 40 </X>
@ -6213,13 +6287,26 @@
</Animation>
</Button>
;<Image>
;<State> showText4 </State>
;<X> 602 </X>
;<Y> 4 </Y>
;<Filename> Var( DirImage + "/text4.png" ) </Filename>
;</Image>
<Image>
<State> showText4 </State>
<X> 602 </X>
<X> 550 </X>
<Y> 4 </Y>
<Filename> Var( DirImage + "/text4.png" ) </Filename>
<Width> 325 </Width>
<Height> 70 </Height>
<Language>
<ID> 000093 </ID>
</Language>
</Image>
<Text>
<X> text_show_normal_x </X>
<Y> 4 </Y>
@ -6334,23 +6421,23 @@
<Text>
<X> text_x_add_oreo_price </X>
<X> 120 </X>
<Y> 12 </Y>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<Size> 36 </Size>
<Color> text_color_6 </Color>
<Value> text_price_6 </Value>
<Color> 0x513C2F </Color>
<Value> StringToppingOreoWithPrice </Value>
</Text>
<Text>
<X> 120 </X>
<Y> 12 </Y>
<Language>
<ID> 000101 </ID>
</Language>
</Text>
;<Text>
;<X> 120 </X>
;<Y> 12 </Y>
;<Language>
;<ID> 000101 </ID>
;</Language>
;</Text>
</Row1>
@ -6903,88 +6990,124 @@
</EventClick>
</Button>
;<Text>
;<X> custom_coffee_level_medium_text_x </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x513C2F </Color>
;<Value> CustomCoffeeLevelText[0] </Value>
;</Text>
<Text>
<X> custom_coffee_level_medium_text_x </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Font> KanitRegularTTF </Font>
<Size> 16 </Size>
<Color> 0x513C2F </Color>
<Value> CustomCoffeeLevelText[0] </Value>
<Value> StringCoffeeLevelWithPrice0 </Value>
</Text>
;<Text>
;<X> 676 </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x513C2F </Color>
;<Value> CustomCoffeeLevelText[1] </Value>
;</Text>
<Text>
<X> 676 </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Font> KanitRegularTTF </Font>
<Size> 16 </Size>
<Color> 0x513C2F </Color>
<Value> CustomCoffeeLevelText[1] </Value>
<Value> StringCoffeeLevelWithPrice1 </Value>
</Text>
;<Text>
;<X> custom_coffee_level_dark_text_x </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x513C2F </Color>
;<Value> CustomCoffeeLevelText[2] </Value>
;</Text>
<Text>
<X> custom_coffee_level_dark_text_x </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Font> KanitRegularTTF </Font>
<Size> 16 </Size>
<Color> 0x513C2F </Color>
<Value> CustomCoffeeLevelText[2] </Value>
<Value> StringCoffeeLevelWithPrice2 </Value>
</Text>
;<Text>
;<X> custom_coffee_level_darker_text_x </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x513C2F </Color>
;<Value> CustomCoffeeLevelText[3] </Value>
;</Text>
<Text>
<X> custom_coffee_level_darker_text_x </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Font> KanitRegularTTF </Font>
<Size> 16 </Size>
<Color> 0x513C2F </Color>
<Value> CustomCoffeeLevelText[3] </Value>
<Value> StringCoffeeLevelWithPrice3 </Value>
</Text>
; Additional Price
<Text>
<X> custom_coffee_level_medium_price_x </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Size> 16 </Size>
<Color> 0x84776F </Color>
<Value> CustomCoffeeLevelAdditionalPrice[0] </Value>
</Text>
;<Text>
;<X> custom_coffee_level_medium_price_x </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x84776F </Color>
;<Value> CustomCoffeeLevelAdditionalPrice[0] </Value>
;</Text>
<Text>
<X> 720 </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Size> 16 </Size>
<Color> 0x84776F </Color>
<Value> CustomCoffeeLevelAdditionalPrice[1] </Value>
</Text>
;<Text>
;<X> 720 </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x84776F </Color>
;<Value> CustomCoffeeLevelAdditionalPrice[1] </Value>
;</Text>
<Text>
<X> 820 </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Size> 16 </Size>
<Color> 0x84776F </Color>
<Value> CustomCoffeeLevelAdditionalPrice[2] </Value>
</Text>
;<Text>
;<X> 820 </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x84776F </Color>
;<Value> CustomCoffeeLevelAdditionalPrice[2] </Value>
;</Text>
<Text>
<X> 930 </X>
<Y> CustomCoffeeTextY </Y>
<Font> KanitRegularTTF </Font>
<State> showCoffeeLevel </State>
<Size> 16 </Size>
<Color> 0x84776F </Color>
<Value> CustomCoffeeLevelAdditionalPrice[3] </Value>
</Text>
;<Text>
;<X> 930 </X>
;<Y> CustomCoffeeTextY </Y>
;<Font> KanitRegularTTF </Font>
;<State> showCoffeeLevel </State>
;<Size> 16 </Size>
;<Color> 0x84776F </Color>
;<Value> CustomCoffeeLevelAdditionalPrice[3] </Value>
;</Text>
@ -7186,7 +7309,7 @@
<Language>
<X> 53 </X>
<Y> 16 </Y>
<Width> 120 </Width>
<Width> 150 </Width>
<Height> 42 </Height>
<ID> 000074 </ID>
</Language>
@ -7202,8 +7325,8 @@
<X> 673 </X>
<Y> 1785 </Y>
<State> ShowNormalNextButton </State>
<Filename> Var( DirImage + "/bn_next.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_next.png" )</FilenamePress>
<Filename> "ROOT/taobin_project/image/topping_inter/bn_next.png"</Filename>
<FilenamePress> "ROOT/taobin_project/image/topping_inter/bp_next.png"</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
@ -7529,6 +7652,8 @@
If SelectDrinkType = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
EndIf
@ -7559,6 +7684,11 @@
</EventClick>
<Language>
<X> 64 </X>
<Y> 19 </Y>
<ID> 000073 </ID>
</Language>
</Button>
<Text>
@ -8636,6 +8766,32 @@
DEBUGVAR StringToppingOatMilkWithPrice
EndIf
If showOreoAddEnable = "Enable" Then
DEBUGVAR LanguageShowByIndex
Var StringToppingOreoWithPrice !assigned GetLanguageID( 000101, LanguageShowByIndex)
Var StringToppingOreoWithPrice = StringToppingOreoWithPrice + text_price_6
DEBUGVAR StringToppingOreoWithPrice
EndIf
;If ShotCoffeePremium = "Enable" Then
;Var StringToppingShotWithPrice !assigned GetLanguageID( 000100, LanguageShowByIndex)
;Var StringToppingShotWithPrice = StringToppingShotWithPrice + text_price_topping
;EndIf
If showCoffeeLevel = "Enable" Then
Var StringCoffeeLevelWithPrice0 !assigned GetLanguageID( 000108, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice0 = StringCoffeeLevelWithPrice0 + CustomCoffeeLevelAdditionalPrice[0]
Var StringCoffeeLevelWithPrice1 !assigned GetLanguageID( 000109, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice1 = StringCoffeeLevelWithPrice1 + CustomCoffeeLevelAdditionalPrice[1]
Var StringCoffeeLevelWithPrice2 !assigned GetLanguageID( 000110, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice2 = StringCoffeeLevelWithPrice2 + CustomCoffeeLevelAdditionalPrice[2]
Var StringCoffeeLevelWithPrice3 !assigned GetLanguageID( 000111, LanguageShowByIndex)
Var StringCoffeeLevelWithPrice3 = StringCoffeeLevelWithPrice3 + CustomCoffeeLevelAdditionalPrice[3]
EndIf
BackslashNToEnter showname
BackslashNToEnter showdesc
@ -8670,7 +8826,7 @@
; next2 button Protect
<Button>
<State> ConfirmDrinkButtonState </State>
<X> 526 </X>
<X> 550 </X>
<Y> 1785 </Y>
<Filename> "ROOT/taobin_project/image/topping/topping2/bd_next2.png"</Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>