Hahahaha. Updated ;) Now with a new "light" parent/child model. You can access a block (B001 to B133). Thx to DeepExploration ;)
Graphics3D 800,600,32,2
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera,0,10,-350
CameraClsColor camera,0,120,200
light=CreateLight()
RotateEntity light,90,0,0
city=LoadAnimMesh("Metro 1_NU.3ds") ; New Model
PositionEntity city,0,0,0
plane=CreatePlane()
grass_tex=LoadTexture( "metro08.JPG" )
EntityTexture plane,grass_tex
EntityColor plane,0,255,120
While Not KeyDown( 1 )
; Find a block in the City. B001 TO B133
nu%=nu%+1
If nu%>133 Then nu%=1
n$=nu%
you$="B"+Right$("000"+n$,3)
child=FindChild(city,you$)
EntityColor child,Rnd(100,255),Rnd(100,255),Rnd(100,255)
y#=Rnd(0.5,3.0)
ScaleEntity child,1,y#,1
;
cameramousex=GraphicsWidth()/2
cameramousey=GraphicsHeight()/2
camerarx#=camerarx#+MouseYSpeed()*0.5
camerary#=camerary#-MouseXSpeed()*0.5
RotateEntity camera,camerarx,camerary,0
MoveMouse cameramousex,cameramousey
If KeyDown(200) Then MoveEntity camera,0,0,0.4
If KeyDown(208) Then MoveEntity camera,0,0,-0.4
If KeyDown(203) Then MoveEntity camera,-0.4,0,0
If KeyDown(205) Then MoveEntity camera,0.4,0,0
RenderWorld
Flip
Wend
End
|