This commit is contained in:
wanlop run 2024-12-09 20:31:03 +07:00
commit 7669b77c77
958 changed files with 16149 additions and 24081 deletions

View file

@ -8,6 +8,12 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
EndIf
EndIf
SAVELOG "======================================= catalog multi instance ================================"
; On open
@ -734,7 +740,9 @@
</EventUnitTest1>
<EventUnitTest2>
;Open "ROOT/taobin_project/inter/tha/xml/page_collect_point_1.lxml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventUnitTest2>

View file

@ -98,6 +98,50 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst5
DEBUGVAR EnabledBlocksDrawInst5
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -107,6 +107,50 @@
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst8
DEBUGVAR EnabledBlocksDrawInst8
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -100,6 +100,51 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst9
DEBUGVAR EnabledBlocksDrawInst9
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -100,6 +100,49 @@
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst7
DEBUGVAR EnabledBlocksDrawInst7
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -101,6 +101,50 @@
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -26,9 +26,59 @@
#include=menu_catalog_new_menu.py
?>
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</EventOpen>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -29,6 +29,116 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else
Var ice_tab_process_show = "Invisible"
EndIf
GetVisible inst_show8
;DEBUGVAR inst_show8
If inst_show8 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst11
DEBUGVAR EnabledBlocksDrawInst11
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -87,6 +87,51 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr
#include=menu_catalog_new.py
?>

File diff suppressed because it is too large Load diff

View file

@ -3,6 +3,7 @@
<Height> 1920 </Height>
<EventOpen>
RootLayoutVisible 3 "hide"
OpenInst 0 "ROOT/xml/service_menu.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"

View file

@ -11,23 +11,83 @@
Var OpenCheckCoupon = 0
Var ChangeMemberPassword = 0
; Default language (Thai).
Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
Var text = "เลือกบริการที่คุณต้องการ"
Var Extension = ".png"
;If show_eng = "false" Then
;Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
;Var text = "เลือกบริการที่คุณต้องการ"
;Var Extension = ".png"
;SetLanguage "THAI"
;EndIf
; language (Eng).
If show_eng = "true" Then
;If show_eng = "true" Then
;Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
;Var text = "Manage your Tao Bin account"
;Var Extension = "_en.png"
;If LanguageShow = "MYANMAR" Then
;Var text = "သင်၏ Tao Bin အကောင့်ကို စီမံခန့်ခွဲပါ။"
;Var Extension = "_mmr.png"
;SetLanguage "MYANMAR"
;Else
;SetLanguage "ENG"
;EndIf
;EndIf
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "show"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
Var text = "Manage your Tao Bin account"
Var Extension = "_en.png"
EndIf
If LanguageShow = "THAI" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
Var text = "เลือกบริการที่คุณต้องการ"
Var Extension = ".png"
EndIf
If LanguageShow = "MYANMAR" Then
Var text = "သင်၏ Tao Bin အကောင့်ကို စီမံခန့်ခွဲပါ။"
Var Extension = "_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
</EventOpen>
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
@ -59,6 +119,7 @@
<Button>
<X> 990 </X>
<Y> 381 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btn </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -80,9 +141,9 @@
<Text>
<X> 199 </X>
<X> 100 </X>
<Y> 560 </Y>
<Width> 680 </Width>
<Width> 900 </Width>
<Height> 80 </Height>
<Font> KanitRegularTTF </Font>
<Size> 51 </Size>
@ -102,8 +163,9 @@
<EventClick>
Var OpenTopupCredit = 1
Var CheckMemberTitleTH = "กรุณาใส่เบอร์มือถือ\nเพื่อเติมเต่าบินเครดิต"
Var CheckMemberTitleEN = "Please enter your mobile number\nto topup Tao bin credit."
Var ShowTextTopup = "Enable"
Var ShowTextCoupon = "Invisible"
Var ShowTextPass = "Invisible"
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>
@ -118,8 +180,9 @@
<EventClick>
Var OpenCheckCoupon = 1
Var CheckMemberTitleTH = "กรุณาใส่เบอร์มือถือ\nเพื่อเช็กคะแนนสะสมของคุณ"
Var CheckMemberTitleEN = "Please enter your mobile number\nto check reward point."
Var ShowTextTopup = "Invisible"
Var ShowTextCoupon = "Enable"
Var ShowTextPass = "Invisible"
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>
@ -134,8 +197,9 @@
<EventClick>
Var ChangeMemberPassword = 1
Var CheckMemberTitleTH = "กรุณาใส่เบอร์มือถือ\nเพื่อเปลี่ยนรหัสผ่าน"
Var CheckMemberTitleEN = "Please enter your mobile number\nto change password."
Var ShowTextTopup = "Invisible"
Var ShowTextCoupon = "Invisible"
Var ShowTextPass = "Enable"
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>

View file

