AUS: Disable fatzebra & update EMA

This commit is contained in:
Kenta420 2024-11-28 15:45:44 +07:00
parent b2498d34f6
commit b4f9c003a9
18 changed files with 1197 additions and 629 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 17 KiB

After

Width:  |  Height:  |  Size: 15 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

View file

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 3.7 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.8 KiB

View file

@ -897,7 +897,7 @@
Var DescLang[0][3] = ""
Var DescLang[0][4] = ""
Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA"
Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = ""
Var NameLang[1][3] = ""

View file

@ -11580,7 +11580,7 @@
Var DescLang[0][3] = ""
Var DescLang[0][4] = ""
Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA"
Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = ""
Var NameLang[1][3] = ""

View file

@ -11557,7 +11557,7 @@
Var DescLang[0][3] = ""
Var DescLang[0][4] = ""
Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA"
Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = ""
Var NameLang[1][3] = ""

View file

@ -20,7 +20,7 @@
Var TimeOutPlay = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -53,7 +53,7 @@
Var CampaingRef1 = ""
Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2
@ -61,13 +61,13 @@
Var CampaingRef1 = CampaingRef1 + CampaingRef2
Var ParamCP = ParamCP + CampaingRef1
If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then
If show_eng = "true" 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"
@ -78,7 +78,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -98,15 +98,15 @@
AddData 45 TelPhoneNum drink_price param2 param3
EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf
Else
@ -124,7 +124,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -133,15 +133,15 @@
SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf
@ -149,24 +149,24 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<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
If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -175,17 +175,17 @@
;
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_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If Timeout = 18 Then
@ -203,7 +203,7 @@
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
@ -229,13 +229,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -245,9 +245,9 @@
TimerReset
Refresh
</EventClick>
</Button>
@ -259,13 +259,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -284,13 +284,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -309,13 +309,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -334,13 +334,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -359,13 +359,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -384,13 +384,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -409,13 +409,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -434,13 +434,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -449,7 +449,7 @@
TimerReset
Refresh
</EventClick>
</Button>
@ -460,13 +460,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then
If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -485,24 +485,24 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -526,11 +526,11 @@
<FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
@ -545,9 +545,9 @@
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
If Tel_Confirm_Flag = 1 Then
@ -563,7 +563,7 @@
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
@ -582,25 +582,25 @@
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"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Else
Else
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
@ -613,7 +613,7 @@
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
@ -635,6 +635,12 @@
<Filename> Var( DirImage + "/text_edit.png") </Filename>
</Image>
<Image>
<X> 236 </X>
<Y> 699 </Y>
<Filename> Var( DirImage + "/text_2.png") </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc"
@ -670,11 +676,11 @@
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then

View file

@ -261,6 +261,7 @@
<Button>
<X> 287 </X>
<Y> 778 </Y>
<State> "Disable" </State>
<Filename> Var( DirImage2 + "/bn_fatzebra.png" ) </Filename>
<FilenamePress> Var( DirImage2 + "/bp_fatzebra.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_fatzebra.png" ) </FilenameDisable>

View file

