Меню
- 10 DIM MENU$(4)
- 20 MENU$(0)="Продолжить"
- 30 MENU$(1)="Новая игра"
- 40 MENU$(2)="Об игре"
- 50 MENU$(3)="Выход"
- 60 C%=0
- 70 W%=SCREENWIDTH(0):H%=SCREENHEIGHT(0)
- 80 SETCOLOR 200,200,200:FILLRECT 0,0,W%,H%
- 90 SETCOLOR 50,50,50
- 100 FOR I%=0 TO 3
- 110 DRAWSTRING MENU$(I%),W%/2-STRINGWIDTH(MENU$(I%))/2,I%*STRINGHEIGHT(MENU$(I%))
- 120 NEXT I%
- 125 SETCOLOR 50,50,50
- 126 FILLRECT 0,C%*STRINGHEIGHT("A"),W%,STRINGHEIGHT("A")
- 130 SETCOLOR 255,0,0
- 140 DRAWSTRING MENU$(C%),W%/2-STRINGWIDTH(MENU$(C%))/2,C%*STRINGHEIGHT(MENU$(C%))
- 150 IF UP(0) THEN C%=C%-1:GOTO 170
- 160 IF DOWN(0) THEN C%=C%+1:GOTO 170
- 164 IF FIRE(0) THEN GOTO 210
- 165 GOTO 150
- 170 IF C%<0 THEN C%=3
- 180 IF C%>3 THEN C%=0
- 190 IF INKEY(0)=0 THEN GOTO 70
- 200 GOTO 190
- 210 IF C%=0 THEN ...
- 220 IF C%=1 THEN ...
- 230 IF C%=2 THEN ...
- 240 IF C%=3 THEN ...
Пример все экранного меню в канвас в строках 210, 220, 230, 240 какое действие при этом пункте.
