Posted: 9th Dec 2009 15:40
Hi
I used to play about with DB years ago and found some old code out that i used to play about with for creating menu's for my CD's. I've bought DBPro a while ago and thought i would have another go. I'M STUCK. even the code that used to work WORKS NO LONGER. I've been playing around for days now and still no joy. here is the code if anybody can help me.....
sync rate 75
sync on
rem hide mouse
set window on
set window size 620,460
set window title "My Games Menu"
load image "plasma.bmp",1
load music "music.mp3",1
create bitmap 1,128,256
set current bitmap 1
paste image 1,0,0
paste image 1,0,128
set current bitmap 0
create bitmap 2,128,128
make object cylinder 1,100
rotate object 1,270,0,270
fix object pivot 1
scale object 1,100,100,2500
texture object 1,1
set object 1,1,0,0
make object sphere 2,100
color object 2,rgb(0,0,0)
position object 2,0,0,1000
color backdrop rgb(0,0,0)
position camera 0,0,-1250
speed=1; limit=1; counter=0
loop music 1
do
draw to front
a#=mousex()
b#=mousey()
c#=mouseclick()
text 20,50,"X:"+str$(a#)+" Y:"+str$(b#)
if a#>244 and b#<213 and c#>0
set cursor 244,100
print "goodbye world"
execute file "c:\windows\notepad.exe","",""
else
set cursor 244,100
print "hello world"
endif
if counter=limit
set current bitmap 1
get image 2,0,y,128,y+128
set current bitmap 2
paste image 2,0,0
set current bitmap 0
texture object 1,2
inc y
if y=128 then y=0
counter=0
endif
z=z+2
zrotate camera wrapvalue(z)
inc counter
sync
loop
