renovate remove cup and cup on arm

inc/button_remove_cup.inc

@@ -1,7 +1,7 @@
 <Button>
 <X> btnRemoveCupX </X>
 <Y> btnRemoveCupYNotPageBoard </Y>
-<State> buttonRemoveCup </State>
+<State> buttonRemoveCupOnArm </State>
 ;<Color> "0x00BDFF" </Color>
 <Interval> 500 </Interval>
 <Filename> bnRemoveCup </Filename>
@@ -9,6 +9,16 @@
 <EventClick> 
     Machine RemoveCup
     Machine DoorLidOpen
-    Var buttonRemoveCup = "Invisible"
+    SAVELOG "Press button remove cup on-arm"
+    Var buttonRemoveCupOnArm = "Invisible"
+    
+    ; protect value update too slow.
+    Var DoorCupPosition = "-"
+
+    Var CheckCupStateDoorCupClose = "reset"
+    Var CheckCupStateDoorCupCloseCnt = 30
+    Var TimeoutForProtectButtonHideLongTime = 0
+
+    RefreshAll
 </EventClick>
 </Button>

inc/remove_cup_on_arm_step.inc

@@ -0,0 +1,169 @@
+; setvarint DebugRemoveCup 1
+If DebugRemoveCup = 1 Then
+    DEBUGVAR TimeoutForProtectButtonHideLongTime
+    DEBUGVAR TimeoutForDoorCupOpenLongTime
+
+
+    DEBUGVAR CupOnArm
+    DEBUGVAR DoorCupPosition
+    DEBUGVAR CupChecking
+    DEBUGVAR CupArmMove
+    DEBUGVAR buttonRemoveCupOnArm
+EndIf
+If TimeoutForDoorCupOpenLongTime = "" Then
+    Var TimeoutForDoorCupOpenLongTime = 1
+EndIf
+
+
+If TimeoutInstance0 = 3 Then
+    SAVELOG "remove cup on arm 1.0"
+EndIf
+
+;SAVELOG "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
+
+If Seeker = "curr" Then
+
+    If buttonRemoveCupOnArm = "Enable" Then
+
+    Else
+        If CupOnArm = "true" Then
+            Var TimeoutForProtectButtonHideLongTime = TimeoutForProtectButtonHideLongTime + 1
+                
+            If TimeoutForProtectButtonHideLongTime > 60 Then
+                Var TimeoutForProtectButtonHideLongTime = 0
+                If DoorCupPosition = "bottom" Then
+                    SAVELOG "Check Cup all from Long time button cup on arm hide"
+                    Var buttonRemoveCupOnArm = "Enable"
+                EndIf
+            EndIf
+        EndIf
+    EndIf
+
+
+    If DoorCupPosition = "bottom" Then
+        Var TimeoutForDoorCupOpenLongTime = 0
+    Else
+        Var TimeoutForDoorCupOpenLongTime = TimeoutForDoorCupOpenLongTime + 1
+    EndIf
+
+    If TimeoutForDoorCupOpenLongTime > 40 Then
+        Var TimeoutForDoorCupOpenLongTime = 0
+
+        If DoorCupPosition = "bottom" Then
+            Var TimeoutForDoorCupOpenLongTime = 0
+        Else
+            Machine DoorClose
+            Var DoorCloseFromTimeout = "set"
+        EndIf
+    EndIf
+
+
+
+    If PreviseDoorCupPosition = DoorCupPosition Then
+
+    Else
+        DEBUGVAR PreviseDoorCupPosition
+        DEBUGVAR DoorCupPosition
+        
+        If DoorCupPosition = "bottom" Then
+            Machine CheckCupLastIDProcess
+        EndIf
+        
+        Var PreviseDoorCupPosition = DoorCupPosition
+    EndIf
+
+    If show_eng = "true" Then 
+
+    Else
+        If Timeout = 14 Then
+            If buttonRemoveCupOnArm = "Enable" Then
+                If CupChecking = "false" Then
+                    If DoorCupPosition = "bottom" Then
+                        If InternationalEnable = 1 Then
+                            
+                        Else
+                            Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
+                        EndIf
+                    EndIf
+                EndIf
+                If CupArmMove = "false" Then
+                    If DoorCupPosition = "bottom" Then
+                        If InternationalEnable = 1 Then
+                            
+                        Else
+                            Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
+                        EndIf
+                    EndIf
+                EndIf
+            EndIf
+        EndIf
+    EndIf
+
+    Var Timeout = Timeout + 1
+
+
+
+    Var TimeoutInstance0 = TimeoutInstance0 + 1
+
+
+    ; Logic have differrent drinkfail3.xml 
+    ; protect lock 
+    ; 
+
+    If CheckCupStateDoorCupCloseCnt > 0 Then
+        Var CheckCupStateDoorCupCloseCnt = CheckCupStateDoorCupCloseCnt - 1
+        DEBUGVAR CheckCupStateDoorCupCloseCnt
+
+        If CheckCupStateDoorCupCloseCnt = 0 Then
+            Var CheckCupStateDoorCupClose = ""
+        EndIf
+        
+    EndIf
+
+
+    If DoorCupPosition = "bottom" Then
+        If CupOnArm = "true" Then
+
+        Else
+
+            Var CoundUpDelayCertainStage = CoundUpDelayCertainStage + 1
+            DEBUGVAR CoundUpDelayCertainStage
+            If CoundUpDelayCertainStage > 10 Then 
+            
+                Var buttonRemoveCupOnArm = "Invisible"
+            EndIf
+        EndIf
+    Else
+        Var CoundUpDelayCertainStage = 0
+    EndIf
+
+
+     ; zone cup on arm
+    If buttonRemoveCupOnArm = "Enable" Then
+
+    Else
+        If CupOnArm = "true" Then
+
+            If CheckCupStateDoorCupClose = "" Then
+                Var buttonRemoveCupOnArm = "Enable"
+            EndIf
+
+            If CheckCupStateDoorCupClose = "done" Then
+                Var buttonRemoveCupOnArm = "Enable"
+            EndIf
+        Else
+
+        EndIf
+    EndIf
+
+
+    
+Else
+    DEBUGVAR 
+    ; Next hide away
+    Var buttonRemoveCupOnArm = "Invisible"
+
+EndIf
+
+;cfe cup-on-arm-reset
+;

inc/remove_cup_step.inc

@@ -24,7 +24,6 @@ Else
     EndIf
 EndIf
 
-
 Var TiemoutForDoorCupOpenLongTime = TiemoutForDoorCupOpenLongTime + 1
 If TiemoutForDoorCupOpenLongTime > 60 Then
     Var TiemoutForDoorCupOpenLongTime = 0

inc/remove_cup_tag_on_arm.inc

@@ -0,0 +1,26 @@
+
+<EventMachineCupReady>
+	SAVELOG "EventMachineCupReady"
+	
+	
+	Refresh
+
+</EventMachineCupReady>
+
+<EventMachineCupNotReady>
+	SAVELOG "EventMachineCupNotReady"
+</EventMachineCupNotReady>
+
+<EventDrink>
+	SAVELOG "EventDrink"
+	DEBUGVAR HaveCup
+	DEBUGVAR CupOnArm
+	DEBUGVAR DoorCupPosition
+	DEBUGVAR CupChecking
+	DEBUGVAR CupArmMove
+	If CupOnArm = "false" Then
+		Var buttonRemoveCupOnArm = "Invisible"
+	EndIf
+	
+</EventDrink>
+