@ -937,9 +937,9 @@
If BoxID = 210604 Then
Var SettingIgnoreCollectPoint = 0
EndIf
If BoxID = 210699 Then
Var SettingIgnoreCollectPoint = 0
EndIf
;If BoxID = 210699 Then
;Var SettingIgnoreCollectPoint = 0
;EndIf
READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev
STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg
@ -1101,7 +1101,85 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
; New mode
; Inter + Multi-Instance available ./inter/tha/multi
; Below. Pendding from XMLProfile
DEBUGVAR MyanmarLangEnable
DEBUGVAR EnableMultiInstance
;Var MyanmarLangEnable = "true"
Var MyanmarLangEnable = "false"
;Var MyanmarLangEnable = ""
If MyanmarLangEnable = "" Then
Else
If EnableMultiInstance = "true" Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
;specified to unittest4
Var CountryRootPath = "ROOT/taobin_project/inter/tha/"
Var CountryShortName = "tha"
Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev"
DEBUGVAR OpenFileXML
TRY OpenFileXML
Var WebAppShow = "Invisible"
Var ENABLE_UAE_DUBAI = "Invisible"
EnableLanguage "ENG"
EnableLanguage "THAI"
EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR"
EndIf
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
;Var ShowNetworkProblemText = "Network error. Payment Cash only."
Var TextPriceMenuSize = 12
Var TextPriceMenuY = 266
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var PriceUnitText = ""
Var show_eng_button_stage = "Invisible"
Var XButtonMember = 384
Var YButtonMember = 1695
If Not#LanguageLoaded = "" Then
LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv"
EndIf
Var cups_sold_text = "Cups Sold Worldwide"
Var MinPhoneNumber = 10
Var MaxPhoneNumber = 10
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
EndIf
EndIf
DEBUGVAR InternationalEnable
DEBUGVAR CountryRootPath
@ -1335,6 +1413,7 @@
EnableLanguage "ENG"
EnableLanguage "THAI"
;EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR"
@ -1623,7 +1702,7 @@ PRICE "Reset" "-"
</EventUnitTest4>
<EventUnitTest5>
Var XMLProfile = "ProfileIncrease30"
Var XMLProfile = "y18IDCardCaffeine"
Var TimeProfilePrice = 0
</EventUnitTest5>
@ -1812,6 +1891,7 @@ PRICE "Reset" "-"
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
EndIf
EndIf
@ -1869,7 +1949,7 @@ PRICE "Reset" "-"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
Else
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
@ -2101,8 +2181,14 @@ PRICE "Reset" "-"
Else
If SpiralOnline = "true" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml"
EndIf
Else
If InternationalEnable = 1 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
@ -2136,15 +2222,19 @@ PRICE "Reset" "-"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
If InternationalEnable = 1 Then
;inter-xml-open
DEBUGVAR CountryName
If CountryName = "UnitedArabEmirates Dubai" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
If CountryName = "Thailand" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml"
Else
Var ChackMemberPage = CountryRootPath + "xml/page_check_member.lxml"
OpenInst 2 ChackMemberPage
;inter-xml-open
DEBUGVAR CountryName
If CountryName = "UnitedArabEmirates Dubai" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
Else
Var ChackMemberPage = CountryRootPath + "xml/page_check_member.lxml"
OpenInst 2 ChackMemberPage
EndIf
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml"
@ -2189,8 +2279,14 @@ PRICE "Reset" "-"
Var NextPage = "-"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
If SpiralOnline = "true" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_with_vending.xml"
EndIf
Else
If InternationalEnable = 1 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
@ -2269,7 +2365,7 @@ PRICE "Reset" "-"
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
Else ; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"

View file

@ -52,6 +52,16 @@
Var PrintCoinAmount = 0
Var DirImageDoing = "ROOT/taobin_project/image/page_doing"
If show_eng = "true" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
EndIf
If show_eng = "true" Then
@ -81,6 +91,8 @@
Else
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
@ -116,6 +128,39 @@
Var XStraw = 142
EndIf
If LanguageShow = "MYANMAR" Then
;for test
Var IMG_CNT = DirImageDoing + "/img2_en.png"
;Var IMG_CNT = DirImageDoing + "/img2_mmr.png"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw.png"
Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw.png"
Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw_mmr.png"
Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_mmr.png"
Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_mmr.png"
Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid.png"
Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid.png"
Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3_mmr.png"
Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_mmr.png"
;Var XStraw = 274
Var XStraw = 142
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
@ -258,6 +303,11 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_mmr"
EndIf
DEBUGVAR show_eng
Var next_pic_bn = DirImage + "/bn_add_order.png"
@ -1751,6 +1801,24 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<EventUnitTest1>
Var BREW_COUNT_DOWN_FROM_APP = "off"
Var CountDownBrewing = 121

View file

