Here is a code for the menu that I made. Angelfire isn't working when i try to upload the screenshots so I can't put them here right now. I'll try some other time. In the menu, whatever is selected is on fire with a blue flame. It can uses the up and down arrow keys or the mouse. I haven't added anything to the options menu yet but it still opens up. When you open it, it displays the burning options at the top, you can add whatever you want there. If continue or quit is selected, it returns a 1 or a 2 respectively. The only thing that is wrong with it is that if you press the up or down keys rapidly, it pauses for a split second sometimes because of the animations. I took the animations from GIF's that i had and broke them down into 5 frames and the program cycles them as sprites. Also, the mouse over is just the slightest bit slow but i don't think it makes a difference. I haven't finished making it the easiest to read, i will probably post that later but i also want to take any suggestions to make it better or faster, except for making it easier to read. It's still pretty easy to read though. Enough talk, here's the snippet. It'll probably cut it off cause it never works on my first post so if it doesn't then i'll post it again.
sync on
Load Image "FirstGame\Seperate\Continue1.bmp",1
Load Image "FirstGame\Seperate\Continue2.bmp",2
Load Image "FirstGame\Seperate\Continue3.bmp",3
Load Image "FirstGame\Seperate\Continue4.bmp",4
Load Image "FirstGame\Seperate\Continue5.bmp",5
Load Image "FirstGame\Seperate\Options1.bmp",6
Load Image "FirstGame\Seperate\Options2.bmp",7
Load Image "FirstGame\Seperate\Options3.bmp",8
Load Image "FirstGame\Seperate\Options4.bmp",9
Load Image "FirstGame\Seperate\Options5.bmp",10
Load Image "FirstGame\Seperate\Quit1.bmp",11
Load Image "FirstGame\Seperate\Quit2.bmp",12
Load Image "FirstGame\Seperate\Quit3.bmp",13
Load Image "FirstGame\Seperate\Quit4.bmp",14
Load Image "FirstGame\Seperate\Quit5.bmp",15
Load Image "FirstGame\Continue2.bmp",16
Load Image "FirstGame\Options2.bmp",17
Load Image "FirstGame\Quit2.bmp",18
Dim continue(0)
MainMenu()
end
rem display main menu
Function MainMenu()
Anum=1
Do
PlayAnimationMain(Anum)
Open(Anum,Mouse)
rem if the mouse isn't being used then hide it
If mouse=0 then hide mouse
rem check for key presses
If downkey()=1
mouse=0
inc Anum
If Anum=4 then Anum=1
endif
If upkey()=1
mouse=0
dec Anum
If anum=0 then Anum=3
endif
rem if the mouse is being used then display it
rem but don't hide it unless the arrow keys are used
If MousemoveX()>0 or MousemoveY()>0 then mouse=1
if mouse=1
show mouse
Anum=MouseOver()
If Anum=0 then sync
endif
rem 1=continue 2=quit
If continue(0)=1 then exitfunction 1
If continue(0)=2 then exitfunction 2
Loop
Endfunction
rem play the animations for the main menu
Function PlayAnimationMain(ANum)
If Anum=1
Sprite 3,260,320,18
Sprite 2,235,220,17
For I=1 to 5
Sprite 1,225,110,I
Sync
sleep 20
rem interrupt it if key or mouse is pressed
rem but only do it once
If (downkey()=1 or upkey()=1 or spacekey()=1 or Returnkey()=1 or Mouseclick()=1) and flag=0
flag=1
exitfunction
else
flag=0
endif
Next I
else
rem if it isn't selected then display non-burning animation
Sprite 1,225,120,16
endif
rem do the same with the others
If Anum=2
Sprite 3,260,320,18
For I=6 to 10
Sprite 2,235,210,I
sync
sleep 20
If (downkey()=1 or upkey()=1 or spacekey()=1 or Returnkey()=1 or Mouseclick()=1) and flag=0
flag=1
exitfunction
else
flag=0
endif
Next I
else
Sprite 2,235,220,17
endif
If Anum=3
Sprite 1,225,120,16
For I=11 to 15
Sprite 3,260,310,I
sync
sleep 20
If (downkey()=1 or upkey()=1 or spacekey()=1 or Returnkey()=1 or Mouseclick()=1) and flag=0
flag=1
exitfunction
else
flag=0
endif
Next I
else
Sprite 3,260,320,18
endif
Endfunction
rem check if mouse is over one of the images
Function MouseOver()
For sn=1 to 3
If MouseX()>Sprite x(sn) and MouseX()Sprite Y(sn) and MouseY()