<Page>

<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Loading_Page5.bmp" </Background>


<EventOpen>
	; On open

	Var Timeout = 0
	Var Change3Timeout = 0
	Var ActionOKCase = 0
	

</EventOpen>

<EventActionOk>
	If ActionOKCase = 1 Then
		If CodeChannel = 1 Then 
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + sugarID
			Var SessionID2 = SessionID2 + "000"

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C00"
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C"
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""

			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2
		Else 
			Open "ROOT/xml/menu_closeMaintenance.xml" 
		EndIf
       
    EndIf

    If ActionOKCase = 2 Then
        Open "ROOT/xml/menu_closeMaintenance.xml" 
    EndIf
</EventActionOk>

<Timeout> 1000 </Timeout>
<EventTimeout> 
	

	Var Timeout = Timeout + 1

	If ActionOKCase > 0 Then
		If Timeout > 150 Then
			Open "ROOT/xml/menu_closeMaintenance.xml" 
		EndIf
	EndIf

	If Timeout > 60 Then
		If ErrTimeout = 0 Then
			Var ErrTimeout = 1
			Var BrewingTextEng = ""
			Var BrewingTextThai = ""
			Var ProcessText = "ระบบขัดข้อง"
			;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif" 
			

			If PayWithQR = 0 Then
				If CodeChannel = 0 Then
					If ChangeFlag = 0 Then
						Var ChangeFlag = 1 
						Change ServiceAmount2
					EndIf
				Else
					If CoinAmount > 0 Then
						If ChangeFlag = 0 Then
							Var ChangeFlag = 1 
							Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
							Change ServiceAmount2
						EndIf
					Else
						Var ChangeOK = 4
					EndIf
				EndIf
			Else
				Var ChangeOK = 3
			EndIf


			Open "ROOT/xml/menu_page5.xml" 
		EndIf
	EndIf

	If ChangeFlag = 1 Then
		Var ChangeTimeout = ChangeTimeout + 1
	EndIf

	If  ChangeOK = 2 Then
		If ActionOKCase = 0 Then
			Var TelephoneNumber = "0899999999"
			Var VendingDiscount = 0
			Var VendingCampaign = 0
			Var ServiceType = "credit"
			Var SessionID2 = SelectDrink
			Var ServiceCredit = "coffee"
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
			;Open "ROOT/xml/menu_closeMaintenance.xml" 
			Var ActionOKCase = 1
		EndIf
	EndIf

	If  ChangeTimeout > 60 Then
		If ActionOKCase = 0 Then
			Var TelephoneNumber = "0899999999"
			Var VendingDiscount = 0
			Var VendingCampaign = 0
			Var ServiceType = "credit"
			Var SessionID2 = SelectDrink
			Var ServiceCredit = "coffee"
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
			;Open "ROOT/xml/menu_closeMaintenance.xml" 
			Var ActionOKCase = 1
		EndIf
	EndIf

	If ChangeOK = 3 Then
		Var Change3Timeout = Change3Timeout + 1
		If  Change3Timeout > 3 Then
			Open "ROOT/xml/menu_closeMaintenance.xml" 
		EndIf
	EndIf

	If ChangeOK = 4 Then
		If ActionOKCase = 0 Then
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + sugarID
			Var SessionID2 = SessionID2 + "000"
			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C00"
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C"
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""
			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2
		EndIf
	EndIf


	If MachineState_Result = 1 Then
		Var Timeout = 0
	  	Var ProcessText = ""
		;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_ready.gif" 

		Var TelephoneNumber = "0899999999"
		Var ServiceType = "coffee"
		Var ServiceCredit = SelectDrink
		Var SuggestID  = ""

		If PayWithQR = 0 Then
			If CodeChannel = 1 Then
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + CodeNumber
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + VendingCode
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + SelectDrink
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + BoxID
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + "S"
				Var SessionID2 = SessionID2 + "/"
				Var SessionID2 = SessionID2 + CodeNumber
				Var SessionID2 = SessionID2 + "/"

				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
			Else
				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
			EndIf
		EndIf

		Var ServiceSuccess = "yes"
		Open "ROOT/xml/menu_page6.xml" 
	EndIf

	If MachineState_Result = 2 Then
		If ErrTimeout = 0 Then
			Var ErrTimeout = 1

			Var BrewingTextEng = ""
			Var BrewingTextThai = ""
			Var ProcessText = "ระบบขัดข้อง"
			;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif" 

			If PayWithQR = 0 Then
				If CodeChannel = 0 Then
					If ChangeFlag = 0 Then
						Var ChangeFlag = 1 
						Change ServiceAmount2
					EndIf
				Else
					If CoinAmount > 0 Then
						If ChangeFlag = 0 Then
							Var ChangeFlag = 1 
							Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
							Change ServiceAmount2
						EndIf
					Else
						Var ChangeOK = 4
					EndIf
				EndIf
			Else
				Var ChangeOK = 3
			EndIf

			Open "ROOT/xml/menu_page5.xml" 
		EndIf
	EndIf


	TimerReset
	Refresh
</EventTimeout> 

<EventMachine>
	

	If MachineStage = "make-drink" Then
		Var Timeout = 0
		Var ProcessText = ""
		;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" 
		Open "ROOT/xml/menu_page5.xml" 
	EndIf

	If MachineStage = "prepar-cup" Then
		Var Timeout = 0
		Var ProcessText = ""
		;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" 
		Open "ROOT/xml/menu_page5.xml" 
	EndIf

	If MachineStage = "ice-out" Then
		Var Timeout = 0
		Var ProcessText = ""
		;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_ice.gif" 
		Open "ROOT/xml/menu_page5.xml" 
	EndIf

	If MachineStage = "brewing" Then
		Var Timeout = 0
		Var ProcessText = ""
		Open "ROOT/xml/menu_page5.xml" 
	EndIf

	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf

	If MachineStage = "drink-failed" Then
		Var MachineState_Result = 2
	EndIf
</EventMachine>

<EventChangeStatus>
	If ChangeStatus = "payout-end" Then 
		Var ChangeOK = 2
	EndIf
</EventChangeStatus>


<GIF>
<X> 183 </X>
<Y> 350 </Y>
<Filename> GIFShowProcess </Filename>
</GIF>


<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> ProcessText </Value>
</Text>


<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> BrewingTextEng </Value>
</Text>

<Text>
<X> 420 </X>
<Y> 315 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0xB78F24 </Color>
<Value> BrewingTextThai </Value>
</Text>


<EventSecurity> 
	Open "/media/bt/xml/security_alarm.xml" 
</EventSecurity>


</Page>