@ -15,10 +15,14 @@
If InternationalEnable = 1 Then
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
If CountryName = "Thailand" Then
;do not thing
Else
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
Open Brewing3ContiXMLFile
Open Brewing3ContiXMLFile
EndIf
EndIf
@ -43,6 +47,17 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_mmr"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var next_pic_bn = DirImage + "/bn_add_order.png"
Var next_pic_bp = DirImage + "/bp_add_order.png"
Var text_next_order = DirImage + "/text_next_order.png"
@ -1087,6 +1102,24 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<Button>
<X> 792 </X>
<Y> 1787 </Y>

View file

@ -13,8 +13,10 @@
If CountryName = "Thailand" Then
If InternationalEnable = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_catalog.lxml"
If EnableMultiInstance = "true" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
EndIf

View file

@ -8,6 +8,10 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
If InternationalEnable = 1 Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf
TopView "show"
; On open

View file

@ -262,6 +262,7 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
EndIf
Var Price5Active = 0
</EventOpen>
<EventLanguageChange>
@ -737,7 +738,7 @@
Open "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_catalog.xml"
</EventUnitTest1>
<EventUnitTest2>
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventUnitTest2>
<EventUnitTest3>

View file

@ -21,30 +21,28 @@
Var GetCreditFlag = 0
Var Xtext19 = 260
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member.lxml"
Open OpenXMLFile
EndIf
EndIf
If show_eng = "true" Then
Var CheckMemberTitle = CheckMemberTitleEN
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var CheckMemberTitle = CheckMemberTitleTH
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "show"
Var luckyDrawTicket = 0
Var luckyDrawAlredyGotReward = 0
@ -54,7 +52,6 @@
Var TaobinCredit = 0
Var show_eng_button_stage = "Enable"
;inter-max-number
If CountryName = "Malaysia" Then
@ -72,23 +69,6 @@
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
EndIf
If LanguageShow = "THAI" Then
EndIf
Refresh
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -219,7 +199,68 @@
</EventActionError>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
;Var CheckMemberTitle = CheckMemberTitleEN
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
If LanguageShow = "THAI" Then
;Var CheckMemberTitle = CheckMemberTitleTH
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
If LanguageShow = "MYANMAR" Then
;Var CheckMemberTitle = CheckMemberTitleMMR
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
;inter-max-number
If CountryName = "Malaysia" Then
Var show_eng_button_stage = "Invisible"
EndIf
;inter-max-number
If CountryName = "Indonesia" Then
Var show_eng_button_stage = "Invisible"
EndIf
;inter-max-number
If CountryName = "Australia" Then
Var show_eng_button_stage = "Invisible"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Button>
@ -547,6 +588,7 @@
<Button>
<X> 44 </X>
<Y> 1783 </Y>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/bn_back.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_back.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -641,15 +683,52 @@
;<Filename> Var( DirImage + "/text_19.png" )</Filename>
;</Image>
;<Text>
;<X> 0 </X>
;<Y> 521 </Y>
;<Width> 1080 </Width>
;<Align> Center </Align>
;<Font> KanitRegularTTF </Font>
;<Color> 0x513C2F </Color>
;<Size> 51 </Size>
;<Value> CheckMemberTitle </Value>
;</Text>
<Text>
<X> 0 </X>
<Y> 521 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowTextTopup </State>
<Width> 1080 </Width>
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0x513C2F </Color>
<Size> 51 </Size>
<Value> CheckMemberTitle </Value>
<Height> 200 </Height>
<Language>
<Refresh> "Enable" </Refresh>
<ID> 002001 </ID>
</Language>
</Text>
<Text>
<X> 0 </X>
<Y> 521 </Y>
<State> ShowTextCoupon </State>
<Width> 1080 </Width>
<Height> 200 </Height>
<Language>
<Refresh> "Enable" </Refresh>
<ID> 002002 </ID>
</Language>
</Text>
<Text>
<X> 0 </X>
<Y> 521 </Y>
<State> ShowTextPass </State>
<Width> 1080 </Width>
<Height> 200 </Height>
<Language>
<Refresh> "Enable" </Refresh>
<ID> 002003 </ID>
</Language>
</Text>
<Image>

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -42,6 +51,12 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""
Var GetAccFlag = 0

File diff suppressed because it is too large Load diff

View file

