add lazada and indo malay

This commit is contained in:
pichet 2023-01-16 14:44:05 +07:00
parent b5481c7aef
commit c67964fa20
83 changed files with 4905 additions and 1019 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 72 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 69 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 72 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 11 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 11 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 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: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 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: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 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: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 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: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

View file

@ -43,10 +43,7 @@
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var StepX = 2
@ -58,6 +55,20 @@
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
Var MaxNumber = 10
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -192,7 +203,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
@ -204,22 +215,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
</EventClick>
</Button>
@ -234,7 +230,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -247,21 +243,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
</EventClick>
</Button>
@ -277,7 +259,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -290,22 +272,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
</EventClick>
</Button>
@ -320,7 +287,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -333,21 +300,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
</EventClick>
</Button>
@ -363,7 +316,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -376,21 +329,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
</EventClick>
</Button>
@ -406,7 +345,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -419,21 +358,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
</EventClick>
</Button>
@ -449,7 +374,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -462,21 +387,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
</EventClick>
</Button>
@ -492,7 +403,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -505,21 +416,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
</EventClick>
</Button>
@ -534,7 +431,7 @@
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
@ -547,22 +444,7 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
</EventClick>
</Button>
@ -576,7 +458,7 @@
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
@ -591,21 +473,8 @@
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
</EventClick>
</Button>
@ -620,9 +489,17 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"

View file

@ -878,9 +878,21 @@
Var bn_exit = "/bn_main.png"
Var bp_exit = "/bp_main.png"
EndIf
Var text5Img = "/text5.png"
If CountryName = "Malaysia" Then
Var text5Img = "/text5-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var text5Img = "/text5-IDR.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
</EventOpen>
@ -1005,7 +1017,7 @@
<Image>
<X> 162 </X>
<Y> 560 </Y>
<Filename> Var( DirImage + "/text5.png" )</Filename>
<Filename> Var( DirImage + text5Img )</Filename>
</Image>
@ -1066,7 +1078,7 @@
<Align> Center </Align>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCredit </Value>
<Value> TaobinCreditStr </Value>
</Text>
<Text>

View file

@ -63,10 +63,7 @@
If Seeker.TNumberTaobinCredit = "" Then
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
If web_telnumOK = "" Then
@ -125,6 +122,17 @@
Var Tel_Confirm_Flag = 1
Var MaxNumber = 10
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -207,14 +215,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -222,26 +226,12 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -255,13 +245,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -269,25 +256,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -300,13 +270,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -314,25 +281,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -345,13 +295,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -359,25 +306,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -390,13 +320,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -404,25 +331,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -435,13 +345,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -449,25 +356,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -480,13 +370,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -494,25 +381,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -525,13 +395,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -539,25 +406,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -570,13 +420,10 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
@ -584,25 +431,8 @@
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -616,38 +446,19 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
@ -661,9 +472,13 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"

View file

@ -53,6 +53,20 @@
Var MemberState3 = "Enable"
EndIf
Var img_popup2 = "/img_popup2.png"
Var img_popup3 = "/img_popup3.png"
If CountryName = "Malaysia" Then
Var img_popup2 = "/img_popup2-MYR.png"
Var img_popup3 = "/img_popup3-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup2 = "/img_popup2-IDR.png"
Var img_popup3 = "/img_popup3-IDR.png"
EndIf
@ -141,14 +155,14 @@
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState2 </State>
<Filename> Var( DirImage + "/img_popup2.png" )</Filename>
<Filename> Var( DirImage + img_popup2 )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<State> MemberState3 </State>
<Filename> Var( DirImage + "/img_popup3.png" )</Filename>
<Filename> Var( DirImage + img_popup3 )</Filename>
</Image>

View file

