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

497 lines
11 KiB
XML
Raw Normal View History

Do point
2020-09-29 17:02:36 +07:00
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var LidState = "Enable"
Var StarwState = "Enable"
Do road show
2020-10-08 11:54:55 +07:00
Var countClick2 = 0
Do point
2020-09-29 17:02:36 +07:00
miggaze fix
2020-10-26 21:00:16 +07:00
Var Timeout = 0
Do point
2020-09-29 17:02:36 +07:00
</EventOpen>
miggaze fix
2020-10-26 21:00:16 +07:00
<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
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
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
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</EventActionError>
Do point
2020-09-29 17:02:36 +07:00
<Timeout> 800 </Timeout>
<EventTimeout>
miggaze fix
2020-10-26 21:00:16 +07:00
Var Timeout = Timeout + 1
Do point
2020-09-29 17:02:36 +07:00
Var CountDownBrewing = CountDownBrewing - 1
; run test;
;If CountDownBrewing = 40 Then
Doing
2020-10-15 13:14:09 +07:00
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
Do point
2020-09-29 17:02:36 +07:00
;EndIf
If CountDownBrewing = 0 Then
miggaze fix
2020-10-26 21:00:16 +07:00
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
Do point
2020-09-29 17:02:36 +07:00
EndIf
Var ShowCountDownBrewing = CountDownBrewing
Do
2020-10-12 19:09:05 +07:00
miggaze fix
2020-10-26 21:00:16 +07:00
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If Timeout > 60 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
Do
2020-10-12 19:09:05 +07:00
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Doing
2020-10-15 13:14:09 +07:00
;Open "ROOT/xml/page_closeMaintenance.xml"
Do
2020-10-12 19:09:05 +07:00
Var ActionOKCase = 1
EndIf
EndIf
miggaze fix
2020-10-26 21:00:16 +07:00
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var TelephoneNumber = "0899999999"
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 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
EndIf
EndIf
Do
2020-10-12 19:09:05 +07:00
If MachineState_Result = 1 Then
Var Timeout = 0
Var ProcessText = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
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
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Var ServiceSuccess = "yes"
Doing
2020-10-15 13:14:09 +07:00
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Do point
2020-09-29 17:02:36 +07:00
EndIf
Do
2020-10-12 19:09:05 +07:00
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
Change ServiceAmount2
miggaze fix
2020-10-26 21:00:16 +07:00
Do
2020-10-12 19:09:05 +07:00
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
miggaze fix
2020-10-26 21:00:16 +07:00
Do
2020-10-12 19:09:05 +07:00
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
miggaze fix
2020-10-26 21:00:16 +07:00
If CodeChannel = 0 Then
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 3
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Do
2020-10-12 19:09:05 +07:00
EndIf
Doing
2020-10-15 13:14:09 +07:00
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
Do
2020-10-12 19:09:05 +07:00
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
miggaze fix
2020-10-26 21:00:16 +07:00
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
Do
2020-10-12 19:09:05 +07:00
EndIf
EndIf
Do point
2020-09-29 17:02:36 +07:00
If MachineStage = "show-menu" Then
Doing
2020-10-15 13:14:09 +07:00
Open "ROOT/taobin_project/xml/page_drinkok.xml"
Do point
2020-09-29 17:02:36 +07:00
EndIf
If MachineStage = "close-maintenance" Then
Doing
2020-10-15 13:14:09 +07:00
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Do point
2020-09-29 17:02:36 +07:00
EndIf
If MachineStage = "drink-success" Then
Do
2020-10-12 19:09:05 +07:00
Var MachineState_Result = 1
Do point
2020-09-29 17:02:36 +07:00
EndIf
Do
2020-10-12 19:09:05 +07:00
If MachineStage = "drink-failed" Then
Do error xml
2020-10-20 13:58:08 +07:00
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
Do
2020-10-12 19:09:05 +07:00
EndIf
Do point
2020-09-29 17:02:36 +07:00
Refresh
TimerReset
</EventTimeout>
<EventMachine>
Do
2020-10-12 19:09:05 +07:00
;If MachineStage = "drink-success" Then
Doing
2020-10-15 13:14:09 +07:00
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
Do
2020-10-12 19:09:05 +07:00
;EndIf
;If MachineStage = "drink-failed" Then
Doing
2020-10-15 13:14:09 +07:00
; Open "ROOT/taobin_project/xml/page_drinkfail.xml"
Do
2020-10-12 19:09:05 +07:00
;EndIf
Do point
2020-09-29 17:02:36 +07:00
If MachineStage = "drink-success" Then
Do
2020-10-12 19:09:05 +07:00
Var MachineState_Result = 1
Do point
2020-09-29 17:02:36 +07:00
EndIf
Do
2020-10-12 19:09:05 +07:00
Do point
2020-09-29 17:02:36 +07:00
If MachineStage = "drink-failed" Then
Do error xml
2020-10-20 13:58:08 +07:00
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
Do point
2020-09-29 17:02:36 +07:00
EndIf
</EventMachine>
Do
2020-10-12 19:09:05 +07:00
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
miggaze fix
2020-10-26 21:00:16 +07:00
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
Do
2020-10-12 19:09:05 +07:00
EndIf
</EventChangeStatus>
do
2020-10-08 10:01:31 +07:00
<Video>
Do point
2020-09-29 17:02:36 +07:00
<X> 0 </X>
<Y> 380 </Y>
Do
2020-10-12 19:09:05 +07:00
<Width> 1080</Width>
<Height> 606 </Height>
do
2020-10-08 10:01:31 +07:00
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/video/taobin_brewing.mov" </Filename>
</Video>
Do point
2020-09-29 17:02:36 +07:00
<Image>
<X> 0 </X>
<Y> 0 </Y>
<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
</Image>
<Image>
<X> 140 </X>
<Y> 1124 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/text2.png" </Filename>
</Image>
Do point
2020-10-15 18:29:38 +07:00
;
do
2020-10-08 10:01:31 +07:00
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> "ROOT/taobin_project/image/page_doing/img2.png" </Filename>
</Image>
Do point
2020-10-15 18:29:38 +07:00
;
Do point
2020-09-29 17:02:36 +07:00
<Text>
Do point
2020-10-15 14:04:35 +07:00
<X> XPosiShowCountDownBrew </X>
Do point
2020-10-15 18:29:38 +07:00
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
Do point
2020-09-29 17:02:36 +07:00
<Size> 88 </Size>
Do point
2020-10-15 18:29:38 +07:00
<Font> RobotoBold </Font>
Do point
2020-09-29 17:02:36 +07:00
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 1880 </Y>
<Size> 30 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoBlack </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>
Do road show
2020-10-08 11:54:55 +07:00
<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"
EndIf
Refresh
</EventClick>
</Button>
Do point
2020-09-29 17:02:36 +07:00
<Text>
<X> 0 </X>
<Y> 1886 </Y>
<Size> 20 </Size>
<Width> 1080</Width>
Do road show
2020-10-08 11:54:55 +07:00
<Align> Start </Align>
Do point
2020-09-29 17:02:36 +07:00
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> countClick </Value>
</Text>
Do road show
2020-10-08 11:54:55 +07:00
<Text>
<X> 0 </X>
<Y> 1886 </Y>
<Size> 20 </Size>
<Width> 1080</Width>
<Align> end </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> countClick2 </Value>
</Text>
Do point
2020-09-29 17:02:36 +07:00
</Popup>
Reference in a new issue Copy permalink