This commit is contained in:
wanlop run 2025-01-16 17:15:53 +07:00
commit 42ce124c89
4 changed files with 63 additions and 116 deletions

View file

@ -21,6 +21,16 @@ If SystemDateMonthInt = 1 Then
Var EventTurnOn = 1 Var EventTurnOn = 1
EndIf EndIf
EndIf EndIf
If SystemDateDayInt <= 31 Then
GetFileSizeK "taobin_project/inter/aus/video/video_main_ao.mp4" MainfileSize
DEBUGVAR MainfileSize
If MainfileSize = 20796764 Then
Var EventAO = 1
Else
DEBUGVAR "AO:Size incorrect"
EndIf
EndIf
EndIf EndIf
@ -35,3 +45,8 @@ Else
Var ShowButtonClickFull = "Invisible" Var ShowButtonClickFull = "Invisible"
Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main.mp4" Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main.mp4"
EndIf EndIf
If EventAO = 1 Then
Var VideoMainPage = "ROOT/taobin_project/inter/aus/video/video_main_ao.mp4"
EndIf

Binary file not shown.

View file

@ -40,8 +40,6 @@
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
DEBUGVAR Timeout DEBUGVAR Timeout
@ -49,84 +47,29 @@
DEBUGVAR NextOrder DEBUGVAR NextOrder
DEBUGVAR HaveCup DEBUGVAR HaveCup
If Door_Open_flagBlink = 0 Then
Var Door_Open_flagBlink = 1
Var Door_Open_State="Enable"
Else
Var Door_Open_flagBlink = 0
Var Door_Open_State="Invisible"
EndIf
If HaveCup = "true" Then
DEBUGVAR CheckCupStateDoorCupClose
If CheckCupStateDoorCupClose = "" Then
Var buttonRemoveCup = "Enable"
EndIf
If CheckCupStateDoorCupClose = "done" Then
Var buttonRemoveCup = "Enable"
EndIf
If CheckCupStateDoorCupClose = "reset" Then
If CheckCupStateDoorCupCloseCnt = 0 Then
Var CheckCupStateDoorCupClose = ""
Else
Var CheckCupStateDoorCupCloseCnt = CheckCupStateDoorCupCloseCnt - 1
EndIf
EndIf
Else
If buttonRemoveCup = "Enable" Then
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
If buttonRemoveCup = "Invisible" Then
Var Door_Open_State = "Invisible"
EndIf
DEBUGVAR buttonRemoveCup DEBUGVAR buttonRemoveCup
DEBUGVAR NextOrder
DEBUGVAR Door_Open_State DEBUGVAR Door_Open_State
If MachineStage = "remove-cup" Then
Else
If NextOrder = "true" Then If NextOrder = "true" Then
Var NextOrder = "false" Var NextOrder = "false"
TransferVar "next" "curr" TransferVar "next" "curr"
Var Seeker = "curr" Var Seeker = "curr"
SAVELOG "Remove cup drink fail " SAVELOG "Have Cup 2"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml" Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf EndIf
EndIf
; must remove cup.
If HaveCup = "true" Then
Else
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Have Cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
If Timeout > 240 Then
If Timeout > 120 Then
If NextOrder = "true" Then If NextOrder = "true" Then
SAVELOG "TIME OUT 240" SAVELOG "TIME OUT 240"
Var NextOrder = "false" Var NextOrder = "false"

View file

@ -40,8 +40,6 @@
DEBUGVAR NextOrder DEBUGVAR NextOrder
DEBUGVAR HaveCup DEBUGVAR HaveCup
DEBUGVAR buttonRemoveCup DEBUGVAR buttonRemoveCup
DEBUGVAR NextOrder DEBUGVAR NextOrder
DEBUGVAR Door_Open_State DEBUGVAR Door_Open_State
@ -76,6 +74,7 @@
EndIf EndIf
EndIf EndIf
Refresh Refresh
TimerReset TimerReset
@ -90,16 +89,6 @@
<Image> <Image>
<X> 53 </X> <X> 53 </X>
<Y> 473 </Y> <Y> 473 </Y>