...
This commit is contained in:
miggaze
parent
d58d495834
commit
a670fcee2f
2 changed files with 803 additions and 0 deletions
694
xml/page_cannotConti.xml
Normal file
694
xml/page_cannotConti.xml
Normal file
|
|
@ -0,0 +1,694 @@
|
|||
<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"
|
||||
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"
|
||||
EndIf
|
||||
|
||||
DEBUGVAR StarwState
|
||||
DEBUGVAR LidState
|
||||
DEBUGVAR BottomText
|
||||
|
||||
DEBUGVAR Seeker.TNumberTaobinCredit
|
||||
DEBUGVAR TelephoneNumber
|
||||
DEBUGVAR Seeker.StoreCreditFlag
|
||||
|
||||
|
||||
If Seeker = "curr" Then
|
||||
SAVELOG "Call from thankyou Conti"
|
||||
|
||||
Topping "Select" Seeker.selected_a_drink
|
||||
|
||||
; Set option toppinng and pack
|
||||
Topping "Select1-ID" Seeker.topping1
|
||||
Topping "Select2-ID" Seeker.topping2
|
||||
Topping "Select3-ID" Seeker.topping3
|
||||
|
||||
; Pack
|
||||
Topping "Pack" ExtendData
|
||||
|
||||
|
||||
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
||||
Topping "ClearNextOrder" "-"
|
||||
EndIf
|
||||
|
||||
Var LastMakeDrinkResult = "fail"
|
||||
Var NextOrderStatus = "Disable"
|
||||
|
||||
DEBUGVAR LastMakeDrinkResult
|
||||
DEBUGVAR MachineStage
|
||||
DEBUGVAR NextOrderStatus
|
||||
|
||||
; page_brewing3.xml
|
||||
DEBUGVAR MachineStage
|
||||
|
||||
Var PayReference = ""
|
||||
Var PayType = ""
|
||||
|
||||
|
||||
Var SelectDrink = Seeker.selected_a_drink
|
||||
Var ServiceAmount2 = Seeker.ServiceAmount2
|
||||
|
||||
DEBUGVAR Seeker
|
||||
DEBUGVAR Seeker.selected_a_drink
|
||||
DEBUGVAR 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
|
||||
|
||||
|
||||
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
|
||||
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventActionOk>
|
||||
|
||||
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.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 + 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
|
||||
|
||||
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 = 1 Then
|
||||
If Timeout > 60 Then
|
||||
Var VendingTSID = ""
|
||||
SAVELOG "TIMEOUT=60"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If waitAckPay = 2 Then
|
||||
If Timeout > 10 Then
|
||||
|
||||
If Seeker.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 + 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/"
|
||||
Else
|
||||
|
||||
|
||||
Var PayDetail = "1/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
|
||||
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/"
|
||||
Else
|
||||
|
||||
Var PayDetail = "1/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
|
||||
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/"
|
||||
Else
|
||||
|
||||
|
||||
Var PayDetail = "1/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
|
||||
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.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 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
|
||||
|
||||
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>
|
||||
|
||||
|
||||
<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>
|
||||
Loading…
Add table
Add a link
Reference in a new issue