taobin_project/spiral/xml/page_spiral_thankyou3.xml
2023-06-07 18:36:37 +07:00

488 lines
11 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; Var LastMakeDrinkResult = "-"
; Var MachineState_Result = 2
Var SpiralPickDrink = "Invisible"
Var Timeout = 0
Var waitAckPay = 0
Var MultiGo = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/complete_en/text_bottom.png"
Else
Var DirImage = "ROOT/taobin_project/image/complete/text_bottom.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR LastMakeSpiralResult
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineState_Result
DEBUGVAR MachineStage
DEBUGVAR waitAckPay
DEBUGVAR Timeout
DEBUGVAR sendPayMultiFlag
DEBUGVAR SaveCoinAmount
DEBUGVAR MultiGo
DEBUGVAR PriceDrinkTopping
DEBUGVAR VendingCampaign
DEBUGVAR Seeker.VendingCampaign
DEBUGVAR SessionID2
If MachineStage = "pickup-cup" Then
Var SpiralPickDrink = "Enable"
Else
Var SpiralPickDrink = "Invisible"
EndIf
If Seeker.thankToppingFlag = 1 Then
If MachineStage = "close-maintenance" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 663."
Var MachineState_Result = 2
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
SAVELOG " drink-failed...."
Var MachineState_Result = 2
EndIf
EndIf
If MachineState_Result > 0 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
If MultiGo = 0 Then
If MachineState_Result = 2 Then
If SaveCoinAmount > 0 Then
If LastMakeSpiralResult = 1 Then
Var MultiGo = 2
Else
Change PriceDrinkTopping
Var MultiGo = 1
EndIf
Else
Var MultiGo = 2
EndIf
EndIf
EndIf
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If MultiGo = 2 Then
If waitAckPay = 0 Then
If MachineState_Result = 2 Then
Var waitAckPay = 1
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If Seeker.thankToppingFlag = 1 Then
If SpiralCodeOk = 1 Then
If Seeker.VendingCampaign >= PayAmount Then
If MachineState_Result = 2 Then
Var VendingCampaign = 0
Else
Var VendingCampaign = 0
;Var VendingCampaign = Seeker.VendingCampaign - PriceDrinkTopping
EndIf
EndIf
EndIf
EndIf
Var PayDetail="1/F:1221/0/"
Var ServiceType = "coffee"
Var SuggestID = ""
Var SessionID2 = ""
Var ServiceCredit = SelectDrink
DEBUGVAR CART3_PRICE
DEBUGVAR ServiceAmountSum
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then
If Seeker.StoreCreditFlag = 1 Then
Else
Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2
;Var MultiGo = 0
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 1
Var Timeout = 0
Var ProcessText = ""
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PayDetail = "2/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + SAMESALARY
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + NOBONUS
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
If Seeker.thankToppingFlag = 1 Then
If SpiralCodeOk = 1 Then
If Seeker.VendingCampaign >= PayAmount Then
Var VendingCampaign = 0
;Var VendingCampaign = Seeker.VendingCampaign - PriceDrink
EndIf
EndIf
EndIf
If GetFreeFromError = 1 Then
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "FAU"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 1 Then
;Var SessionID2 = SessionID2 + "/"
;Var SessionID2 = SessionID2 + Seeker.CodeNumber
;Var SessionID2 = SessionID2 + "/"
;Var SessionID2 = SessionID2 + Seeker.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 + Seeker.CodeNumber
;Var SessionID2 = SessionID2 + "/"
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
EndIf
If SessionID2 = "2:00000" Then
Var SessionID2 = "1:00000"
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
Else
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
EndIf
If SessionID2 = "2:00000" Then
Var SessionID2 = "1:00000"
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
EndIf
Else
;no wait ack pay
Var waitAckPay = 1
Var SVT = "coffee"
Var ACC = "0899999999"
Var DEE = PayDetail
If Seeker.TNumberTaobinMember = "" Then
Else
Var ACC = Seeker.TNumberTaobinMember
EndIf
;PAYEXT SVT ACC VendingTSIDTmp DEE
If SessionID2 = "2:00000" Then
Var SessionID2 = "1:00000"
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 PriceDrinkTopping ServiceCharge Donate
EndIf
EndIf
__CMD "clear-stock-data" 0 "-" "-"
Var ServiceSuccess = "yes"
If waitAckPay = 1 Then
SAVELOG "waitAckPay=0"
; Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
If sendPayMultiFlag = 0 Then
If waitAckPay = 1 Then
If Seeker.PayWithQR = 0 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee-multiQR"
EndIf
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
;Var ServiceType = "coffee-multi"
Var ServiceCredit = "00-00-00-0000"
Var SuggestID = ""
If LastMakeSpiralResult = 1 Then
Var PayDetail="1/S:0/0/"
Else
Var PayDetail="1/F:0/0/"
EndIf
Var CART_COUNT = "2"
Var SessionID3 = "" + CART_COUNT
Var SessionID3 = SessionID3 + ":00000"
If SpiralCodeOk = 1 Then
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + Seeker.CodeNumber
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + Seeker.VendingCode
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + ServiceCredit
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + BoxID
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + "S"
Var SessionID3 = SessionID3 + "/"
Var SessionID3 = SessionID3 + Seeker.CodeNumber
Var SessionID3 = SessionID3 + "/"
EndIf
SAVELOG PayO2
Var VendingCampaign = IntVendingCampaign
Var CreditReference = Seeker.CreditReferenceTmp
If LastMakeSpiralResult = 2 Then
Var ServiceAmountSum = ServiceAmountSum - PriceDrink
If Seeker.thankToppingFlag = 1 Then
If SpiralCodeOk = 1 Then
If Seeker.VendingCampaign >= PayAmount Then
Var VendingCampaign = Seeker.VendingCampaign - PriceDrink
EndIf
EndIf
EndIf
Else
Var VendingCampaign = Seeker.VendingCampaign
EndIf
If MachineState_Result = 2 Then
Var ServiceAmountSum = ServiceAmountSum
; Var ServiceAmountSum = ServiceAmountSum - PriceDrinkTopping
If Seeker.thankToppingFlag = 1 Then
If SpiralCodeOk = 1 Then
If Seeker.VendingCampaign >= PayAmount Then
Var VendingCampaign = VendingCampaign - PriceDrinkTopping
EndIf
EndIf
EndIf
EndIf
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate
If Seeker.PayWithQR = 1 Then
Var SVT = "coffee-multi"
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
EndIf
Var DEE = PayDetail
PAYEXT SVT TelephoneNumber Seeker.VendingTSID DEE
EndIf
Var sendPayMultiFlag = 1
EndIf
EndIf
EndIf
DEBUGVAR ServiceType
DEBUGVAR SessionID3
DEBUGVAR sendPayMultiFlag
Var Timeout = Timeout + 1
If Timeout > 180 Then
SAVELOG " Timeout > 180"
Var MachineState_Result = 2
Var MultiGo = 2
EndIf
If Timeout >= 200 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If sendPayMultiFlag = 1 Then
If MachineState_Result = 1 Then
If Timeout >= 5 Then
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If MachineStage = "show-menu" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
EndIf
If sendPayMultiFlag = 1 Then
If MachineState_Result = 2 Then
If Timeout >= 5 Then
If MachineStage = "remove-cup" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If MachineStage = "show-menu" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If MultiGo = 1 Then
If ChangeStatus = "payout-end" Then
Var MultiGo = 2
EndIf
EndIf
</EventChangeStatus>
<Video>
<X> 0 </X>
<Y> 600 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/spiral/video/sp02.mp4" </Filename>
</Video>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 0 </X>
<Y> 1518 </Y>
<State> SpiralPickDrink </State>
<Filename> DirImage </Filename>
</Image>
</Popup>