[tormoz]

Вот твой кубик: под землей с сбитым центром

Graphics3D 800,600,32,2
cam%=CreateCamera ()
CameraRange cam,0.1,10000


vr%=LoadAnimMesh ("11.b3d")
ScaleEntity vr%,0.1,0.1,0.1
SetBuffer BackBuffer ()
;Чтение B3D
For q%=1 To CountChildren (vr%)
	vr1%=GetChild (vr%,q%)
	vrt$=EntityName$(vr1%)
	If vrt$<>"" Then
		vrt1$=Lower$(vrt$)
		If Instr(vrt1$,"door")>0 Then;Дверь
			;EntityParent vr1%,0
			t%=CopyEntity (vr1%)
			;FreeEntity vr1%
		End If
		If Instr(vrt1$,"geroy")>0 Then;главный герой
			EntityParent vr1%,0
			;pl%=CopyEntity (vr1%,0)
			hero=vr1
			FitMesh vr1, -(MeshWidth (vr1) / 2), -(MeshHeight (vr1) / 2), -(MeshDepth (vr1) / 2), MeshWidth (vr1), MeshHeight (vr1),MeshDepth (vr1)
			PositionEntity cam%,EntityX(vr1%,1),EntityY(vr1%,1),EntityZ(vr1%,1),1;Загвоздка помоему где то тут!!!!!!!!!!!!!!!!!!!!!!!!!
		End If
	End If 
Next


MoveEntity cam%,0,0,-10


r%=1
u%=1

While Not KeyHit(1)
old=MilliSecs ()
TurnEntity hero,0,0,.4

If KeyDown(17) Or MouseDown(1) Then MoveEntity cam%,0,0,1;вперед
If KeyDown(31) Or MouseDown(2) Then MoveEntity cam%,0,0,-1;назад
If KeyDown(30) Then TurnEntity cam%,0,1,0;влево
If KeyDown(32) Then TurnEntity cam%,0,-1,0;вправо
r%=r%+u%
If r%=20 Then u%=-1
If r%=1 Then u%=1
MoveEntity t%,0,u%,0
RenderWorld()
Text 10,20,EntityX(cam)
Text 10,40,EntityY(cam)
Text 10,60,EntityZ(cam)
Flip
Wend