I have tried, and followed the tutorials but, my menu keeps flashing. Here is da code. By the way I am new. I just got db yesterday, and I'm helping with my freinds game.
remstart
-------------------------------------------------------------------
program name: Imperial Might
-------------------------------------------------------------------
written by: Michael Black & Nicholas Negretti
date: 10/01/04
-------------------------------------------------------------------
comments: Beginning Placer.
-------------------------------------------------------------------
remend
Menu:
load image "IM MENU.bmp",1000
set text size 12
blue=RGB(0,128,255)
white=RGB(90,30,50)
selectedItem=1
hold=1
do
cls
paste image 1000,0,0
`print menu items
if selectedItem=1 then ink blue,0 else ink white,0
text 900,900,"Play Game"
if selectedItem=2 then ink blue,0 else ink white,0
text 1000,1000,"Options"
if selectedItem=3 then ink blue,0 else ink white,0
text 1000,1000,"Load/Save"
if selectedItem=4 then ink blue,0 else ink white,0
text 600,350,"Exit"
`select menu items
if leftkey()=1 and hold=0 then dec selectedItem : hold=1
if rightkey()=1 and hold=0 then inc selectedItem : hold=1
if scancode()=0 then hold=0
if selectedItem>4 then selectedItem=1
if selectedItem<1 then selectedITem=4
`choose what to do when an item is selected
if returnkey()=1 and hold=0
hold=1
`play game
if selectedItem=1 then goto main
`display instructions
if selectedItem=2
load image "Option Menu.bmp",1001
paste image 1001,64,32
sync : sync
suspend for key
`clear up after myself
delete image 1001
endif
`display information about the game
if selectedItem=3
load image "Saveload.bmp",1001
paste image 1001,64,32
sync : sync
suspend for key
`clear up after myself
delete image 1001
endif
`quit the game
if selectedItem=4
end
endif
endif
sync
loop
Main:
sync on
sync rate 60
load animation "textures and art/Imperial Might.avi",1
load image "GameModels/grass15.bmp",1
make matrix 1,600,600,20,20
prepare matrix texture 1,1,20,20
randomize matrix 1,20
load object "Gamemodels/Telscope.x", 1
Ghost object on 1
position object 1,300,1,300
Backdrop on
Color backdrop (256)
Play animation 1 : suspend for key : delete animation 1
rem refresh screen
sync
Print "press K to place the structure" : set cursor 50,50
rem movement
If Leftkey() then Turn object left 1,1 : if x#>400 then X#=400 : if y#>400 then y#=400
If Rightkey() then Turn object right 1,1 : if x#>400 then X#=400 : if y#>400 then y#=400
If Upkey() then x#=newxvalue(x#,object angle y(1),-1):z#=newzvalue(z#,object angle y(1),1): if x#>400 then X#=400
If Downkey() then x#=newxvalue(x#,object angle y(1),-1):z#=newzvalue(z#,object angle y(1),-1) : if x#>400 then X#=400
If Inkey$()="k" then ghost object off 1 : Print "good job sir, our building is complete!" : set cursor 10,10
Backdrop on
Color backdrop (256)
Sleek....new....german.....not me I am programming guy 2000000. I am last centuries last model.
