Sorry your browser is not supported!

Rem Project: menu10
Rem Created: 04/07/2006 12:10:15

Rem ***** Main Source File *****
sync on
sync rate 0
while pressed <> 1
if button(20,55,"New Game")=1 then  New_game()
if button(20,95,"Load Game")=1 then  Load_game()
if button(20,135,"Delete Existing Game") then Delete_game()
if button(20,175,"Exit")=1 then end
sync
endwhile
Do
set cursor 0,0
print "stuck in loop"
sync
loop

function button(x1,y1,menu_words$)
Pressed=0
x2=Text Width(menu_words$)
y2=Text Height(menu_words$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,menu_words$
endfunction pressed


function New_game()

cls
ink rgb(255,255,255),0
print "What is the file name?"
sync
sync
input "Name of your game.",newgame$
print "Saving ";newgame$;" please wait."
open to write 1, newgame$
write string 1, newgame$
close file 1
open to read 1, newgame$
read string 1, newgame1$
close file 1
print newgame1$;" saved."
wait key
endfunction

function Load_game()
cls
print "Load a game ?"
print "press a key to go on"
sync
wait key
endfunction
function Delete_game()
cls
print "all gone??"
print "press a key to go on"
sync
wait key
endfunction