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

@ -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 = "เก็บเครดิต"