@ -34,6 +34,19 @@
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Dont_forget_your_changes_below.mp3"
EndIf
Var imgGetChange = "/imgGetChange.png"
If CountryName = "Malaysia" Then
Var imgGetChange = "/imgGetChange-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var imgGetChange = "/imgGetChange-IDR.png"
EndIf
;INT StoreCreditAmount
Var StoreCreditAmountStr !assigned StringFmt( StoreCreditAmount, DisplayFormat, PreScaleConvertShow )
</EventOpen>
<Timeout> 1000 </Timeout>
@ -99,6 +112,14 @@
</EventClick>
</Button>
<Image>
<X> 70 </X>
<Y> 932 </Y>
<Filename> Var( DirImage + imgGetChange ) </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1123 </Y>
@ -107,13 +128,7 @@
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> StoreCreditAmount </Value>
<Value> StoreCreditAmountStr </Value>
</Text>
<Image>
<X> 70 </X>
<Y> 932 </Y>
<Filename> Var( DirImage + "/imgGetChange.png" ) </Filename>
</Image>
</Popup>

View file

@ -50,6 +50,19 @@
Var PayCreditChannel = "cash"
Var text_4 = "/text_4.png"
If CountryName = "Malaysia" Then
Var PayState3 = "Invisible"
Var text_4 = "/text_4-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var text_4 = "/text_4-IDR.png"
EndIf
INT TaobinCredit
Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow )
@ -109,20 +122,20 @@
<Image>
<X> 252 </X>
<Y> 1223 </Y>
<Filename> Var( DirImage + "/text_4.png" )</Filename>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1280 </Y>
<Size> 144 </Size>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmount </Value>
<Value> TaobinCreditStr </Value>
</Text>

View file

@ -40,10 +40,7 @@
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var Ext1a = ""
@ -52,6 +49,33 @@
Var GetPayInfoFlag = 0
Var TextWaiting = ""
Var text_27 = "/text_27.png"
Var text_show_amountInvalid = "/text_show_amountInvalid.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
Var Min = 20
Var Max = 5000
If CountryName = "Malaysia" Then
Var text_27 = "/text_27-MYR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-MYR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-MYR.png"
Var Min = 2
Var Max = 500
EndIf
If CountryName = "Indonesia" Then
Var text_27 = "/text_27-IDR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-IDR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-IDR.png"
Var Min = 9000
Var Max = 2000000
EndIf
</EventOpen>
@ -473,23 +497,23 @@
Var Amount = AmountNumber
INT Amount
If Amount < 20 Then
If Amount < Min Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = "/text_show_amountInvalid.png"
Var text_show_error = text_show_amountInvalid
Refresh
Else
If Amount > 5000 Then
If Amount > Max Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = "/text_show_amountInvalid2.png"
Var text_show_error = text_show_amountInvalid2
Refresh
@ -538,7 +562,11 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
If CountryName = "Indonesia" Then
Var ECommerceQR = ECommerceQR + "IND:2/"
Else
Var ECommerceQR = ECommerceQR + "KBA:2/"
EndIf
Var ECommerceQR = ECommerceQR + "CRX"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TelephoneNumber
@ -596,7 +624,7 @@
<X> 188 </X>
<Y> 640 </Y>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_27.png" )</Filename>
<Filename> Var( DirImage + text_27 )</Filename>
</Image>

View file

