This commit is contained in:
wanlop run 2024-12-11 13:22:46 +07:00
commit 5d733eca34
36 changed files with 105 additions and 21 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.3 KiB

After

Width:  |  Height:  |  Size: 2.9 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 5.9 KiB

After

Width:  |  Height:  |  Size: 7.7 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.1 KiB

After

Width:  |  Height:  |  Size: 8.1 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.1 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.2 KiB

After

Width:  |  Height:  |  Size: 8.1 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 122 KiB

After

Width:  |  Height:  |  Size: 133 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.9 KiB

After

Width:  |  Height:  |  Size: 12 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 36 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.8 KiB

View file

@ -895,6 +895,7 @@
Var text_cancel_yc = 16 Var text_cancel_yc = 16
Var Text_SugarZeroCalPrice_X = 360 Var Text_SugarZeroCalPrice_X = 360
Var Text_SugarNormalPrice_Y = 80 Var Text_SugarNormalPrice_Y = 80
Var OatMilkPrice_X = 260
If show_name_len > 24 Then If show_name_len > 24 Then
Var showname = showname + "###size=54" Var showname = showname + "###size=54"
EndIf EndIf
@ -918,6 +919,7 @@
Var text_cancel_yc = 16 Var text_cancel_yc = 16
Var Text_SugarZeroCalPrice_X = 360 Var Text_SugarZeroCalPrice_X = 360
Var Text_SugarNormalPrice_Y = 75 Var Text_SugarNormalPrice_Y = 75
Var OatMilkPrice_X = 220
If show_name_len > 0 Then If show_name_len > 0 Then
Var showname = showname + "###size=68" Var showname = showname + "###size=68"
EndIf EndIf
@ -942,6 +944,7 @@
Var text_cancel_xc = 5 Var text_cancel_xc = 5
Var text_cancel_yc = 30 Var text_cancel_yc = 30
Var show_eng = "true" Var show_eng = "true"
Var OatMilkPrice_X = 210
If show_name_len > 24 Then If show_name_len > 24 Then
Var showname = showname + "###size=54" Var showname = showname + "###size=54"
EndIf EndIf
@ -954,8 +957,10 @@
EndIf EndIf
EndIf EndIf
;Var StringToppingOatMilkWithPrice !assigned GetLanguageID( 000108, LanguageShowByIndex) Var StringToppingOatMilkWithPrice !assigned GetLanguageID( 000113, LanguageShowByIndex)
;Var StringToppingOatMilkWithPrice = StringToppingOatMilkWithPrice + OatMilkPrice DEBUGVAR StringToppingOatMilkWithPrice
Var StringToppingOatMilkWithPrice = StringToppingOatMilkWithPrice + OatMilkPrice
DEBUGVAR StringToppingOatMilkWithPrice
Var StringToppingOreoWithPrice !assigned GetLanguageID( 000101, LanguageShowByIndex) Var StringToppingOreoWithPrice !assigned GetLanguageID( 000101, LanguageShowByIndex)
Var StringToppingOreoWithPrice = StringToppingOreoWithPrice + text_price_6 Var StringToppingOreoWithPrice = StringToppingOreoWithPrice + text_price_6
@ -2813,7 +2818,7 @@
Var high_light_drink_type = "Invisible" Var high_light_drink_type = "Invisible"
Var IndexDrinktType = 0
</EventClick> </EventClick>
@ -2871,7 +2876,7 @@
Var topping_price_refresh = 0 Var topping_price_refresh = 0
Topping "Load" PD_CODE2 Topping "Load" PD_CODE2
Var IndexDrinktType = 1
</EventClick> </EventClick>
<Language> <Language>
@ -2929,7 +2934,7 @@
Topping "Load" PD_CODE3 Topping "Load" PD_CODE3
Var IndexDrinktType = 2
</EventClick> </EventClick>
<Language> <Language>
@ -6071,9 +6076,20 @@
<Height> 65 </Height> <Height> 65 </Height>
<Language> <Language>
<ID> 000113 </ID> <ID> 000113 </ID>
<SubValue> OatMilkPrice </SubValue>
</Language> </Language>
</Text> </Text>
;<Text>
;<X> OatMilkPrice_X </X>
;<Y> 77 </Y>
;<Font> KanitRegularTTF </Font>
;<State> "Enable" </State>
;<Size> 28 </Size>
;<Color> 0x84776F </Color>
;<Value> OatMilkPrice </Value>
;</Text>
</Block> </Block>
; ;
; ;
@ -8436,12 +8452,15 @@
If SelectCountDrinkType = 1 Then If SelectCountDrinkType = 1 Then
If DefaultDrinkType = 1 Then If DefaultDrinkType = 1 Then
Var hot_button_state = "PressForever" Var hot_button_state = "PressForever"
Var IndexDrinktType = 0
EndIf EndIf
If DefaultDrinkType = 2 Then If DefaultDrinkType = 2 Then
Var cold_button_state = "PressForever" Var cold_button_state = "PressForever"
Var IndexDrinktType = 1
EndIf EndIf
If DefaultDrinkType = 3 Then If DefaultDrinkType = 3 Then
Var blend_button_state = "PressForever" Var blend_button_state = "PressForever"
Var IndexDrinktType = 2
EndIf EndIf
EndIf EndIf

