THAI INTER: Fix Overlap letters, Show text, Add Image

This commit is contained in:
Ittipat Lusuk 2024-12-27 10:38:28 +07:00
parent c6d1a1c6d7
commit 025ffd84af
10 changed files with 671 additions and 322 deletions

View file

@ -40,6 +40,7 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1570
Else
@ -47,11 +48,13 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var TaobinLevelDesc3X = 310
Var TextEndDateY = 1570
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var TaobinLevelDesc3X = 380
Var TextEndDateY = 1580
EndIf
@ -238,6 +241,73 @@
EndIf
If LanguageShow = "MYANMAR" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "ေဖေဖာ္ဝါရီလ"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "မတ္လ"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "ဧျပီလ"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "ေမလ"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "ဇြန္လ"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "ဇူလိုင္လ"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "ၾသဂုတ္လ"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "စက္တင္ဘာလ"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "ေအာက္တိုဘာလ"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "ႏိုဝင္ဘာလ"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "ဒီဇင္ဘာလ"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -388,28 +458,27 @@
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " နံပါတ်များ"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ရှက်လိပ်အဆင့်"
Var TaobinLevelDesc1 = "ရှက်နေသောလိပ်အဆင့်"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "လမ်းလျှောက်လိပ်အဆင့်"
Var TaobinLevelDesc1 = "လမ်းလျှောက်နေသောလိပ်အဆင့်"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
Var TaobinLevelDesc2 = "ပိုစုဆောင်းပါ။ " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " လိပ်ခွံ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "ပျံသန်းသောလိပ်အဆင့်သို့ တိုးတက်ရန်။"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "လိပ်အဆင့် "
;Var TaobinLevelDesc1 = "ပျံသန်းနေသောလိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
@ -418,19 +487,19 @@
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "လိပ်ပျံအဆင့်အထိ " + ExpireStrTmp
Var TaobinLevelDesc1 = "ပျံသန်းသောလိပ်အဆင့်အထိ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
Var TaobinLevelDesc2 = "ပိုစုဆောင်းပါ။ " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " လိပ်ခွံ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "ဆရာလိပ်အဆင့်သို့ တိုးတက်ရန်။"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "သခင်လိပ်အဆင့် "
;Var TaobinLevelDesc1 = "ဆရာလိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
@ -439,7 +508,7 @@
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "မာစတာလိပ်အဆင့်အထိ " + ExpireStrTmp
Var TaobinLevelDesc1 = "ဆရာလိပ်အဆင့်အထိ။ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
@ -1303,7 +1372,7 @@
</Text>
<Text>
<X> 310 </X>
<X> TaobinLevelDesc3X </X>
<Y> 1621 </Y>
<Size> 25 </Size>
<Width> 1000 </Width>