TGC Codebase Backup



main menu by Slayer93

3rd Dec 2004 16:22
Summary

I made a main menu that is short i got the idea from the guy who made the call of duty style main menu



Description

I made a main menu that is short i got the idea from the guy who made the call of duty style main menu but shorter



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    sync on
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"NEW GAME"
text 0,130,"LOAD"
text 0,160,"OPTIONS"
text 0,190,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then text 100,120,"YOU CLICKED NEW GAME"

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end
sync
loop