You were right it was cut off. In future i should recheck after making a post!
`setting visual properties
set display mode 640,480,32
hide mouse
sync on
sync rate 400
`wait and suspend
load bitmap "graphics\main001.bmp"
wait (12)
set cursor 280,400
print "Press any Key to Continue"
suspend for key
`fade out screen
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
cls
`load company logo BS
load bitmap "graphics\mainlogo.bmp"
`fade back in menu screen
for f=0 to 255 step 8
r=f
g=f
b=f
set gamma r,g,b
next f
`start of menu commands
show mouse
`cls
sync rate 120
sync on
gosub main:
main:
sync
do
`Button Click Function
function zoneclicked(x1,y1,x2,y2)
clicked=0
if mousex()>x1 and mousex()<x2
if mousey()>y1 and mousey()<y2
if mouseclick()=1
clicked=1
endif
if mouseclick()=2
clicked=2
endif
endif
endif
endfunction
`BACKGROUND FOR MENU
load bitmap "graphics\crow.bmp"
`Menu Options
`START
if zoneclicked(25,64,166,95)=start
`gosub start
endif
`PRACTICE
if zoneclicked(218,87,321,117)=practice
`gosub practice
endif
`OPTIONS
if zoneclicked(229,269,406,309)=options
`gosub options
endif
`EXIT
if zoneclicked(230,312,406,352)=exit
`gosub exit
endif
`menu modes
sync
loop
return
`start
start:
cls
Backdrop on
Set camera range 1,5000
Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)
Rem make matrix
Make matrix 1,50000,50000,20,20
Rem texture matrix
Load image "levels\dirt.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
rem Randomize the matrix
randomize matrix 1,80
rem Load object
Load object "levels\crow1.x",2
position object 2,5000,Get Ground Height(1,5000,5500),5500
Rem Main loop
Do
set cursor 0,0
print X#
print Y#
print Z#
Rem Store Object angle
CameraAngleY# = Camera angle Y()
Rem Control input for camera
If Upkey()=1
XTest# = Newxvalue(X#,CameraAngleY#,20)
ZTest# = Newzvalue(Z#,CameraAngleY#,20)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
Move camera 10
Endif
Endif
If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-10)
If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+10)
X# = Camera position X()
Z# = Camera position Z()
Y# = Get ground height(1,X#,Z#)
Position Camera X#,Y#+35,Z#
Rem Refresh Screen
Sync
Loop
`load bitmap "graphics\mainfade.bmp"
`suspend for key
return
`practice
practice:
cls
load bitmap "graphics\mainfade.bmp"
suspend for key
return
`options
options:
cls
load bitmap "graphics\mainfade.bmp"
suspend for key
return
`EXIT
exit:
cls
end
return
sync
Not much time has passed but already she likes Concrete better then Grass.
