THAI: 3 dialects sound

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

View file

@ -18,6 +18,8 @@
DEBUGVAR ToppingNewShow
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
@ -450,8 +452,13 @@
If LanguageShow = "THAI" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
@ -460,12 +467,12 @@
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var show_eng = "true"
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
EndIf
Play PlaySoundLag
Var countDownRetrun = 120

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load diff

View file

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

View file

@ -98,16 +98,8 @@
Else
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3"
; 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 + "thankyou.wav"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = ThankyouSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag
@ -769,20 +761,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/next_drink.m4a"
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"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = NextDrinkSound[SoundCampaignIndex]
EndIf
PlayLong PlaySoundLag

View file

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

View file

@ -79,16 +79,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
; 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 + "taobin_sawade.wav"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag

View file

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

View file

@ -443,8 +443,8 @@
If CountryName = "Thailand" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/drinkfinish.m4a"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = DrinkFinishSound[SoundCampaignIndex]
EndIf
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"

View file

@ -188,20 +188,8 @@
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a"
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"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectPayMethodSound[SoundCampaignIndex]
EndIf
If CountryName = "HongKong" Then

View file

@ -4,9 +4,7 @@
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
@ -27,6 +25,9 @@
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var LoadingState = "Invisible"
Var ShowLoadingIn = 3
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
@ -130,6 +131,15 @@
EndIf
EndIf
If ReqAdddata22 = 1 Then
If ShowLoadingIn <= 0 Then
Var LoadingState = "Enable"
Refresh
Else
Var ShowLoadingIn = ShowLoadingIn - 1
EndIf
EndIf
If StateBGetSMS = "Disable" Then
Var TimeoutSMS = TimeoutSMS + 1
@ -185,7 +195,7 @@
Var VendingCreditRemain = "" + SumCreditAmount
Var LoadingState = "Invisible"
If useCreditTemp > 0 Then
Var Seeker.CurrCreditUse = useCreditTemp
@ -253,15 +263,12 @@
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
If ReqAdddata22 = 1 Then
Var LoadingState = "Invisible"
Var ReqAdddata22 = 0
EndIf
Refresh
</EventActionError>
@ -915,6 +922,22 @@
<Filename> Var( DirImage + "/text_show_sentSMS.png") </Filename>
</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"
@ -942,7 +965,9 @@
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ShowLoadingIn = 3
Var ReqAdddata22 = 1
Refresh
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml"

View file

@ -955,10 +955,8 @@
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
; Play Sound #zone
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/select_level.m4a"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectToppingSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag
@ -2147,11 +2145,8 @@
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3"
; Play Sound #zone
If LipitPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectToppingSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag

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

View file

@ -79,16 +79,8 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
; 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 + "taobin_sawade.wav"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag

View file

@ -63,14 +63,8 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
If SoundThaiIndex = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/north/taobin_sawade.wav"
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"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
EndIf
Play PlaySoundLag