View file

@ -1117,6 +1117,9 @@
If EnableMultiInstance = "true" Then If EnableMultiInstance = "true" Then
If CountryName = "Thailand" Then If CountryName = "Thailand" Then
; test payment
Var New_Payment = 1
Var InternationalEnable = 1 Var InternationalEnable = 1
DEBUGVAR InternationalEnable DEBUGVAR InternationalEnable
@ -1135,7 +1138,7 @@
Var ENABLE_UAE_DUBAI = "Invisible" Var ENABLE_UAE_DUBAI = "Invisible"
EnableLanguage "ENG" EnableLanguage "ENG"
EnableLanguage "THAI" EnableLanguage "THAI"
EnableLanguage "MYANMAR" ;EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR" EnableLanguage "MYANMAR"
@ -1154,6 +1157,7 @@
Var ShowButtonClick2 = "Invisible" Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable" Var ButtontoTopupMenu = "Enable"
Var CurrentPageShowError = 0
Var PriceUnitText = "" Var PriceUnitText = ""

View file

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

View file

@ -8,6 +8,8 @@
<EventOpen> <EventOpen>
; On open ; On open
RootLayoutVisible 3 "hide"
Var Seeker.TNumberTaobinMember = "" Var Seeker.TNumberTaobinMember = ""

View file

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

View file

@ -1233,10 +1233,11 @@
Var PayState2 = "Disable" Var PayState2 = "Disable"
EndIf EndIf
Var PayState2 = "Enable" ;for test
Var PayState3 = "Enable" ;Var PayState2 = "Enable"
Var PayState4 = "Enable" ;Var PayState3 = "Enable"
Var PayState5 = "Enable" ;Var PayState4 = "Enable"
;Var PayState5 = "Enable"
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>

View file

@ -18,6 +18,11 @@
Var countClick = 0 Var countClick = 0
Var countClick2 = 0 Var countClick2 = 0
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var CurrentPageShowError = 1
EndIf
EndIf
DEBUGVAR MachineStage DEBUGVAR MachineStage
DEBUGVAR stop_now DEBUGVAR stop_now
@ -198,7 +203,7 @@
Function 2 Function 2
Refresh RefreshAll
</EventLanguageOnChange> </EventLanguageOnChange>
<Function2> <Function2>

View file

@ -69,6 +69,13 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou" Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf EndIf
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
EndIf
DEBUGVAR StarwState DEBUGVAR StarwState
DEBUGVAR LidState DEBUGVAR LidState
DEBUGVAR BottomText DEBUGVAR BottomText

