THAI INTER : New lang for xml, New condition new lang, Add Image

This commit is contained in:
Ittipat Lusuk 2025-03-26 17:41:24 +07:00
parent 1e8450e91f
commit 7e0ede3946
183 changed files with 2075 additions and 155 deletions

View file

@ -24,10 +24,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_msc"
EndIf
Var CurrentAlertName = AlertProductName[LanguageShowByIndex]
Var CurrentAlertProductCode = ""
@ -496,10 +501,15 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"

View file

@ -63,6 +63,7 @@
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
EndIf
@ -136,6 +137,7 @@
Var XStraw = 142
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
@ -162,8 +164,6 @@
EndIf
If LanguageShow = "MSC" Then
;for test
Var IMG_CNT = DirImageDoing + "/img2_en.png"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
@ -243,8 +243,13 @@
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
If CountryName = "HongKong" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
EndIf
EndIf

View file

@ -19,14 +19,20 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
If CountryName = "HongKong" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
EndIf
EndIf
If LanguageObjectShow = "Enable" Then

View file

@ -34,11 +34,16 @@
;EndIf
;EndIf
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -52,6 +57,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
Var text = "Manage your Tao Bin account"
@ -68,6 +74,11 @@
Var text = "သင်၏ Tao Bin အကောင့်ကို စီမံခန့်ခွဲပါ။"
Var Extension = "_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var text = "管理您的 Tao Bin 账户"
Var Extension = "_msc.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"

View file

@ -1229,7 +1229,7 @@
Var MyanmarLangEnable = "true"
Var CatalogLayoutV3 = 1
Var CatalogLayoutV3 = 0
; test payment
Var New_Payment = 1
@ -1255,9 +1255,7 @@
EnableLanguage "ENG"
EnableLanguage "THAI"
EnableLanguage "MYANMAR"
;EnableLanguage "MSC"
EnableLanguage "MSC"
SetLanguage "THAI"
LanguageControl "UpdateList" "-"

View file

@ -341,7 +341,7 @@
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_en"
EndIf

View file

@ -37,6 +37,7 @@
;Var PayCredit = 0
;inter-image
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
@ -53,6 +54,11 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_msc"
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"

View file

@ -31,12 +31,16 @@
EndIf
EndIf
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -202,6 +206,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
;Var CheckMemberTitle = CheckMemberTitleEN
@ -231,6 +236,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then

View file

@ -51,10 +51,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""

View file

