889 lines
20 KiB
Text
889 lines
20 KiB
Text
<EventActionOk>
|
|
|
|
If CreditCardVoid = 1 Then
|
|
Var ChangeOK = 2
|
|
; check-if-void-switch-finish
|
|
READ_FILE "/mnt/sdcard/app_run_flag"" AppRunFlagState
|
|
|
|
STRCONTAIN "1" AppRunFlagState HasResumePreventFlag
|
|
|
|
EndIf
|
|
|
|
If ActionOKCase = 1 Then
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + ExtendData
|
|
|
|
DEBUGVAR SessionID2
|
|
|
|
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 + Seeker.VendingCode
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + Seeker.CodeNumber
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + "C:"
|
|
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
|
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
|
|
SAVELOG "waitAckPay = 1"
|
|
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
|
|
|
EndIf
|
|
|
|
</EventActionOk>
|
|
|
|
<EventActionError>
|
|
If ActionOKCase = 1 Then
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + ExtendData
|
|
|
|
DEBUGVAR SessionID2
|
|
|
|
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 + Seeker.VendingCode
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + Seeker.CodeNumber
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + "C:"
|
|
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
|
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 MOVE_CUP_TO_DOOR = "true" Then
|
|
Var MOVE_CUP_TO_DOOR = "false"
|
|
EndIf
|
|
|
|
If BREW_COUNT_DOWN_FROM_APP = "on" Then
|
|
Var CountDownBrewing = BREW_CNT
|
|
Else
|
|
|
|
If CountDownBrewing > 0 Then
|
|
Var CountDownBrewing = CountDownBrewing - 1
|
|
EndIf
|
|
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 VendingTSIDTmp1 = ""
|
|
SAVELOG "waitAckPay = 1 tineout > 60"
|
|
|
|
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
If waitAckPay = 2 Then
|
|
If Timeout > TimeoutWaitPay Then
|
|
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + ExtendData
|
|
|
|
DEBUGVAR SessionID2
|
|
|
|
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 + Seeker.VendingCode
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + Seeker.CodeNumber
|
|
Var ECommerce = ECommerce + "/"
|
|
Var ECommerce = ECommerce + "C:"
|
|
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
|
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 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 HURR_FOREVER = "S:0" Then
|
|
Var HURR_FOREVER = "F:1303"
|
|
EndIf
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
;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 = ""
|
|
|
|
|
|
Var PayDetail2 = Seeker.PayDetail2
|
|
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
|
|
|
|
|
;If Seeker.CodeChannel = 0 Then
|
|
; SAVELOG "back_to_main from line > 315."
|
|
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
|
;EndIf
|
|
|
|
Var waitAckPay = 2
|
|
Var TimeoutWaitPay = 45
|
|
Var Timeout = 5
|
|
Var ActionOKCase = 1
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
; void-credit
|
|
DEBUGVAR HasResumePreventFlag
|
|
DEBUGVAR ChangeOK
|
|
DEBUGVAR CreditCardVoid
|
|
DEBUGVAR ActionOKCase
|
|
|
|
If CreditCardVoid = 1 Then
|
|
|
|
If HasResumePreventFlag = "true" Then
|
|
|
|
Else
|
|
DEBUGVAR "HasResumePreventFlag>false"
|
|
If ChangeOK = 2 Then
|
|
; speed-up-timeout
|
|
Var ChangeTimeout = 21
|
|
Var HasResumePreventFlag = "true"
|
|
DEBUGVAR "Recv void ok, time left 10"
|
|
EndIf
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
DEBUGVAR ChangeTimeout
|
|
|
|
If ChangeTimeout > 20 Then
|
|
If ActionOKCase = 0 Then
|
|
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 HURR_FOREVER = "S:0" Then
|
|
Var HURR_FOREVER = "F:1303"
|
|
EndIf
|
|
|
|
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
|
|
|
|
;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 = ""
|
|
|
|
|
|
Var PayDetail2 = Seeker.PayDetail2
|
|
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
|
|
|
;If Seeker.CodeChannel = 0 Then
|
|
; SAVELOG "back_to_main from line > 357."
|
|
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
|
;EndIf
|
|
|
|
Var waitAckPay = 2
|
|
Var TimeoutWaitPay = 45
|
|
Var Timeout = 5
|
|
Var ActionOKCase = 1
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
If ChangeOK = 3 Then
|
|
If ActionOKCase = 0 Then
|
|
|
|
Var SVT = "coffee"
|
|
Var ACC = "0899999999"
|
|
|
|
If Seeker.TNumberTaobinMember = "" Then
|
|
Else
|
|
Var ACC = Seeker.TNumberTaobinMember
|
|
EndIf
|
|
|
|
|
|
If HURR_FOREVER = "S:0" Then
|
|
Var HURR_FOREVER = "F:1303"
|
|
EndIf
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
Var DEE = PayDetail
|
|
|
|
PAYEXT SVT ACC VendingTSIDTmp DEE
|
|
|
|
CoinBack
|
|
|
|
|
|
Var ActionOKCase = 1
|
|
If Seeker.CodeChannel = 0 Then
|
|
SAVELOG "back_to_main from line > 391."
|
|
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
|
EndIf
|
|
|
|
Var waitAckPay = 2
|
|
Var TimeoutWaitPay = 45
|
|
Var Timeout = 5
|
|
|
|
|
|
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
If MachineState_Result = 1 Then
|
|
|
|
;Var MachineState_Result = 2
|
|
|
|
EndIf
|
|
|
|
If MachineState_Result = 1 Then
|
|
DEBUGVAR PaySuccessWithDaemonTask
|
|
|
|
If waitAckPay = 0 Then
|
|
|
|
Var waitAckPay = 0
|
|
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
|
|
|
|
If AddData = 1 Then
|
|
Var Cid = 26
|
|
DEBUGVAR "Brewing3Conti"
|
|
DEBUGVAR Seeker
|
|
DEBUGVAR Seeker.UseGet15Discount
|
|
If NewCollectPoint = 1 Then
|
|
If Seeker.UseGet15Discount = 1 Then
|
|
Var Cid = 39
|
|
Else
|
|
Var Cid = 40
|
|
Var PreviousSeeker.UseGetDrink5Bath = 0
|
|
EndIf
|
|
EndIf
|
|
|
|
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
|
|
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
|
|
|
|
|
|
;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 Seeker.CodeChannel = 1
|
|
Var Seeker.VendingCode = "C48"
|
|
Var Seeker.CodeNumber = "0000000000"
|
|
Var VendingCampaign = ServiceAmount2
|
|
EndIf
|
|
|
|
If Seeker.PayWithQR = 0 Then
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SessionID2 + "/"
|
|
Var SessionID2 = SessionID2 + ""
|
|
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
|
|
Var PayDetail2 = Seeker.PayDetail2
|
|
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
|
Else
|
|
|
|
|
|
If Seeker.CreditCard = 1 Then
|
|
|
|
|
|
CashlessReq SUCCESS ""
|
|
;CashlessReq FAIL ""
|
|
|
|
EndIf
|
|
Var PayDetail2 = Seeker.PayDetail2
|
|
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
|
|
|
|
|
EndIf
|
|
|
|
|
|
Else
|
|
|
|
;no wait ack pay
|
|
Var waitAckPay = 0
|
|
|
|
Var SVT = "coffee"
|
|
Var ACC = "0899999999"
|
|
Var DEE = PayDetail
|
|
|
|
If Seeker.TNumberTaobinMember = "" Then
|
|
Else
|
|
Var ACC = Seeker.TNumberTaobinMember
|
|
EndIf
|
|
|
|
PAYEXT SVT ACC VendingTSIDTmp DEE
|
|
|
|
CoinBack
|
|
|
|
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
__CMD "clear-stock-data" 0 "-" "-"
|
|
|
|
Var ServiceSuccess = "yes"
|
|
If waitAckPay = 0 Then
|
|
|
|
SAVELOG "waitAckPay = 0 Timeout"
|
|
|
|
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
If MachineState_Result = 2 Then
|
|
|
|
SAVELOG MachineStage
|
|
|
|
If ErrTimeout = 0 Then
|
|
Var ErrTimeout = 1
|
|
|
|
If AddData = 1 Then
|
|
Var Cid = 26
|
|
|
|
If NewCollectPoint = 1 Then
|
|
If Seeker.UseGet15Discount = 1 Then
|
|
Var Cid = 39
|
|
Else
|
|
Var Cid = 40
|
|
Var PreviousSeeker.UseGetDrink5Bath = 0
|
|
EndIf
|
|
EndIf
|
|
|
|
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
|
|
EndIf
|
|
|
|
|
|
If Seeker.PayWithQR = 0 Then
|
|
|
|
If Seeker.CreditCard = 1 Then
|
|
|
|
Open "ROOT/taobin_project/inter/mys/xml/page_void_credit_cardConti.lxml"
|
|
|
|
|
|
Else
|
|
|
|
|
|
If Seeker.CodeChannel = 0 Then
|
|
If ChangeFlag = 0 Then
|
|
Var ChangeFlag = 1
|
|
|
|
If Seeker.StoreCreditFlag = 1 Then
|
|
Var ChangeOK = 2
|
|
Else
|
|
If GetFreeFromError = 1 Then
|
|
Var ChangeOK = 2
|
|
Else
|
|
Change ServiceAmount2
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
Else
|
|
|
|
If Seeker.VendingCode = "MKFOO" Then
|
|
Var Cid = 33
|
|
Var PointCrm = "0"
|
|
Var GetScore = "1"
|
|
Var TelephoneNumberx = "0899999999"
|
|
AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
|
|
Var Seeker.CodeChannel = 0
|
|
EndIf
|
|
|
|
If CoinAmount > 0 Then
|
|
|
|
If ChangeFlag = 0 Then
|
|
Var ChangeFlag = 1
|
|
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
|
|
|
|
If Seeker.StoreCreditFlag = 1 Then
|
|
Var ChangeOK = 2
|
|
Else
|
|
Change ServiceAmount3
|
|
EndIf
|
|
|
|
EndIf
|
|
Else
|
|
Var ChangeOK = 2
|
|
EndIf
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
DEBUGVAR LastMakeDrinkResult
|
|
DEBUGVAR MachineStage
|
|
|
|
|
|
If LastMakeDrinkResult = "success" Then
|
|
Var MachineState_Result = 1
|
|
EndIf
|
|
|
|
If LastMakeDrinkResult = "fail" Then
|
|
Var MachineState_Result = 2
|
|
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
|
|
|
|
If MachineState_Result > 0 Then
|
|
Var EnableSelectMenuBetweenBrew = "Invisible"
|
|
Var EnableTopupCreditBetweenBrew = "Invisible"
|
|
EndIf
|
|
|
|
If EnableSelectMenuBetweenBrew = "Enable" Then
|
|
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
|
|
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
|
Else
|
|
Var EnableSelectMenuBetweenBrewBlink = "Enable"
|
|
EndIf
|
|
|
|
Else
|
|
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
|
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
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 1
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 2 Then
|
|
Var videoID = VideoID2
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 81
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 3 Then
|
|
Var videoID = VideoID3
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 82
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 4 Then
|
|
Var videoID = VideoID4
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 83
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 5 Then
|
|
Var videoID = VideoID5
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 84
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 6 Then
|
|
Var videoID = VideoID6
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 81
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 7 Then
|
|
Var videoID = VideoID7
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 82
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 8 Then
|
|
Var videoID = VideoID8
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 83
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StepVideo = 9 Then
|
|
Var videoID = VideoID9
|
|
If ProMysteryCup = 1 Then
|
|
If Seeker.FromProMysteryCup = "true" Then
|
|
Var videoID = 84
|
|
EndIf
|
|
EndIf
|
|
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
|
|
SAVELOG "CountDownBrewing = 0"
|
|
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
If ButtonGameCountDown > 0 Then
|
|
If ButtonGameCountDown = 1 Then
|
|
Var ButtonGameCountDownState = "Invisible"
|
|
Var ButtonGamePressToPlayState = "Enable"
|
|
EndIf
|
|
Var ButtonGameCountDown = ButtonGameCountDown - 1
|
|
DEBUGVAR ButtonGameCountDown
|
|
EndIf
|
|
|
|
|
|
DEBUGVAR BREW_CNT
|
|
DEBUGVAR ButtonGamePressToPlayState
|
|
If BREW_CNT > 60 Then
|
|
|
|
Else
|
|
Var ButtonGamePressToPlayState = "Invisible"
|
|
Var Game01Enable = 0
|
|
EndIf
|
|
|
|
|
|
DEBUGVAR EnableSelectMenuBetweenBrew
|
|
|
|
|
|
Refresh
|
|
TimerReset
|
|
|
|
</EventTimeout>
|
|
|
|
<EventMachine>
|
|
|
|
</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>
|