taobin_project/xml/page_thankyou.xml
2023-08-25 21:27:45 +07:00

479 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>
; On open
Var CountDownThankyou = 3
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 ChangeFlag2 = 0
Var GotoStoreCredit0 = 0
Var StoreCreditAmount = 0
Var buttonRemoveCup = "Invisible"
Var MachineState_Result = 0
Var FailedCount = 0
Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
Var TimeoutToNext = 3
DEBUGVAR Seeker
If Seeker = "curr" Then
Var LastMakeDrinkResult = "-"
EndIf
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 DirImage = "ROOT/taobin_project/image/page_thankyou_en"
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 DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR BottomText
If StarwState = "Press" Then
Machine StrawWithDelay
LED LedDoorLid Blink 255 255 255 255
EndIf
If LidState = "Press" Then
Machine LidWithDelay
LED LedDoorLid Blink 255 255 255 255
EndIf
DEBUGVAR Seeker.TNumberTaobinCredit
DEBUGVAR TelephoneNumber
DEBUGVAR Seeker.StoreCreditFlag
If Seeker = "next" Then
Var NextOrder = "true"
EndIf
If VendingCreditRemain = "" Then
Var RemainCreditST = "Invisible"
Else
Var RemainCreditST = "Enable"
Var VendingCreditRemainx = VendingCreditRemain
INT VendingCreditRemainx
Var VendingCreditRemain !assigned StringFmt( VendingCreditRemainx, DisplayFormat, PreScaleConvertShow )
EndIf
Var SaveTheWorldST = "Invisible"
Var SaveTheWorldCount = 0
If Seeker.thankLidFlag = 0 Then
Var SaveTheWorldCount = SaveTheWorldCount + 1
EndIf
If Seeker.thankStrawFlag = 0 Then
Var SaveTheWorldCount = SaveTheWorldCount + 1
EndIf
DEBUGVAR LedLidBlink
DEBUGVAR SaveTheWorldCount
If SaveTheWorldCount = 2 Then
If LedLidBlink = "no" Then
Var SaveTheWorldST = "Enable"
EndIf
Var video_id_to_ran = 3
Var video_name_to_play = "taobin_save_world"
If new_layout = "true" Then
Random2 1 3 video_id_to_ran
Else
Random video_id_to_ran
EndIf
Var ThankyouST = "Invisible"
Else
Var video_id_to_ran = 2
Var video_name_to_play = "taobin_thank"
If new_layout = "true" Then
Random2 1 2 video_id_to_ran
Else
Random video_id_to_ran
EndIf
Var ThankyouST = "Enable"
EndIf
DEBUGVAR video_id_to_ran
Var show_video = 1
Var SaveTheWorldST = "Invisible"
Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play
Var video_file_name = video_file_name + video_id_to_ran
Var video_file_name = video_file_name + ".mp4"
If SaveTheWorldCount < 2 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/video/script2.ev"
EndIf
DEBUGVAR video_file_name
Var VideoFileNameStage = "Enable"
Var TimeoutToNext = 5
Var ThankyouST = "Invisible"
Var remainCredit = "/remainCredit.png"
If CountryName = "Malaysia" Then
Var remainCredit = "/remainCredit-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var remainCredit = "/remainCredit-IDR.png"
EndIf
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/script_thankyou.ev"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
;Var CountDownThankyou = CountDownThankyou - 1
Var Timeout = Timeout + 1
If Timeout = TimeoutToNext Then
If CART_INDEX = 0 Then
Else
;Cart "MakeID" CART_INDEX
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.FreeVendingCampaign = 0 Then
If Seeker.CreditCard = 1 Then
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
DEBUGVAR "Change Canout"
Change CoinAmount
Var ChangeFlag2 = 1
EndIf
Else
If Seeker.IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
EndIf
EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
Var CountDownThankyou = 0
EndIf
; run test;
If CountDownThankyou = 0 Then
If IgnoreNetCore = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If TestLoopMakeDrink = 1 Then
Open "ROOT/taobin_project/xml/page_brewing_test_loop.xml"
EndIf
Var CountDownBrewing = BrewTime
Var CountUpBrewing = 0
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Var Seeker.OrderChanel = Seeker.OrderChanel + ":"
Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker.CampaignPayChanel
Var Seeker.OrderChanel = Seeker.OrderChanel + ":"
Var Seeker.OrderChanel = Seeker.OrderChanel + Seeker
If Seeker.PayWithQR = 0 Then
Var ServiceAmount2 = Seeker.ServiceAmount2
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PdpaAccept = 0
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var PayDetail = "2/F:1311/0//XML|" + Seeker.OrderChanel
Var PayType = ""
Var Seeker.TxRef1 = TxRef1
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 + "/"
UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
Else
DEBUGVAR TxRef1
UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
EndIf
EndIf
If PayOfflineMode = 1 Then
If StoreCreditAmount > 0 Then
Change StoreCreditAmount
Var ChangeFlag2 = 1
EndIf
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
If Seeker.StoreCreditFlag = 1 Then
Var Seeker.CurrCreditAmount = StoreCreditAmount
Var Seeker.CurrCreditTelNum = Seeker.TNumberTaobinCredit
Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber
DEBUGVAR Seeker.CurrCreditAmount
If Seeker.FreeVendingCampaign = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
Else
If GotoStoreCredit0 = 1 Then
Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml"
Else
If Seeker.FreeVendingCampaign = 1 Then
;If ChildrenFree = 1 Then
; Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
;EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Var ShowCountDownBrewing = CountDownBrewing
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> 392 </Y>
<Width> 1080</Width>
<Height> 1528 </Height>
<State>VideoFileNameStage</State>
<Filename> video_file_name </Filename>
</Video>
<Image>
<X> 89 </X>
<Y> 700 </Y>
<State>ThankyouST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/img1.png" </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 0 </Y>
<State>SaveTheWorldST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/img3.png" </Filename>
</Image>
<Image>
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> Var( DirImage + remainCredit ) </Filename>
</Image>
<Text>
<X> 760 </X>
<Y> 480 </Y>
<Size> 60 </Size>
<Width> 413</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> VendingCreditRemain </Value>
</Text>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;<Image>
;<X> 751 </X>
;<Y> 413 </Y>
;<Filename> page_doing_show_time_image </Filename>
;</Image>
;;
;<Text>
;<X> XPosiShowCountDownBrew </X>
;<Y> 470 </Y>
;<Align> End </Align>
;<Width> 153 </Width>
;<Size> 88 </Size>
;<Font> RobotoBold </Font>
;<Color> 0x513C2F </Color>
;<Value> ShowCountDownBrewing </Value>
;</Text>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
EndIf
</EventChangeStatus>
</Popup>