@ -1,3 +1,4 @@
page_check_member2_campaign
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
@ -11,22 +12,14 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en"
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
SetLanguage "THAI"
EndIf
Var CoffeePointRank = CoffeePointRankTmp
;Var PointDiff = 150 - CoffeePointRank
@ -52,273 +45,12 @@
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "January"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "February"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "March"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "April"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "May"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "June"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "July"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "August"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "September"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "October"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "November"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "December"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
Var TaobinExpireMonthX = "มกราคม"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "ก.พ."
Var TaobinExpireMonthX = "กุมภาพันธ์"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "มี.ค."
Var TaobinExpireMonthX = "มีนาคม"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "เม.ย."
Var TaobinExpireMonthX = "เมษายน"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "พ.ค."
Var TaobinExpireMonthX = "พฤษภาคม"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "มิ.ย."
Var TaobinExpireMonthX = "มิถุนายน"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "ก.ค."
Var TaobinExpireMonthX = "กรกฎาคม"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "ส.ค."
Var TaobinExpireMonthX = "สิงหาคม"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "ก.ย."
Var TaobinExpireMonthX = "กันยายน"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "ต.ค."
Var TaobinExpireMonthX = "ตุลาคม"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "พ.ย."
Var TaobinExpireMonthX = "พฤศจิกายน"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "ธ.ค."
Var TaobinExpireMonthX = "ธันวาคม"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 543
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If show_eng = "true" Then
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "Shy turtle level"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
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 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
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 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Else
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 + " กระดอง "
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 + " กระดอง "
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 FromCheckMemberPoint = 0
@ -331,8 +63,6 @@
Var PolygonST2 = "Invisible"
;Var CouponInfo1 = Ext1a
;Var CouponInfo2 = Ext1b
;Var CouponInfo3 = Ext1c
@ -571,120 +301,8 @@
Var CouponExpireB = CouponExpireB + CouponExireB_Y
EndIf
If show_eng = "true" Then
Var Months[0] = "January"
Var Months[1] = "February"
Var Months[2] = "March"
Var Months[3] = "April"
Var Months[4] = "May"
Var Months[5] = "June"
Var Months[6] = "July"
Var Months[7] = "August"
Var Months[8] = "September"
Var Months[9] = "October"
Var Months[10] = "November"
Var Months[11] = "December"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "Expires " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Else
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 + ")"
EndIf
If show_eng = "true" Then
Var MemberText = "MEMBERSHIP STATUS"
Var CreditTotalLabel = "TAO BIN CREDIT"
Var ShellTotalLabel = "TOTAL SHELL BALANCE"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
Else
Var MemberText = "สถานะสมาชิก"
Var CreditTotalLabel = "เครดิตสะสม"
Var ShellTotalLabel = "กระดองสะสม"
Var CreditUnit = "บาท"
Var ShellUnit = "กระดอง"
Var dayDiff_X = 244
Var dayDiff_Y = 1138
Var dayDiff_Size = 25
EndIf
If MakeDrinkState = 1 Then
Var bn_exit = "/bn_cancel2.png"
Var bp_exit = "/bp_cancel2.png"
@ -765,6 +383,555 @@
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "January"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "February"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "March"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "April"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "May"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "June"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "July"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "August"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "September"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "October"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "November"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "December"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "Shy turtle level"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
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 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
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 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Var Months[0] = "January"
Var Months[1] = "February"
Var Months[2] = "March"
Var Months[3] = "April"
Var Months[4] = "May"
Var Months[5] = "June"
Var Months[6] = "July"
Var Months[7] = "August"
Var Months[8] = "September"
Var Months[9] = "October"
Var Months[10] = "November"
Var Months[11] = "December"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "Expires " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Var MemberText = "MEMBERSHIP STATUS"
Var CreditTotalLabel = "TAO BIN CREDIT"
Var ShellTotalLabel = "TOTAL SHELL BALANCE"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/display_point"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
Var TaobinExpireMonthX = "มกราคม"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "ก.พ."
Var TaobinExpireMonthX = "กุมภาพันธ์"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "มี.ค."
Var TaobinExpireMonthX = "มีนาคม"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "เม.ย."
Var TaobinExpireMonthX = "เมษายน"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "พ.ค."
Var TaobinExpireMonthX = "พฤษภาคม"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "มิ.ย."
Var TaobinExpireMonthX = "มิถุนายน"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "ก.ค."
Var TaobinExpireMonthX = "กรกฎาคม"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "ส.ค."
Var TaobinExpireMonthX = "สิงหาคม"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "ก.ย."
Var TaobinExpireMonthX = "กันยายน"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "ต.ค."
Var TaobinExpireMonthX = "ตุลาคม"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "พ.ย."
Var TaobinExpireMonthX = "พฤศจิกายน"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "ธ.ค."
Var TaobinExpireMonthX = "ธันวาคม"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 543
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 + " กระดอง "
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 + " กระดอง "
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 = "กระดอง"
Var dayDiff_X = 244
Var dayDiff_Y = 1138
Var dayDiff_Size = 25
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_mmr"
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
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
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 = "စုစုပေါင်း Shell"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR TaobinExpireYear
DEBUGVAR CouponExpireA
DEBUGVAR CouponExpireB
DEBUGVAR CouponText
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -1091,6 +1258,9 @@
Else
Var return = "คุณได้รับรางวัล Lucky Draw ไปแล้ว"
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "သင်သည် Lucky Draw ဆုလာဘ်ကို ရရှိပြီးဖြစ်သည်။"
EndIf
)
</Value>
</Text>

View file

@ -11,9 +11,14 @@
Var Timeout = 0
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member3.lxml"
Open OpenXMLFile
EndIf
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
@ -23,6 +28,10 @@
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf

View file

