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

@ -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>