"Enable"
1080
1920
"0xeae6e1"
"ROOT/taobin_project/sounds/chaching.mp3"
SoundVolume
; 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"
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
If new_layout = "true" Then
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"
DEBUGVAR video_file_name
Var VideoFileNameStage = "Enable"
Var TimeoutToNext = 5
Var ThankyouST = "Invisible"
Else
Var show_video = 0
Var VideoFileNameStage = "Invisible"
Var TimeoutToNext = 3
EndIf
1000
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.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
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_brewing2.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
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
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
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
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
89
700
ThankyouST
"ROOT/taobin_project/image/page_thankyou/img1.png"
0
0
SaveTheWorldST
"ROOT/taobin_project/image/page_thankyou/img3.png"
760
413
RemainCreditST
Var( DirImage + "/remainCredit.png" )
760
480
70
413
Center
RobotoBlack
0x513C2F
VendingCreditRemain
;
; 751
; 413
; page_doing_show_time_image
;
;;
;
; XPosiShowCountDownBrew
; 470
; End
; 153
; 88
; RobotoBold
; 0x513C2F
; ShowCountDownBrewing
;
If ChangeStatus = "payout-end" Then
EndIf