<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"

	Machine WakeUp

    Var BugFlag = 0

	CRLFToSpace showname
	CRLFToSpace showdesc

	Var MachineEvent = 0
	Var MatchineSpiralStage = "-"
	
	Var NextButtonState = "Invisible"

	;- Begin
	Var PriceDrinkNoTop = PriceDrink
	Var PriceDrinkTmp = PriceDrink
	Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp
	Var Timeout = 0

	;SAVELOG PriceDrinkTmp
	;- End

	If RoadShow = "true" Then
		Var PriceDrinkTmp = "Free"
		Var SaveSelectDrinkRoadShow = SelectDrink
	EndIf

	DEBUGVAR SaveSelectDrinkRoadShow

	If ShowPrice = "Invisible" Then
		Var PriceDrinkTmpShow = "Free"
	EndIf

	Var StateImgKeto = "Invisible"


	Var ToppingGotoPayment = "true"

	DEBUGVAR backGroundAddExtra
	DEBUGVAR backGroundAddShotPremium

	DEBUGVAR MultiPayEnable
	DEBUGVAR CART_COUNT
	Var btnAddCart = "Invisible"
	If MultiPayEnable = "true" Then
		Var btnAddCart = "Enable"
		If CART_COUNT = 3 Then
			Var btnAddCart = "Invisible"
		EndIf
	EndIf

	Var LidDeactiveButton = "Invisible"
	Var StrawDeactiveButton = "Invisible"

	Machine DoorClose
	Machine DoorLidClose

	Var ButtonNext = "false"

	Var NEW_MULTI = "Invisible"

	Var high_light_drink_type = "Invisible"

	Var text_hot_color = "0x84776F"
	Var text_cold_color = "0x84776F"
	Var text_blender_color = "0x84776F"

	Var PriceDrinkTmpShow = "---"

	Var show_select_type = "Enable"

	Var hot_button_state = PD_STAGE_1
	Var cold_button_state = PD_STAGE_2
	Var blend_button_state = PD_STAGE_3
	Var normal_button_state = "Invisible"

	; Protect have product-code but menu disable or invalid.
	If hot_button_state = "Invisible" Then

		Var hot_button_state = "Disable2"
	EndIf
	If cold_button_state = "Invisible" Then

		Var cold_button_state = "Disable2"
	EndIf
	If blend_button_state = "Invisible" Then

		Var blend_button_state = "Disable2"
	EndIf


	Function 2


	DEBUGVAR show_select_type
	DEBUGVAR PriceD1
	DEBUGVAR PriceD2
	DEBUGVAR PriceD3
	DEBUGVAR DisplayFormatFull

	If hot_button_state = "Disable2" Then
		Var text_price_d1 = ""
	Else
		Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow)
	EndIf

	If cold_button_state = "Disable2" Then
		Var text_price_d2 = ""
	Else
		Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow)
	EndIf


	If blend_button_state = "Disable2" Then
		Var text_price_d3 = ""
	Else
		Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow)
	EndIf

	DEBUGVAR LanguageShowByIndex
	DEBUGVAR NameLang[0][LanguageShowByIndex]
	DEBUGVAR NameLang[1][LanguageShowByIndex]
	DEBUGVAR NameLang[2][LanguageShowByIndex]

	Var showname = aliasName[LanguageShowByIndex]
	Var showdesc = aliasName[LanguageShowByIndex]

	BackslashNToEnter showname
	BackslashNToEnter showdesc

	CRLFToSpace showname
	CRLFToSpace showdesc

</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
	DEBUGVAR Timeout


	Var Timeout = Timeout + 1

	If Timeout > 40 Then
		Var Timeout = 0
		If  Seeker = "next" Then
			OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
			Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
		Else
			OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
			Open "ROOT/taobin_project/xml/page_catalog.xml"
		EndIf

	EndIf

	If MultiPayEnable = "true" Then
		If NEW_MULTI = "Invisible" Then
			Var NEW_MULTI = "Enable"
		Else
			Var NEW_MULTI = "Invisible"
		EndIf
	EndIf

	If Seeker = "curr" Then
		If DoorCupPosition = "bottom" Then
			; It normal
			Var EmergencyStop = "false"
		Else
			Var EmergencyStop = "true"


		EndIf
	EndIf
	
    If MachineEvent = 1 Then
        If MatchineSpiralStage = "-" Then
        
        Else
            If MatchineSpiralStage = "spiral-valid" Then
                Function 2
            Else
                ; Verify error
                DEBUGVAR MachineSpiralErrorCode
                Open "ROOT/taobin_project/xml/page_spiral_invalid_failed.xml"
            EndIf
        EndIf
    EndIf

	Refresh
	TimerReset
