a very few lines compared to eg C++. From the top of my head:
graphics3d 800,600,32,2
setbuffer backbuffer()
player=createpivot()
camera=createcamera(player)
translateentity camera,0,1.8,0
entitytype player,1
entityradius player,0.25,0.9
translateentity player,0,10,0 ; make sure to be above he ground
land=loadmesh("land.3ds")
entitytype land,2
light=createlight()
rotateentity light,45,45,45
collisions 1,2,2,2
shoe#=1.0
while keydown(1)=0
mxs#=-mousexspeed()/4.0
mys#=mouseyspeed()/4.0
movemouse graphicswidth()/2,graphicsheight()/2
if keydown(200)=1 then moveentity player,0,0,shoe#
if keydown(208)=1 then moveentity player,0,0,-shoe#
turnentity player,0,mxs,0
turnentity camera,mys,0,0
translateentity player,0,-.1,0 ; gravity
updateworld()
renderworld()
flip
wend
I hope there ain't too much typos. currently I cannot test it since this web-terminal has no 3D.
|