@ -51,11 +51,29 @@
INT AmountNumber
Var img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup11-IDR.png"
Var img_popup15 = "/img_popup15-IDR.png"
EndIf
Var PayAmount = AmountNumber
Var RemainAmount = PayAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var CoinInFlag = 0
Var CoinInOK = 0
Var ChangeOK = 0
@ -75,6 +93,8 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
</EventOpen>
@ -230,19 +250,28 @@
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
;CoinVending BILLSTACKALL
Var RemainAmountKeep = 0
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
If ViewBill = RemainAmount Then
CoinVending BILLSTACKALL
Else
Var RemainAmountKeep = 0
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
EndIf
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Else
@ -263,13 +292,21 @@
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
Else
Var RemainAmountStr = "ทอน " + Canout
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Change " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
EndIf
@ -284,6 +321,7 @@
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Timeout = 0
@ -310,13 +348,26 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
If show_eng = "true" Then
Var RemainAmountStr = "keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
@ -438,7 +489,7 @@
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
<Filename> Var( DirImage2 + img_popup11 )</Filename>
</Image>
@ -492,12 +543,24 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
EndIf
@ -525,12 +588,24 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
EndIf
@ -543,19 +618,19 @@
<X> 181 </X>
<Y> 658 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup15.png" )</Filename>
<Filename> Var( DirImage2 + img_popup15 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1010 </Y>
<Size> 144 </Size>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState3 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountKeep </Value>
<Value> RemainAmountKeepStr </Value>
</Text>
@ -596,9 +671,17 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
EndIf

View file

@ -48,6 +48,17 @@
Var VendingExtResult = ""
Var img_popup1 = "/img_popup1.png"
If CountryName = "Malaysia" Then
Var img_popup1 = "/img_popup7.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup1 = "/img_popup7.png"
EndIf
@ -200,7 +211,7 @@
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
<Filename> Var( DirImage + img_popup1 )</Filename>
</Image>

View file

@ -22,6 +22,19 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var text_4 = "/text_4.png"
If CountryName = "Malaysia" Then
Var PayState3 = "Invisible"
Var text_4 = "/text_4-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var text_4 = "/text_4-IDR.png"
EndIf
@ -62,6 +75,8 @@
If PayCreditChannel = "cash" Then
Var SumCreditAmount = TaobinCredit + CoinAmount
Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var TelephoneNumber = TelephoneNumber
Var PayO2 = PinNumber
@ -134,19 +149,19 @@
<Image>
<X> 252 </X>
<Y> 1053 </Y>
<Filename> Var( DirImage + "/text_4.png" )</Filename>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1123 </Y>
<Size> 144 </Size>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmount </Value>
<Value> SumCreditAmountStr </Value>
</Text>
<Button>

File diff suppressed because it is too large Load diff

File diff suppressed because it is too large Load diff

View file

@ -441,6 +441,71 @@
<Button>
<X> 441 </X>
<Y> 1112 </Y>
<State> WalletEnable </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_lazpay.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_lazpay.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_lazpay.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var QR_POPUP = "/img_popup10.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LZP:2/"
;If IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
;EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Var ReqPayInfoFromCashOther = 1
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 673 </X>
<Y> 1112 </Y>
<State> "Enable" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_ccard1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_ccard1.png" </FilenamePress>
@ -459,7 +524,7 @@
</Button>
<Button>
<X> 441 </X>
<X> 673 </X>
<Y> 1112 </Y>
<State> InvisibleCCard </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </Filename>
@ -474,21 +539,7 @@
</EventClick>
</Button>
<Button>
<X> 673 </X>
<Y> 1112 </Y>
<State> "Enable" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 397 </X>

View file

@ -29,11 +29,7 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var Ext1a = ""
Var GetAccFlag = 0
@ -66,6 +62,19 @@
EndIf
Var MaxNumber = 10
Var PosX_Cancel = 397
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
Var PosX_Cancel = 218
EndIf
@ -190,37 +199,28 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
TimerReset
Refresh
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -233,37 +233,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -276,37 +264,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -319,37 +295,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -362,37 +326,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -405,37 +357,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -448,37 +388,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -491,37 +419,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -534,37 +450,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
Var ShowTextNumber = "Invisible"
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -577,38 +481,25 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen >= 10 Then
If MaxNumber > 10 Then
Var Tel_Confirm_State = "Enable"
Else
Function 2
EndIf
EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -623,9 +514,12 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
@ -639,9 +533,8 @@
</EventClick>
</Button>
<Button>
<X> 397 </X>
<X> PosX_Cancel </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
@ -675,8 +568,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 19
Function 2
</EventClick>

View file

@ -23,6 +23,9 @@
Var SumCreditAmount = CoffeeCredit
Var SumCreditAmount2 = SumCreditAmount
Var useCreditTemp = 0;
@ -78,6 +81,18 @@
;Var Tel_Confirm_State = "Invisible"
Var showRemaining !assigned StringFmt( SumCreditAmount2, DisplayFormat, PreScaleConvertShow )
Var img_popup11 = "/img_popup11.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup11-IDR.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -264,7 +279,7 @@
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage + "/img_popup11.png" ) </Filename>
<Filename> Var( DirImage + img_popup11 ) </Filename>
</Image>
<Text>
@ -276,7 +291,7 @@
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmount2 </Value>
<Value> showRemaining </Value>
</Text>

View file

