pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

...

Browse source
This commit is contained in:
miggaze 2023-07-05 19:07:01 +07:00
parent 1f0904ae2e
commit 80ccab2571
1 changed files with 87 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

133
xml/page_drinkfail2.xml
View file

@ -4,7 +4,7 @@
<Height> 1920 </Height> <Height> 1920 </Height>
<Background> "0xEFEDEA" </Background> <Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh> ;<Refresh> "Partial" </Refresh>
<EventOpen> <EventOpen>
; On open ; On open
@ -154,6 +154,16 @@
EndIf EndIf
Var text22 = "/text22.png" Var text22 = "/text22.png"
Var MaxNumber = 10
If CountryName = "Malaysia" Then
Var MaxNumber = 11
EndIf
If CountryName = "Indonesia" Then
Var MaxNumber = 12
EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -212,15 +222,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "1" Var TelephoneNumberProblem = TelephoneNumberProblem + "1"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick> </EventClick>
@ -236,15 +249,19 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "2" Var TelephoneNumberProblem = TelephoneNumberProblem + "2"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick> </EventClick>
@ -260,15 +277,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "3" Var TelephoneNumberProblem = TelephoneNumberProblem + "3"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
@ -285,15 +305,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "4" Var TelephoneNumberProblem = TelephoneNumberProblem + "4"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
@ -310,15 +333,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "5" Var TelephoneNumberProblem = TelephoneNumberProblem + "5"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
@ -335,15 +361,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "6" Var TelephoneNumberProblem = TelephoneNumberProblem + "6"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
@ -360,15 +389,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "7" Var TelephoneNumberProblem = TelephoneNumberProblem + "7"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
@ -385,15 +417,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "8" Var TelephoneNumberProblem = TelephoneNumberProblem + "8"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick> </EventClick>
@ -409,16 +444,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "9" Var TelephoneNumberProblem = TelephoneNumberProblem + "9"
Var ShowTextNumber = "Invisible" Trim TelephoneNumberProblem MaxNumber
Trim TelephoneNumberProblem 10
TimerReset
Refresh
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -433,16 +470,18 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumberProblem = TelephoneNumberProblem + "0" Var TelephoneNumberProblem = TelephoneNumberProblem + "0"
Trim TelephoneNumberProblem 10 Trim TelephoneNumberProblem MaxNumber
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
TimerReset TimerReset
Refresh Refresh
Var ShowErrorText = "Invisible"
</EventClick> </EventClick>
@ -459,15 +498,17 @@
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Trim TelephoneNumberProblem -1 Trim TelephoneNumberProblem -1
Var Tel_Confirm_State = "Disable"
StrLen TelephoneNumberProblem TelNumLen StrLen TelephoneNumberProblem TelNumLen
If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible"
EndIf
If TelNumLen = 0 Then If TelNumLen = 0 Then
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
EndIf EndIf
;Var ShowErrorText = "Invisible"
TimerReset TimerReset
Refresh Refresh
@ -596,7 +637,7 @@
<X> 400 </X> <X> 400 </X>
<Y> 1160 </Y> <Y> 1160 </Y>
<State> ShowTextNumber </State> <State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh> ;<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text15.png" )</Filename> <Filename> Var( DirImage + "/text15.png" )</Filename>
</Image> </Image>
@ -604,7 +645,7 @@
<X> 293 </X> <X> 293 </X>
<Y> 1140 </Y> <Y> 1140 </Y>
<State> ShowTextNumber </State> <State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh> ;<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename> <Filename> Var( DirImage + "/Group.png" )</Filename>
</Image> </Image>
@ -616,9 +657,9 @@
<Size> 62 </Size> <Size> 62 </Size>
<Font> RobotoBlack </Font> <Font> RobotoBlack </Font>
<Color> 0x513C2F </Color> <Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumberProblem </Value> <Value> TelephoneNumberProblem </Value>
<Format> Telnum </Format> <Format> Telnum-mask-1 </Format>
</Text> </Text>