@ -0,0 +1,336 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> PlaySoundCodeLang </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
Var Timeout = 0
Var EMAMemberID = ""
Var Tel_Confirm_State = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
SAVELOG "page_payment_with_ema > timeout"
Var EMAMemberID = ""
Open "ROOT/taobin_project/xml/page_payment_cash-AUS.xml"
EndIf
</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>
<Image>
<X> 302 </X>
<Y> 710 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/enter_ema_number_text.png" </Filename>
</Image>
<Image>
<X> 217 </X>
<Y> 830 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/edit_border.png" </Filename>
</Image>
<Image>
<X> 273 </X>
<Y> 837 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/ema_member_icon.png" </Filename>
</Image>
<Text>
<X> 255 </X>
<Y> 856 </Y>
<Refresh> "Enable" </Refresh>
<Width> 570 </Width>
<Font> KanitRegularTTF </Font>
<Size> 48 </Font>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberID </Value>
</Text>
<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 EMAMemberID = EMAMemberID + "1"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "2"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "3"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "4"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "5"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "6"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "7"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "8"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "9"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1436 </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 EMAMemberID = EMAMemberID + "0"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1436 </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 EMAMemberID -1
Var Tel_Confirm_State = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1623 </Y>
<Filename> "ROOT/taobin_project/image/collectiing_en/bn_back.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing_en/bn_back.png" </FilenamePress>
<EventClick>
Var EMAMemberID = ""
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1623 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> "ROOT/taobin_project/image/collectiing_en/bn_confirm.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing_en/bp_confirm.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing_en/bp_confirm.png" </FilenameDisable>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -84,12 +84,17 @@
; Below original
; On open
Var popup_cancel_button_y = 1345
Var PopupCancelButtonState = "Invisible"
Var cancelState = "Invisible"
Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupSuccessState = "Invisible"
Var EMAPopupErrorState = "Invisible"
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
@ -427,6 +432,87 @@
Var PayState5 = "Invisible"
Var PayState6 = "Invisible"
EndIf
If EMAMemberID = "" Then
Else
Var CameraState = "Invisible"
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAEnterNumberButtonState = "Disable"
Var popup_cancel_button_y = 1390
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AUB:2:"
Var ECommerceQR = ECommerceQR + EMAMemberID
Var ECommerceQR = ECommerceQR + "/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
</EventOpen>
<EventActionOk>
@ -451,7 +537,9 @@
VendingQR OFF
CoinVending OFF
If ReqPayInfoFlag2 = 0 Then
Var Seeker.CampaignPayChanel = "unknown"
EndIf
If ReqPayInfoFlag2 = 1 Then
DEBUGVAR VendingBank
Var Seeker.CampaignPayChanel = "malaymbb"
@ -468,6 +556,9 @@
If ReqPayInfoFlag2 = 5 Then
Var Seeker.CampaignPayChanel = "linepay"
EndIf
If ReqPayInfoFlag2 = 6 Then
Var Seeker.CampaignPayChanel = "aubpay"
EndIf
@ -671,27 +762,37 @@
EndIf
EndIf
;If ReqPayInfoFlag = 6 Then
; If VendingQRTypeResult = "FZB:2" Then
; Var CashTextWarning = ""
; Var QRErrorState = "Invisible"
; Var QRCODE99Shoppy = SessionID
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
; SAVELOG Ext1a
; SAVELOG QRCODE99Shoppy
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
; Var ReqPayInfoFlag = 0
; Var ReqPayInfoFlag2 = 5
; SAVELOG QRCODE99Shoppy
; SAVELOG Ext21
If ReqPayInfoFlag = 6 Then
; Var employeeName = "Jhon"
; Var
SPLIT ECommerceQR "/" 6 MemberData
; ;Var QRCODE99 = QRCODE99Shoppy
; Var LOADING_STATE = "Invisible"
; EndIf
;EndIf
If VendingQRTypeResult = "AUB" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 6
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
SPLIT MemberData ":" 1 _EMAMemberName
SPLIT MemberData ":" 2 EMAMemberSurname
SPLIT MemberData ":" 3 _EMAMemberBalance
Var EMAMemberName !assigned SprintFmt("[%s]", _EMAMemberName)
Var EMAMemberBalance !assigned SprintFmt("Remain Balance: $%s", _EMAMemberBalance)
DEBUGVAR EMAMemberName
DEBUGVAR EMAMemberSurname
DEBUGVAR EMAMemberBalance
Var QR_POPUP = "/img_popup_ema_success.png"
Var EMAPopupSuccessState = "Enable"
Var EMAEnterNumberButtonState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
@ -762,12 +863,22 @@
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 5 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 6 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var QR_POPUP = "/img_popup_ema_error.png"
Var EMAPopupErrorState = "Enable"
Var EMAEnterNumberButtonState = "Invisible"
Var LOADING_STATE = "Invisible"
Var popup_cancel_button_y = 1225
EndIf
EndIf
Else
@ -806,6 +917,7 @@
Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
@ -851,26 +963,25 @@
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupErrorState = "Invisible"
If CameraState = "Enable" Then
Var CameraState = "Invisible"
EndIf
If RoadShow = "true" Then
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
If RoadShow = "true" Then
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible"
EndIf
EndIf
If Timeout > 210 Then
@ -1228,6 +1339,7 @@
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
EndIf
@ -1292,10 +1404,6 @@
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
@ -1388,82 +1496,90 @@
DEBUGVAR scanresult
DEBUGVAR scanmsg
;If scanresult = "true" Then
; Var employeeCode = scanmsg
; Open "ROOT/taobin_project/inter/aus/xml/page_payment_employee_ping
;Else
;EndIf
If scanresult = "true" Then
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_AUS_QR.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
StrLen scanmsg textLen
If textLen = 8 Then
VendingQR ON
Var EMAMemberID = scanmsg
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
Var LOADING_STATE = "Enable"
Var EMAEnterNumberButtonState = "Disable"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
VendingQR ON
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AUB:2:"
Var ECommerceQR = ECommerceQR + EMAMemberID
Var ECommerceQR = ECommerceQR + "/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
Else
Var QR_POPUP = "/img_popup_ema_error.png"
Var EMAPopupErrorState = "Enable"
Var alphaState = "Enable"
Var LOADING_STATE = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var popup_cancel_button_y = 1225
EndIf
Else
Var scanmsg = "Please try agin"
EndIf
Var CameraState = "Invisible"
@ -1565,6 +1681,7 @@ If alphaState = "Invisible" Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8-AUS.png"
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Coin CARD
EndIf
EndIf
@ -1636,9 +1753,10 @@ EndIf
</Button>
<Button>
<X> 328 </X>
<X> 552 </X>
<Y> 1499 </Y>
<State> PayState3</State>
;<State> PayState3</State>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_qrcode.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_qrcode.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_qrcode.png" </FilenameDisable>
@ -1658,6 +1776,7 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
VendingQR ON
@ -1726,7 +1845,7 @@ EndIf
<Button>
<X> 552 </X>
<Y> 1499 </Y>
<State> "Invisible" </State>
<State> "Enable" </State>
<Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable>
@ -1738,7 +1857,7 @@ EndIf
</Button>
<Button>
<X> 552 </X>
<X> 328 </X>
<Y> 1499 </Y>
<State> PayState6 </State>
;<State> "Invisible" </State>
@ -1759,12 +1878,18 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAPopupErrorState = "Invisible"
Var scanresult = ""
Var scanmsg = ""
Var EMAMemberID = ""
INITSCANQR
Var CameraState = "Enable"
Var EMAEnterNumberButtonState = "Enable"
Var popup_cancel_button_y = 1390
Refresh
EndIf
@ -1878,19 +2003,92 @@ EndIf
</Image>
<CameraX>
<X> 50 </X>
<X> 120 </X>
<Y> 900 </Y>
<Name>"usbfront"</Name>
<Width> 1000 </Width>
<Height> 1000 </Height>
<Width> 850 </Width>
<Height> 800 </Height>
<State> CameraState </State>
</CameraX>
<Button>
<X> 398 </X>
<Y> 1275 </Y>
<State> EMAEnterNumberButtonState </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_ema_enter_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_ema_enter_code.png" </FilenamePress>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_ema_enter_code.png" </FilenamePress>
<EventClick>
Open "ROOT/taobin_project/inter/aus/xml/page_payment_with_ema.lxml"
</EventClick>
</Button>
<Text>
<X> 249 </X>
<Y> 1186 </Y>
<State> EMAPopupSuccessState </State>
<Width> 583 </Width>
<Font> KanitLightTTF </Font>
<Size> 40 </Size>
<Color> 0x513C2F </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberName </Value>
</Text>
<Text>
<X> 249 </X>
<Y> 1233 </Y>
<State> EMAPopupSuccessState </State>
<Width> 583 </Width>
<Font> KanitLightTTF </Font>
<Size> 40 </Size>
<Color> 0x513C2F </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberBalance </Value>
</Text>
<Button>
<X> 402 </X>
<Y> 1080 </Y>
<State> EMAPopupErrorState </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_try_again.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_try_again.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_try_again.png" </FilenameDisable>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAPopupErrorState = "Invisible"
Var scanresult = ""
Var scanmsg = ""
Var EMAMemberID = ""
INITSCANQR
Var CameraState = "Enable"
Var EMAEnterNumberButtonState = "Enable"
Var popup_cancel_button_y = 1390
Refresh
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<Y> popup_cancel_button_y </Y>
<State> PopupCancelButtonState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -1901,8 +2099,14 @@ EndIf
Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible"
Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupErrorState = "Invisible"
Var QRCODE99 = ""
Var EMAMemberID = ""
Var popup_cancel_button_y = 1345
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0