@ -29,15 +29,23 @@
Var FlagWaitUpdateCoinAmount = 0
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var Ext1a = ""
Var GetAccFlag = 0
Var MaxNumber = 10
If CountryName = "Malaysia" Then
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
EndIf
</EventOpen>
@ -209,36 +217,19 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -250,37 +241,20 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -293,36 +267,21 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -334,37 +293,20 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -378,36 +320,19 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -420,36 +345,19 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -461,37 +369,20 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
If TelNumLen = 8 Then
Var number8 = "7"
EndIf
If TelNumLen = 9 Then
Var number9 = "7"
EndIf
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -504,36 +395,19 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
If TelNumLen = 8 Then
Var number8 = "8"
EndIf
If TelNumLen = 9 Then
Var number9 = "8"
EndIf
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -545,37 +419,20 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
If TelNumLen = 8 Then
Var number8 = "9"
EndIf
If TelNumLen = 9 Then
Var number9 = "9"
EndIf
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -587,38 +444,20 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
Trim TelephoneNumber MaxNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowErrorText2 = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
TimerReset
Refresh
</EventClick>
</Button>
@ -633,9 +472,14 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"

View file

@ -820,7 +820,6 @@
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> Seeker.TNumberTaobinCredit </Value>
<Format> Telnum </Format>
<Format> Telnum-mask-1 </Format>
</Text>

View file

@ -743,7 +743,6 @@
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> Seeker.TNumberTaobinCredit </Value>
<Format> Telnum </Format>
<Format> Telnum-mask-1 </Format>
</Text>

View file

@ -29,6 +29,20 @@
CoinVending OFF
EndIf
Var CoffeeCreditKeepStr !assigned StringFmt( CoffeeCreditKeep, DisplayFormat, PreScaleConvertShow )
Var img_popup15 = "/img_popup15.png"
If CountryName = "Malaysia" Then
Var img_popup15 = "/img_popup15-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup15 = "/img_popup15-IDR.png"
EndIf
DEBUGVAR Seeker.TNumberTaobinCredit
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -128,7 +142,7 @@
<Image>
<X> 157 </X>
<Y> 786 </Y>
<Filename> Var( DirImage + "/img_popup15.png" ) </Filename>
<Filename> Var( DirImage + img_popup15 ) </Filename>
</Image>
@ -148,12 +162,12 @@
<Text>
<X> 0 </X>
<Y> 1215 </Y>
<Size> 144 </Size>
<Size> 110 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> CoffeeCreditKeep </Value>
<Value> CoffeeCreditKeepStr </Value>
</Text>

View file

@ -81,6 +81,24 @@
</Image>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<Image>
@ -149,47 +167,9 @@
<Filename> video_menu_0 </Filename>
</Video>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;
<Text>
<X> 808 </X>
<Y> 480 </Y>
<Width> 1080</Width>
<Align> "Hurr" </Align>
<Size> 88 </Size>
<Font> "ROOT/taobin_project/font/Roboto/Roboto-Regular.ttf"</Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
;
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"

View file

@ -79,11 +79,17 @@
If Seeker = "next" Then
Var NextOrder = "true"
EndIf
If VendingCreditRemain = "" Then
Var RemainCreditST = "Invisible"
Else
Var RemainCreditST = "Enable"
Var VendingCreditRemainx = VendingCreditRemain
INT VendingCreditRemainx
Var VendingCreditRemain !assigned StringFmt( VendingCreditRemainx, DisplayFormat, PreScaleConvertShow )
EndIf
Var SaveTheWorldST = "Invisible"
@ -155,6 +161,16 @@
Var TimeoutToNext = 5
Var ThankyouST = "Invisible"
Var remainCredit = "/remainCredit.png"
If CountryName = "Malaysia" Then
Var remainCredit = "/remainCredit-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var remainCredit = "/remainCredit-IDR.png"
EndIf
</EventOpen>
@ -398,13 +414,13 @@
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> Var( DirImage + "/remainCredit.png" ) </Filename>
<Filename> Var( DirImage + remainCredit ) </Filename>
</Image>
<Text>
<X> 760 </X>
<Y> 480 </Y>
<Size> 70 </Size>
<Size> 60 </Size>
<Width> 413</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>