its supposed to do the first part were it does the dragonseige thing then its supposed to go tho the main menu
scrolly$=" A DRAGONSEIGE PRODUCTION "
scrlsize=len(scrolly$)
scrlpos=1
maxchar=20
width=9.9
height=19
startpoint=200
endpoint=1
speed=1
dim xpos(600)
spacing=startpoint/maxchar
set text font "tahoma"
set text size 128
for j = 1 to 60
cls 0
center text 64,32,chr$(j+31)
get image j,0,0,128,128
next j
hide mouse
sync on
sync rate 0
backdrop on
color backdrop rgb(0,0,0)
set image colorkey 0,0,0
for char=1 to maxchar
make object cube char,width
make object cube 100+char,width
make object cube 200+char,width
make object cube 300+char,width
make object cube 400+char,width
make object cube 500+char,width
ghost object on char,0
ghost object on 100+char,0
ghost object on 200+char,0
ghost object on 300+char,0
ghost object on 400+char,0
ghost object on 500+char,0
xpos(char)=char*spacing
texture object char,1
texture object 100+char,1
texture object 200+char,1
texture object 300+char,1
texture object 400+char,1
texture object 500+char,1
set object transparency char,1
set object transparency 100+char,1
set object transparency 200+char,1
set object transparency 300+char,1
set object transparency 400+char,1
set object transparency 500+char,1
next char
position camera startpoint/2,0,-80
point camera startpoint/2,0,0
For T=1 to 750
for char=1 to maxchar
if scrlpos=scrlsize
scrlpos=1
endif
if xpos(char)<endpoint
xpos(char)=startpoint
a$=mid$(scrolly$,scrlpos)
a=asc(a$)-31
texture object char,a
texture object 100+char,a
texture object 200+char,a
texture object 300+char,a
texture object 400+char,a
texture object 500+char,a
inc scrlpos,1
endif
xpos(char)=xpos(char)-speed
position object char,xpos(char),0,0
position object 100+char,xpos(char),0,-20
position object 200+char,xpos(char),xpos(char),xpos(char)
position object 300+char,xpos(char),0-xpos(char),xpos(char)
position object 400+char,50+xpos(char),xpos(char)-20,xpos(char)-20
position object 500+char,50+xpos(char),(0-xpos(char))+20,xpos(char)-20
next char
sync
Next T
wait 5000
sync on
sync rate 0
backdrop on
color backdrop 0
a = 255
b = 100
c = 100
choice = 1
leftkeypressed = 0
rightkeypressed = 0
`-------------------- Select screen -------------------------------
do
`if key e pressed
if keystate(18) = 1
if keypressed = 0
choice = 3
endif
endif
`if key l pressed
if keystate(38) = 1
if keypressed = 0
choice = 2
endif
endif
`if key n is pressed
if keystate(49) = 1
if keypressed = 0
choice = 1
endif
endif
`cycle through next option and update choice
if rightkey() = 1
if keypressed = 0
inc choice, 1
if choice > 3 then choice = 1
endif
else
leftkeypressed = 0
endif
`cycle through previous option and update choice
if leftkey() = 1
if keypressed = 0
dec choice, 1
if choice < 1 then choice = 3
endif
else
rightkeypressed = 0
endif
`set colors for print options
select choice
case 1 : a = 255 : b = 100 : c = 100 : selected$ = "new game highlighted" : endcase
case 2 : a = 100 : b = 255 : c = 100 : selected$ = "load game highlighted" : endcase
case 3 : a = 100 : b = 100 : c = 255 : selected$ = "exit game highlighted" : endcase
case default : a = a : b = b : c = c : selected$ = selected$ : endcase
endselect
`pressing enter prints the selected option
if keystate(28) = 1
if choice = 3 then end
selected$ = "exit was selected"
endif
if choice = 2
if keystate(38) = 1
filename$ = "currentsave.save"
if File Exist(filename$)=1
open to read 1,filename$
rem read floats ------
read float 1,savedata1#
read float 1,savedata2#
read float 1,savedata3#
position object 1,savedata1#,savedata2#,savedata3#
close file 1
endif
selected$ = "load game was selected"
endif
endif
if choice = 1
selected$ = "new game was selected"
endif
`reset keypressed
if scancode() = 0
keypressed = 0
else
keypressed = 1
ink rgb(255,255,255), 0
set cursor 5,5
print selected$
endif
`print options
ink rgb(a,a,a),0 : center text 200, 400, "[N]ew Game"
ink rgb(b,b,b),0 : center text 330, 400, "[L]oad Game"
ink rgb(c,c,c),0 : center text 450, 400, "[E]xit Game"
sync
loop
Dragonseige
