pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/xml/page_brewing3.xml
kong 0cf2bbe777 DO
2021-10-11 23:22:57 +07:00

936 lines
20 KiB
XML
Raw Blame History

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
If show_eng = "true" Then
;Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Else
;Var DirImage = "ROOT/taobin_project/image/collect_point1"
Play "ROOT/taobin_project/sound_thai/thankyou.mp3"
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
If PayWithQR = 1 Then
Var VendingTSIDTmp = VendingTSID
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If StoreCreditFlag = 1 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
EndIf
If TNumberTaobinCredit = "" Then
If TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
If TNumberTaobinMember = "" Then
Else
If PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
Else
Var VendingTSID = ""
EndIf
Var BmiYear = PointTaobinStr
Var PointCrm = ""
If FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If TaobinErrorNetwork = 0 Then
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
AddData 14 TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
;Var TNumberTaobinMember = ""
Var VendingTSID = ""
EndIf
If GetFreeFromError = 1 Then
;Var GetFreeFromError = 0
Var TelephoneNumberProblem = TelephoneNumberGOTFree
EndIf
If LedLidBlink = "true" Then
Var LedLidBlink = "no"
LED LedDoorLid Blink 255 255 255 255
EndIf
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
If waitAckPay = 1 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
If Simulation = "true" Then
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf
; run test;
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 1 Then
If Timeout > 60 Then
Var VendingTSID = ""
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 315."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
Var SVT = "coffee"
Var ACC = "0899999999"
If TNumberTaobinMember = "" Then
Else
Var ACC = TNumberTaobinMember
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var DEE = PayDetail
PAYEXT SVT ACC VendingTSIDTmp DEE
Var ActionOKCase = 1
If CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var Timeout = 5
EndIf
EndIf
If MachineState_Result = 1 Then
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
Var ProcessText = ""
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var CodeChannel = 1
Var VendingCode = "C48"
Var CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
EndIf
If PayWithQR = 0 Then
If CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If CodeChannel = 2 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Else
;no wait ack pay
Var waitAckPay = 0
Var SVT = "coffee"
Var ACC = "0899999999"
Var DEE = PayDetail
If TNumberTaobinMember = "" Then
Else
Var ACC = TNumberTaobinMember
EndIf
PAYEXT SVT ACC VendingTSIDTmp DEE
EndIf
EndIf
Var ServiceSuccess = "yes"
If waitAckPay = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If MachineState_Result = 2 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - IntVendingCampaign
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
If MachineStage = "show-menu" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 655."
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
Var MachineState_Result = 1
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 663."
Var MachineState_Result = 2
;Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
EndIf
DEBUGVAR CountUpBrewing
; animation video loop
If AnimationOn = "true" Then
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
Var PreviseStepVideo = SlotVideo
;SAVELOG PreviseStepVideo
;SAVELOG SlotVideo
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
Var videoID = VideoID1
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
EndIf
;SAVELOG videoID
If videoID = 0 Then
Else
If videoID = "---" Then
Else
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + videoID
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
EndIf
EndIf
EndIf
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventMachine>
;If MachineStage = "drink-success" Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
;If MachineStage = "drink-failed" Then
; Open "ROOT/taobin_project/xml/page_drinkfail.xml"
;EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
EndIf
Refresh
</EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 60 </X>
<Y> 1290 </Y>
<Filename> PictureFile</Filename>
</Image>
<Image>
<X> 60 </X>
<Y> 1649 </Y>
<Filename> BottomText </Filename>
</Image>
;
<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>
;<Text>
;<X> 100 </X>
;<Y> 470 </Y>
;<Align> End </Align>
;<Width> 153 </Width>
;<Size> 30 </Size>
;<Font> RobotoBold </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>
;
;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 30 </Size>
;<Align> Center </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> MachineStage </Value>
;</Text>
;<Button>
;<X> 0 </X>
;<Y> 1860 </Y>
;<Width> 200 </Width>
;<Height> 50 </Height>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
; Var countClick = countClick + 1
; If countClick = 3 Then
;
; EndIf
;
; If countClick = 5 Then
; Var countClick = 0
; MainMenu
; EndIf
; Refresh
;</EventClick>
;</Button>
<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var countClick2 = countClick2 + 1
If countClick2 = 3 Then
EndIf
If countClick2 = 5 Then
Var countClick2 = 0
Var HaveCup = "true"
Var MachineStage = "drink-success"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Refresh
</EventClick>
</Button>
</Popup>
Reference in a new issue View git blame Copy permalink