"Enable" 1080 1312 "ROOT/image/BG_Inthanin.bmp" "ROOT/sounds/selectDrink.wav" SoundVolume
TopView "show"
; On open
Var ServiceSuccess = "no"
Var p6OpenBG = "ROOT/image/BG_Menu_Page6_Open_inthanin.bmp"
Var p6OpenGIF = "ROOT/image/Page6_Open_inthanin.gif"
Var pCleanBG = "ROOT/image/BG_Clean_inthanin.bmp"
Var pCleanGIF = "ROOT/image/CleanMachine_inthanin.gif"
Var pUpgradeBG = "ROOT/image/BG_Upgrade_inthanin.bmp"
Var pUpgradeGIF = "ROOT/image/UpgradeMachine_inthanin.gif"
Var pMaintenanceBG = "ROOT/image/BG_CloseMaintenance_inthanin.jpg"
Var p7LidGIF = "ROOT/image/gif_thank_lid_inthanin.gif"
If NetworkStatus = "DOWN" Then
Open "/mnt/sdcard/coffeevending/xml/main.xml"
EndIf
If NetworkStatus = "DEACTIVE" Then
Open "/mnt/sdcard/coffeevending/xml/main.xml"
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
If MachineStage = "clean-machine" Then
Open "ROOT/xml/menu_cleanMachine.xml"
EndIf
If MachineStage = "mcu-upgrade" Then
Open "ROOT/xml/menu_upgradeMCU.xml"
EndIf
If NeedUpgrade = "true" Then
Open "ROOT/xml/menu_upgrading.xml"
EndIf
If HaveCup = "true" Then
Open "ROOT/xml/menu_Page6_Open.xml"
EndIf
Var DiscountDrink = 0
Var SelectSlot = "0"
Var rootMenu = "ROOT/image/"
Var row1x = 15
Var row2x = 227
Var row3x = 439
Var row4x = 651
Var row5x = 863
Var row1y = 115
Var row2y = 337
Var row3y = 559
Var row4y = 781
Var textrow1y = 300
Var rowT1x = 15
Var rowT2x = 227
Var rowT3x = 439
Var rowT4x = 651
Var rowT5x = 863
Var rowT1y = 115 + 140
Var rowT2y = 337 + 140
Var rowT3y = 559 + 140
Var rowT4y = 781 + 140
Var rowP1y = 115 + 170
Var rowP2y = 337 + 170
Var rowP3y = 559 + 170
Var rowP4y = 781 + 170
Var rowD1x = 15 + 120
Var rowD2x = 227 + 120
Var rowD3x = 439 + 120
Var rowD4x = 651 + 120
Var rowD5x = 863 + 120
Var rowD1y = 115 + 170
Var rowD2y = 337 + 170
Var rowD3y = 559 + 170
Var rowD4y = 781 + 170
Var rowR1y = 115 + 180
Var rowR2y = 337 + 180
Var rowR3y = 559 + 180
Var rowR4y = 781 + 180
Var rowS1x = 15 + 70
Var rowS2x = 227 + 70
Var rowS3x = 439 + 70
Var rowS4x = 651 + 70
Var rowS5x = 863 + 70
Var rowS1y = 115 + 160
Var rowS2y = 337 + 160
Var rowS3y = 559 + 160
Var rowS4y = 781 + 160
Var PriceColor1 = 0xFF0000
Var PriceColor2 = 0xFF0000
Var PriceColor3 = 0xFF0000
Var PriceColor4 = 0xFF0000
Var PriceColor5 = 0xFF0000
Var PriceColor6 = 0xFF0000
Var PriceColor7 = 0xFF0000
Var PriceColor8 = 0xFF0000
Var PriceColor9 = 0xFF0000
Var PriceColor10 = 0xFF0000
Var PriceColor11 = 0xFF0000
Var PriceColor12 = 0xFF0000
Var PriceColor13 = 0xFF0000
Var PriceColor14 = 0xFF0000
Var PriceColor15 = 0xFF0000
Var PriceColor16 = 0xFF0000
Var DiscountPriceStr1 = ""
Var DiscountPriceStr2 = ""
Var DiscountPriceStr3 = ""
Var DiscountPriceStr4 = ""
Var DiscountPriceStr5 = ""
Var DiscountPriceStr6 = ""
Var DiscountPriceStr7 = ""
Var DiscountPriceStr8 = ""
Var DiscountPriceStr9 = ""
Var DiscountPriceStr10 = ""
Var DiscountPriceStr11 = ""
Var DiscountPriceStr12 = ""
Var DiscountPriceStr13 = ""
Var DiscountPriceStr14 = ""
Var DiscountPriceStr15 = ""
Var DiscountPriceStr16 = ""
Var SlashSt1 = "Invisible"
Var SlashSt2 = "Invisible"
Var SlashSt3 = "Invisible"
Var SlashSt4 = "Invisible"
Var SlashSt5 = "Invisible"
Var SlashSt6 = "Invisible"
Var SlashSt7 = "Invisible"
Var SlashSt8 = "Invisible"
Var SlashSt9 = "Invisible"
Var SlashSt10 = "Invisible"
Var SlashSt11 = "Invisible"
Var SlashSt12 = "Invisible"
Var SlashSt13 = "Invisible"
Var SlashSt14 = "Invisible"
Var SlashSt15 = "Invisible"
Var SlashSt16 = "Invisible"
Var nMenu1 = rootMenu + "BN_"
Var nMenu1 = nMenu1 + Menu1ProductCode
Var nMenu1 = nMenu1 + ".png"
Var pMenu1 = rootMenu + "BP_"
Var pMenu1 = pMenu1 + Menu1ProductCode
Var pMenu1 = pMenu1 + ".png"
Var dMenu1 = rootMenu + "BD_"
Var dMenu1 = dMenu1 + Menu1ProductCode
Var dMenu1 = dMenu1 + ".png"
Var nMenu2 = rootMenu + "BN_"
Var nMenu2 = nMenu2 + Menu2ProductCode
Var nMenu2 = nMenu2 + ".png"
Var pMenu2 = rootMenu + "BP_"
Var pMenu2 = pMenu2 + Menu2ProductCode
Var pMenu2 = pMenu2 + ".png"
Var dMenu2 = rootMenu + "BD_"
Var dMenu2 = dMenu2 + Menu2ProductCode
Var dMenu2 = dMenu2 + ".png"
Var nMenu3 = rootMenu + "BN_"
Var nMenu3 = nMenu3 + Menu3ProductCode
Var nMenu3 = nMenu3 + ".png"
Var pMenu3 = rootMenu + "BP_"
Var pMenu3 = pMenu3 + Menu3ProductCode
Var pMenu3 = pMenu3 + ".png"
Var dMenu3 = rootMenu + "BD_"
Var dMenu3 = dMenu3 + Menu3ProductCode
Var dMenu3 = dMenu3 + ".png"
Var nMenu4 = rootMenu + "BN_"
Var nMenu4 = nMenu4 + Menu4ProductCode
Var nMenu4 = nMenu4 + ".png"
Var pMenu4 = rootMenu + "BP_"
Var pMenu4 = pMenu4 + Menu4ProductCode
Var pMenu4 = pMenu4 + ".png"
Var dMenu4 = rootMenu + "BD_"
Var dMenu4 = dMenu4 + Menu4ProductCode
Var dMenu4 = dMenu4 + ".png"
Var nMenu5 = rootMenu + "BN_"
Var nMenu5 = nMenu5 + Menu5ProductCode
Var nMenu5 = nMenu5 + ".png"
Var pMenu5 = rootMenu + "BP_"
Var pMenu5 = pMenu5 + Menu5ProductCode
Var pMenu5 = pMenu5 + ".png"
Var dMenu5 = rootMenu + "BD_"
Var dMenu5 = dMenu5 + Menu5ProductCode
Var dMenu5 = dMenu5 + ".png"
Var nMenu6 = rootMenu + "BN_"
Var nMenu6 = nMenu6 + Menu6ProductCode
Var nMenu6 = nMenu6 + ".png"
Var pMenu6 = rootMenu + "BP_"
Var pMenu6 = pMenu6 + Menu6ProductCode
Var pMenu6 = pMenu6 + ".png"
Var dMenu6 = rootMenu + "BD_"
Var dMenu6 = dMenu6 + Menu6ProductCode
Var dMenu6 = dMenu6 + ".png"
Var nMenu7 = rootMenu + "BN_"
Var nMenu7 = nMenu7 + Menu7ProductCode
Var nMenu7 = nMenu7 + ".png"
Var pMenu7 = rootMenu + "BP_"
Var pMenu7 = pMenu7 + Menu7ProductCode
Var pMenu7 = pMenu7 + ".png"
Var dMenu7 = rootMenu + "BD_"
Var dMenu7 = dMenu7 + Menu7ProductCode
Var dMenu7 = dMenu7 + ".png"
Var nMenu8 = rootMenu + "BN_"
Var nMenu8 = nMenu8 + Menu8ProductCode
Var nMenu8 = nMenu8 + ".png"
Var pMenu8 = rootMenu + "BP_"
Var pMenu8 = pMenu8 + Menu8ProductCode
Var pMenu8 = pMenu8 + ".png"
Var dMenu8 = rootMenu + "BD_"
Var dMenu8 = dMenu8 + Menu8ProductCode
Var dMenu8 = dMenu8 + ".png"
Var nMenu9 = rootMenu + "BN_"
Var nMenu9 = nMenu9 + Menu9ProductCode
Var nMenu9 = nMenu9 + ".png"
Var pMenu9 = rootMenu + "BP_"
Var pMenu9 = pMenu9 + Menu9ProductCode
Var pMenu9 = pMenu9 + ".png"
Var dMenu9 = rootMenu + "BD_"
Var dMenu9 = dMenu9 + Menu9ProductCode
Var dMenu9 = dMenu9 + ".png"
Var nMenu10 = rootMenu + "BN_"
Var nMenu10 = nMenu10 + Menu10ProductCode
Var nMenu10 = nMenu10 + ".png"
Var pMenu10 = rootMenu + "BP_"
Var pMenu10 = pMenu10 + Menu10ProductCode
Var pMenu10 = pMenu10 + ".png"
Var dMenu10 = rootMenu + "BD_"
Var dMenu10 = dMenu10 + Menu10ProductCode
Var dMenu10 = dMenu10 + ".png"
Var nMenu11 = rootMenu + "BN_"
Var nMenu11 = nMenu11 + Menu11ProductCode
Var nMenu11 = nMenu11 + ".png"
Var pMenu11 = rootMenu + "BP_"
Var pMenu11 = pMenu11 + Menu11ProductCode
Var pMenu11 = pMenu11 + ".png"
Var dMenu11 = rootMenu + "BD_"
Var dMenu11 = dMenu11 + Menu11ProductCode
Var dMenu11 = dMenu11 + ".png"
Var nMenu12 = rootMenu + "BN_"
Var nMenu12 = nMenu12 + Menu12ProductCode
Var nMenu12 = nMenu12 + ".png"
Var pMenu12 = rootMenu + "BP_"
Var pMenu12 = pMenu12 + Menu12ProductCode
Var pMenu12 = pMenu12 + ".png"
Var dMenu12 = rootMenu + "BD_"
Var dMenu12 = dMenu12 + Menu12ProductCode
Var dMenu12 = dMenu12 + ".png"
Var nMenu13 = rootMenu + "BN_"
Var nMenu13 = nMenu13 + Menu13ProductCode
Var nMenu13 = nMenu13 + ".png"
Var pMenu13 = rootMenu + "BP_"
Var pMenu13 = pMenu13 + Menu13ProductCode
Var pMenu13 = pMenu13 + ".png"
Var dMenu13 = rootMenu + "BD_"
Var dMenu13 = dMenu13 + Menu13ProductCode
Var dMenu13 = dMenu13 + ".png"
Var nMenu14 = rootMenu + "BN_"
Var nMenu14 = nMenu14 + Menu14ProductCode
Var nMenu14 = nMenu14 + ".png"
Var pMenu14 = rootMenu + "BP_"
Var pMenu14 = pMenu14 + Menu14ProductCode
Var pMenu14 = pMenu14 + ".png"
Var dMenu14 = rootMenu + "BD_"
Var dMenu14 = dMenu14 + Menu14ProductCode
Var dMenu14 = dMenu14 + ".png"
Var nMenu15 = rootMenu + "BN_"
Var nMenu15 = nMenu15 + Menu15ProductCode
Var nMenu15 = nMenu15 + ".png"
Var pMenu15 = rootMenu + "BP_"
Var pMenu15 = pMenu15 + Menu15ProductCode
Var pMenu15 = pMenu15 + ".png"
Var dMenu15 = rootMenu + "BD_"
Var dMenu15 = dMenu15 + Menu15ProductCode
Var dMenu15 = dMenu15 + ".png"
Var nMenu16 = rootMenu + "BN_"
Var nMenu16 = nMenu16 + Menu16ProductCode
Var nMenu16 = nMenu16 + ".png"
Var pMenu16 = rootMenu + "BP_"
Var pMenu16 = pMenu16 + Menu16ProductCode
Var pMenu16 = pMenu16 + ".png"
Var dMenu16 = rootMenu + "BD_"
Var dMenu16 = dMenu16 + Menu16ProductCode
Var dMenu16 = dMenu16 + ".png"
Var MenuState1 = "Disable"
Var MenuState2 = "Disable"
Var MenuState3 = "Disable"
Var MenuState4 = "Disable"
Var MenuState5 = "Disable"
Var MenuState6 = "Disable"
Var MenuState7 = "Disable"
Var MenuState8 = "Disable"
Var MenuState9 = "Disable"
Var MenuState10 = "Disable"
Var MenuState11 = "Disable"
Var MenuState12 = "Disable"
Var MenuState13 = "Disable"
Var MenuState14 = "Disable"
Var MenuState15 = "Disable"
Var MenuState16 = "Disable"
Var Menu1NameEngShow = Menu1NameEng
Var Menu1PriceShow = ""
Var Menu2NameEngShow = Menu2NameEng
Var Menu2PriceShow = ""
Var Menu3NameEngShow = Menu3NameEng
Var Menu3PriceShow = ""
Var Menu4NameEngShow = Menu4NameEng
Var Menu4PriceShow = ""
Var Menu5NameEngShow = Menu5NameEng
Var Menu5PriceShow = ""
Var Menu6NameEngShow = Menu6NameEng
Var Menu6PriceShow = ""
Var Menu7NameEngShow = Menu7NameEng
Var Menu7PriceShow = ""
Var Menu8NameEngShow = Menu8NameEng
Var Menu8PriceShow = ""
Var Menu9NameEngShow = Menu9NameEng
Var Menu9PriceShow = ""
Var Menu10NameEngShow = Menu10NameEng
Var Menu10PriceShow = ""
Var Menu11NameEngShow = Menu11NameEng
Var Menu11PriceShow = ""
Var Menu12NameEngShow = Menu12NameEng
Var Menu12PriceShow = ""
Var Menu13NameEngShow = Menu13NameEng
Var Menu13PriceShow = ""
Var Menu14NameEngShow = Menu14NameEng
Var Menu14PriceShow = ""
Var Menu15NameEngShow = Menu15NameEng
Var Menu15PriceShow = ""
Var Menu16NameEngShow = Menu16NameEng
Var Menu16PriceShow = ""
If Menu1Enable = "true" Then
If Menu1Sale = "true" Then
Var MenuState1 = "Enable"
if Menu1Discount > 0 Then
Var MenuTempShow = Menu1Price - Menu1Discount
Var PriceColor1 = 0xFFFFFF
Var DiscountPriceStr1 = " " + MenuTempShow
Var SlashSt1 = "Enable"
EndIf
Var Menu1PriceShow = Menu1Price
EndIf
EndIf
If Menu2Enable = "true" Then
If Menu2Sale = "true" Then
Var MenuState2 = "Enable"
if Menu2Discount > 0 Then
Var MenuTempShow = Menu2Price - Menu2Discount
Var PriceColor2 = 0xFFFFFF
Var DiscountPriceStr2 = " " + MenuTempShow
Var SlashSt2 = "Enable"
EndIf
Var Menu2PriceShow = Menu2Price
EndIf
EndIf
If Menu3Enable = "true" Then
If Menu3Sale = "true" Then
Var MenuState3 = "Enable"
if Menu3Discount > 0 Then
Var MenuTempShow = Menu3Price - Menu3Discount
Var PriceColor3 = 0xFFFFFF
Var DiscountPriceStr3 = " " + MenuTempShow
Var SlashSt3 = "Enable"
EndIf
Var Menu3PriceShow = Menu3Price
EndIf
EndIf
If Menu4Enable = "true" Then
If Menu4Sale = "true" Then
Var MenuState4 = "Enable"
if Menu4Discount > 0 Then
Var MenuTempShow = Menu4Price - Menu4Discount
Var PriceColor4 = 0xFFFFFF
Var DiscountPriceStr4 = " " + MenuTempShow
Var SlashSt4 = "Enable"
EndIf
Var Menu4PriceShow = Menu4Price
EndIf
EndIf
If Menu5Enable = "true" Then
If Menu5Sale = "true" Then
Var MenuState5 = "Enable"
if Menu5Discount > 0 Then
Var MenuTempShow = Menu5Price - Menu5Discount
Var PriceColor5 = 0xFFFFFF
Var DiscountPriceStr5 = " " + MenuTempShow
Var SlashSt5 = "Enable"
EndIf
Var Menu5PriceShow = Menu5Price
EndIf
EndIf
If Menu6Enable = "true" Then
If Menu6Sale = "true" Then
Var MenuState6 = "Enable"
if Menu6Discount > 0 Then
Var MenuTempShow = Menu6Price - Menu6Discount
Var PriceColor6 = 0xFFFFFF
Var DiscountPriceStr6 = " " + MenuTempShow
Var SlashSt6 = "Enable"
EndIf
Var Menu6PriceShow = Menu6Price
EndIf
EndIf
If Menu7Enable = "true" Then
If Menu7Sale = "true" Then
Var MenuState7 = "Enable"
if Menu7Discount > 0 Then
Var MenuTempShow = Menu7Price - Menu7Discount
Var PriceColor7 = 0xFFFFFF
Var DiscountPriceStr7 = " " + MenuTempShow
Var SlashSt7 = "Enable"
EndIf
Var Menu7PriceShow = Menu7Price
EndIf
EndIf
If Menu8Enable = "true" Then
If Menu8Sale = "true" Then
Var MenuState8 = "Enable"
if Menu8Discount > 0 Then
Var MenuTempShow = Menu8Price - Menu8Discount
Var PriceColor8 = 0xFFFFFF
Var DiscountPriceStr8 = " " + MenuTempShow
Var SlashSt8 = "Enable"
EndIf
Var Menu8PriceShow = Menu8Price
EndIf
EndIf
If Menu9Enable = "true" Then
If Menu9Sale = "true" Then
Var MenuState9 = "Enable"
if Menu9Discount > 0 Then
Var MenuTempShow = Menu9Price - Menu9Discount
Var PriceColor9 = 0xFFFFFF
Var DiscountPriceStr9 = " " + MenuTempShow
Var SlashSt9 = "Enable"
EndIf
Var Menu9PriceShow = Menu9Price
EndIf
EndIf
If Menu10Enable = "true" Then
If Menu10Sale = "true" Then
Var MenuState10 = "Enable"
if Menu10Discount > 0 Then
Var MenuTempShow = Menu10Price - Menu10Discount
Var PriceColor10 = 0xFFFFFF
Var DiscountPriceStr10 = " " + MenuTempShow
Var SlashSt10 = "Enable"
EndIf
Var Menu10PriceShow = Menu10Price
EndIf
EndIf
If Menu11Enable = "true" Then
If Menu11Sale = "true" Then
Var MenuState11 = "Enable"
if Menu11Discount > 0 Then
Var MenuTempShow = Menu11Price - Menu11Discount
Var PriceColor11 = 0xFFFFFF
Var DiscountPriceStr11 = " " + MenuTempShow
Var SlashSt11 = "Enable"
EndIf
Var Menu11PriceShow = Menu11Price
EndIf
EndIf
If Menu12Enable = "true" Then
If Menu12Sale = "true" Then
Var MenuState12 = "Enable"
if Menu12Discount > 0 Then
Var MenuTempShow = Menu12Price - Menu12Discount
Var PriceColor12 = 0xFFFFFF
Var DiscountPriceStr12 = " " + MenuTempShow
Var SlashSt12 = "Enable"
EndIf
Var Menu12PriceShow = Menu12Price
EndIf
EndIf
If Menu13Enable = "true" Then
If Menu13Sale = "true" Then
Var MenuState13 = "Enable"
if Menu13Discount > 0 Then
Var MenuTempShow = Menu13Price - Menu13Discount
Var PriceColor13 = 0xFFFFFF
Var DiscountPriceStr13 = " " + MenuTempShow
Var SlashSt13 = "Enable"
EndIf
Var Menu13PriceShow = Menu13Price
EndIf
EndIf
If Menu14Enable = "true" Then
If Menu14Sale = "true" Then
Var MenuState14 = "Enable"
if Menu14Discount > 0 Then
Var MenuTempShow = Menu14Price - Menu14Discount
Var PriceColor14 = 0xFFFFFF
Var DiscountPriceStr14 = " " + MenuTempShow
Var SlashSt14 = "Enable"
EndIf
Var Menu14PriceShow = Menu14Price
EndIf
EndIf
If Menu15Enable = "true" Then
If Menu15Sale = "true" Then
Var MenuState15 = "Enable"
if Menu15Discount > 0 Then
Var MenuTempShow = Menu15Price - Menu15Discount
Var PriceColor15 = 0xFFFFFF
Var DiscountPriceStr15 = " " + MenuTempShow
Var SlashSt15 = "Enable"
EndIf
Var Menu15PriceShow = Menu15Price
EndIf
EndIf
If Menu16Enable = "true" Then
If Menu16Sale = "true" Then
Var MenuState16 = "Enable"
if Menu16Discount > 0 Then
Var MenuTempShow = Menu16Price - Menu16Discount
Var PriceColor16 = 0xFFFFFF
Var DiscountPriceStr16 = " " + MenuTempShow
Var SlashSt16 = "Enable"
EndIf
Var Menu16PriceShow = Menu16Price
EndIf
EndIf
Var Timeout = 0
Var TMenuLang = 0
Var MenuLangTH = 0
1000
;Open "/mnt/sdcard/coffeevending/xml/menu_board.xml"
If MachineStage = "close-maintenance" Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
If MachineStage = "clean-machine" Then
Open "ROOT/xml/menu_cleanMachine.xml"
EndIf
If MachineStage = "mcu-upgrade" Then
Open "ROOT/xml/menu_upgradeMCU.xml"
EndIf
If NeedUpgrade = "true" Then
Open "ROOT/xml/menu_upgrading.xml"
EndIf
Var TMenuLang = TMenuLang + 1
Var Timeout = Timeout + 1
;If Timeout > 90 Then
; Open "/mnt/sdcard/coffeevending/xml/menu_board.xml"
;EndIf
If TMenuLang = 20 Then
Var TMenuLang = 0
If MenuLangTH = 0 Then
Var MenuLangTH = 1
If Menu1Enable = "true" Then
Var Menu1NameEngShow = Menu1NameThai
EndIf
If Menu2Enable = "true" Then
Var Menu2NameEngShow = Menu2NameThai
EndIf
If Menu3Enable = "true" Then
Var Menu3NameEngShow = Menu3NameThai
EndIf
If Menu4Enable = "true" Then
Var Menu4NameEngShow = Menu4NameThai
EndIf
If Menu5Enable = "true" Then
Var Menu5NameEngShow = Menu5NameThai
EndIf
If Menu6Enable = "true" Then
Var Menu6NameEngShow = Menu6NameThai
EndIf
If Menu7Enable = "true" Then
Var Menu7NameEngShow = Menu7NameThai
EndIf
If Menu8Enable = "true" Then
Var Menu8NameEngShow = Menu8NameThai
EndIf
If Menu9Enable = "true" Then
Var Menu9NameEngShow = Menu9NameThai
EndIf
If Menu10Enable = "true" Then
Var Menu10NameEngShow = Menu10NameThai
EndIf
If Menu11Enable = "true" Then
Var Menu11NameEngShow = Menu11NameThai
EndIf
If Menu12Enable = "true" Then
Var Menu12NameEngShow = Menu12NameThai
EndIf
If Menu13Enable = "true" Then
Var Menu13NameEngShow = Menu13NameThai
EndIf
If Menu14Enable = "true" Then
Var Menu14NameEngShow = Menu14NameThai
EndIf
If Menu15Enable = "true" Then
Var Menu15NameEngShow = Menu15NameThai
EndIf
If Menu16Enable = "true" Then
Var Menu16NameEngShow = Menu16NameThai
EndIf
Else
Var MenuLangTH = 0
If Menu1Enable = "true" Then
Var Menu1NameEngShow = Menu1NameEng
EndIf
If Menu2Enable = "true" Then
Var Menu2NameEngShow = Menu2NameEng
EndIf
If Menu3Enable = "true" Then
Var Menu3NameEngShow = Menu3NameEng
EndIf
If Menu4Enable = "true" Then
Var Menu4NameEngShow = Menu4NameEng
EndIf
If Menu5Enable = "true" Then
Var Menu5NameEngShow = Menu5NameEng
EndIf
If Menu6Enable = "true" Then
Var Menu6NameEngShow = Menu6NameEng
EndIf
If Menu7Enable = "true" Then
Var Menu7NameEngShow = Menu7NameEng
EndIf
If Menu8Enable = "true" Then
Var Menu8NameEngShow = Menu8NameEng
EndIf
If Menu9Enable = "true" Then
Var Menu9NameEngShow = Menu9NameEng
EndIf
If Menu10Enable = "true" Then
Var Menu10NameEngShow = Menu10NameEng
EndIf
If Menu11Enable = "true" Then
Var Menu11NameEngShow = Menu11NameEng
EndIf
If Menu12Enable = "true" Then
Var Menu12NameEngShow = Menu12NameEng
EndIf
If Menu13Enable = "true" Then
Var Menu13NameEngShow = Menu13NameEng
EndIf
If Menu14Enable = "true" Then
Var Menu14NameEngShow = Menu14NameEng
EndIf
If Menu15Enable = "true" Then
Var Menu15NameEngShow = Menu15NameEng
EndIf
If Menu16Enable = "true" Then
Var Menu16NameEngShow = Menu16NameEng
EndIf
EndIf
If Menu1Enable = "true" Then
If Menu1Sale = "true" Then
Var MenuState1 = "Enable"
if Menu1Discount > 0 Then
Var MenuTempShow = Menu1Price - Menu1Discount
Var PriceColor1 = 0xFFFFFF
Var DiscountPriceStr1 = " " + MenuTempShow
Var SlashSt1 = "Enable"
EndIf
Var Menu1PriceShow = Menu1Price
Else
Var MenuState1 = "Disable"
Var Menu1PriceShow = ""
Var SlashSt1 = "Invisible"
Var DiscountPriceStr1 = """
EndIf
Else
Var MenuState1 = "Disable"
Var Menu1PriceShow = ""
Var SlashSt1 = "Invisible"
Var DiscountPriceStr1 = """
EndIf
If Menu2Enable = "true" Then
If Menu2Sale = "true" Then
Var MenuState2 = "Enable"
if Menu2Discount > 0 Then
Var MenuTempShow = Menu2Price - Menu2Discount
Var PriceColor2 = 0xFFFFFF
Var DiscountPriceStr2 = " " + MenuTempShow
Var SlashSt2 = "Enable"
EndIf
Var Menu2PriceShow = Menu2Price
Else
Var MenuState2 = "Disable"
Var Menu2PriceShow = ""
Var SlashSt2 = "Invisible"
Var DiscountPriceStr2 = """
EndIf
Else
Var MenuState2 = "Disable"
Var Menu2PriceShow = ""
Var SlashSt2 = "Invisible"
Var DiscountPriceStr2 = """
EndIf
If Menu3Enable = "true" Then
If Menu3Sale = "true" Then
Var MenuState3 = "Enable"
if Menu3Discount > 0 Then
Var MenuTempShow = Menu3Price - Menu3Discount
Var PriceColor3 = 0xFFFFFF
Var DiscountPriceStr3 = " " + MenuTempShow
Var SlashSt3 = "Enable"
EndIf
Var Menu3PriceShow = Menu3Price
Else
Var MenuState3 = "Disable"
Var Menu3PriceShow = ""
Var SlashSt3 = "Invisible"
Var DiscountPriceStr3 = """
EndIf
Else
Var MenuState3 = "Disable"
Var Menu3PriceShow = ""
Var SlashSt3 = "Invisible"
Var DiscountPriceStr3 = """
EndIf
If Menu4Enable = "true" Then
If Menu4Sale = "true" Then
Var MenuState4 = "Enable"
if Menu4Discount > 0 Then
Var MenuTempShow = Menu4Price - Menu4Discount
Var PriceColor4 = 0xFFFFFF
Var DiscountPriceStr4 = " " + MenuTempShow
Var SlashSt4 = "Enable"
EndIf
Var Menu4PriceShow = Menu4Price
Else
Var MenuState4 = "Disable"
Var Menu4PriceShow = ""
Var SlashSt4 = "Invisible"
Var DiscountPriceStr4 = """
EndIf
Else
Var MenuState4 = "Disable"
Var Menu4PriceShow = ""
Var SlashSt4 = "Invisible"
Var DiscountPriceStr4 = """
EndIf
If Menu5Enable = "true" Then
If Menu5Sale = "true" Then
Var MenuState5 = "Enable"
if Menu5Discount > 0 Then
Var MenuTempShow = Menu5Price - Menu5Discount
Var PriceColor5 = 0xFFFFFF
Var DiscountPriceStr5 = " " + MenuTempShow
Var SlashSt5 = "Enable"
EndIf
Var Menu5PriceShow = Menu5Price
Else
Var MenuState5 = "Disable"
Var Menu5PriceShow = ""
Var SlashSt5 = "Invisible"
Var DiscountPriceStr5 = """
EndIf
Else
Var MenuState5 = "Disable"
Var Menu5PriceShow = ""
Var SlashSt5 = "Invisible"
Var DiscountPriceStr5 = """
EndIf
If Menu6Enable = "true" Then
If Menu6Sale = "true" Then
Var MenuState6 = "Enable"
if Menu6Discount > 0 Then
Var MenuTempShow = Menu6Price - Menu6Discount
Var PriceColor6 = 0xFFFFFF
Var DiscountPriceStr6 = " " + MenuTempShow
Var SlashSt6 = "Enable"
EndIf
Var Menu6PriceShow = Menu6Price
Else
Var MenuState6 = "Disable"
Var Menu6PriceShow = ""
Var SlashSt6 = "Invisible"
Var DiscountPriceStr6 = """
EndIf
Else
Var MenuState6 = "Disable"
Var Menu6PriceShow = ""
Var SlashSt6 = "Invisible"
Var DiscountPriceStr6 = """
EndIf
If Menu7Enable = "true" Then
If Menu7Sale = "true" Then
Var MenuState7 = "Enable"
if Menu7Discount > 0 Then
Var MenuTempShow = Menu7Price - Menu7Discount
Var PriceColor7 = 0xFFFFFF
Var DiscountPriceStr7 = " " + MenuTempShow
Var SlashSt7 = "Enable"
EndIf
Var Menu7PriceShow = Menu7Price
Else
Var MenuState7 = "Disable"
Var Menu7PriceShow = ""
Var SlashSt7 = "Invisible"
Var DiscountPriceStr7 = """
EndIf
Else
Var MenuState7 = "Disable"
Var Menu17riceShow = ""
Var SlashSt7 = "Invisible"
Var DiscountPriceStr7 = """
EndIf
If Menu8Enable = "true" Then
If Menu8Sale = "true" Then
Var MenuState8 = "Enable"
if Menu8Discount > 0 Then
Var MenuTempShow = Menu8Price - Menu8Discount
Var PriceColor8 = 0xFFFFFF
Var DiscountPriceStr8 = " " + MenuTempShow
Var SlashSt8 = "Enable"
EndIf
Var Menu8PriceShow = Menu8Price
Else
Var MenuState8 = "Disable"
Var Menu8PriceShow = ""
Var SlashSt8 = "Invisible"
Var DiscountPriceStr8 = """
EndIf
Else
Var MenuState8 = "Disable"
Var Menu8PriceShow = ""
Var SlashSt8 = "Invisible"
Var DiscountPriceStr8 = """
EndIf
If Menu9Enable = "true" Then
If Menu9Sale = "true" Then
Var MenuState9 = "Enable"
if Menu9Discount > 0 Then
Var MenuTempShow = Menu9Price - Menu9Discount
Var PriceColor9 = 0xFFFFFF
Var DiscountPriceStr9 = " " + MenuTempShow
Var SlashSt9 = "Enable"
EndIf
Var Menu9PriceShow = Menu9Price
Else
Var MenuState9 = "Disable"
Var Menu9PriceShow = ""
Var SlashSt9 = "Invisible"
Var DiscountPriceStr9 = """
EndIf
Else
Var MenuState9 = "Disable"
Var Menu9PriceShow = ""
Var SlashSt9 = "Invisible"
Var DiscountPriceStr9 = """
EndIf
If Menu10Enable = "true" Then
If Menu10Sale = "true" Then
Var MenuState10 = "Enable"
if Menu10Discount > 0 Then
Var MenuTempShow = Menu10Price - Menu10Discount
Var PriceColor10 = 0xFFFFFF
Var DiscountPriceStr10 = " " + MenuTempShow
Var SlashSt10 = "Enable"
EndIf
Var Menu10PriceShow = Menu10Price
Else
Var MenuState10 = "Disable"
Var Menu10PriceShow = ""
Var SlashSt10 = "Invisible"
Var DiscountPriceStr10 = """
EndIf
Else
Var MenuState10 = "Disable"
Var Menu10PriceShow = ""
Var SlashSt10 = "Invisible"
Var DiscountPriceStr10 = """
EndIf
If Menu11Enable = "true" Then
If Menu11Sale = "true" Then
Var MenuState11 = "Enable"
if Menu11Discount > 0 Then
Var MenuTempShow = Menu11Price - Menu11Discount
Var PriceColor11 = 0xFFFFFF
Var DiscountPriceStr11 = " " + MenuTempShow
Var SlashSt11 = "Enable"
EndIf
Var Menu11PriceShow = Menu11Price
Else
Var MenuState11 = "Disable"
Var Menu11PriceShow = ""
Var SlashSt11 = "Invisible"
Var DiscountPriceStr11 = """
EndIf
Else
Var MenuState11 = "Disable"
Var Menu11PriceShow = ""
Var SlashSt11 = "Invisible"
Var DiscountPriceStr11 = """
EndIf
If Menu12Enable = "true" Then
If Menu12Sale = "true" Then
Var MenuState12 = "Enable"
if Menu12Discount > 0 Then
Var MenuTempShow = Menu12Price - Menu12Discount
Var PriceColor12 = 0xFFFFFF
Var DiscountPriceStr12 = " " + MenuTempShow
Var SlashSt12 = "Enable"
EndIf
Var Menu12PriceShow = Menu12Price
Else
Var MenuState12 = "Disable"
Var Menu12PriceShow = ""
Var SlashSt12 = "Invisible"
Var DiscountPriceStr12 = """
EndIf
Else
Var MenuState12 = "Disable"
Var Menu12PriceShow = ""
Var SlashSt12 = "Invisible"
Var DiscountPriceStr12 = """
EndIf
If Menu13Enable = "true" Then
If Menu13Sale = "true" Then
Var MenuState13 = "Enable"
if Menu13Discount > 0 Then
Var MenuTempShow = Menu13Price - Menu13Discount
Var PriceColor13 = 0xFFFFFF
Var DiscountPriceStr13 = " " + MenuTempShow
Var SlashSt13 = "Enable"
EndIf
Var Menu13PriceShow = Menu13Price
Else
Var MenuState13 = "Disable"
Var Menu13PriceShow = ""
Var SlashSt13 = "Invisible"
Var DiscountPriceStr13 = """
EndIf
Else
Var MenuState13 = "Disable"
Var Menu13PriceShow = ""
Var SlashSt13 = "Invisible"
Var DiscountPriceStr13 = """
EndIf
If Menu14Enable = "true" Then
If Menu14Sale = "true" Then
Var MenuState14 = "Enable"
if Menu14Discount > 0 Then
Var MenuTempShow = Menu14Price - Menu14Discount
Var PriceColor14 = 0xFFFFFF
Var DiscountPriceStr14 = " " + MenuTempShow
Var SlashSt14 = "Enable"
EndIf
Var Menu14PriceShow = Menu14Price
Else
Var MenuState14 = "Disable"
Var Menu14PriceShow = ""
Var SlashSt14 = "Invisible"
Var DiscountPriceStr14 = """
EndIf
Else
Var MenuState14 = "Disable"
Var Menu14PriceShow = ""
Var SlashSt14 = "Invisible"
Var DiscountPriceStr14 = """
EndIf
If Menu15Enable = "true" Then
If Menu15Sale = "true" Then
Var MenuState15 = "Enable"
if Menu15Discount > 0 Then
Var MenuTempShow = Menu15Price - Menu15Discount
Var PriceColor15 = 0xFFFFFF
Var DiscountPriceStr15 = " " + MenuTempShow
Var SlashSt15 = "Enable"
EndIf
Var Menu15PriceShow = Menu15Price
Else
Var MenuState15 = "Disable"
Var Menu15PriceShow = ""
Var SlashSt15 = "Invisible"
Var DiscountPriceStr15 = """
EndIf
Else
Var MenuState15 = "Disable"
Var Menu15PriceShow = ""
Var SlashSt15 = "Invisible"
Var DiscountPriceStr15 = """
EndIf
If Menu16Enable = "true" Then
If Menu16Sale = "true" Then
Var MenuState16 = "Enable"
if Menu16Discount > 0 Then
Var MenuTempShow = Menu16Price - Menu16Discount
Var PriceColor16 = 0xFFFFFF
Var DiscountPriceStr16 = " " + MenuTempShow
Var SlashSt16 = "Enable"
EndIf
Var Menu16PriceShow = Menu16Price
Else
Var MenuState16 = "Disable"
Var Menu16PriceShow = ""
Var SlashSt16 = "Invisible"
Var DiscountPriceStr16 = """
EndIf
Else
Var MenuState16 = "Disable"
Var Menu16PriceShow = ""
Var SlashSt16 = "Invisible"
Var DiscountPriceStr16 = """
EndIf
Refresh
EndIf
TimerReset
;Refresh
Open "/mnt/sdcard/coffeevending/xml/main.xml"
Open "/mnt/sdcard/coffeevending/xml/main.xml"
rowT1x rowT1y 202 Center 20
fontType1
0x000000 Menu1NameEngShow rowT2x rowT1y 202 Center 20
fontType1
0x000000 Menu2NameEngShow rowT3x rowT1y 202 Center 20
fontType1
0x000000 Menu3NameEngShow rowT4x rowT1y 202 Center 20
fontType1
0x000000 Menu4NameEngShow rowT5x rowT1y 202 Center 20
fontType1
0x000000 Menu5NameEngShow rowT1x rowT2y 202 Center 20
fontType1
0x000000 Menu6NameEngShow rowT2x rowT2y 202 Center 20
fontType1
0x000000 Menu7NameEngShow rowT3x rowT2y 202 Center 20
fontType1
0x000000 Menu8NameEngShow rowT4x rowT2y 202 Center 20
fontType1
0x000000 Menu9NameEngShow rowT5x rowT2y 202 Center 20
fontType1
0x000000 Menu10NameEngShow rowT1x rowT3y 202 Center 20
fontType1
0x000000 Menu11NameEngShow rowT2x rowT3y 202 Center 20
fontType1
0x000000 Menu12NameEngShow rowT3x rowT3y 202 Center 20
fontType1
0x000000 Menu13NameEngShow rowT4x rowT3y 202 Center 20
fontType1
0x000000 Menu14NameEngShow rowT5x rowT3y 202 Center 20
fontType1
0x000000 Menu15NameEngShow rowT1x rowT4y 202 Center 20
fontType1
0x000000 Menu16NameEngShow rowT1x rowP1y 202 Center 25
fontType1
0x77787B Menu1PriceShow rowT2x rowP1y 202 Center 25
fontType1
0x77787B Menu2PriceShow rowT3x rowP1y 202 Center 25
fontType1
0x77787B Menu3PriceShow rowT4x rowP1y 202 Center 25
fontType1
0x77787B Menu4PriceShow rowT5x rowP1y 202 Center 25
fontType1
0x77787B Menu5PriceShow rowT1x rowP2y 202 Center 25
fontType1
0x77787B Menu6PriceShow rowT2x rowP2y 202 Center 25
fontType1
0x77787B Menu7PriceShow rowT3x rowP2y 202 Center 25
fontType1
0x77787B Menu8PriceShow rowT4x rowP2y 202 Center 25
fontType1
0x77787B Menu9PriceShow rowT5x rowP2y 202 Center 25
fontType1
0x77787B Menu10PriceShow rowT1x rowP3y 202 Center 25
fontType1
0x77787B Menu11PriceShow rowT2x rowP3y 202 Center 25
fontType1
0x77787B Menu12PriceShow rowT3x rowP3y 202 Center 25
fontType1
0x77787B Menu13PriceShow rowT4x rowP3y 202 Center 25
fontType1
0x77787B Menu14PriceShow rowT5x rowP3y 202 Center 25
fontType1
0x77787B Menu15PriceShow rowT1x rowP4y 202 Center 25
fontType1
0x77787B Menu16PriceShow
119 120 123
rowD1x rowD1y 202 30
fontType1
0xFF0000 DiscountPriceStr1 rowD2x rowD1y 202 30
fontType1
0xFF0000 DiscountPriceStr2 rowD3x rowD1y 202 30
fontType1
0xFF0000 DiscountPriceStr3 rowD4x rowD1y 202 30
fontType1
0xFF0000 DiscountPriceStr4 rowD5x rowD1y 202 30
fontType1
0xFF0000 DiscountPriceStr5 rowD1x rowD2y 202 30
fontType1
0xFF0000 DiscountPriceStr6 rowD2x rowD2y 202 30
fontType1
0xFF0000 DiscountPriceStr7 rowD3x rowD2y 202 30
fontType1
0xFF0000 DiscountPriceStr8 rowD4x rowD2y 202 30
fontType1
0xFF0000 DiscountPriceStr9 rowD5x rowD2y 202 30
fontType1
0xFF0000 DiscountPriceStr10 rowD1x rowD3y 202 30
fontType1
0xFF0000 DiscountPriceStr11 rowD2x rowD3y 202 30
fontType1
0xFF0000 DiscountPriceStr12 rowD3x rowD3y 202 30
fontType1
0xFF0000 DiscountPriceStr13 rowD4x rowD3y 202 30
fontType1
0xFF0000 DiscountPriceStr14 rowD5x rowD3y 202 30
fontType1
0xFF0000 DiscountPriceStr15 rowD1x rowD4y 202 30
fontType1
0xFF0000 DiscountPriceStr16
If HaveCup = "true" Then
Open "ROOT/xml/menu_Page6_Open.xml"
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
If MachineStage = "clean-machine" Then
Open "ROOT/xml/menu_cleanMachine.xml"
EndIf
Open "/media/bt/xml/security_alarm.xml"
10201250 50 50
Open "ROOT/xml/vending_info.xml"