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

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