@ -23,11 +23,16 @@
Var Timeout = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -193,6 +198,16 @@
Var text5Img = "/text5.png"
;inter-image
If LanguageShow = "MSC" Then
Var text5Img = "/text5-MSC.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var text5Img = "/text5-MMR.png"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var text5Img = "/text5-MYR.png"
@ -224,6 +239,7 @@
Var text5Img = "/text5.png"
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -1348,6 +1364,381 @@
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
Var text5Img = "/text5-MSC.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "升级至飞行乌龟!"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "飞行乌龟 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "晋级至龟中大师"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "龟中大师 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
If CouponIDA = "" Then
Else
Var CouponSTA = "Enable"
Var CouponExireA_D = ""
Var CouponExireA_M = ""
Var CouponExireA_Y = ""
Var CouponTypeA = ""
Var CouponNameA = ""
SPLIT CouponInfoA "/" 2 CouponTypeA
SPLIT CouponInfoA "/" 4 CouponExireA_D
SPLIT CouponInfoA "/" 5 CouponExireA_M
SPLIT CouponInfoA "/" 6 CouponExireA_Y
If CouponTypeA = "100" Then
Var CouponNameA = "/imgCouponC33.png"
EndIf
If CouponTypeA = "101" Then
Var CouponNameA = "/imgCouponC44.png"
EndIf
If CouponTypeA = "102" Then
Var CouponNameA = "/imgCouponC39.png"
EndIf
If CouponTypeA = "103" Then
Var CouponNameA = "/imgCouponC40.png"
EndIf
If CouponTypeA = "105" Then
Var CouponNameA = "/imgCouponC38.png"
EndIf
If CouponTypeA = "106" Then
Var CouponNameA = "/imgCouponC41.png"
EndIf
If CouponTypeA = "107" Then
Var CouponNameA = "/imgCouponC42.png"
EndIf
If CouponTypeA = "109" Then
Var CouponNameA = "/imgCouponC33.png"
EndIf
If CouponTypeA = "112" Then
Var CouponNameA = "/imgCoupon112.png"
EndIf
If CouponTypeA = "113" Then
Var CouponNameA = "/imgCoupon113.png"
EndIf
If CouponTypeA = "120" Then
Var CouponNameA = "/imgCoupon120.png"
EndIf
If CouponTypeA = "121" Then
Var CouponNameA = "/imgCoupon121.png"
EndIf
If CouponTypeA = "135" Then
Var CouponNameA = "/imgCouponMKP1.png"
EndIf
INT CouponExireA_D
INT CouponExireA_Y
Var CouponExireA_Y = CouponExireA_Y + 0
If CouponExireA_M = "01" Then
Var CouponExireA_M = "一月"
EndIf
If CouponExireA_M = "02" Then
Var CouponExireA_M = "二月"
EndIf
If CouponExireA_M = "03" Then
Var CouponExireA_M = "三月"
EndIf
If CouponExireA_M = "04" Then
Var CouponExireA_M = "四月"
EndIf
If CouponExireA_M = "05" Then
Var CouponExireA_M = "五月"
EndIf
If CouponExireA_M = "06" Then
Var CouponExireA_M = "六月"
EndIf
If CouponExireA_M = "07" Then
Var CouponExireA_M = "七月"
EndIf
If CouponExireA_M = "08" Then
Var CouponExireA_M = "八月"
EndIf
If CouponExireA_M = "09" Then
Var CouponExireA_M = "九月"
EndIf
If CouponExireA_M = "10" Then
Var CouponExireA_M = "十月"
EndIf
If CouponExireA_M = "11" Then
Var CouponExireA_M = "十一月"
EndIf
If CouponExireA_M = "12" Then
Var CouponExireA_M = "十二月"
EndIf
Var CouponExpireA = ""
Var CouponExpireA = CouponExpireA + CouponExireA_D
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_M
Var CouponExpireA = CouponExpireA + " "
Var CouponExpireA = CouponExpireA + CouponExireA_Y
Var CouponExpireA = CouponExpireA + " 天后过期"
Var CouponExpireAPosittion = 1375
EndIf
If CouponIDB = "" Then
Else
Var CouponSTB = "Enable"
Var CouponExireB_D = ""
Var CouponExireB_M = ""
Var CouponExireB_Y = ""
Var CouponTypeB = ""
Var CouponNameB = ""
SPLIT CouponInfoB "/" 2 CouponTypeB
SPLIT CouponInfoB "/" 4 CouponExireB_D
SPLIT CouponInfoB "/" 5 CouponExireB_M
SPLIT CouponInfoB "/" 6 CouponExireB_Y
If CouponTypeB = "100" Then
Var CouponNameB = "/imgCouponC33.png"
EndIf
If CouponTypeB = "101" Then
Var CouponNameB = "/imgCouponC44.png"
EndIf
If CouponTypeB = "102" Then
Var CouponNameB = "/imgCouponC39.png"
EndIf
If CouponTypeB = "103" Then
Var CouponNameB = "/imgCouponC40.png"
EndIf
If CouponTypeB = "105" Then
Var CouponNameB = "/imgCouponC38.png"
EndIf
If CouponTypeB = "106" Then
Var CouponNameB = "/imgCouponC41.png"
EndIf
If CouponTypeB = "107" Then
Var CouponNameB = "/imgCouponC42.png"
EndIf
If CouponTypeB = "109" Then
Var CouponNameB = "/imgCouponC33.png"
EndIf
If CouponTypeB = "112" Then
Var CouponNameB = "/imgCoupon112.png"
EndIf
If CouponTypeB = "113" Then
Var CouponNameB = "/imgCoupon113.png"
EndIf
If CouponTypeB = "120" Then
Var CouponNameB = "/imgCoupon120.png"
EndIf
If CouponTypeB = "121" Then
Var CouponNameB = "/imgCoupon121.png"
EndIf
If CouponTypeB = "135" Then
Var CouponNameB = "/imgCouponMKP1.png"
EndIf
INT CouponExireB_D
INT CouponExireB_Y
Var CouponExireB_Y = CouponExireB_Y + 0
If CouponExireB_M = "01" Then
Var CouponExireB_M = "一月"
EndIf
If CouponExireB_M = "02" Then
Var CouponExireB_M = "二月"
EndIf
If CouponExireB_M = "03" Then
Var CouponExireB_M = "三月"
EndIf
If CouponExireB_M = "04" Then
Var CouponExireB_M = "四月"
EndIf
If CouponExireB_M = "05" Then
Var CouponExireB_M = "五月"
EndIf
If CouponExireB_M = "06" Then
Var CouponExireB_M = "六月"
EndIf
If CouponExireB_M = "07" Then
Var CouponExireB_M = "七月"
EndIf
If CouponExireB_M = "08" Then
Var CouponExireB_M = "八月"
EndIf
If CouponExireB_M = "09" Then
Var CouponExireB_M = "九月"
EndIf
If CouponExireB_M = "10" Then
Var CouponExireB_M = "十月"
EndIf
If CouponExireB_M = "11" Then
Var CouponExireB_M = "十一月"
EndIf
If CouponExireB_M = "12" Then
Var CouponExireB_M = "十二月"
EndIf
Var CouponExpireB = ""
Var CouponExpireB = CouponExpireB + CouponExireB_D
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_M
Var CouponExpireB = CouponExpireB + " "
Var CouponExpireB = CouponExpireB + CouponExireB_Y
Var CouponExpireB = CouponExpireB + " 天后过期"
EndIf
Var CouponText = "优惠券 (" + CouponNum
Var CouponText = CouponText + ")"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then

