Graphics3D 800,600,16,2 SetBuffer BackBuffer()
orydie = LoadMesh("models\robotic.3ds")
PositionEntity orydie, -5,-5,300
ScaleEntity orydie, 0.5, 0.5, 0.5
RotateEntity orydie, 0, 0, 0
Dom = LoadMesh("models\ESTACI_L.3DS")
ScaleEntity Dom, 0.02, 0.02, 0.02
PositionEntity Dom,30,30,30
RotateEntity Dom, 0, 100, 0
Dom2 = LoadMesh("models\STORY_M.3DS")
ScaleEntity Dom2, 0.02, 0.02, 0.02
PositionEntity Dom2,30,30,500
RotateEntity Dom2, 0, 0, 0
bren = LoadMesh("models\BREN.3ds")
ScaleEntity bren, 0.002, 0.002, 0.002
PositionEntity bren,0,35,1000
RotateEntity bren, 0, 0, 0
Cit = LoadMesh("models\terrain.3ds")
ScaleEntity Cit, 0.2, 0.2, 0.2
PositionEntity Cit,0,35,1000
RotateEntity Cit, 0, 0, 0
cam=CreateCamera()
PositionEntity cam, 0,3,0
RotateEntity cam, 0, 0, 0
l = CreateLight(bren)
RotateEntity l, 0, 45, 45
ground = CreatePlane()
PositionEntity ground, 0, -8, 0
grass = LoadTexture("pictures\3.jpg")
ScaleTexture grass, 20, 20
EntityTexture ground, grass
Repeat
PositionEntity cam,0,0,10 : PointEntity cam,bren
EntityParent cam,bren
If KeyDown(1) Then Exit
If KeyDown(31) Then MoveEntity bren,0,0,1
If KeyDown(17) Then MoveEntity bren,0,0,-1
If KeyDown(32) Then MoveEntity bren,-1,0,0
If KeyDown(30) Then MoveEntity bren,1,0,0
UpdateWorld
RenderWorld
Flip
Forever
End
