The code would not even compile because the loop was not closed. There were some other issues with it, so I made some edits so that the 'player' moves around the matrix and the camera follows. I made a temporary object for your L-Thug_Idle object.
Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 03, 2011
Rem ***** Main Source File *****
set display mode 1024,768,32,1
Sync On
Sync Rate 30
Hide Mouse
autocam off
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 object cylinder 2,10
`Load object "L-Thug-Idle.3DS",2
`Loop object 2
color object 2,rgb(0,255,0)
position object 2,0,5,0
dist=30
height=15
smooth=10
Make matrix 1,10000,10000,20,20
x# = 50.0 : z# = 150.0
y# = Get Ground Height(1, x#, z#)
position object 2,x#,y#,z#
Rem texture matrix
Load image "Cracked_Red_Clay.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
rem Randomize the matrix
randomize matrix 1,125
update matrix 1
rem Load object
position object 2,5000,Get Ground Height(1,5000,5500),5500
dist# = 100.0 : height# = 50.0 : smooth = 10
Rem Main loop
Do
ang# = object angle y(2)
x# = object position x(2) : z# = object position z(2)
y# = Get Ground Height(1, x#, z#)
position object 2,x#,y# + 5.0,z#
text 10,100," X# = " + str$(x#,0)
text 10,120," Y# = " + str$(y#,0)
text 10,140," Z# = " + str$(z#,0)
set camera to follow x#,y#,z#,ang#,dist#,height#,smooth,0
Rem Store Object angle
// CameraAngleY# = Camera angle Y()
Rem Control input for camera
If Upkey()=1
XTest# = Newxvalue(X#,ang#,20)
ZTest# = Newzvalue(Z#,ang#,20)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
Move object 2,10
Endif
Endif
If Leftkey()=1 then Yrotate object 2,Wrapvalue(ang# - 5.0)
If Rightkey()=1 then Yrotate object 2,Wrapvalue(ang# + 5.0)
Rem Refresh Screen
Sync
loop
end
Hope this is helpful.
LB
