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

BIN
image/close_hkg/Frame1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 59 KiB

BIN
image/close_hkg/Frame10.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 56 KiB

BIN
image/close_hkg/Frame11.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 68 KiB

BIN
image/close_hkg/Frame12.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 91 KiB

BIN
image/close_hkg/Frame13.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 103 KiB

BIN
image/close_hkg/Frame14.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 73 KiB

BIN
image/close_hkg/Frame15.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 116 KiB

BIN
image/close_hkg/Frame16.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 62 KiB

BIN
image/close_hkg/Frame17.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 96 KiB

BIN
image/close_hkg/Frame18.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 62 KiB

BIN
image/close_hkg/Frame19.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 76 KiB

BIN
image/close_hkg/Frame2.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 90 KiB

BIN
image/close_hkg/Frame20.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 65 KiB

BIN
image/close_hkg/Frame3.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 73 KiB

BIN
image/close_hkg/Frame4.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 62 KiB

BIN
image/close_hkg/Frame5.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 84 KiB

BIN
image/close_hkg/Frame6.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 45 KiB

BIN
image/close_hkg/Frame7.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 113 KiB

BIN
image/close_hkg/Frame8.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 56 KiB

BIN
image/close_hkg/Frame9.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 67 KiB

BIN
image/close_hkg/img1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 102 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.1 KiB

After

Width:  |  Height:  |  Size: 6.7 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7 KiB

After

Width:  |  Height:  |  Size: 9.7 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 9.7 KiB

After

Width:  |  Height:  |  Size: 9.6 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 11 KiB

After

Width:  |  Height:  |  Size: 11 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.4 KiB

After

Width:  |  Height:  |  Size: 7.9 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.9 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 18 KiB

After

Width:  |  Height:  |  Size: 16 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.7 KiB

After

Width:  |  Height:  |  Size: 3.3 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3 KiB

BIN
image/topping_msc/cb_ch.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1,013 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 660 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 22 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 24 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 33 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

View file

@ -7,6 +7,7 @@
DEBUGVAR LanguageShow
DEBUGVAR CountryName
;inter-image
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
@ -41,7 +42,6 @@
InstanceSetString "ShowMSC"
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
@ -49,8 +49,6 @@
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "Australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"

View file

@ -1,4 +1,5 @@
;inter-image
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"

View file

@ -594,6 +594,7 @@
EndIf
;inter-image
If LanguageShow = "ENG" Then
If show_name_len > 24 Then
Var showname = showname + "###size=54"
@ -1097,6 +1098,7 @@
DEBUGVAR LanguageShowByIndex
DEBUGVAR LanguageShow
;inter-image
If LanguageShow = "ENG" Then
Var topping_shot_price_x = 630
Var text_x_add_oreo_price = 430
@ -8785,6 +8787,7 @@
DEBUGVAR showname
DEBUGVAR showdesc
;inter-image
If LanguageShow = "ENG" Then
If show_name_len > 24 Then
Var showname = showname + "###size=54"

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>

Some files were not shown because too many files have changed in this diff Show more