View file

@ -11,15 +11,20 @@ page_check_member2_campaign
Var Timeout = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
SetLanguage "THAI"
EndIf
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
EndIf
Var CoffeePointRank = CoffeePointRankTmp
;Var PointDiff = 150 - CoffeePointRank
@ -911,6 +916,179 @@ page_check_member2_campaign
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_msc"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "升级至飞行乌龟!"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "飞行乌龟 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "晋级至龟中大师"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "龟中大师 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Var Months[0] = "一月"
Var Months[1] = "二月"
Var Months[2] = "三月"
Var Months[3] = "四月"
Var Months[4] = "五月"
Var Months[5] = "六月"
Var Months[6] = "七月"
Var Months[7] = "八月"
Var Months[8] = "九月"
Var Months[9] = "十月"
Var Months[10] = "十一月"
Var Months[11] = "十二月"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = CouponExpireA + " 过期"
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = CouponExpireB + " 过期"
EndIf
Var CouponText = "优惠券 (" + CouponNum
Var CouponText = CouponText + ")"
Var MemberText = "会员等级"
Var CreditTotalLabel = "总信用额度"
Var ShellTotalLabel = "贝壳总余额"
Var CreditUnit = "泰铢"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
SAVELOG "EventLanguageOnChange menu -list"
@ -1261,6 +1439,9 @@ page_check_member2_campaign
If LanguageShow = "MYANMAR" Then
Var return = "သင်သည် Lucky Draw ဆုလာဘ်ကို ရရှိပြီးဖြစ်သည်။"
EndIf
If LanguageShow = "MSC" Then
Var return = "您已经获得过抽奖奖励。"
EndIf
)
</Value>
</Text>

View file

@ -29,9 +29,14 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
EndIf

View file

@ -37,10 +37,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
EndIf
RootLayoutVisible 3 "hide"
Var CoffeePointTmp = CoffeePoint
@ -280,6 +285,72 @@
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
If LanguageShow = "MSC" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -487,6 +558,68 @@
EndIf
EndIf
If LanguageShow = "MSC" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = "您有" + TaobinLevelDesc3
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " 张可用优惠券。"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "升级至飞行乌龟!"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "飞行乌龟 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "晋级至龟中大师"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "龟中大师 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
Var taobinP1 = "Invisible"
Var taobinP2 = "Invisible"
@ -782,6 +915,7 @@
Var xPointEndDate = 485
Var yPointEndDate = 1570
Var xDescEndDate = 172
Var TaobinLevelDesc3X = 380
If show_eng = "true" Then
Var xPointEndDate = 566
@ -794,6 +928,12 @@
Var xDescEndDate = 265
EndIf
If LanguageShow = "MSC" Then
Var xPointEndDate = 420
Var yPointEndDate = 1563
Var TaobinLevelDesc3X = 430
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
@ -1281,7 +1421,7 @@
</Text>
<Text>
<X> 380 </X>
<X> TaobinLevelDesc3X </X>
<Y> 1621 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>

View file

@ -47,10 +47,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""

View file

@ -47,10 +47,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = "ok"

View file

@ -45,6 +45,7 @@
Var FeedbackLevel[4].Pressed = DirImage + "bp_feedback_level_5_en.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var PopupTitle = "စက်သန့်ရှင်းမှု အမှတ်"
Var Description = "ကျွန်တော်တို့ နေ့စဉ် တိုးတက်ချင်လို့ပါ။"
@ -64,6 +65,24 @@
EndIf
If LanguageShow = "MSC" Then
Var PopupTitle = "机器清洁度评分"
Var Description = "请帮助我们评估!我们每天都想进步"
Var TitleSize = 55
Var FeedbackLevel[0] = DirImage + "bn_feedback_level_1_msc.png"
Var FeedbackLevel[0].Pressed = DirImage + "bp_feedback_level_1_msc.png"
Var FeedbackLevel[1] = DirImage + "bn_feedback_level_2_msc.png"
Var FeedbackLevel[1].Pressed = DirImage + "bp_feedback_level_2_msc.png"
Var FeedbackLevel[2] = DirImage + "bn_feedback_level_3_msc.png"
Var FeedbackLevel[2].Pressed = DirImage + "bp_feedback_level_3_msc.png"
Var FeedbackLevel[3] = DirImage + "bn_feedback_level_4_msc.png"
Var FeedbackLevel[3].Pressed = DirImage + "bp_feedback_level_4_msc.png"
Var FeedbackLevel[4] = DirImage + "bn_feedback_level_5_msc.png"
Var FeedbackLevel[4].Pressed = DirImage + "bp_feedback_level_5_msc.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -65,10 +65,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_msc"
EndIf
If InternationalEnable = 1 Then
If LanguageShow = "UAE_DUBAI" Then
Var IMG_CNT = CountryRootPath + "/image/page_doing/img2.png"
@ -683,10 +688,15 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"

View file

@ -44,10 +44,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP

View file

