pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

THAI: 3 dialects sound

Browse source
This commit is contained in:
Kenta420 2025-03-25 10:51:41 +07:00
parent 78afd9aaf3
commit 3156f29f5f
32 changed files with 1614 additions and 1356 deletions
Download patch file Download diff file Expand all files Collapse all files

207
inter/tha/xml/multi/page_catalog.lxml
View file

@ -18,6 +18,8 @@
DEBUGVAR ToppingNewShow DEBUGVAR ToppingNewShow
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
DEBUGVAR OpenFromPageBoard DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0 Var OpenFromPageBoard = 0
@ -44,16 +46,16 @@
Var web_telnumOK = "" Var web_telnumOK = ""
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/" Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
If CocktailShow = "true" Then If CocktailShow = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
EndIf EndIf
If TermTemOnline = "true" Then If TermTemOnline = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_tt_catalog.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_tt_catalog.xml"
EndIf EndIf
If Seeker = "curr" Then If Seeker = "curr" Then
Machine DoorLidClose Machine DoorLidClose
EndIf EndIf
@ -64,11 +66,11 @@
CoinVending OFF CoinVending OFF
; Clear value ; Clear value
Topping "clear" "-" Topping "clear" "-"
Var DirImage = "ROOT/taobin_project/image/page2_inter/" Var DirImage = "ROOT/taobin_project/image/page2_inter/"
Var StrawAutoRelease1 = "false" Var StrawAutoRelease1 = "false"
@ -98,7 +100,7 @@
;GenHashWithTimeStamp QRCODE99x ;GenHashWithTimeStamp QRCODE99x
WEB "ENABLE" WEB "ENABLE"
Else Else
Var ShowNetworkProblem = "Enable" Var ShowNetworkProblem = "Enable"
Var ShowButtonClick2 = "Invisible" Var ShowButtonClick2 = "Invisible"
@ -114,9 +116,9 @@
Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = "" Var ShowNetworkProblemText = ""
EndIf EndIf
; 1035 is Coke. ; 1035 is Coke.
STRCONTAIN "1035" MaterialAvailable CokeUI STRCONTAIN "1035" MaterialAvailable CokeUI
Var bnSodaAndOther = DirImage + "/bn_soda_coke.png" Var bnSodaAndOther = DirImage + "/bn_soda_coke.png"
Var bpSodaAndOther = DirImage + "/bp_soda_coke.png" Var bpSodaAndOther = DirImage + "/bp_soda_coke.png"
@ -131,8 +133,8 @@
Var QRCODE99_Y = 1718 Var QRCODE99_Y = 1718
Var showCart = "Invisible" Var showCart = "Invisible"
If MultiPayEnable = "true" Then If MultiPayEnable = "true" Then
If CART_COUNT = 1 Then If CART_COUNT = 1 Then
Var showCart = "Enable" Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart1.png" Var cart_image_bn = DirImageCart + "/bn_cart1.png"
@ -141,7 +143,7 @@
Var QRCODE99_Y = 1580 Var QRCODE99_Y = 1580
EndIf EndIf
If CART_COUNT = 2 Then If CART_COUNT = 2 Then
Var showCart = "Enable" Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart2.png" Var cart_image_bn = DirImageCart + "/bn_cart2.png"
@ -151,7 +153,7 @@
EndIf EndIf
If CART_COUNT = 3 Then If CART_COUNT = 3 Then
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
@ -169,10 +171,10 @@
If XMLProfile = "taobin_notopup" Then If XMLProfile = "taobin_notopup" Then
Var ButtontoTopupMenu = "Disable" Var ButtontoTopupMenu = "Disable"
EndIf EndIf
Var menu_name_eng_hot = "" Var menu_name_eng_hot = ""
Var menu_desc_eng_hot = "" Var menu_desc_eng_hot = ""
Var menu_name_thai_hot = "" Var menu_name_thai_hot = ""
@ -194,29 +196,29 @@
TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev" TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev"
If BoxID = 0 Then If BoxID = 0 Then
RebootWithCause "BoxID was zero" RebootWithCause "BoxID was zero"
EndIf EndIf
DEBUGVAR ShowButtonClick2 DEBUGVAR ShowButtonClick2
DEBUGVAR MenuKidButtonState DEBUGVAR MenuKidButtonState
DEBUGVAR New_Payment DEBUGVAR New_Payment
Var PromotionIDCurrentOrder = 0 Var PromotionIDCurrentOrder = 0
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"
Var ButtonLanguageCurrentXPosition = 1005 Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38 Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38 Var ButtonLanguageListYPosition = 450 - 38
Var SelectedMenu = "" Var SelectedMenu = ""
@ -232,7 +234,7 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;SAVELOG SoundPlaying ;SAVELOG SoundPlaying
@ -241,15 +243,15 @@
EndIf EndIf
If countDownRetrun = 0 Then If countDownRetrun = 0 Then
If Seeker = "next" Then If Seeker = "next" Then
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf EndIf
EndIf EndIf
; zone cup on arm ; zone cup on arm
If CupOnArm = "true" Then If CupOnArm = "true" Then
@ -280,7 +282,7 @@
DEBUGVAR Inst11MenuLoaded DEBUGVAR Inst11MenuLoaded
DEBUGVAR MultiProcessTimer DEBUGVAR MultiProcessTimer
If MultiProcess = "Enable" Then If MultiProcess = "Enable" Then
If SelectedMenu = "coffee" Then If SelectedMenu = "coffee" Then
@ -289,7 +291,7 @@
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 2 TabMenuVisibleInst 2
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
If MultiProcessTimer >= 20 Then If MultiProcessTimer >= 20 Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 2 TabMenuVisibleInst 2
@ -400,10 +402,10 @@
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventChangeStatus> <EventChangeStatus>
;If ChangeStatus = "payout-end" Then ;If ChangeStatus = "payout-end" Then
; Var ChangeOK = 1 ; Var ChangeOK = 1
;EndIf ;EndIf
</EventChangeStatus> </EventChangeStatus>
@ -416,15 +418,15 @@
Cart "DeleteMenuID" "ALL" Cart "DeleteMenuID" "ALL"
Var web_readyOK = web_ready Var web_readyOK = web_ready
Var web_telnumOK = web_telnum Var web_telnumOK = web_telnum
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
EndIf EndIf
Else Else
EndIf EndIf
</EventWebApp> </EventWebApp>
<Image> <Image>
@ -447,26 +449,31 @@
If LanguageShow = "MALAY" Then If LanguageShow = "MALAY" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MSC" Then
If LanguageShow = "MSC" Then
Var show_eng = "true" Var show_eng = "true"
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
EndIf EndIf
Play PlaySoundLag
Play PlaySoundLag
Var countDownRetrun = 120 Var countDownRetrun = 120
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
@ -484,10 +491,10 @@
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Seeker = "next" Then If Seeker = "next" Then
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf EndIf
@ -518,7 +525,7 @@
<FrameScroll> <FrameScroll>
<X> 1 </X> <X> 1 </X>
<Y> 844 </Y> <Y> 844 </Y>
<Width> 1080 </Width> <Width> 1080 </Width>
@ -543,7 +550,7 @@
Var ColumnGravity[1] = 2 Var ColumnGravity[1] = 2
Var ColumnGravity[2] = 2 Var ColumnGravity[2] = 2
Var ColumnGravity[3] = 2 Var ColumnGravity[3] = 2
</Script> </Script>
<Block> <Block>
<Width> 296 </Width> <Width> 296 </Width>
@ -557,15 +564,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var OpenFromMulti = 1 Var OpenFromMulti = 1
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide" RootLayoutVisible 13 "hide"
</EventClick> </EventClick>
<Language> <Language>
<ID> 000003 </ID> <ID> 000003 </ID>
@ -587,12 +594,12 @@
<FilenamePress> Var(DirImage + "/bp_coffee.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_coffee.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst5MenuLoaded = "done" Then If Inst5MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 2 TabMenuVisibleInst 2
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
@ -629,10 +636,10 @@
Else Else
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide" RootLayoutVisible 13 "hide"
; eng ; eng
Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml" Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml"
@ -658,17 +665,17 @@
<FilenamePress> Var(DirImage + "/bp_tea.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_tea.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst6MenuLoaded = "done" Then If Inst6MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 3 TabMenuVisibleInst 3
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "tea" Var SelectedMenu = "tea"
EndIf EndIf
</EventClick> </EventClick>
@ -692,17 +699,17 @@
<FilenamePress> Var(DirImage + "/bp_cho_caramel.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_cho_caramel.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst7MenuLoaded = "done" Then If Inst7MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 4 TabMenuVisibleInst 4
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "caramel" Var SelectedMenu = "caramel"
EndIf EndIf
</EventClick> </EventClick>
<Language> <Language>
@ -726,17 +733,17 @@
<FilenamePress> bpSodaAndOther </FilenamePress> <FilenamePress> bpSodaAndOther </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst11MenuLoaded = "done" Then If Inst11MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 7 TabMenuVisibleInst 7
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "soda" Var SelectedMenu = "soda"
EndIf EndIf
</EventClick> </EventClick>
<Language> <Language>
@ -760,17 +767,17 @@
<FilenamePress> Var(DirImage + "/bp_Pepsi_7up.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_Pepsi_7up.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst10MenuLoaded = "done" Then If Inst10MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 8 TabMenuVisibleInst 8
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "pepsi" Var SelectedMenu = "pepsi"
EndIf EndIf
</EventClick> </EventClick>
@ -797,17 +804,17 @@
<FilenamePress> Var(DirImage + "/bn_kidmenu.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bn_kidmenu.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst8MenuLoaded = "done" Then If Inst8MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 5 TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "kidmenu" Var SelectedMenu = "kidmenu"
EndIf EndIf
</EventClick> </EventClick>
<Language> <Language>
@ -831,16 +838,16 @@
<FilenamePress> Var(DirImage + "/bp_appfast.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_appfast.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst8MenuLoaded = "done" Then If Inst8MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 5 TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "appfast" Var SelectedMenu = "appfast"
EndIf EndIf
</EventClick> </EventClick>
@ -865,7 +872,7 @@
<FilenamePress> Var(DirImage + "/bp_protein.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_protein.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
TabMenuVisibleInst 5 TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
@ -891,17 +898,17 @@
<FilenamePress> Var(DirImage + "/bp_HealthyOption.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_HealthyOption.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Inst9MenuLoaded = "done" Then If Inst9MenuLoaded = "done" Then
Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
TabMenuVisibleInst 6 TabMenuVisibleInst 6
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else Else
Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
Var MultiProcess = "Enable" Var MultiProcess = "Enable"
Var SelectedMenu = "healthy" Var SelectedMenu = "healthy"
EndIf EndIf
</EventClick> </EventClick>
@ -927,11 +934,11 @@
<FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress> <FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; eng ; eng
Var CheckMemberPage = "ROOT/taobin_project/xml/page_before_check_member.xml" Var CheckMemberPage = "ROOT/taobin_project/xml/page_before_check_member.xml"
Open CheckMemberPage Open CheckMemberPage
</EventClick> </EventClick>
<Language> <Language>
@ -952,11 +959,11 @@
<FilenameDisable> Var(DirImage + "/bp_main_page_topup.png") </FilenameDisable> <FilenameDisable> Var(DirImage + "/bp_main_page_topup.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; eng ; eng
Var PayDetail="" Var PayDetail=""
Open "ROOT/taobin_project/xml/page_back_to_topup.xml" Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
</EventClick> </EventClick>
<Language> <Language>
<ID> 002004 </ID> <ID> 002004 </ID>
@ -974,10 +981,10 @@
<Color> "0xFF0000" </Color> <Color> "0xFF0000" </Color>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 60 </Height> <Height> 60 </Height>
<EventClick> <EventClick>
Open "ROOT/taobin_project/xml/page_camera.xml" Open "ROOT/taobin_project/xml/page_camera.xml"
</EventClick> </EventClick>
</Button> </Button>
@ -1001,7 +1008,7 @@
Var web_readyOK = web_ready Var web_readyOK = web_ready
Var web_telnumOK = web_telnum Var web_telnumOK = web_telnum
Var web_app_prepar = "true" Var web_app_prepar = "true"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
@ -1009,7 +1016,7 @@
EndIf EndIf
Else Else
EndIf EndIf
</EventWebApp> </EventWebApp>
@ -1043,12 +1050,12 @@
<Height> 100 </Height> <Height> 100 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var ClickCountMainTe = ClickCountMainTe + 1 Var ClickCountMainTe = ClickCountMainTe + 1
DEBUGVAR ClickCountMainTe DEBUGVAR ClickCountMainTe
If ClickCountMainTe = 2 Then If ClickCountMainTe = 2 Then
Var OpenRouteManTest = 1 Var OpenRouteManTest = 1
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ClickCountMainTe = 0 Var ClickCountMainTe = 0
@ -1073,7 +1080,7 @@
Var bg_lidProblem_ST = "Invisible" Var bg_lidProblem_ST = "Invisible"
Var GetLidButtonState2 = "Enable" Var GetLidButtonState2 = "Enable"
Var bg_lidProblem_ST2 ="Invisible" Var bg_lidProblem_ST2 ="Invisible"
Var EnableGetMoreStrawFileName2 = "Enable" Var EnableGetMoreStrawFileName2 = "Enable"
Var bg_strawProblem_ST2 ="Invisible" Var bg_strawProblem_ST2 ="Invisible"
</EventUnitTest1> </EventUnitTest1>
@ -1083,7 +1090,7 @@
Var bg_lidProblem_ST = "Enable" Var bg_lidProblem_ST = "Enable"
Var GetLidButtonState2 = "Invisible" Var GetLidButtonState2 = "Invisible"
Var bg_lidProblem_ST2 ="Enable" Var bg_lidProblem_ST2 ="Enable"
Var XStraw = 376 Var XStraw = 376
Var EnableGetMoreStrawFileName2 = "Invisible" Var EnableGetMoreStrawFileName2 = "Invisible"
Var bg_strawProblem_ST2 ="Enable" Var bg_strawProblem_ST2 ="Enable"
@ -1096,7 +1103,7 @@
Var CountDownBrewing = 122 Var CountDownBrewing = 122
Var MachineStage = "testing" Var MachineStage = "testing"
Var BREW_CNT = 122 Var BREW_CNT = 122
Var InternationalEnable = 1 Var InternationalEnable = 1
DEBUGVAR InternationalEnable DEBUGVAR InternationalEnable
Var LanguageObjectShow = "Enable" Var LanguageObjectShow = "Enable"

BIN
sound_thai/songkran/north/drink_finish.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/north/greeting.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/north/next_drink.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/north/select_pay_method.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/north/select_topping.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/north/thankyou.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/drink_finish.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/greeting.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/next_drink.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/select_pay_method.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/select_topping.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/northeast/thankyou.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/drink_finish.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/greeting.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/next_drink.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/select_pay_method.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/select_topping.wav Normal file
View file

Binary file not shown.

BIN
sound_thai/songkran/south/thankyou.wav Normal file
View file

Binary file not shown.

2328
xml/event/promotion_matcha_every_day.xml
View file

File diff suppressed because it is too large Load diff

7
xml/event/tricker.ev
View file

@ -74,6 +74,10 @@ Var MatchaEveryDayPro = 0
; Kingdom of Thai tea, 1 Apr - 30 Apr ; Kingdom of Thai tea, 1 Apr - 30 Apr
Var KingdomThaiTeaPro = 0 Var KingdomThaiTeaPro = 0
; 3 dialects sound campaign, 1 Apr - 30 Apr
Var SongkranSoundCampaign = 0
Var NewCollectPoint = 1 Var NewCollectPoint = 1
Var PaymentCodeShouldCollectPromotionPoint = 0 Var PaymentCodeShouldCollectPromotionPoint = 0
@ -137,6 +141,8 @@ If SystemDateMonthInt = 4 Then
If SystemDateDayInt < 7 Then If SystemDateDayInt < 7 Then
Var AdvertisePepsiAtTheSun = 1 Var AdvertisePepsiAtTheSun = 1
EndIf EndIf
Var KingdomThaiTeaPro = 1
Var SongkranSoundCampaign = 1
EndIf EndIf
If SystemDateMonthInt = 3 Then If SystemDateMonthInt = 3 Then
If SystemDateDayInt = 31 Then If SystemDateDayInt = 31 Then
@ -147,6 +153,7 @@ EndIf
If SystemDateMonthInt = 4 Then If SystemDateMonthInt = 4 Then
Var KingdomThaiTeaPro = 1 Var KingdomThaiTeaPro = 1
Var SongkranSoundCampaign = 1
EndIf EndIf

28
xml/page_NewBrewing3.xml
View file

@ -98,16 +98,8 @@
Else Else
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3"
; Play Sound #zone If SongkranSoundCampaign = 1 Then
If SoundBackToSchoolEnable = 1 Then Var PlaySoundLag = ThankyouSound[SoundCampaignIndex]
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "thankyou.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag
@ -769,20 +761,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
If FromJemilaPro = 1 Then If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a" Var PlaySoundLag = NextDrinkSound[SoundCampaignIndex]
EndIf
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "next_drink.wav"
EndIf EndIf
PlayLong PlaySoundLag PlayLong PlaySoundLag

2
xml/page_catalog.xml
View file

@ -12,6 +12,8 @@
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf EndIf
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
If CatalogLayoutV3 = 1 Then If CatalogLayoutV3 = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/v3/open_catalog.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/v3/open_catalog.ev"
Else Else

12
xml/page_catalog3.xml
View file

@ -79,16 +79,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
; Play Sound #zone If SongkranSoundCampaign = 1 Then
If SoundBackToSchoolEnable = 1 Then Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "taobin_sawade.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag

12
xml/page_catalog_with_vending.xml
View file

@ -14,6 +14,8 @@
Var MenuHealthyEnable = "Disable" Var MenuHealthyEnable = "Disable"
EndIf EndIf
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
If Seeker = "next" Then If Seeker = "next" Then
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf EndIf
@ -63,14 +65,8 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
If SoundThaiIndex = 1 Then If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/north/taobin_sawade.wav" Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
If SoundThaiIndex = 2 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/northeast/taobin_sawade.wav"
EndIf
If SoundThaiIndex = 3 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/south/taobin_sawade.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag

32
xml/page_drinkok.xml
View file

@ -28,7 +28,7 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2" Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr" Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf EndIf
@ -72,15 +72,15 @@
Var DirImage = "ROOT/taobin_project/image/complete/" Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/complete_mmr/" Var DirImage = "ROOT/taobin_project/image/complete_mmr/"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_msc/" Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_msc/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_mtc/" Var DirImage = "ROOT/taobin_project/inter/hkg/image/complete_mtc/"
EndIf EndIf
@ -142,7 +142,7 @@
If show_eng = "true" Then If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png" Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png" Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png"
Else Else
@ -278,10 +278,10 @@
Var TextDoorJamStage = "Invisible" Var TextDoorJamStage = "Invisible"
Var CountUpDoorJamAlert = 0 Var CountUpDoorJamAlert = 0
Var BlinkUpDoorJamAlert = 0 Var BlinkUpDoorJamAlert = 0
Var EnableDoorJamAlert = 0 Var EnableDoorJamAlert = 0
</EventOpen> </EventOpen>
<Timeout> 500 </Timeout> <Timeout> 500 </Timeout>
<EventTimeout> <EventTimeout>
@ -443,8 +443,8 @@
If CountryName = "Thailand" Then If CountryName = "Thailand" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
If FromJemilaPro = 1 Then If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a" Var PlaySoundLag = DrinkFinishSound[SoundCampaignIndex]
EndIf EndIf
Else Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"
@ -484,9 +484,9 @@
EndIf EndIf
If EnableDoorJamAlert = 1 Then If EnableDoorJamAlert = 1 Then
Var BlinkUpDoorJamAlert = BlinkUpDoorJamAlert + 1 Var BlinkUpDoorJamAlert = BlinkUpDoorJamAlert + 1
If DOOR_CUP_OPEN_ERROR = "true" Then If DOOR_CUP_OPEN_ERROR = "true" Then
Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1 Var CountUpDoorJamAlert = CountUpDoorJamAlert + 1
@ -499,13 +499,13 @@
EndIf EndIf
If CountUpDoorJamAlert > 8 Then If CountUpDoorJamAlert > 8 Then
DEBUGVAR DOOR_CUP_OPEN_ERROR DEBUGVAR DOOR_CUP_OPEN_ERROR
DEBUGVAR DOOR_CUP_CLOSE_ERROR DEBUGVAR DOOR_CUP_CLOSE_ERROR
Var TextBottomShow = "Invisible" Var TextBottomShow = "Invisible"
;Var TextDoorJamStage = "Enable" ;Var TextDoorJamStage = "Enable"
If BlinkUpDoorJamAlert > 1 Then If BlinkUpDoorJamAlert > 1 Then
Var TextDoorJamStage = "Enable" Var TextDoorJamStage = "Enable"
Var BlinkUpDoorJamAlert = 0 Var BlinkUpDoorJamAlert = 0
@ -520,7 +520,7 @@
Var TextBottomShow = "Enable" Var TextBottomShow = "Enable"
Var TextDoorJamStage = "Invisible" Var TextDoorJamStage = "Invisible"
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then
Var TextDoorJamString = " Door Error. " Var TextDoorJamString = " Door Error. "
Else Else

16
xml/page_payment.xml
View file

@ -188,20 +188,8 @@
Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
If FromJemilaPro = 1 Then If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a" Var PlaySoundLag = SelectPayMethodSound[SoundCampaignIndex]
EndIf
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "payment.wav"
EndIf EndIf
If CountryName = "HongKong" Then If CountryName = "HongKong" Then

231
xml/page_payment_credit2.xml
View file

@ -4,9 +4,7 @@
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
<Background> "0xeae6e1" </Background> <Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen> <EventOpen>
; On open ; On open
@ -18,8 +16,8 @@
Var Timeout = 0 Var Timeout = 0
Var TimeoutSMS = 0 Var TimeoutSMS = 0
Var StateBGetSMS = "Enable" Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible" Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible" Var ShowTextNumber1 = "Invisible"
@ -27,6 +25,9 @@
Var ShowTextNumber3 = "Invisible" Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible" Var ShowTextNumber4 = "Invisible"
Var LoadingState = "Invisible"
Var ShowLoadingIn = 3
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
@ -37,15 +38,15 @@
Var Xtext = 246 Var Xtext = 246
Var Ytext_16 = 699 Var Ytext_16 = 699
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246 Var Xtext = 246
Else Else
Var DirImage = "ROOT/taobin_project/image/collectiing" Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
Var Ytext_16 = 640 Var Ytext_16 = 640
EndIf EndIf
@ -55,7 +56,7 @@
Var ReqAdddata22 = 0 Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0 Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm GenHashWithTimeStamp PointCrm
If AcceptAuto = "true" Then If AcceptAuto = "true" Then
Var AcceptAuto = "false" Var AcceptAuto = "false"
@ -66,7 +67,7 @@
Var ShowTextNumber2= "Enable" Var ShowTextNumber2= "Enable"
Var ShowTextNumber3= "Enable" Var ShowTextNumber3= "Enable"
Var ShowTextNumber4= "Enable" Var ShowTextNumber4= "Enable"
Var PinNumber = web_pin Var PinNumber = web_pin
Var TelephoneNumber = web_telnum Var TelephoneNumber = web_telnum
@ -74,9 +75,9 @@
Var SumCreditAmount = CoffeeCredit Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmountSubDiscount Then If SumCreditAmount >= PayAmountSubDiscount Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
Var useCreditAmount = PayAmountSubDiscount Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount
Var GetScore = "useCredit" Var GetScore = "useCredit"
@ -84,9 +85,9 @@
Var ReqAdddata22 = 1 Var ReqAdddata22 = 1
EndIf EndIf
Else Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml" Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf EndIf
Else Else
@ -102,7 +103,7 @@
Else Else
If show_eng = "true" Then If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_4_digits_pin.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_4_digits_pin.mp3"
Else Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_4_digits_pin.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_4_digits_pin.mp3"
@ -110,12 +111,12 @@
EndIf EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;Open "ROOT/xml/page_board.xml" ;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
@ -123,10 +124,19 @@
Var PayState2 = "Enable" Var PayState2 = "Enable"
Var QRChannel = 0 Var QRChannel = 0
;Var Seeker.CodeChannel = 0 ;Var Seeker.CodeChannel = 0
If CART_COUNT >= 1 Then If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml" Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
If ReqAdddata22 = 1 Then
If ShowLoadingIn <= 0 Then
Var LoadingState = "Enable"
Refresh
Else
Var ShowLoadingIn = ShowLoadingIn - 1
EndIf EndIf
EndIf EndIf
@ -145,10 +155,10 @@
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventIDCard> <EventIDCard>
@ -164,11 +174,11 @@
<EventActionOk> <EventActionOk>
If ReqFlag = 0 Then
If ReqAdddata22 = 1 Then If ReqFlag = 0 Then
If ReqAdddata22 = 1 Then
Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
@ -185,25 +195,25 @@
Var VendingCreditRemain = "" + SumCreditAmount Var VendingCreditRemain = "" + SumCreditAmount
Var LoadingState = "Invisible"
If useCreditTemp > 0 Then If useCreditTemp > 0 Then
Var Seeker.CurrCreditUse = useCreditTemp Var Seeker.CurrCreditUse = useCreditTemp
EndIf EndIf
If CART_COUNT >= 1 Then If CART_COUNT >= 1 Then
Cart "PreparID" 1 Cart "PreparID" 1
Var CART_INDEX = 1 Var CART_INDEX = 1
Var PayReference = "" Var PayReference = ""
GenHashWithTimeStamp PayReference GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml" Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else Else
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
If New_Payment = 1 Then If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
@ -218,21 +228,21 @@
Var DrinkPaid = SelectDrink Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1 Var PaidPaymentFromNextStage = 1
EndIf EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml" Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf EndIf
Var ReqAdddata22 = 0 Var ReqAdddata22 = 0
EndIf EndIf
;If Ext1a = "ok" Then ;If Ext1a = "ok" Then
; If Ext1c = "" Then ; If Ext1c = "" Then
; ;
; Open "ROOT/taobin_project/xml/page_payment_credit3.xml" ; Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
; Else ; Else
; EndIf ; EndIf
@ -253,15 +263,12 @@
<EventActionError> <EventActionError>
Var ShowErrorText = "Enable" Var ShowErrorText = "Enable"
Refresh
If ReqAdddata22 = 1 Then If ReqAdddata22 = 1 Then
Var LoadingState = "Invisible"
Var ReqAdddata22 = 0 Var ReqAdddata22 = 0
EndIf EndIf
Refresh
</EventActionError> </EventActionError>
@ -287,14 +294,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "1" Var PinNumber = PinNumber + "1"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -332,14 +339,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "2" Var PinNumber = PinNumber + "2"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -376,14 +383,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "3" Var PinNumber = PinNumber + "3"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -420,14 +427,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "4" Var PinNumber = PinNumber + "4"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -464,14 +471,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "5" Var PinNumber = PinNumber + "5"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -508,14 +515,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "6" Var PinNumber = PinNumber + "6"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -552,14 +559,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "7" Var PinNumber = PinNumber + "7"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -596,14 +603,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "8" Var PinNumber = PinNumber + "8"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -640,14 +647,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "9" Var PinNumber = PinNumber + "9"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
@ -687,14 +694,14 @@
<FilenamePress> Var( DirImage + "/bp_getPin.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bp_getPin.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Var ShowSentSmsText = "Enable" Var ShowSentSmsText = "Enable"
Var StateBGetSMS = "Disable" Var StateBGetSMS = "Disable"
Var BmiYear = "" Var BmiYear = ""
Var PointCrm1 = "" Var PointCrm1 = ""
@ -709,10 +716,10 @@
Var PinNumber = "" Var PinNumber = ""
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ReqFlag = 1 Var ReqFlag = 1
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
@ -725,18 +732,18 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var PinNumber = PinNumber + "0" Var PinNumber = PinNumber + "0"
Trim PinNumber 4 Trim PinNumber 4
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable" ;Var Tel_Confirm_State = "Enable"
Function 2 Function 2
EndIf EndIf
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then If TelNumLen > 0 Then
@ -771,14 +778,14 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Trim PinNumber -1 Trim PinNumber -1
;Var Tel_Confirm_State = "Invisible" ;Var Tel_Confirm_State = "Invisible"
StrLen PinNumber TelNumLen StrLen PinNumber TelNumLen
If TelNumLen = 0 Then If TelNumLen = 0 Then
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
EndIf EndIf
@ -808,7 +815,7 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -820,15 +827,15 @@
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
DEBUGVAR "USER BN_BACK" DEBUGVAR "USER BN_BACK"
If ReqAdddata22 = 1 Then If ReqAdddata22 = 1 Then
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount
Var GetScore = "useCredit" Var GetScore = "useCredit"
AddData 24 TelephoneNumber BmiYear PointCrm GetScore AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf EndIf
Open "ROOT/taobin_project/xml/page_payment_credit.xml" Open "ROOT/taobin_project/xml/page_payment_credit.xml"
</EventClick> </EventClick>
</Button> </Button>
@ -843,7 +850,7 @@
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
</EventClick> </EventClick>
</Button> </Button>
@ -891,7 +898,7 @@
<Image> <Image>
<X> 188 </X> <X> 188 </X>
@ -915,13 +922,29 @@
<Filename> Var( DirImage + "/text_show_sentSMS.png") </Filename> <Filename> Var( DirImage + "/text_show_sentSMS.png") </Filename>
</Image> </Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<State> LoadingState </State>
<Filename> "ROOT/taobin_project/image/collectiing/alpha_loading.png" </Filename>
</Image>
<GIF>
<X> 494 </X>
<Y> 1078 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LoadingState </State>
<Filename> "ROOT/taobin_project/image/page_payment/loading.gif" </Filename>
</GIF>
;include="ROOT/taobin_project/inc/video.inc" ;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity> <EventSecurity>
Open "/media/bt/xml/security_alarm.xml" Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
@ -933,25 +956,27 @@
If PinNumberUser = PinNumber Then If PinNumberUser = PinNumber Then
Var SumCreditAmount = CoffeeCredit Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmountSubDiscount Then
If SumCreditAmount >= PayAmountSubDiscount Then
If SumCreditAmount >= 100 Then If SumCreditAmount >= 100 Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
Var useCreditAmount = PayAmountSubDiscount Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount
Var GetScore = "useCredit" Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ShowLoadingIn = 3
Var ReqAdddata22 = 1 Var ReqAdddata22 = 1
Refresh
EndIf EndIf
Else Else
Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml" Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml"
EndIf EndIf
Else Else
Var ShowNotEnoughText = "Enable" Var ShowNotEnoughText = "Enable"
Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber Var Seeker.CoffeePinNumber = PinNumber
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
EndIf EndIf
Else Else
@ -976,9 +1001,9 @@
Var SumCreditAmount = CoffeeCredit Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmountSubDiscount Then If SumCreditAmount >= PayAmountSubDiscount Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
;If Seeker = "next" Then ;If Seeker = "next" Then
; Var Curr = "curr" ; Var Curr = "curr"
@ -994,9 +1019,9 @@
Var ReqAdddata22 = 1 Var ReqAdddata22 = 1
EndIf EndIf
Else Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml" Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf EndIf
Else Else

33
xml/page_topping_select7.xml
View file

@ -512,7 +512,7 @@
DEBUGVAR $12-02-03-0043.Name DEBUGVAR $12-02-03-0043.Name
DEBUGVAR $12-02-03-0043.NameE DEBUGVAR $12-02-03-0043.NameE
If show_eng = "true" Then If show_eng = "true" Then
Var showname = NameDrink Var showname = NameDrink
Var showdesc = DrinkDescription Var showdesc = DrinkDescription
@ -527,7 +527,7 @@
CRLFToSpace showdesc CRLFToSpace showdesc
DEBUGVAR showname DEBUGVAR showname
DEBUGVAR showdesc DEBUGVAR showdesc
Strlen showname show_name_len Strlen showname show_name_len
@ -606,8 +606,8 @@
EndIf EndIf
EndIf EndIf
If Seeker = "next" Then If Seeker = "next" Then
If CupRemain > 0 Then If CupRemain > 0 Then
@ -651,7 +651,7 @@
If FromEnergyDrink1BathPro = 1 Then If FromEnergyDrink1BathPro = 1 Then
Open "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_consent.xml" Open "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_consent.xml"
EndIf EndIf
If Only18 = "true" Then If Only18 = "true" Then
DEBUGVAR SelectDrink DEBUGVAR SelectDrink
MenuProfile SelectDrink "IsMenuInProfile" MenuProfile SelectDrink "IsMenuInProfile"
@ -808,7 +808,7 @@
EndIf EndIf
If MenuReason = "-" Then If MenuReason = "-" Then
Else Else
@ -955,10 +955,8 @@
Else Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
; Play Sound #zone If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectToppingSound[SoundCampaignIndex]
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/select_level.m4a"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag
@ -1200,7 +1198,7 @@
EndIf EndIf
Var CollagenState = "Enable" Var CollagenState = "Enable"
If JemilaToppingFreeFlag = 1 Then If JemilaToppingFreeFlag = 1 Then
Var CollagenToppingBg = "/bg_top_jemila_free.png" Var CollagenToppingBg = "/bg_top_jemila_free.png"
Var CollagenToppingPrice = 0 Var CollagenToppingPrice = 0
@ -1218,7 +1216,7 @@
Var CollagenState = "Invisible" Var CollagenState = "Invisible"
Var ShowCollagenOnly = "Invisible" Var ShowCollagenOnly = "Invisible"
EndIf EndIf
EndIf EndIf
DEBUGVAR CollagenState DEBUGVAR CollagenState
@ -2147,11 +2145,8 @@
Else Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
; Play Sound #zone If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectToppingSound[SoundCampaignIndex]
If LipitPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag
@ -7981,7 +7976,7 @@
CRLFToSpace showdesc CRLFToSpace showdesc
DEBUGVAR showname DEBUGVAR showname
DEBUGVAR showdesc DEBUGVAR showdesc
Strlen showname show_name_len Strlen showname show_name_len
If show_eng = "true" Then If show_eng = "true" Then
@ -7998,7 +7993,7 @@
Var Timeout = 0 Var Timeout = 0
DEBUGVAR show_eng DEBUGVAR show_eng
RefreshAll RefreshAll

40
xml/sometime/campaign_sound.ev Normal file
View file

@ -0,0 +1,40 @@
If SongkranSoundCampaign = 1 Then
; 0 north, 1 south, 3 northeast
Var GreetingSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/greeting.wav"
Var GreetingSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/greeting.wav"
Var GreetingSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/greeting.wav"
Var SelectToppingSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/select_topping.wav"
Var SelectToppingSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/select_topping.wav"
Var SelectToppingSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/select_topping.wav"
Var SelectPayMethodSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/select_pay_method.wav"
Var SelectPayMethodSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/select_pay_method.wav"
Var SelectPayMethodSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/select_pay_method.wav"
Var ThankyouSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/thankyou.wav"
Var ThankyouSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/thankyou.wav"
Var ThankyouSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/thankyou.wav"
Var NextDrinkSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/next_drink.wav"
Var NextDrinkSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/next_drink.wav"
Var NextDrinkSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/next_drink.wav"
Var DrinkFinishSound[0] = "ROOT/taobin_project/sound_thai/songkran/north/drink_finish.wav"
Var DrinkFinishSound[1] = "ROOT/taobin_project/sound_thai/songkran/south/drink_finish.wav"
Var DrinkFinishSound[2] = "ROOT/taobin_project/sound_thai/songkran/northeast/drink_finish.wav"
If SoundCampaignIndex = "" Then
Var SoundCampaignIndex = 0
Else
Var SoundCampaignIndex = SoundCampaignIndex + 1
If SoundCampaignIndex > 2 Then
Var SoundCampaignIndex = 0
EndIf
EndIf
EndIf

12
xml/v3/page_catalog3.xml
View file

@ -79,16 +79,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
; Play Sound #zone If SongkranSoundCampaign = 1 Then
If SoundBackToSchoolEnable = 1 Then Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "taobin_sawade.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag

10
xml/v3/page_catalog_with_vending.xml
View file

@ -63,14 +63,8 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
If SoundThaiIndex = 1 Then If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/north/taobin_sawade.wav" Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
If SoundThaiIndex = 2 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/northeast/taobin_sawade.wav"
EndIf
If SoundThaiIndex = 3 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/south/taobin_sawade.wav"
EndIf EndIf
Play PlaySoundLag Play PlaySoundLag