<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<EventOpen>
	DEBUGVAR PaySuccessWithDaemonTask
	
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

	If PaySuccessWithDaemonTask = 1 Then
		
		DEBUGVAR PaidPaymentFromNextStage
		DEBUGVAR LastMakeDrinkResult
		; from 
		If LastMakeDrinkResult = "success" Then
			If PaidPaymentFromNextStage = 1 Then
				Var DelayForMakeDrink = 0
				Var PaidPaymentFromNextStage = 2
			EndIf
		EndIf

		If PaidPaymentFromNextStage = 2 Then
			DEBUGVAR HaveCup
			DEBUGVAR MaybeHaveCup
			DEBUGVAR DoorCupPosition
			
			If HaveCup = "false" Then
				If MaybeHaveCup = "false" Then
					If DoorCupPosition = "bottom" Then

						Topping "Select" NextUserSelectDrinkFromPaid

						; Set option toppinng and pack 
						Topping "Select1-ID" NextUserSelecttopping1Paid
						Topping "Select2-ID" NextUserSelecttopping2Paid
						Topping "Select3-ID" NextUserSelecttopping3Paid

						; Pack
						Topping "Pack" ExtendDataCurr

						Var DelayForMakeDrink = 2
						Var PaidPaymentFromNextStage = 3

						DEBUGVAR NextUserSelectDrinkFromPaid
					EndIf
				EndIf
			EndIf
		EndIf
	
		DEBUGVAR DelayForMakeDrink
	
	EndIf
	
	If DelayForMakeDrink > 0 Then
		DEBUGVAR DelayForMakeDrink
		Var DelayForMakeDrink = DelayForMakeDrink - 1
		If DelayForMakeDrink = 0 Then
			Var MakeContinue = 1
			MakeDrinkV1  NextUserSelectDrinkFromPaid SelectSugarID
		EndIf
	EndIf

	; hurr
	TimerReset
</EventTimeout>
</Page>