@ -36,6 +36,12 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
RootLayoutVisible 3 "hide"
Var CoffeePointTmp = CoffeePoint
@ -207,6 +213,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
@ -353,6 +426,68 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
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"
@ -652,6 +787,10 @@
Var yPointEndDate = 1563
EndIf
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 520
Var yPointEndDate = 1568
EndIf
</EventOpen>

View file

@ -9,7 +9,14 @@
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_newmember1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +47,12 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""
Var GetAccFlag = 0

View file

@ -9,7 +9,14 @@
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_newmember2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +47,12 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = "ok"
Var GetAccFlag = 0

View file

@ -7,6 +7,14 @@
;<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_1.lxml"
Open OpenXMLFile
EndIf
EndIf
; jump
If IgnoreCollectPointByMe = 1 Then
@ -47,6 +55,10 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
If InternationalEnable = 1 Then
If LanguageShow = "UAE_DUBAI" Then
Var IMG_CNT = CountryRootPath + "/image/page_doing/img2.png"
@ -286,6 +298,10 @@
Var Tel_Confirm_Flag = 1
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -808,6 +824,10 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"
@ -899,6 +919,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<Image>
<X> 152 </X>

View file

@ -8,6 +8,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
SAVELOG UnitTestType
@ -35,6 +44,10 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
@ -46,6 +59,11 @@
Var GetLuckyDraw = 0
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -364,5 +382,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
</Popup>

View file

@ -8,6 +8,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_3.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
;CoffeePoint
;Var CoffeePoint = 30
@ -31,12 +40,24 @@
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 TextEndDateY = 1570
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
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 TextEndDateY = 1570
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var TextEndDateY = 1580
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var CoffeePointTmp = CoffeePoint
@ -364,6 +385,67 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
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 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
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
@ -632,6 +714,10 @@
Var xPointEndDate = 618
EndIf
If LanguageShow = "MYANMAR" Then
Var xPointEndDate = 658
EndIf
Var Point2XState = "Invisible"
Var Point2XImage = ""
If Point2X = 1 Then
@ -749,6 +835,10 @@
Open ChackMemberPage
EndIf
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_check_member2.xml"
@ -1198,7 +1288,7 @@
<Image>
<X> 172 </X>
<Y> 1570 </Y>
<Y> TextEndDateY </Y>
<Filename> Var( DirImage + "/text8.png" )</Filename>
</Image>
@ -1249,6 +1339,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>

View file

@ -39,6 +39,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr/"
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
@ -1210,6 +1219,24 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
</EventUnitTest1>

View file

@ -41,6 +41,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr/"
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var CoffeePointTmp = CoffeePoint
If CoffeePoint > 29 Then
@ -1361,6 +1370,24 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
</EventUnitTest1>

View file

@ -8,6 +8,14 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_error.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
SAVELOG show_eng
@ -22,6 +30,10 @@
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr/"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -14,6 +14,10 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
Var PopUpState1 = "Invisible"
Var PopUpState2 = "Enable"
Var PopUpErrorState = "Invisible"

View file

@ -14,6 +14,10 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
Var PopUpState1 = "Enable"
Var PopUpState2 = "Invisible"
Var PopUpErrorState = "Invisible"

View file

@ -24,6 +24,10 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr"
EndIf
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"

View file

@ -16,6 +16,10 @@
Var DirImage = "ROOT/taobin_project/image/display_disqualified"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_disqualified_mmr"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -32,7 +32,6 @@
EndIf
If TelephoneNumberProblem = "" Then
Else
@ -116,7 +115,11 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Timeout = 0

View file

@ -17,6 +17,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Timeout = 0

View file

@ -28,6 +28,10 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
Var bg_strawlid_ST = "Enable"
Var bg_strawProblem_ST = "Invisible"
;Var bg_strawProblem_Y = 1470
@ -68,6 +72,10 @@
Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/complete_mmr/"
EndIf
Var text_bottom = DirImage + "text_bottom.png"
@ -127,8 +135,13 @@
If show_eng = "true" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
If LanguageShow = "MYANMAR" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png"
Else
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
EndIf
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then

View file

@ -119,14 +119,27 @@
EndIf
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Var Brew3ConInter = CountryRootPath + "/xml/page_brewing3Conti.xml"
If CountryName = "Thailand" Then
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
If Seeker = "next" Then
;CoinBack
Open Brew3ConInter
If Seeker = "next" Then
;CoinBack
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else
Open Brew3Inter
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Var Brew3ConInter = CountryRootPath + "/xml/page_brewing3Conti.xml"
If Seeker = "next" Then
;CoinBack
Open Brew3ConInter
Else
Open Brew3Inter
EndIf
EndIf
Else

View file

@ -16,6 +16,10 @@
Var DirImage = "ROOT/taobin_project/image/display_got_free"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_got_free_mmr"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -1,4 +1,4 @@
<Popup>
ins<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
@ -47,6 +47,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If CameraCount = 1 Then
@ -477,4 +483,3 @@
</EventUnitTest4>
</Popup>