</EventTimeout>

<EventLanguageOnChange>
	DEBUGVAR LanguageShow
	DEBUGVAR InternationalEnable

	SAVELOG "EventLanguageOnChange menu -list"

	If InternationalEnable = 1 Then
		If CountryName = "Thailand" Then
			Var show_eng_button_stage = "Invisible"
			Var LanguageButtonEnable = "Enable"
		EndIf
		If CountryName = "HongKong" Then
			Var show_eng_button_stage = "Invisible"
			Var LanguageButtonEnable = "Invisible"
			Var BtnLangToggleIndex = "Enable"
		EndIf
	Else
		Var LanguageButtonEnable = "Invisible"
		Var show_eng_button_stage = "Enable"
	EndIf

	If LanguageShow = "ENG" Then
		Var showname_max_size = 58
		Var warning_image_x = 220
		Var warning_image_y = 1333
		Var warning_text_x = 20
		Var warning_text_y = 1312
		Var text_payment_next_x = 132
	EndIf

	If LanguageShow = "THAI" Then
		Var showname_max_size = 68
		Var warning_image_x = 335
		Var warning_image_y = 1333
		Var warning_text_x = 20
		Var warning_text_y = 1312
		Var text_payment_next_x = 142
	EndIf

	If LanguageShow = "MSC" Then
		Var showname_max_size = 68
		Var warning_image_x = 350
		Var warning_image_y = 1333
		Var warning_text_x = 20
		Var warning_text_y = 1312
		Var text_payment_next_x = 142
	EndIf

	If LanguageShow = "MYANMAR" Then
		Var showname_max_size = 68
		Var warning_image_x = 300
		Var warning_image_y = 1333
		Var warning_text_x = 10
		Var warning_text_y = 1312
		Var text_payment_next_x = 142
	EndIf

	;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_topping_frozen_fruit_select.lxml"
    OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
    RefreshAll
</EventLanguageOnChange>


<Image>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Color> "0xeae6e1" </Color>
</Image>


<LangSwitch>
<X> 1000 </X>
<Y> 381 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
    ;
</EventClick>
</LangSwitch>

<EventLanguageOnChange>
	DEBUGVAR LanguageShowByIndex
	DEBUGVAR LanguageShow


	If SelectDrinkType = 1 Then
		Var showname = NameLang[IndexDrinktType][LanguageShowByIndex]
		Var showdesc = DescLang[IndexDrinktType][LanguageShowByIndex]

	Else
		Var showname = aliasName[LanguageShowByIndex]
		Var showdesc = aliasName[LanguageShowByIndex]

	EndIf

	BackslashNToEnter showname
	BackslashNToEnter showdesc
	CRLFToSpace showname
	CRLFToSpace showdesc
	Var Timeout = 0
</EventLanguageOnChange>


; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	;Open PreviseXMLFileName2
	DEBUGVAR OpenFromXML

	OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"

	Open OpenFromXML


</EventClick>
</Button>

<EventMachine>
	If BugFlag = 1 Then

	Else

        Var MachineEvent = 1
        DEBUGVAR LinkProductCodeAnotherMachine[0]
        DEBUGVAR LinkProductCodeAnotherMachine[1]
        DEBUGVAR LinkProductCodeAnotherMachine[2]

        Var MatchineSpiralStage = "-"

        GenHashWithTimeStamp SpiralRef
        SPIRAL_VERIFY LinkProductCodeAnotherMachine[0] SpiralRef

	EndIf


</EventMachine>


; same
<Image>
<X> 374 </X>
<Y> 752 </Y>
<Width> 331 </Width>
<Height> 436 </Height>
<Filename> PictureDrink </Filename>
</Image>


