add inc

inc/button_request_lid_and_straw.inc

@@ -0,0 +1,123 @@
+;
+;
+;
+;
+;
+;
+; Button Straw, More request and report.
+;
+<Button>
+<X> XStraw </X>
+<Y> 1787 </Y>
+<State> EnableGetMoreStrawFileName </State>
+<Filename> bnGetMoreStrawFileName </Filename>
+<FilenamePress> bpGetMoreStrawFileName </FilenamePress>
+<Mode> "No" </Mode>
+<EventClick>
+	Var EnableGetMoreStrawFileNameCountDown = 5
+	Var EnableGetMoreStrawFileName = "PressForever"
+	Var GetMoreStrawCount = GetMoreStrawCount - 1
+
+	DEBUGVAR GetMoreStrawCount
+
+	If GetMoreStrawCount > 0 Then
+		Machine Straw
+	EndIf
+</EventClick>
+</Button>
+
+<Button>
+<X> 270 </X>
+<Y> 1788 </Y>
+<State>bg_strawProblem_ST</State>
+<Filename>  bnStrawProblemReport </Filename>
+<FilenamePress> bpStrawProblemReport </FilenamePress>
+<EventClick>
+
+	Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
+
+	__CMD "straw-alert-disable" 0 strawStr "-"
+ 	__CMD "send-error-code" 1231 "-" "-"
+	Var bg_strawProblem_ST = "Invisible"
+
+	Refresh
+</EventClick>
+</Button>
+
+;
+;
+;
+;
+;
+;
+; Lid button, Get one and report
+;
+<Button>
+<X> 20 </X>
+<Y> 1788 </Y>
+<State>bg_lidProblem_ST</State>
+<Filename>  bnLidProblemReport </Filename>
+<FilenamePress> bpLidProblemReport </FilenamePress>
+<EventClick>
+
+	Var lidStr = "แจ้งปัญหาไม่ได้รับฝา"
+
+	__CMD "lid-alert-disable" 0 lidStr "-"
+ 	__CMD "send-error-code" 1343 "-" "-"
+	Var bg_lidProblem_ST = "Invisible"
+
+	Refresh
+</EventClick>
+</Button>
+
+<Button>
+<X> 22 </X>
+<Y> 1787 </Y>
+<State>GetLidButtonState</State>
+<Mode> "No" </Mode>
+<Filename>  bn_get_lid_image </Filename>
+<FilenamePress> bp_get_lid_image </FilenamePress>
+<EventClick>
+
+	If GetLidButtonState = "Enable" Then
+		Machine Lid
+		Var GetLidButtonCountDown = 12
+	EndIf
+
+	Var GetLidButtonState = "Press"
+
+	Refresh
+</EventClick>
+</Button>
+
+<EventOpen>
+    ; Set default value can request.
+    Var GetMoreStrawCount = 2
+    SAVELOG "Event open from button_request_lid_and_straw.inc"
+
+
+	If bg_lidProblem_ST = "Invisible" Then
+		Var GetLidButtonState = "Enable"
+	EndIf
+
+	If IgnoreLidStraw = "true" Then
+		Var GetLidButtonState = "Invisible"
+		Var IgnoreLidStraw = "false"
+	EndIf
+
+
+	Var GetLidButtonCountDown = 0
+
+	; language instance
+
+	If bg_lidProblem_ST = "Enable" Then
+		Var EnableTopupCreditBetweenBrew = "Invisible"
+		Var GetLidButtonState = "Invisible"
+	EndIf
+
+	If bg_strawProblem_ST = "Enable" Then
+		Var EnableGetMoreStrawFileName = "Invisible"
+		Var EnableTopupCreditBetweenBrew = "Invisible"
+	EndIf
+
+</EventOpen>