pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/spiral/xml/page_spiral_payment_storeCredit2.xml
worawut 2c3e7fb6ce spiralNow
2024-11-14 11:32:47 +07:00

791 lines
15 KiB
XML
Raw Permalink Blame History

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var Timeout = 0
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
EndIf
If FlagWaitUpdateCoinAmount = 1 Then
If Timeout > 2 Then
If Seeker.thankToppingFlag = 1 Then
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cash.xml"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "1"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "2"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "3"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "4"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "5"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "6"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "7"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "8"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "9"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var PinNumber = PinNumber + "0"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
;Var Tel_Confirm_State = "Enable"
Function 2
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim PinNumber -1
;Var Tel_Confirm_State = "Disable"
StrLen PinNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
If TelNumLen < 1 Then
Var ShowTextNumber1 = "Invisible"
EndIf
If TelNumLen < 2 Then
Var ShowTextNumber2= "Invisible"
EndIf
If TelNumLen < 3 Then
Var ShowTextNumber3= "Invisible"
EndIf
If TelNumLen < 4 Then
Var ShowTextNumber4= "Invisible"
EndIf
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 286 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If FlagOKButton = 0 Then
Var FlagOKButton = 1
Var Seeker.StoreCreditFlag = 1
Var Seeker.CoffeePinNumber = PinNumber
If Seeker.pageStoreCredit0 = 1 Then
Var CoffeeCreditKeep = StoreCreditAmount + 0
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit3.xml"
Else
If ViewBill < RemainAmount Then
CoinVending BILLSTACKALL
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var FlagWaitUpdateCoinAmount = 1
Var Timeout = 0
Else
CoinVending BILLSTACKALL
Var SpiralKeepCredit = 1
Var CoffeeCreditKeep = RemainAmountKeep + 0
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit3.xml"
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Image>
<X> 242 </X>
<Y> 830 </Y>
<Filename> Var( DirImage + "/img4.png" ) </Filename>
</Image>
<Image>
<X> 289 </X>
<Y> 870 </Y>
<State> ShowTextNumber1 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 446 </X>
<Y> 870 </Y>
<State> ShowTextNumber2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 603 </X>
<Y> 870 </Y>
<State> ShowTextNumber3 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 870 </Y>
<State> ShowTextNumber4 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 706 </Y>
<Filename> Var( DirImage + "/text_28.png" )</Filename>
</Image>
<Text>
<X> 525 </X>
<Y> 760 </Y>
<Width> 1080 </Width>
<Size> 30 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> Seeker.TNumberTaobinCredit </Value>
<Format> Telnum </Format>
<Format> Telnum-mask-1 </Format>
</Text>
<Image>
<X> 330 </X>
<Y> 942 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "text_show_notfound.png" )</Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Function2>
If FlagOKButton = 0 Then
Var FlagOKButton = 1
Var Seeker.StoreCreditFlag = 1
Var Seeker.CoffeePinNumber = PinNumber
If Seeker.pageStoreCredit0 = 1 Then
Var CoffeeCreditKeep = StoreCreditAmount + 0
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit3.xml"
Else
If ViewBill < RemainAmount Then
CoinVending BILLSTACKALL
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var FlagWaitUpdateCoinAmount = 1
Var Timeout = 0
Else
CoinVending BILLSTACKALL
Var SpiralKeepCredit = 1
Var CoffeeCreditKeep = RemainAmountKeep + 0
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit3.xml"
EndIf
EndIf
EndIf
Refresh
</Function2>
</Popup>
Reference in a new issue View git blame Copy permalink