<Image>
<X> 374 </X>
<Y> 399 </Y>
<State> eval(
 If IsSmoRet = "true" Then
 	Var return = "Enable"
 Else
 	Var return = "Invisible"
 EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>

; same
; Text head
<Text>
<X> 0 </X>
<Y> 602 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<MaxSize> showname_max_size </MaxSize>
<Size> Auto </Size>
<MaxLine> 2 </MaxLine>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>

<Text>
<X> 0 </X>
<Y> 1082 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 68 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xEE8C62 </Color>
<Value> text_price_d3 </Value>
</Text>

; same
<Text>
<X> 25 </X>
<Y> 1232 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 32 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>

; warning time
<Image>
<Refresh> "Enable" </Refresh>
<X> warning_image_x </X>
<Y> warning_image_y </Y>
<Filename> "ROOT/taobin_project/image/topping_inter/time.png" </Filename>
</Image>

<Text>
<Refresh> "Enable" </Refresh>
<X> warning_text_x </X>
<Y> warning_text_y </Y>
<Language>
	<X> 0 </X>
	<Y> 19 </Y>
	<ID> 002290 </ID>
</Language>
</Text>


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


; add cart
<Button>
<State> btnAddCart  </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_add.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_add.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

	Var PriceDrink = PriceDrinkTmp
	SAVELOG "USER press next ( topping ) - new"
	DEBUGVAR topping1
	DEBUGVAR topping2
	DEBUGVAR topping3

	DEBUGVAR LidState
	DEBUGVAR StrawState
	DEBUGVAR UserSelectProductCode
	DEBUGVAR HAVE_UV_DOOR_LID


	If StrawState = "Press" Then
		Machine StrawOrder
		Var LedLidBlink = "true"
	EndIf

	If LidState = "Press" Then
		Machine LidOrder
		Var LedLidBlink = "true"
	EndIf

	Var StrawState = "Enable"
	Var LidState = "Enable"
	;


	Var SelectDrink = UserSelectProductCode
	; Set drink
	Topping "Select" UserSelectProductCode

	; Set option toppinng and pack
	Topping "Select1-ID" topping1
	Topping "Select2-ID" topping2
	Topping "Select3-ID" topping3

	; Pack
	Topping "Pack" ExtendData

	Var Seeker.ExtendData = ExtendData

	If CART1_STATUS = "EMPTY" Then
		Cart "AddMenuID" 1
	Else
		If CART2_STATUS = "EMPTY" Then
			Cart "AddMenuID" 2
		Else
			If CART3_STATUS = "EMPTY" Then
				Cart "AddMenuID" 3
			EndIf
		EndIf
	EndIf

	Var CartUpdate = "true"
</EventClick>
</Button>

<Button>
<X> 277 </X>
<Y> 1772 </Y>
<State> NEW_MULTI </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/new_multi.png" ) </Filename>
<EventClick>
</EventClick>
</Button>

; next
<Button>
<State> NextButtonState </State>
<X> 350 </X>
<Y> 1422 </Y>
<Filename> "ROOT/taobin_project/image/topping_inter/bn_next2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping_inter/bp_next2.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>

<EventClick>

	;Var Seeker = "curr"


	DEBUGVAR PriceDrinkTmp

	;Var Seeker.PriceDrink = PriceDrinkTmp

	Var PriceDrink = PriceDrinkTmp

	SAVELOG "USER press next ( topping ) - new"

	If SugarState1 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index1
		EndIf
	EndIf

	If SugarState2 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index2
		EndIf
		If ShiftSugarStep = 2 Then
			Var topping1 = toppingID1index1
		EndIf

	EndIf

	If SugarState3 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index3
		EndIf
		If ShiftSugarStep = 2 Then
			Var topping1 = toppingID1index2
		EndIf
		If ShiftSugarStep = 3 Then
			Var topping1 = toppingID1index1
		EndIf

	EndIf

	If SugarState3 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index3
		EndIf
		If ShiftSugarStep = 2 Then
			Var topping1 = toppingID1index2
		EndIf
		If ShiftSugarStep = 3 Then
			Var topping1 = toppingID1index1
		EndIf

	EndIf

	If SugarState4 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index4
		EndIf
		If ShiftSugarStep = 2 Then
			Var topping1 = toppingID1index3
		EndIf
		If ShiftSugarStep = 3 Then
			Var topping1 = toppingID1index2
		EndIf

	EndIf

	If SugarState5 = "PressForever" Then
		If ShiftSugarStep = 1 Then
			Var topping1 = toppingID1index5
		EndIf
		If ShiftSugarStep = 2 Then
			Var topping1 = toppingID1index4
		EndIf
		If ShiftSugarStep = 3 Then
			Var topping1 = toppingID1index3
		EndIf

	EndIf


	Var Seeker.topping1 = topping1
	Var Seeker.topping2 = topping2
	Var Seeker.topping3 = topping3
	Var Seeker.topping6 = topping6

	Var Seeker.get_a_straw = StrawState
	Var Seeker.get_a_lid = LidState


	DEBUGVAR Seeker.topping1
	DEBUGVAR Seeker.topping2
	DEBUGVAR Seeker.topping3
	DEBUGVAR Seeker.topping6
	DEBUGVAR Seeker.get_a_straw
	DEBUGVAR Seeker.get_a_lid

	DEBUGVAR LidState
	DEBUGVAR StrawState
	DEBUGVAR UserSelectProductCode


	If StrawState = "Press" Then
		Machine StrawOrder
		Var LedLidBlink = "true"
	EndIf

	If LidState = "Press" Then
		Machine LidOrder
		Var LedLidBlink = "true"
		Var bg_lidProblem_ST = "Enable"
	Else
		Var bg_lidProblem_ST = "Invisible"
	EndIf

	If SelectDrinkType = 0 Then

	Else
		Var StrawState = "Enable"
		Var LidState = "Enable"
	EndIf
	;


	Var SelectDrink = UserSelectProductCode

	Var Seeker.selected_a_drink = UserSelectProductCode
	DEBUGVAR Seeker.selected_a_drink

	; Set drink

	If Seeker = "curr" Then
		Topping "Select" UserSelectProductCode

		; Set option toppinng and pack
		Topping "Select1-ID" topping1
		Topping "Select2-ID" topping2
		Topping "Select3-ID" topping3
		Topping "Select6-ID" topping6

		; Pack
		Topping "Pack" ExtendDataCurr

	Else
		Topping "SetNextOrder" UserSelectProductCode


		Topping "__select" UserSelectProductCode
		; Set option toppinng and pack
		Topping "__select1-id" topping1
		Topping "__select2-id" topping2
		Topping "__select3-id" topping3
		Topping "__select6-id" topping6
		; Pack
		Topping "__pack" ExtendDataNext

		Var NextUserSelectDrinkFromPaid = UserSelectProductCode
		Var NextUserSelecttopping1Paid = topping1
		Var NextUserSelecttopping2Paid = topping2
		Var NextUserSelecttopping3Paid = topping3
		Var NextUserSelecttopping6Paid = topping6


	EndIf
	DEBUGVAR Seeker
	DEBUGVAR Seeker.ExtendData

	Var Seeker.PictureDrink = PictureDrink
	Var Seeker.showname = showname

	DEBUGVAR MenuCautionImageStage0
	DEBUGVAR CustomerFilterEnable
	DEBUGVAR CustomerFilterType


	If LanguageShow = "ENG" Then
		Var show_eng = "true"
	EndIf
	If LanguageShow = "THAI" Then
		Var show_eng = "false"
	EndIf


	GetLongTimeInMinute LastTimeClickOrder

	If CART_COUNT  = 0 Then
		If UserSelectProductCode = "-" Then

		Else
			If SelectDrinkType = 1 Then
				Var SmoothieToPayment = 1
				OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
				Open "ROOT/taobin_project/xml/page_payment.xml"
			EndIf
		EndIf

		If SelectDrinkType = 0 Then
			Var high_light_drink_type = "Enable"
		EndIf
	Else

		If CART1_STATUS = "EMPTY" Then
			Cart "AddMenuID" 1
		Else
			If CART2_STATUS = "EMPTY" Then
				Cart "AddMenuID" 2
			Else
				If CART3_STATUS = "EMPTY" Then
					Cart "AddMenuID" 3
				EndIf
			EndIf
		EndIf

		Var CartUpdate = "true"
		Var ButtonNext = "true"

	EndIf

	Var LastTimeClickOrder = 0


</EventClick>
</Button>
<Text>
	<X> 420 </X>
	<Y> 1442 </Y>
	<Width> 250 </Width>
	<Height> 75 </Height>
	<Language>
		<ID> 002291 </ID>
	</Language>
</Text>


<Function2>

	Var img_cold_no_flag = 0
	Var img_smth_no_flag = 0

	If hot_button_state = "Disable2" Then
		If blend_button_state = "Disable2" Then
			Var img_cold_no_flag = 1
		Else
		Var img_cold_no_flag = 1
		Var img_smth_no_flag = 2
		EndIf
	EndIf

	If PriceD1 = PriceD2 Then
		Var img_cold_no_flag = 1
	EndIf

	If hot_button_state = "Disable2" Then
		If cold_button_state = "Disable2" Then
			Var img_smth_no_flag = 1
		EndIf
	EndIf


	If img_cold_no_flag = 1 Then
		SAVELOG "Cold Image change."
		Var img_cold = "/bt_cold_no.png"
		Var img_cold_sel = "/bt_cold_selected_no.png"
		Var img_cold_dis = "/bt_cold_disable_no.png"
		Var img_cold_dis2 = "/bt_cold_disable2_no.png"
	Else
		Var img_cold = "/bt_cold.png"
		Var img_cold_sel = "/bt_cold_selected.png"
		Var img_cold_dis = "/bt_cold_disable.png"
		Var img_cold_dis2 = "/bt_cold_disable2.png"
	EndIf

	If img_smth_no_flag = 1 Then
		SAVELOG "Smoothies change img. 1"
		Var img_smth = "/bt_smoothie_no.png"
		Var img_smth_sel = "/bt_smoothie_selected_no.png"
		Var img_smth_dis = "/bt_smoothie_disable_no.png"
		Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"
	Else
		If img_smth_no_flag = 2 Then
			SAVELOG "Smoothies change img. 2"
			Var img_smth = "/bt_smoothie_sub2.png"
			Var img_smth_sel = "/bt_smoothie_selected_sub2.png"
			Var img_smth_dis = "/bt_smoothie_disable_sub2.png"
			Var img_smth_dis2 = "/bt_smoothie_disable2_sub2.png"
		Else

			Var img_smth = "/bt_smoothie.png"
			Var img_smth_sel = "/bt_smoothie_selected.png"
			Var img_smth_dis = "/bt_smoothie_disable.png"
			Var img_smth_dis2 = "/bt_smoothie_disable2.png"
		EndIf
	EndIf

	Var img_cold = "/bt_cold_no.png"
	Var img_cold_sel = "/bt_cold_selected_no.png"
	Var img_cold_dis = "/bt_cold_disable_no.png"
	Var img_cold_dis2 = "/bt_cold_disable2_no.png"

	Var img_smth = "/bt_smoothie_no.png"
	Var img_smth_sel = "/bt_smoothie_selected_no.png"
	Var img_smth_dis = "/bt_smoothie_disable_no.png"
	Var img_smth_dis2 = "/bt_smoothie_disable2_no.png"

	DEBUGVAR menu_name_thai_cold
	SAVELOG "FUNCTION2"


	Var TOPPING_PRICE = 0

	Var SelectDrinkType = 0

 	; Set default
	If SelectCountDrinkType = 1 Then
		If DefaultDrinkType = 1 Then
			Var hot_button_state = "PressForever"
			Var IndexDrinktType = 0
		EndIf
		If DefaultDrinkType = 2 Then
			Var cold_button_state = "PressForever"

			If PD_CODE2 = "12-05-02-0016" Then
				Var cold_button_state = "Invisible"
				Var normal_button_state = "PressForever"
				Var SelectDrinkType = 1
			EndIf

			If PD_CODE2 = "51-05-02-0016" Then
				Var cold_button_state = "Invisible"
				Var normal_button_state = "PressForever"
				Var SelectDrinkType = 1
			EndIf

			Var IndexDrinktType = 1
		EndIf
		If DefaultDrinkType = 3 Then
			Var blend_button_state = "PressForever"
			Var IndexDrinktType = 2
		EndIf

	EndIf

	If hot_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD1
		Var UserSelectProductCode = PD_CODE1

		If showShotEnable = "Disable" Then
			Var showShotEnable = "Enable"
		EndIf

		Var showText4 = "Invisible"

		Var showname = NameLang[0][LanguageShowByIndex]
		Var showdesc = DescLang[0][LanguageShowByIndex]

		Var text_hot_color = "0xFFFFFF"
		Var text_cold_color = "0x84776F"
		Var text_blender_color = "0x84776F"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf

	If cold_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD2
		Var UserSelectProductCode = PD_CODE2

		If showShotEnable = "Disable" Then
			Var showShotEnable = "Enable"
		EndIf
		Var showText4 = "Invisible"

		Var showname = NameLang[1][LanguageShowByIndex]
		Var showdesc = DescLang[1][LanguageShowByIndex]

		Var text_hot_color = "0x84776F"
		Var text_cold_color = "0xFFFFFF"
		Var text_blender_color = "0x84776F"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf

	If blend_button_state = "PressForever" Then
		Var PriceDrinkNoTop = PriceD3
		Var UserSelectProductCode = PD_CODE3

		If showShotEnable = "Invisible" Then

		Else
			Var showShotEnable = "Disable"
		EndIf
		Var showText4 = "Enable"

		Var showname = NameLang[2][LanguageShowByIndex]
		Var showdesc = DescLang[2][LanguageShowByIndex]

		Var text_hot_color = "0x84776F"
		Var text_cold_color = "0x84776F"
		Var text_blender_color = "0xFFFFFF"

		Var SelectDrinkType = 1

		Machine PreparCup
	EndIf

	BackslashNToEnter showname
	BackslashNToEnter showdesc
	CRLFToSpace showname
	CRLFToSpace showdesc


	DEBUGVAR PriceDrinkNoTop
	DEBUGVAR PriceDiff
	DEBUGVAR showShotEnable
	Var TOPPING_PRICE = 0

	If ShotCoffeePremium = "Press" Then
		If blendedState = "Press" Then
			Var PriceDrinkTmp = PriceDrinkNoTop
		EndIf

		Var blendedState = "Disable"
		Var TOPPING_PRICE = 0

		Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2

		Var topping2 = toppingID2index2

		Var DisableUsingCode = "true"

		Var showText7 = "Enable"

		SAVELOG "Select premi normal shot"

	Else

		If showShotEnable = "Press" Then
			If blendedState = "Press" Then
				Var PriceDrinkTmp = PriceDrinkNoTop
			EndIf

			Var blendedState = "Disable"

			Var TOPPING_PRICE = 0

			;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2
			Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2

			Var topping2 = toppingID2index2

			Var DisableUsingCode = "true"

			Var showText7 = "Enable"

			SAVELOG "Select add normal shot"
		Else
			If blendedState = "Disable" Then
				Var blendedState = "Enable"
			EndIf


			Var PriceDrinkTmp = PriceDrinkNoTop
			Var topping2 = toppingID2index1
			Var DisableUsingCode = "false"
			SAVELOG "Deselect add normal shot"

			Var showText7 = "Invisible"

		EndIf

	EndIf


	DEBUGVAR showOreoAddEnable
	DEBUGVAR TOPPING_PRICE

	If showOreoAddEnable = "Press" Then
		Var TOPPING_PRICE = TOPPING_PRICE + toppingID6price2
		Var topping6 = toppingID6index2
		Var DisableUsingCode = "true"
	Else

		;Var PriceDrinkTmp = PriceDrinkNoTop

		Var topping6 = toppingID6index1

		Var DisableUsingCode = "false"

	EndIf

	DEBUGVAR OatMilkEnable
	DEBUGVAR MenuCodeName1
	DEBUGVAR MenuCodeName1_State

	If OatMilkEnable = "Press" Then
		If MenuCodeName1 = "OatMilk" Then
			If MenuCodeName1_State = "Enable" Then
				Var TOPPING_PRICE = TOPPING_PRICE + OatMilkAddAmount
				Var UserSelectProductCode = SubMenuProductCode1
			EndIf
		EndIf
	EndIf


	DEBUGVAR SelectDrinkType

	DEBUGVAR showShotEnable
	DEBUGVAR PriceDrinkTmpShow

	Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE
	Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp

	If SelectDrinkType = 0 Then
		Var PriceDrinkTmpShow = "---"
	Else
		Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormatFull, PreScaleConvertShow)
	EndIf
	SAVELOG PriceDrinkTmp

	If RoadShow = "true" Then

		Var PriceDrinkTmpShow = "Free"

		DEBUGVAR SelectDrink2
		DEBUGVAR PriceDrinkTmpShow
	EndIf

	CRLFToSpace showname
	CRLFToSpace showdesc
	DEBUGVAR showname
	DEBUGVAR showdesc


	Var Timeout = 0
	Var NextButtonState = "Enable"
	
	RefreshAll

</Function2>


;
<EventUnitTest1>
    OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
</EventUnitTest1>

</Page>