View file

@ -105,6 +105,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If CameraCount = 1 Then
@ -716,4 +722,3 @@
</EventUnitTest4>
</Popup>

View file

@ -89,6 +89,41 @@
EndIf
EndIf
If show_eng = "false" Then
Var DirImage = "ROOT/taobin_project/image/page_lid_straw"
Var PictureEnd = ".png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
Var VideoFileBegin = "TaoBin2_draft02_art"
Var VideoFileEnd = ".mp4"
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
Var PictureBegin = "txt_"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_lid_straw_mmr"
Var BottomText = PicturePath + "text_bottom_mmr.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing_mmr/"
Var PictureBegin = "txt_"
;Var PictureEnd = "_mmr.png"
Var PictureEnd = "_en.png"
EndIf
Else
Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
Var VideoFileBegin = "TaoBin2_draft02_art"
@ -247,6 +282,7 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf

View file

@ -15,32 +15,17 @@
Var SumCreditAmount = TaobinCredit
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "show"
Var PayState1 = "Enable"
Var PayState3 = "Enable"
@ -67,12 +52,60 @@
Var text_4 = "/text_4-IDR.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -127,6 +160,7 @@
<Image>
<X> 70 </X>
<Y> 499 </Y>
<Width> 1080 </Width>
<Filename> Var( DirImage + "/text_3.png" )</Filename>
</Image>
@ -225,6 +259,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -22,25 +22,17 @@
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""
@ -81,6 +73,40 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -122,7 +148,11 @@
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
@ -139,6 +169,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -594,6 +625,10 @@
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
EndIf
Refresh
EndIf
@ -625,6 +660,7 @@
<Image>
<X> 188 </X>
<Y> 640 </Y>
<Width> 730 </Width>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_27 )</Filename>
</Image>

View file