@ -52,12 +52,19 @@
Var TextEndDateY = 1570
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1580
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1570
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
@ -308,6 +315,72 @@
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
If LanguageShow = "MSC" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -516,6 +589,67 @@
EndIf
EndIf
If LanguageShow = "MSC" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = "您有" + TaobinLevelDesc3
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " 张可用优惠券。"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "升级至飞行乌龟!"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "晋级至龟中大师"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
Var CheckCoupons = 0
@ -784,11 +918,16 @@
Var xPointEndDate = 618
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 490
Var TextEndDateX = 190
EndIf
If LanguageShow = "MSC" Then
Var xPointEndDate = 618
EndIf
Var Point2XState = "Invisible"
Var Point2XImage = ""
If Point2X = 1 Then

View file

@ -41,11 +41,17 @@
Var TextEndDateY = 1570
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr/"
Var TextEndDateY = 1570
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc/"
Var TextEndDateY = 1570
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
@ -288,6 +294,72 @@
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
If LanguageShow = "MSC" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -495,6 +567,67 @@
EndIf
EndIf
If LanguageShow = "MSC" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = "您有" + TaobinLevelDesc3
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " 张可用优惠券。"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "升级至飞行乌龟!"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "晋级至龟中大师"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
@ -795,18 +928,26 @@
Var xPointEndDate = 490
Var yPointEndDate = 1570
Var xDescEndDate = 172
Var TaobinLevelDesc3X = 380
If show_eng = "true" Then
Var xPointEndDate = 575
Var yPointEndDate = 1563
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 520
Var yPointEndDate = 1568
Var xDescEndDate = 265
EndIf
If LanguageShow = "MSC" Then
Var xPointEndDate = 420
Var yPointEndDate = 1563
Var TaobinLevelDesc3X = 410
EndIf
Var FlagForProtectXMLOpenDouble = 0
</EventOpen>
@ -1329,7 +1470,7 @@
</Text>
<Text>
<X> 380 </X>
<X> TaobinLevelDesc3X </X>
<Y> 1621 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>

View file

