764 lines
17 KiB
XML
764 lines
17 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>
|
|
; On open
|
|
Var CountDownThankyou = 4
|
|
Var CountDownBrewing = BrewTime
|
|
Var CountUpBrewing = 0
|
|
SAVELOG BrewTime
|
|
Var ShowCountDownBrewing = CountDownBrewing
|
|
Var Timeout = 0
|
|
Var ChangeFlag = 0
|
|
Var ErrTimeout = 0
|
|
Var ActionOKCase = 0
|
|
Var ChangeTimeout = 0
|
|
Var ChangeOK = 0
|
|
|
|
Var MachineState_Result = 0
|
|
|
|
Var FailedCount = 0
|
|
Var ChangeAmountSum = 0
|
|
|
|
Var Tel_Confirm_Flag = 0
|
|
Var LastMakeDrinkResult = "-"
|
|
|
|
DEBUGVAR MachineStage
|
|
DEBUGVAR NextOrderStatus
|
|
|
|
If show_eng = "true" Then
|
|
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
|
|
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
|
|
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
|
|
|
|
Var BottomText = PicturePath + "text_bottom_eng.png"
|
|
Var TextErrorShow = "Sorry, unable to produce the next order"
|
|
Else
|
|
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
|
|
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
|
|
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
|
|
Var BottomText = PicturePath + "text_bottom_thai2.png"
|
|
|
|
Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้"
|
|
EndIf
|
|
|
|
DEBUGVAR StarwState
|
|
DEBUGVAR LidState
|
|
DEBUGVAR BottomText
|
|
|
|
DEBUGVAR Seeker.TNumberTaobinCredit
|
|
DEBUGVAR TelephoneNumber
|
|
DEBUGVAR Seeker.StoreCreditFlag
|
|
|
|
|
|
DEBUGVAR Seeker
|
|
DEBUGVAR Seeker.selected_a_drink
|
|
DEBUGVAR Seeker.ServiceAmount2
|
|
|
|
|
|
If Seeker = "curr" Then
|
|
SAVELOG " cannot on curr"
|
|
|
|
Var ExtendData = Seeker.ExtendData
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + Seeker.ExtendData
|
|
|
|
DEBUGVAR SessionID2
|
|
|
|
Topping "ClearNextOrder" "-"
|
|
EndIf
|
|
|
|
Var LastMakeDrinkResult = "fail"
|
|
Var NextOrderStatus = "Disable"
|
|
|
|
DEBUGVAR LastMakeDrinkResult
|
|
DEBUGVAR MachineStage
|
|
DEBUGVAR NextOrderStatus
|
|
|
|
DEBUGVAR error_code_stop_now
|
|
|
|
; page_brewing3.xml
|
|
DEBUGVAR MachineStage
|
|
|
|
Var PayReference = ""
|
|
Var PayType = ""
|
|
|
|
|
|
Var SelectDrink = Seeker.selected_a_drink
|
|
Var ServiceAmount2 = Seeker.ServiceAmount2
|
|
|
|
|
|
; On open move from page_brewing3.xml
|
|
Var countClick2 = 0
|
|
|
|
Var Timeout = 0
|
|
|
|
Var PrintCoinAmount = 0
|
|
|
|
Var waitAckPay = 0
|
|
Var VendingTSIDTmp = ""
|
|
Var VendingTSIDProblem = ""
|
|
Var CreditReference = ""
|
|
Var PayCredit = 0
|
|
|
|
|
|
If Seeker.PayWithQR = 1 Then
|
|
Var VendingTSIDTmp = Seeker.VendingTSID
|
|
|
|
If Seeker.TNumberTaobinCredit = "" Then
|
|
Var TelephoneNumber = "0899999999"
|
|
Var PayO2 = ""
|
|
Else
|
|
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
|
Var PayO2 = Seeker.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 Seeker.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 Seeker.TNumberTaobinCredit = "" Then
|
|
|
|
If Seeker.TNumberTaobinMember = "" Then
|
|
Var TelephoneNumberProblem = ""
|
|
Else
|
|
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
|
|
EndIf
|
|
|
|
Else
|
|
Var TelephoneNumberProblem = Seeker.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
|
|
|
|
Var AddData = 0
|
|
|
|
If Seeker.TNumberTaobinMember = "" Then
|
|
|
|
Else
|
|
If Seeker.PayWithQR = 1 Then
|
|
Var VendingTSID = VendingTSIDTmp
|
|
Else
|
|
Var VendingTSID = ""
|
|
EndIf
|
|
|
|
|
|
Var BmiYear = Seeker.PointTaobinStr
|
|
Var PointCrm = ""
|
|
If Seeker.FromConsent = 1 Then
|
|
Var PointCrm = "pdpa1"
|
|
EndIf
|
|
Var GetScore = VendingTSID
|
|
If Seeker.TaobinErrorNetwork = 0 Then
|
|
Var Cid = 11
|
|
Var AddData = 1
|
|
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
|
|
Else
|
|
Var PointCrm = ""
|
|
Var Cid = 14
|
|
Var AddData = 1
|
|
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
|
|
EndIf
|
|
|
|
Var VendingTSID = ""
|
|
EndIf
|
|
|
|
Var CreditReference = Seeker.CreditReferenceTmp
|
|
Var VendingDiscount = Seeker.VendingDiscount
|
|
Var VendingCampaign = Seeker.VendingCampaign
|
|
Var TxReference = Seeker.TxRef1
|
|
DEBUGVAR TxReference
|
|
|
|
|
|
If show_eng = "true" Then
|
|
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
|
|
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
|
|
Else
|
|
Var DirImage = "ROOT/taobin_project/image/page_payment"
|
|
Var DirImage2 = "ROOT/taobin_project/image/topping2"
|
|
EndIf
|
|
|
|
DEBUGVAR show_eng
|
|
|
|
|
|
|
|
If LastMakeDrinkResult = "success" Then
|
|
Var MachineState_Result = 1
|
|
EndIf
|
|
|
|
If LastMakeDrinkResult = "fail" Then
|
|
Var MachineState_Result = 2
|
|
EndIf
|
|
|
|
|
|
DEBUGVAR VendingCampaign
|
|
|
|
Var CreditCardVoid = 0
|
|
|
|
|
|
</EventOpen>
|
|
|
|
<EventActionOk>
|
|
|
|
If CreditCardVoid = 1 Then
|
|
Var ChangeOK = 2
|
|
EndIf
|
|
|
|
|
|
If ActionOKCase = 1 Then
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + Seeker.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 + 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
|
|
|
|
|
|
|
|
</EventActionOk>
|
|
|
|
<EventActionError>
|
|
If ActionOKCase = 1 Then
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + Seeker.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 + 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 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 = 2 Then
|
|
If Timeout > 10 Then
|
|
|
|
If Seeker.CodeChannel = 1 Then
|
|
Var SessionID2 = SelectSlot + ":"
|
|
Var SessionID2 = SessionID2 + Seeker.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 + 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 NextOrderStatus = "Disable" Then
|
|
Var PayDetail="1/F:1221/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
Else
|
|
DEBUGVAR error_code_stop_now
|
|
|
|
If error_code_stop_now > 0 Then
|
|
Var PayDetail="1/F:" + error_code_stop_now
|
|
Var PayDetail = PayDetail + "/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
Else
|
|
|
|
|
|
|
|
|
|
Var PayDetail = "1/" + HURR_FOREVER
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
|
|
;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 Seeker.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 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 NextOrderStatus = "Disable" Then
|
|
Var PayDetail="1/F:1221/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
Else
|
|
DEBUGVAR error_code_stop_now
|
|
If error_code_stop_now > 0 Then
|
|
Var PayDetail="1/F:" + error_code_stop_now
|
|
Var PayDetail = PayDetail + "/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
Else
|
|
|
|
|
|
|
|
|
|
Var PayDetail = "1/" + HURR_FOREVER
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
EndIf
|
|
EndIf
|
|
|
|
;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 Seeker.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 Seeker.TNumberTaobinMember = "" Then
|
|
Else
|
|
Var ACC = Seeker.TNumberTaobinMember
|
|
EndIf
|
|
|
|
|
|
If NextOrderStatus = "Disable" Then
|
|
Var PayDetail="1/F:1221/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
|
|
Else
|
|
DEBUGVAR error_code_stop_now
|
|
If error_code_stop_now > 0 Then
|
|
Var PayDetail="1/F:" + error_code_stop_now
|
|
Var PayDetail = PayDetail + "/0/"
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
Else
|
|
|
|
|
|
|
|
|
|
Var PayDetail = "1/" + HURR_FOREVER
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/"
|
|
Var PayDetail = PayDetail + ""
|
|
Var PayDetail = PayDetail + "/XML|"
|
|
Var PayDetail = PayDetail + Seeker.OrderChanel
|
|
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
Var DEE = PayDetail
|
|
|
|
PAYEXT SVT ACC VendingTSIDTmp DEE
|
|
|
|
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 Timeout = 5
|
|
|
|
|
|
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
If MachineState_Result = 2 Then
|
|
|
|
SAVELOG MachineStage
|
|
|
|
If ErrTimeout = 0 Then
|
|
Var ErrTimeout = 1
|
|
|
|
If AddData = 1 Then
|
|
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
|
|
EndIf
|
|
|
|
|
|
If Seeker.PayWithQR = 0 Then
|
|
|
|
If Seeker.CreditCard = 1 Then
|
|
CashlessReq FAIL
|
|
Var ChangeFlag = 1
|
|
Var CreditCardVoid = 1
|
|
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 = "MKFO" Then
|
|
Var Cid = 29
|
|
Var PointCrm = "2"
|
|
Var GetScore = "1"
|
|
Var TelephoneNumberx = "0899999999"
|
|
AddData Cid TelephoneNumberx 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
|
|
|
|
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
Refresh
|
|
TimerReset
|
|
|
|
</EventTimeout>
|
|
|
|
|
|
;<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>
|
|
|
|
<Text>
|
|
<X> 0 </X>
|
|
<Y> 427 </Y>
|
|
<Width> 1080 </Width>
|
|
<Align> Center </Align>
|
|
<Size> 46 </Size>
|
|
<Font> RobotoBlack </Font>
|
|
<Color> 0x513C2F </Color>
|
|
<Refresh> "Enable" </Refresh>
|
|
<Value> TextErrorShow </Value>
|
|
</Text>
|
|
|
|
|
|
<Image>
|
|
<X> 375 </X>
|
|
<Y> 623 </Y>
|
|
<Width> 331 </Width>
|
|
<Height> 435 </Height>
|
|
<Filename> Seeker.PictureDrink </Filename>
|
|
</Image>
|
|
|
|
<Text>
|
|
<X> 0 </X>
|
|
<Y> 938 </Y>
|
|
<Width> 1080</Width>
|
|
<Align> Center </Align>
|
|
<Size> 72 </Size>
|
|
<Font> KanitMediumTTF </Font>
|
|
<Color> 0x513C2F </Color>
|
|
<Value> Seeker.showname </Value>
|
|
</Text>
|
|
|
|
<EventChangeStatus>
|
|
If ChangeStatus = "payout-end" Then
|
|
If ChangeFlag = 1 Then
|
|
Var ChangeOK = 2
|
|
EndIf
|
|
EndIf
|
|
</EventChangeStatus>
|
|
|
|
|
|
</Popup>
|