;
;
;
;
;
;
; 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>