View file

@ -48,6 +48,13 @@
Var BottomText = PicturePath + "text_bottom_thai2.png" Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf EndIf
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
EndIf
;DEBUGVAR StarwState ;DEBUGVAR StarwState
;DEBUGVAR LidState ;DEBUGVAR LidState
DEBUGVAR BottomText DEBUGVAR BottomText
@ -108,6 +115,10 @@
Var DirImage2 = "ROOT/taobin_project/image/complete/" Var DirImage2 = "ROOT/taobin_project/image/complete/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/complete_mmr/"
EndIf
Var txtDrinkOKState = "Invisible" Var txtDrinkOKState = "Invisible"
Var buttonRemoveCup = "Invisible" Var buttonRemoveCup = "Invisible"
@ -282,12 +293,25 @@
Else Else
Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ" Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ"
EndIf EndIf
<<<<<<< HEAD
Else Else
=======
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
EndIf
Else
>>>>>>> 3637980ada4fd59458b0d1e714c0a7b556fbf717
If CupChecking = "true" Then If CupChecking = "true" Then
If show_eng = "true" Then If show_eng = "true" Then
Var MachineErrorDetailAll = " Please take a cup." Var MachineErrorDetailAll = " Please take a cup."
Else Else
Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ" Var MachineErrorDetailAll = " กรุณานำแก้วออกก่อนครับ/คะ"
<<<<<<< HEAD
=======
EndIf
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
>>>>>>> 3637980ada4fd59458b0d1e714c0a7b556fbf717
EndIf EndIf
Else Else
If show_eng = "true" Then If show_eng = "true" Then
@ -295,6 +319,9 @@
Else Else
Var MachineErrorDetailAll = " กรุณากดปุ่ม แล้วนำแก้วออกก่อนครับ/คะ" Var MachineErrorDetailAll = " กรุณากดปุ่ม แล้วนำแก้วออกก่อนครับ/คะ"
EndIf EndIf
If LanguageShow = "MYANMAR" Then
Var MachineErrorDetailAll = " ကျေးဇူးပြုပြီး ဖန်ခွက်ကို အရင်ထုတ်ပါ။"
EndIf
EndIf EndIf
EndIf EndIf

View file

@ -39,6 +39,13 @@
Var BottomText = PicturePath + "text_bottom_thai2.png" Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf EndIf
If LanguageShow = "MYANMAR" Then
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_mmr"
EndIf
DEBUGVAR StarwState DEBUGVAR StarwState
DEBUGVAR LidState DEBUGVAR LidState
DEBUGVAR BottomText DEBUGVAR BottomText

View file

@ -219,17 +219,21 @@
DEBUGVAR BrewCommand DEBUGVAR BrewCommand
Var BrewCommand = "-" Var BrewCommand = "-"
If EnableMultiInstance = "true" Then If EnableMultiInstance = "true" Then
InstanceOverSetString "RefreshNow" 5 If CurrentPageShowError = 1 Then
InstanceOverSetString "RefreshNow" 6 ;do not thing
InstanceOverSetString "RefreshNow" 7 Else
InstanceOverSetString "RefreshNow" 8 InstanceOverSetString "RefreshNow" 5
InstanceOverSetString "RefreshNow" 9 InstanceOverSetString "RefreshNow" 6
InstanceOverSetString "RefreshNow" 10 InstanceOverSetString "RefreshNow" 7
InstanceOverSetString "RefreshNow" 11 InstanceOverSetString "RefreshNow" 8
; TODO InstanceOverSetString "RefreshNow" 9
InstanceOverSetString "RefreshNow" 10
InstanceOverSetString "RefreshNow" 11
; TODO
; Trick Refresh First ; Trick Refresh First
Var SlientRefreshIndex = 2 Var SlientRefreshIndex = 2
EndIf
EndIf EndIf
If Not#CountDownForMulti = 99 Then If Not#CountDownForMulti = 99 Then