I took out the images and ran the program without textures, the problem was you never called the Objects sub routine, try this:
Setup()
Gosub World
Gosub Objects
Do
Gosub Movement
Gosub Camera
Gosub Gravity
Sync
Loop
end
Rem SETUP
function Setup
sync on
sync rate 85
set display mode 1024,768,32
hide mouse
set text size 16
`set dir "h:\movement\Super-Basics"
Rem Loading files needed
`load image "hero.bmp", 1
`load image "guy.bmp", 2
`load image "dude.bmp", 3
`load image "dialoguebox.bmp", 4
`load image "gravel.bmp", 5
make object sphere 1,200
make object sphere 2,150
make object sphere 3,175
Rem Texturing objects
`texture object 1,1
`texture object 2,2
`texture object 3,3
Rem OBJECT POSITIONING
position object 1, 1000,0,1000
position object 2, 1250,500,1250
yrotate object 2, (190)
position object 3, 500,500,1500
yrotate object 3, (175)
Endfunction
Rem Object Statistics
Objects:
Type Objectstat Invisible, Insolid, Fly EndType
Dim Objectstat(1000) As Objectstat
Objectstat(1).Invisible = 0
Objectstat(1).Insolid = 0
Objectstat(1).Fly = 1
Objectstat(2).Invisible = 0
Objectstat(2).Insolid = 0
Objectstat(2).Fly = 1
Objectstat(3).Invisible = 0
Objectstat(3).Insolid = 0
Objectstat(3).Fly = 1
Return
Rem Camera Control
Camera:
autocam off
position camera 250,500,250
set camera range 100,10000
point camera x1#,y1#,z1#
Return
Rem Object Conditioning: Gravity
Gravity:
for n = 1 to 3
Height = Get Ground Height(1,object position x(n),object position z(n))
If object position y(n) <> Height
Height = object position y(n) - objectstat(n).fly
position object n, object position x(n), Height, Object Position z(n)
Endif
next n
Return
Rem MOVEMENT
Movement:
If Upkey() = 1
Move Object 1,5
Endif
If Downkey() = 1
Move Object 1,-5
Endif
if leftkey()=1 then rotate object 1,1,(ay1#)-1,0
if rightkey()=1 then rotate object 1,1,(ay1#)+1,0
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)
ay1#=object angle y(1)
Return
Rem Create Matrices
World:
MAKE MATRIX 1,10000,10000,25,25
Position matrix 1,0,0,0
Return
All I did (besides remming out the textures) was call the Objects sub routine. Before, in the gravity sub routine you had objectstat(n).fly, but the objectstat() array was never created because you didn't call the Objects sub routine, where you make the array.
-----------------------------------
To delete the bug, delete the code.
Specs: Sony VAIO Laptop, Windows XP, P4 2.8Ghz, 512MB RAM, ATI Radeon 64MB video memory, DBP Upgrade 5.3.
