пишит: Ecstracting 'Case','Default' or 'End Selection'.
Код:
;Инициализация графики
Graphics 800,600,32,2
SetBuffer BackBuffer()
; Создание нескольких екранов
Global game=1
Repeat
Select game
Case 1
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
If MouseDown(1) Then game=2
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 1",1,1
Flip()
Until game=3;<-конец главного цикла
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
; Второе окно
Case 2
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
If MouseDown(1) Then game=2
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 3",1,1
Flip()
Until game=2
-----------------------
; Окно самой игры
Case 2
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
If MouseDown(1) Then game=1
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 2",1,1
Flip()
Until game=1
-----------------------
; Окно самой игры
Case 3
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
If MouseDown(1) Then game=2
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 3",1,1
Flip()
Until game=2
-----------------------
End Select