Очень простое меню
- 10 GELLOAD "m","menu.png"
- 20 DRAWGEL "m",0,0
- 30 GELLOAD "p","play.png"
- 40 GELLOAD "e","exit.png"
- 50 GELLOAD "c","cursor.png"
- 60 SPRITEGEL "p","p"
- 70 SPRITEGEL "e","e"
- 80 SPRITEGEL "c","c"
- 90 PX%=80:PY%=50:EX%=80:EY%=150:CX%=10:CY%=50
- 100 SPRITEMOVE "p",PX%,PY%
- 120 SPRITEMOVE "e",EX%,EY%
- 130 SPRITEMOVE "c",CX%,CY%
- 140 IF RIGHT(0) THEN CX%=CX%+2
- 150 IF LEFT(0) THEN CX%=Cx%-2
- 160 IF UP(0) THEN cY%=CY%-2
- 170 IF DOWN(0) THEN CY%=CY%+2
- 180 IF SPRITEHIT("c","p") AND FIRE(0) THEN GOTO 300
- 190 IF SPRITEHIT("c","e") AND FIRE(0) THEN stop
- 200 SLEEP 10:GOTO 100
Это меню подойдет для тех, кто еще не очень разбирается в mbasic'е
10-80 операции графикой
90 установка координат разделов меню и курсора
100-130 размещение спрайтов по установленным координатам
140-170 перемещение курсора
180 если курсор на разделе Play и нажата 5, то переходим к строке 300 (в которой располагается код игры)
190 если курсор на разделе Exit и нажата 5, то закрываем программу
200 делаем короткую паузу и возвращаемся обратно
10-80 операции графикой
90 установка координат разделов меню и курсора
100-130 размещение спрайтов по установленным координатам
140-170 перемещение курсора
180 если курсор на разделе Play и нажата 5, то переходим к строке 300 (в которой располагается код игры)
190 если курсор на разделе Exit и нажата 5, то закрываем программу
200 делаем короткую паузу и возвращаемся обратно