@ -16,30 +16,16 @@
Var SumCreditAmount = TaobinCredit
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
RootLayoutVisible 3 "hide"
Var PayState1 = "Enable"
Var PayState3 = "Enable"
@ -69,8 +55,13 @@
Var PayAmount = 0
Var RemainAmountStr !assigned StringFmt( PayAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
@ -101,6 +92,49 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
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
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -114,7 +148,11 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
@ -122,7 +160,11 @@
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
@ -244,8 +286,13 @@
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
@ -257,9 +304,15 @@
If CoinInOK = 0 Then
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
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"
EndIf
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
@ -292,14 +345,22 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
@ -395,6 +456,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -451,14 +513,22 @@
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf

View file

@ -32,10 +32,19 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var ShowErrorTextY = 935
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var ShowErrorTextY = 935
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var ShowErrorTextY = 925
EndIf
RootLayoutVisible 3 "hide"
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>
@ -638,7 +647,7 @@
<Image>
<X> 152 </X>
<Y> 935 </Y>
<Y> ShowErrorTextY </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>

View file

@ -18,26 +18,14 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -66,6 +54,47 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -192,6 +221,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -10,6 +10,14 @@
Var Timeout = 0
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenTopupSuccessXML = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open OpenTopupSuccessXML
EndIf
EndIf
DEBUGVAR PayAmount
DEBUGVAR TaobinCredit
@ -37,6 +45,11 @@
If CountryName = "Indonesia" Then
Var text_4 = "/text_4-IDR.png"
EndIf
;inter-image
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
@ -52,6 +65,11 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
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 show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -68,6 +86,39 @@
Var ExitState = "Disable"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
;inter-image
If LanguageShow = "MYANMAR" Then
Var text_4 = "/text_4-MMR.png"
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -208,6 +259,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -14,6 +14,15 @@
READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable
DEBUGVAR cash_disable
;Cash for any lang
;include="ROOT/taobin_project/xml/payment_cash.ev"
DEBUGVAR show_eng
DEBUGVAR LanguageShow
;If AdultFlag = 1 Then
; Open "ROOT/taobin_project/xml/page_payment_camera.xml"
;EndIf
@ -49,8 +58,6 @@
EndIf
;inter-xml-open
Var PreScaleCanculate = 1
@ -328,6 +335,9 @@
Else
Var showRemaining = RemainAmountStr + " บาท"
EndIf
If LanguageShow = "MYANMAR" Then
Var showRemaining = RemainAmountStr + " Bath"
EndIf
EndIf
@ -336,14 +346,14 @@
Var Seeker.PayWithQR = 0
Var NoGotoMenupage = "false"
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
;If show_eng = "true" Then
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
;Else
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
;EndIf
Var X_CASH1 = 216
Var X_CASH2 = 439
@ -359,16 +369,16 @@
EndIf
If RoadShow = "true" Then
Var X_CASH1 = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
EndIf
;If RoadShow = "true" Then
;Var X_CASH1 = 287
;If show_eng = "true" Then
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
;Else
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
;EndIf
;EndIf
If GetFreeFromError = 1 Then
Var Seeker.FreeVendingCampaign = 1
@ -447,6 +457,10 @@
Var FlagalphaState2 = 1
Var RemainAmountStr = "ทอน " + Canout
EndIf
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေပြောင်းပါ။ " + Canout
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
@ -469,16 +483,16 @@
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
;If show_eng = "true" Then
;Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
;Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
;Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;Else
;Var DirImage = "ROOT/taobin_project/image/page_payment"
;Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
;Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
;EndIf
Var EnoughChange = "yes"
@ -1219,6 +1233,10 @@
Var PayState2 = "Disable"
EndIf
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
</EventOpen>
<EventActionOk>
@ -2494,6 +2512,10 @@
Var FlagalphaState2 = 1
Var RemainAmountStr = "ทอน " + Canout
EndIf
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေပြောင်းပါ။ " + Canout
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
@ -2548,6 +2570,9 @@
Else
Var showRemaining = "คืนเงิน"
EndIf
If LanguageShow = "MYANMAR" Then
Var showRemaining = "ပြန်အမ်းငွေ"
EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
If FlagQROpened = 1 Then
@ -2579,6 +2604,9 @@
Var return = "ROOT/taobin_project/image/warning/image_warning_energy_drink.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "ROOT/taobin_project/image/warning/image_warning_energy_drink_mmr.png"
EndIf
)
</Filename>
</Image>
@ -3101,13 +3129,16 @@ eval(
Else
Var return = "กำลังยกเลิก..."
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "ပယ်ဖျက်ပါ။..."
EndIf
)
</Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 267 </X>
<X> LOADING_STATE_X </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
@ -3541,7 +3572,12 @@ eval(
<Value> ShowNetworkProblemText </Value>
</Text>
<EventUnitTest1>
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
</EventUnitTest1>

View file

@ -197,6 +197,11 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
EndIf
Var X_CASH = 60
If RoadShow = "true" Then
@ -208,6 +213,11 @@
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash_2.png"
EndIf
EndIf
If GetFreeFromError = 1 Then
@ -280,6 +290,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
Var EnoughChange = "yes"

View file

@ -34,6 +34,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var TelephoneNumber# = ""
Var PlaySoundLag = ""

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePin1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +49,12 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""
Var GetAccFlag = 0

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePin2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -41,6 +50,12 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
RootLayoutVisible 3 "hide"
Var Ext1a = ""
Var TextWaiting = ""

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
</EventOpen>

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinSMS.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If PinSMSFlag = 1 Then
If show_eng = "true" Then

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinSuccess.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
</EventOpen>

View file

@ -38,6 +38,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -34,6 +34,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var TelephoneNumber# = ""
</EventOpen>

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -25,8 +25,18 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var ShowErrorTextX = 424
Var ShowErrorTextY = 945
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var ShowErrorTextX = 444
Var ShowErrorTextY = 945
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
Var ShowErrorTextX = 150
Var ShowErrorTextY = 905
EndIf
@ -607,8 +617,8 @@
</Image>
<Image>
<X> 444 </X>
<Y> 945 </Y>
<X> ShowErrorTextX </X>
<Y> ShowErrorTextY </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
@ -634,8 +644,12 @@
Var Tel2DFlag = 0
If InternationalEnable = 1 Then
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
If CountryName = "Thailand" Then
TRY "ROOT/taobin_project/xml/verify_number.ev"
Else
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
EndIf
Else
TRY "ROOT/taobin_project/xml/verify_number.ev"
EndIf

View file

@ -44,6 +44,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

View file

@ -18,6 +18,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var img_popup11 = "/img_popup19.png"

View file

@ -24,22 +24,14 @@
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -62,21 +54,25 @@
If SumCreditAmount < PayAmountSubDiscount Then
Var Min = PayAmountSubDiscount - SumCreditAmount
If show_eng = "true" Then
Var Text_X = 170
Var posX = 250
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var Text_X = 255
Var posX = 380
SetLanguage "THAI"
EndIf
Else
Var text_44 = "/text_45.png"
If show_eng = "true" Then
Var Text_X = 263
Var posX = 350
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var Text_X = 246
Var posX = 380
SetLanguage "THAI"
EndIf
Var Min = PayAmountSubDiscount
EndIf
@ -120,6 +116,62 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 170
Var posX = 250
Else
Var Text_X = 263
Var posX = 350
EndIf
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 255
Var posX = 380
Else
Var Text_X = 246
Var posX = 380
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 170
Var posX = 250
Else
Var Text_X = 263
Var posX = 350
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -205,7 +257,11 @@ If ViewBill > 0 Then
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
@ -222,6 +278,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -679,7 +736,11 @@ If ViewBill > 0 Then
EndIf
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
Else
Var TextWaiting = "Please wait..."
EndIf
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf

View file

@ -11,26 +11,14 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -73,6 +61,8 @@
Var img_popup15 = "/img_popup15-AUS.png"
EndIf
If
Var CreditAmount = SumCreditAmount
@ -125,6 +115,60 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
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"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If CoinAmount = 0 Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
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"
If CoinAmount = 0 Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -144,15 +188,23 @@
Var CancelCounter = 0
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
SetLanguage "THAI"
EndIf
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
SetLanguage "THAI"
EndIf
CoinVending BILLSTACKALL
@ -314,6 +366,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -363,7 +416,11 @@
<Value>
eval(
If show_eng = "true" Then
Var return = "*Amount must equal or exceed price."
If LanguageShow = "MYANMAR" Then
Var return = "*ပမာဏသည် စျေးနှုန်းနှင့် တူညီရမည်"
Else
Var return = "*Amount must equal or exceed price."
EndIf
Else
Var return = "*จำนวนเงินต้องเท่ากับหรือมากกว่าราคาสินค้า"
EndIf
@ -407,13 +464,21 @@
Var CancelFlag = 1
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf

View file

@ -40,6 +40,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -11,20 +11,13 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -45,6 +38,40 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -141,6 +168,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -54,6 +54,13 @@
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
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"
Var DirImage3 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var show_eng_button_stage = "Enable"
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -65,6 +72,12 @@
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
EndIf
EndIf
Var FlagPayCredit = 1

View file

@ -45,6 +45,16 @@
Var QRCODE6 = ServiceCredit
Var QRCODE7 = ServiceAmount2
Var QRCODE8 = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
EndIf
Var CashTextWarning = ""
@ -292,7 +302,7 @@
<Image>
<X> 166 </X>
<Y> 501 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/text_1.png" </Filename>
<Filename> Var( DirImage + "/text_1.png") </Filename>
</Image>
@ -332,8 +342,8 @@
<X> 287 </X>
<Y> 1282 </Y>
<State>PayState1</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cash.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cash.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_cash.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cash.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -348,8 +358,8 @@
<X> 287 </X>
<Y> 1430 </Y>
<State>PayState2</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_pay_with_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_pay_with_code.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -368,8 +378,8 @@
<X> 287 </X>
<Y> 1578 </Y>
<State>PayState3</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_prompt_pay.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_prompt_pay.png" </FilenamePress>
<Filename> Var( DirImage +"/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage +"/bp_prompt_pay.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -389,8 +399,8 @@
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cancel.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cancel.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_cancel.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -27,6 +27,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0

View file

@ -34,6 +34,11 @@
EndIf
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 show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/keep_your_change_credits_or_receive.mp3"

View file

@ -40,6 +40,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -31,6 +31,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -21,6 +21,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If Seeker.pageStoreCredit0 = 1 Then

View file

@ -40,10 +40,13 @@
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/user_take_cup_th/"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
LED LedDoorDoor 5 255 255 255 255
@ -55,7 +58,51 @@
Var remove_cup_name = ""
Var remove_cup_image = ""
RootLayoutVisible 3 "show"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_th/"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_mmr/"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
Var ButtonLanguageCurrentXPosition = 990
Var ButtonLanguageCurrentYPosition = 648
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 640
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
;SAVELOG MachineErrorDetail

View file

@ -23,6 +23,10 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/consent_mmr/"
EndIf
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_press_accept_consent.mp3"
Else

View file

@ -27,6 +27,10 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/consent_mmr/"
EndIf
Var AcceptFlag = 0
Var AcceptState = "Disable"
</EventOpen>

View file

@ -224,6 +224,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
If NeedUpgrade = "true" Then
@ -245,6 +248,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
DEBUGVAR MachineStage
@ -270,6 +276,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
@ -292,6 +301,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
EndIf
EndIf
@ -314,6 +326,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
@ -332,6 +347,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
EndIf
EndIf
@ -351,6 +369,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
If NETCORE_EVENT_CNT_X >= 30 Then
@ -370,6 +391,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
Var MaintenanceCard = 20
@ -404,7 +428,7 @@
<Image>
<State> show_error_normal </State>
<X> 127 </X>
<X> 0 </X>
<Y> 1750 </Y>
<Filename> Var(DirImage + "/text2.png") </Filename>
</Image>
@ -425,7 +449,7 @@
<Image>
<State> show_error_sp1 </State>
<X> 127 </X>
<X> 0 </X>
<Y> 1685 </Y>
<Filename> Var(DirImage + "/text2.png") </Filename>
</Image>

View file

@ -14,6 +14,12 @@
DEBUGVAR MachineStage
DEBUGVAR stop_now
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_show_error.lxml"
EndIf
EndIf
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
@ -360,6 +366,14 @@
Else
Var show_eng = "true"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var ClickCountMainTe = 0

View file

@ -234,6 +234,7 @@
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID
If CountryName = "Thailand" Then
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3.xml"
Else

View file

@ -31,6 +31,11 @@
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
Var Ext1a = ""

View file

@ -29,6 +29,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""

View file

@ -44,6 +44,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

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