Thanks for at least trying to help, guys.
I got it to look good now with a lower sync rate. Instead of moving the menu items at the same speed which requires a high frame rate, I made it so they accelerate moving off the screen, and decelerate moving back on. You can see what I'm talking about by replacing the code in the download above with the following code.
I compiled to an .exe and it worked good, too. The rest of the game is coming along really nice, I just kinda got stuck on this part.
rem This sets up the menu
sync on : sync rate 50
autocam off
load image "intro screen.jpg",1
load image "mnuStart.bmp",2
Load image "mnuIntro.bmp",3
Load image "mnuOptions.bmp",4
Load image "mnuQuit.bmp",5
Load image "mnuControl.bmp",6
Load image "mnuSound.bmp",7
Load image "mnuPrev.bmp",8
draw to back
set ambient light 90
`Image numbers 10 to 30 will be for the menu images. Remember to delete these images before entering the main loop!
for x=10 to 13
make object plain x,30,3
texture object x,x-8
set object x,1,0,1,1
ghost object on x
next x
position camera 0,0,-50
for x=1 to 4
posY=(x+5)*-3
position object x+9,object position x(x+9),posY,10
next x
paste image 1,0,0
_MainMenu:
do
if loadoptions=0
`cls rgb(122,122,122)
paste image 1,0,0
MenuSelect=CheckMouse(int(mousex()),int(mousey()),1)
select MenuSelect
case 0
for x=10 to 13
ghost object on x
next x
endcase
case 1
ghost object off 10
for x=11 to 13
ghost object on x
next x
endcase
case 2
ghost object off 11
ghost object on 10
ghost object on 12:ghost object on 13
endcase
case 3
ghost object off 12
ghost object on 10:ghost object on 11:ghost object on 13
if mouseclick()=1
OptMove#=-3
LoadOptions=1
endif
endcase
case 4
ghost object off 13
for x=10 to 12
ghost object on x
next x
if mouseclick()=1 then end
endcase
endselect
endif
if loadoptions=1 then gosub _LoadOptionMenu
if optionsLoaded=1 then goto _OptionsMenu
text 0,20,str$(screen fps())
sync
loop
_LoadOptionMenu:
If optMove#>-70 and optMoveIn=0
paste image 1,0,0
optMove#=OptMove#*1.2
`yrotate camera wrapvalue(optMove#)
for x=10 to 13
position object x,OptMove#,object position y(x),10
next x
endif
if optMove#<=-70
OptMoveIn=1
texture object 10,6:texture object 11,7:texture object 12,8
hide object 13
endif
if optMove#<0 and optMoveIn=1
paste image 1,0,0
optMove#=optMove#/1.2
for x=10 to 12
position object x,optMove#,object position y(x),10
next x
endif
if optMove#>=-1 and optMoveIn=1
OptionsLoaded=1
LoadOptions=0
MainLoaded=0
optMoveIn=0
`make sure all the menu items are back at their starting position
for x=10 to 13
position object x,0,object position y(x),10
next x
endif
return
_OptionsMenu:
do
if LoadMain=0
cls
paste image 1,0,0
MenuSelect=CheckMouse(int(mousex()),int(mousey()),2)
Select MenuSelect
case 0
for x=10 to 12
ghost object on x
next x
endcase
case 1
ghost object off 10
ghost object on 11:ghost object on 12
endcase
case 2
ghost object off 11
ghost object on 10:ghost object on 12
endcase
case 3
ghost object off 12
ghost object on 10:ghost object on 11
if mouseclick()=1
OptMove#=-3
LoadMain=1
endif
endcase
endselect
endif
if LoadMain=1 then gosub _LoadMainMenu
if MainLoaded=1 then goto _MainMenu
text 0,20,str$(screen fps())
sync
loop
_LoadControlOptions:
return
_LoadMainMenu:
If optMove#>-70 and optMoveIn=0
paste image 1,0,0
optMove#=OptMove#*1.2
for x=10 to 13
position object x,optMove#,object position y(x),10
next x
endif
if optMove#<=-70
OptMoveIn=1
texture object 10,2:texture object 11,3:texture object 12,4:texture object 13,5
show object 13
endif
if optMove#<0 and optMoveIn=1
paste image 1,0,0
optMove#=optMove#/1.2
for x=10 to 13
position object x,optMove#,object position y(x),10
next x
endif
if optMove#>=-1 and optMoveIn=1
MainLoaded=1
LoadMain=0
OptionsLoaded=0
optMoveIn=0
for x=10 to 13
position object x,0,object position y(x),10
next x
endif
return
Function CheckMouse(X, Y,Menu)
Ma=0 :`If the mouse isn't over any of the menu items.
rem Check if the mouse is at "Start"
if X>=222 and X<=420
if y>=350 and y<=370 then Ma=1
if y>=371 and y<=390 then Ma=2
if y>=391 and y<=410 then Ma=3
if y>=411 and y<=430 and Menu=1 then Ma=4
endif
endFunction Ma