@ -43,11 +43,17 @@
Var TextEndDateY = 1570
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr/"
Var TextEndDateY = 1580
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_point_msc/"
Var TextEndDateY = 1570
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
@ -290,6 +296,73 @@
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
If LanguageShow = "MSC" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "1月"
Var TaobinExpireMonthX = "一月"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "2月"
Var TaobinExpireMonthX = "二月"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "3月"
Var TaobinExpireMonthX = "三月"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "4月"
Var TaobinExpireMonthX = "四月"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "5月"
Var TaobinExpireMonthX = "五月"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "6月"
Var TaobinExpireMonthX = "六月"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "7月"
Var TaobinExpireMonthX = "七月"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "8月"
Var TaobinExpireMonthX = "八月"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "9月"
Var TaobinExpireMonthX = "九月"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "10月"
Var TaobinExpireMonthX = "十月"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "11月"
Var TaobinExpireMonthX = "十一月"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "12月"
Var TaobinExpireMonthX = "十二月"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -500,6 +573,70 @@
EndIf
EndIf
If LanguageShow = "MSC" Then
Var TaobinLevelDesc3 = TaobinCoupons
Var TaobinLevelDesc3 = "您有" + TaobinLevelDesc3
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " 张可用优惠券。"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "害羞龟"
Var TaobinLevelDesc2 = ""
Var CurrentLevel = "害羞龟"
Var TaobinLeveImg = "/level1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "行走的乌龟"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "赚取 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "\n升级至飞行乌龟"
Var CurrentLevel = "行走的乌龟"
Var TaobinLeveImg = "/level2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "飞行乌龟 "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "飞行乌龟持续至 " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "通过 " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " 获取 "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + ExpireStrTmp
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "个 shells, "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "\n晋级至龟中大师"
Var CurrentLevel = "飞行乌龟"
Var TaobinLeveImg = "/level3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "龟中大师持续至 " + ExpireStrTmp
Var CurrentLevel = "龟中大师持续至"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/level4.png"
EndIf
EndIf
Var MakeDrinkState = 0
@ -797,14 +934,24 @@
DEBUGVAR PointEndDate
Var xPointEndDate = 490
Var yPointEndDate = 1570
Var xDescEndDate = 172
Var TaobinLevelDesc3X = 380
If show_eng = "true" Then
Var xPointEndDate = 575
Var yPointEndDate = 1563
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 520
Var yPointEndDate = 1578
Var xDescEndDate = 265
EndIf
If LanguageShow = "MSC" Then
Var xPointEndDate = 420
Var yPointEndDate = 1563
Var TaobinLevelDesc3X = 410
EndIf
Var LuckyDrawTicketFormat = "%03.0f"
@ -1068,12 +1215,18 @@
<Value>
eval(
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var return = "ကံထူးရန်" + dayDiff
Var return = return + " ရက်သာ လိုတော့သည်"
Else
Var return = "" + dayDiff
Var return = return + " days left to WIN a chance!"
If LanguageShow = "MSC" Then
Var return = "" + dayDiff
Var return = return + " 天剩余"
Else
Var return = "" + dayDiff
Var return = return + " days left to WIN a chance!"
EndIf
EndIf
Else
Var return = "เหลืออีก " + dayDiff
@ -1093,10 +1246,15 @@
<Value>
eval(
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var return = "များများဝယ်ပါ၊ များများအနိုင်ရပါ။ Tesla က စောင့်မျှော်နေပါတယ်။"
Else
Var return = "Buy more, WIN more! Tesla await!"
If LanguageShow = "MSC" Then
Var return = "买得越多赢得越多Tesla 等你来赢!"
Else
Var return = "Buy more, WIN more! Tesla await!"
EndIf
EndIf
Else
Var return = "ยิ่งดื่ม ยิ่งมีโชค ยิ่งได้ลุ้น! Tesla รออยู่!"
@ -1130,10 +1288,15 @@
<Value>
eval(
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var return = "အဖွဲ့ဝင်အခြေအနေ"
Else
Var return = "MEMBERSHIP STATUS"
If LanguageShow = "MSC" Then
Var return = "会员状态"
Else
Var return = "MEMBERSHIP STATUS"
EndIf
EndIf
Else
Var return = "สถานะสมาชิก"
@ -1160,10 +1323,15 @@
<Value>
eval(
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var return = "စုစုပေါင်း Shell လက်ကျန်:"
Else
Var return = "TOTAL SHELL BALANCE:"
If LanguageShow = "MSC" Then
Var return = "总贝壳余额:"
Else
Var return = "TOTAL SHELL BALANCE:"
EndIf
EndIf
Else
Var return = "ยอดกระดองสะสม:"
@ -1499,7 +1667,7 @@
</Text>
<Text>
<X> 380 </X>
<X> TaobinLevelDesc3X </X>
<Y> 1621 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>

View file

@ -31,9 +31,14 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_msc/"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -14,10 +14,15 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_msc"
EndIf
Var PopUpState1 = "Invisible"
Var PopUpState2 = "Enable"
Var PopUpErrorState = "Invisible"

View file

@ -14,10 +14,15 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_msc"
EndIf
Var PopUpState1 = "Enable"
Var PopUpState2 = "Invisible"
Var PopUpErrorState = "Invisible"

View file

@ -24,9 +24,14 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_msc"
EndIf
Var MemberState1 = "Enable"

View file

@ -17,9 +17,14 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_disqualified_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_disqualified_msc"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -17,10 +17,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Timeout = 0
StopLongPlay

View file

@ -118,10 +118,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Timeout = 0

View file

@ -17,10 +17,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Timeout = 0

View file

@ -17,10 +17,14 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Timeout = 0
Var GetFreeFlag = 0

View file

@ -28,8 +28,13 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_msc"
EndIf
Var bg_strawlid_ST = "Enable"
@ -143,9 +148,14 @@
If show_eng = "true" Then
;inter-image
If LanguageShow = "MYANMAR" Then
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"
EndIf
If LanguageShow = "MSC" Then
Var bnStrawProblemReport = "ROOT/taobin_project/inter/hkg/image/page_doing/bn_send_report_straw_msc.png"
Var bpStrawProblemReport = "ROOT/taobin_project/inter/hkg/image/page_doing/bp_send_report_straw_msc.png"
Else
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"

View file

@ -54,6 +54,7 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
If CountryName = "Singapore" Then
@ -67,6 +68,20 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
EndIf
;inter-image
If LanguageShow = "MSC" Then
If CountryName = "Singapore" Then
Var show_btp = ""
Var show_btn = ""
EndIf
Var DirImage = "ROOT/taobin_project/image/page_thankyou_msc"
EndIf
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Dont_forget_your_changes_below.mp3"
Else
@ -75,11 +90,16 @@
Var imgGetChange = "/imgGetChange.png"
;inter-th-mmr
;inter-image
If LanguageShow = "MYANMAR" Then
Var imgGetChange = "/imgGetChange-MMR.png"
EndIf
;inter-image
If LanguageShow = "MSC" Then
Var imgGetChange = "/imgGetChange-MSC.png"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var imgGetChange = "/imgGetChange-MYR.png"

View file

@ -17,9 +17,14 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_got_free_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/display_got_free_msc"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -47,12 +47,18 @@ ins<Popup>
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
If CameraCount = 1 Then

View file

@ -105,12 +105,18 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
If CameraCount = 1 Then

View file

@ -15,11 +15,16 @@
Var SumCreditAmount = TaobinCredit
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -57,6 +62,11 @@
Var text_4 = "/text_4-MMR.png"
EndIf
;inter-image
If LanguageShow = "MSC" Then
Var text_4 = "/text_4-MSC.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
@ -67,6 +77,7 @@
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -86,6 +97,10 @@
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"

View file

@ -22,11 +22,16 @@
Var GetCreditFlag = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -76,6 +81,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
@ -91,6 +97,11 @@
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
@ -148,10 +159,15 @@
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
If LanguageShow = "MSC" Then
Var TextWaiting = "无法使用二维码,请稍后再试。"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
@ -624,10 +640,13 @@
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
EndIf
If LanguageShow = "MSC" Then
Var TextWaiting = "请稍等..."
EndIf
Refresh

View file

@ -15,16 +15,21 @@
Var SumCreditAmount = TaobinCredit
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "hide"
Var PayState1 = "Enable"
@ -59,15 +64,19 @@
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
If LanguageShow = "MSC" Then
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Var CoinInFlag = 0
Var CoinInOK = 0
Var ChangeOK = 0
@ -89,12 +98,11 @@
Var SuggestID = ""
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -116,7 +124,11 @@
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
@ -137,7 +149,6 @@
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 180 Then
If CoinInOK = 0 Then
@ -148,10 +159,15 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "Cancelled"
EndIf
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
@ -160,10 +176,15 @@
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "保存余额"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
@ -291,8 +312,13 @@
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
@ -303,19 +329,21 @@
If CoinInOK = 0 Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
@ -346,10 +374,15 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "Cancelled"
EndIf
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
@ -357,10 +390,15 @@
Else
Var ChangeOK = 1
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "保存余额"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
@ -514,10 +552,15 @@
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "Cancelled"
EndIf
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
@ -525,10 +568,15 @@
Else
Var ChangeOK = 1
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "保存余额"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"

View file

@ -38,11 +38,17 @@
Var ShowErrorTextY = 935
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var ShowErrorTextY = 925
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
Var ShowErrorTextY = 935
EndIf
RootLayoutVisible 3 "hide"
Var CouponNumber = ""

View file

@ -17,12 +17,16 @@
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -57,6 +61,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -79,6 +84,11 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then

View file

@ -50,6 +50,11 @@
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
;inter-image
If LanguageShow = "MSC" Then
Var text_4 = "/text_4-MSC.png"
EndIf
@ -65,11 +70,17 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -89,6 +100,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -106,9 +118,13 @@
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
;inter-image
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
Var text_4 = "/text_4-MMR.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
Var text_4 = "/text_4-MSC.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"

View file

@ -374,7 +374,7 @@
Var showRemaining = RemainAmountStr + " Bath"
EndIf
If LanguageShow = "MSC" Then
Var showRemaining = RemainAmountStr + " Bath"
Var showRemaining = RemainAmountStr + " 泰铢"
EndIf
EndIf
@ -3681,6 +3681,12 @@ eval(
</EventUnitTest1>
<EventUnitTest2>
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
</EventUnitTest2>

View file

@ -197,11 +197,17 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
EndIf
If LanguageShow = "MSC" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_msc/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_msc/page_payment/bp_cash.png"
EndIf
Var X_CASH = 60
If RoadShow = "true" Then
@ -214,10 +220,15 @@
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash_2.png"
EndIf
If LanguageShow = "MSC" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_msc/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_msc/page_payment/bp_cash_2.png"
EndIf
EndIf
If GetFreeFromError = 1 Then
@ -290,12 +301,18 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
Var EnoughChange = "yes"

View file

@ -34,10 +34,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var TelephoneNumber# = ""
Var PlaySoundLag = ""

View file

@ -49,10 +49,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""

View file

@ -50,10 +50,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""

View file

@ -29,10 +29,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
</EventOpen>

View file

@ -29,10 +29,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
If PinSMSFlag = 1 Then
If show_eng = "true" Then

View file

@ -29,10 +29,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
</EventOpen>

View file

@ -39,10 +39,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"

View file

@ -36,10 +36,14 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""

View file

@ -34,10 +34,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var TelephoneNumber# = ""
</EventOpen>

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -36,10 +36,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -33,12 +33,19 @@
Var ShowErrorTextY = 945
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
Var ShowErrorTextX = 150
Var ShowErrorTextY = 905
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
Var ShowErrorTextX = 424
Var ShowErrorTextY = 945
EndIf
Var Ext1a = ""

View file

@ -40,16 +40,20 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
Var Ytext_16 = 640
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

View file

@ -18,9 +18,14 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var img_popup11 = "/img_popup19.png"

View file

@ -23,12 +23,16 @@
Var GetCreditFlag = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -57,8 +61,12 @@
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -68,8 +76,12 @@
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -119,6 +131,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
@ -155,6 +168,17 @@
Var posX = 350
EndIf
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 170
Var posX = 250
Else
Var Text_X = 263
Var posX = 350
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
@ -257,10 +281,15 @@ If ViewBill > 0 Then
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
If LanguageShow = "MSC" Then
Var TextWaiting = "无法使用二维码,请稍后再试。"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
@ -736,10 +765,15 @@ If ViewBill > 0 Then
EndIf
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
Else
Var TextWaiting = "Please wait..."
If LanguageShow = "MSC" Then
Var TextWaiting = "请稍等..."
Else
Var TextWaiting = "Please wait..."
EndIf
EndIf
Else
Var TextWaiting = "กรุณารอซักครู่..."

View file

@ -11,11 +11,16 @@
Var Timeout = 0
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -116,6 +121,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -137,8 +143,13 @@
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
@ -173,21 +184,31 @@
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
EndIf
Else
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -402,10 +423,15 @@
<Value>
eval(
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var return = "*ပမာဏသည် စျေးနှုန်းနှင့် တူညီရမည်"
Var return = "*ပမာဏသည် စျေးနှုန်းနှင့် တူညီရမည်"
Else
Var return = "*Amount must equal or exceed price."
If LanguageShow = "MSC" Then
Var return = "*金额必须等于或超过价格。"
Else
Var return = "*Amount must equal or exceed price."
EndIf
EndIf
Else
Var return = "*จำนวนเงินต้องเท่ากับหรือมากกว่าราคาสินค้า"
@ -450,20 +476,30 @@
Var CancelFlag = 1
If CoinAmount = 0 Then
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "Cancelled"
EndIf
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "保存余额"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"

View file

@ -40,10 +40,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -10,11 +10,16 @@
Var Timeout = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -41,6 +46,7 @@
<EventLanguageOnChange>
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
@ -56,6 +62,11 @@
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then

View file

@ -54,12 +54,19 @@
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var DirImage3 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
Var DirImage3 = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var show_eng_button_stage = "Enable"
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"

View file

@ -52,9 +52,14 @@
Var DirImage = "ROOT/taobin_project/image/page_payment"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
EndIf
Var CashTextWarning = ""

View file

@ -27,10 +27,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var FlagWaitUpdateCoinAmount = 0

View file

@ -34,11 +34,17 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/keep_your_change_credits_or_receive.mp3"

View file

@ -40,10 +40,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -31,10 +31,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -21,10 +21,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
If Seeker.pageStoreCredit0 = 1 Then

View file

@ -40,24 +40,25 @@
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
;inter-multi
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
If LanguageShow = "MTC" Then
SetLanguage "MTC"
Else
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
EndIf
EndIf
If LanguageShow = "MTC" Then
SetLanguage "MTC"
EndIf
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
SetLanguage "THAI"
EndIf
LED LedDoorDoor 5 255 255 255 255
;include=ROOT/taobin_project/inc/remove_cup_event_open.inc
@ -90,13 +91,9 @@
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/user_take_cup_msc/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "MTC" Then
Var DirImage = "ROOT/taobin_project/inter/hkg/image/user_take_cup_mtc/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"

View file

@ -23,8 +23,13 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/consent_mmr/"
Var DirImage = "ROOT/taobin_project/image/consent_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/consent_msc/"
EndIf
If show_eng = "true" Then

View file

@ -27,9 +27,13 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/consent_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/consent_msc/"
EndIf
Var AcceptFlag = 0
Var AcceptState = "Disable"

View file

@ -364,7 +364,7 @@
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
Var DirImage = CountryRootPath + "image/close_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = CountryRootPath + "image/close_hkg"
@ -422,7 +422,7 @@
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
Var DirImage = CountryRootPath + "image/close_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = CountryRootPath + "image/close_hkg"

View file

@ -80,7 +80,7 @@
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_msc"
EndIf

View file

@ -48,6 +48,7 @@
Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
@ -55,6 +56,13 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
EndIf
If LanguageShow = "MSC" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_msc"
EndIf
;DEBUGVAR StarwState
;DEBUGVAR LidState
DEBUGVAR BottomText
@ -109,9 +117,14 @@
Var DirImage2 = "ROOT/taobin_project/image/complete/"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/complete_mmr/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/complete_msc/"
EndIf
Var txtDrinkOKState = "Invisible"
Var buttonRemoveCup = "Invisible"
@ -374,9 +387,13 @@
Else
Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ"
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
EndIf
If LanguageShow = "MSC" Then
Var MachineErrorDetailAll = " 请拿杯子。"
EndIf
Else
If CupChecking = "true" Then
If show_eng = "true" Then
@ -384,18 +401,27 @@
Else
Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ"
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
EndIf
If LanguageShow = "MSC" Then
Var MachineErrorDetailAll = " 请拿杯子。"
EndIf
EndIf
Else
If show_eng = "true" Then
Var MachineErrorDetailAll = " Press button for take a cup."
Else
Var MachineErrorDetailAll = " กรุณากดปุ่ม แล้วนำแก้วออกก่อนครับ/คะ"
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
EndIf
If LanguageShow = "MSC" Then
Var MachineErrorDetailAll = " 按按钮取杯子。"
EndIf
EndIf
EndIf

View file

@ -39,6 +39,7 @@
Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
@ -46,6 +47,13 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
EndIf
If LanguageShow = "MSC" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_msc"
EndIf
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR BottomText

View file

@ -14,11 +14,16 @@
Machine WakeUp
;for 3 langs
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"

View file

@ -31,11 +31,16 @@
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
Var Ext1a = ""

View file

@ -29,9 +29,14 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var Ext1a = ""

View file

@ -44,10 +44,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

View file

@ -18,9 +18,14 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf

View file

@ -22,12 +22,16 @@
Var GetCreditFlag = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -120,12 +124,19 @@
Var posX = 380
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var Text_X = 128
Var posX = 350
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
Var Text_X = 188
Var posX = 350
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
@ -196,10 +207,15 @@ If ViewBill > 0 Then
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
EndIf
If LanguageShow = "MSC" Then
Var TextWaiting = "无法使用二维码,请稍后再试。"
EndIf
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
@ -665,10 +681,15 @@ If ViewBill > 0 Then
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
EndIf
If LanguageShow = "MSC" Then
Var TextWaiting = "请稍等..."
EndIf
Var loadingReqState = "Enable"
Refresh

View file

@ -12,11 +12,16 @@
Var Timeout = 0
Var CreditAmount = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -94,6 +99,7 @@
DEBUGVAR LanguageShow
DEBUGVAR CreditAmount
;inter-image
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
@ -175,6 +181,33 @@
EndIf
EndIf
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_msc/img2_msc.png"
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
If CoinAmount = 0 Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "保存余额"
EndIf
If ViewBill > 0 Then
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
Else
If CoinAmount = 0 Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "充值 " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
@ -205,11 +238,16 @@
If CoinAmount = 0 Then
Var CancelFlag = 1
Var CancelCounter = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -217,11 +255,16 @@
Else
Var CoinInOK = 1
Var CoinInCounter = 0
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -373,11 +416,16 @@
Var Timeout = 0
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -388,11 +436,16 @@
If CoinInOK = 0 Then
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -496,8 +549,12 @@
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
;inter-multi
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
EndIf
If LanguageShow = "MSC" Then
Var RemainAmountStr = "已取消"
Else
Var RemainAmountStr = "Cancelled"
EndIf
@ -507,10 +564,15 @@
Else
Var ChangeOK = 1
If show_eng = "true" Then
;inter-text
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MSC" Then
Var RemainAmountStr = "保存余额"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"

View file

@ -40,10 +40,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>
@ -619,10 +624,15 @@
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
;inter-text
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
EndIf
If LanguageShow = "MSC" Then
Var TextWaiting = "请稍等..."
EndIf
Var goBackBtnState = "Disable"
Var Seeker.CodeChannel = 1

View file

@ -10,11 +10,16 @@
Var Timeout = 0
If show_eng = "true" Then
;inter-multi
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
Else
If LanguageShow = "MSC" Then
SetLanguage "MSC"
Else
SetLanguage "ENG"
EndIf
EndIf
Else
SetLanguage "THAI"
@ -52,9 +57,15 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then

View file

@ -35,9 +35,14 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
;inter-image
If LanguageShow = "MSC" Then
Var text_4 = "/text_4-MSC.png"
EndIf
@ -53,11 +58,17 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
EndIf
If show_eng = "true" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_en"
@ -65,10 +76,15 @@
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_msc"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"

View file

@ -13,10 +13,15 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If LanguageShow = "MSC" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_msc"
EndIf
RootLayoutVisible 3 "hide"
Var ReqPayWithCash = 0

View file

@ -39,11 +39,11 @@ If LanguageShow = "MYANMAR" Then
EndIf
If LanguageShow = "MSC" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bp_cash.png"
Var FilenameShowbuttonCashBD = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bd_cash.png"
Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/page_payment_cash_extend_msc"
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_msc/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_msc/page_payment/bp_cash.png"
Var FilenameShowbuttonCashBD = "ROOT/taobin_project/image/page_payment_msc/page_payment/bd_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 267
Var RemainAmountStrY = 1041
@ -68,9 +68,9 @@ If RoadShow = "true" Then
EndIf
If LanguageShow = "MSC" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bp_cash.png"
Var FilenameShowbuttonCashBD = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment/bd_cash.png"
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_msc/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_msc/page_payment/bp_cash.png"
Var FilenameShowbuttonCashBD = "ROOT/taobin_project/image/page_payment_msc/page_payment/bd_cash.png"
EndIf
EndIf

View file

@ -24,6 +24,7 @@
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var Extension = "_mmr.png"
@ -31,6 +32,13 @@
Var Text_Y = 1468
EndIf
If LanguageShow = "MSC" Then
Var Extension = "_msc.png"
Var Text_X = 233
Var Text_Y = 1468
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -305,6 +305,8 @@
;
;
; Only for HongKong btn_langs !!
<Button>
<X> BtnLangCurrentXPosition </X>
<Y> BtnLangCurrentYPosition </Y>
@ -669,6 +671,7 @@
<Filename> "ROOT/taobin_project/image/lang/bn_china_lang.png" </Filename>
<EventClick>
SetLanguage "MSC"
Var show_eng = "true"
Var LanguageButtonListEnable = "Invisible"
Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex]
Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon
@ -704,6 +707,7 @@
<Filename> "ROOT/taobin_project/image/lang/bn_myanmar_lang.png" </Filename>
<EventClick>
SetLanguage "MTC"
Var show_eng = "true"
Var LanguageButtonListEnable = "Invisible"
Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex]
Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon