[Satan'scry]

Хех=)
Не работает, тоже самое

Graphics3D  0,0,32,1
SetBuffer BackBuffer()

Include "sckeyscan.bb"

Global user,camera,sky,lit
Global t1,t2,s1,s2



Const USERT=1
Const BOXT=2

Type cb
	Field entity
End Type
Type cb2
	Field entity
End Type


;------^PHYSICS^------
Const UP# = 0.7
Const GR# = 1
Const cj#=1

;------^TEXTURES^_____
t1=LoadTexture ("pack\standart\GF01.jpg")
t2=LoadTexture ("pack\standart\GG01.jpg")
s1=LoadTexture ("pack\standart\SK01.jpg")
s2=LoadTexture ("pack\standart\SK02.jpg")

;------^GAME^-----
Function create_user(x#,y#,z#)
		
    user=CreateSphere()
	k#=3
	ScaleEntity user,k#,k#,k#
	EntityRadius user,k#
	camera=CreateCamera(user)
	CameraRange camera,0.1,3000
	PositionEntity user,x#,y#,z#
	EntityType user,USERT

End Function

Function update_user()

    V#=0.5
	u#=70;
	TurnEntity camera,MouseYSpeed(),0,0
	TurnEntity user,0,-MouseXSpeed(),0
	If KeyDown(SCAKEY)=1 Then MoveEntity user,-V#,0,0
	If KeyDown(SCDKEY)=1 Then MoveEntity user,V#,0,0
	If KeyDown(SCWKEY)=1 Then MoveEntity user,0,0,+V# 
	If KeyDown(SCSKEY)=1 Then MoveEntity user,0,0,-V#

	MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
	If Abs(EntityPitch#(camera))>u# RotateEntity camera,u#*Sgn(EntityPitch#(camera)),0,0
	
	
    Collisions USERT,BOXT,2,2
	
	EntityBox  user,x#,y#,z#,k#+3,k#+16,k#+3
	;---
    If EntityCollided (user,BOXT) <= 0
    TranslateEntity user,0,-UP#,0
EndIf

End Function

Function create_box(size#,x#=0,y#=0,z#=0,txt)
 b.cb=New cb
 b\entity= CreateCube()
 EntityType b\entity,BOXT
 PositionEntity b\entity,x#,y#,z#
  ScaleEntity b\entity,size,size,size
 EntityTexture b\entity,txt
Return True
End Function 

Function create_block(sizex,sizey,sizez,x#=0,y#=0,z#=0,txt)
 b2.cb2= New cb2
 b2\entity = CreateCube()
 EntityType b2\entity,BOXT
 PositionEntity b2\entity,x#,y#,z#
 ScaleEntity b2\entity,sizex,sizey,sizez
 EntityTexture b2\entity,txt
Return True
End Function 



Function create_skysphere(t)
  sky=CreateSphere(100,user)
  FlipMesh sky
  EntityTexture sky,t
  ScaleEntity sky,2000,2000,2000

End Function



Function create_w()
create_user(0,60,0)
create_box(5,0,10,0,t1)
create_box(15,10,140,10,t2)
create_box(10,10,0,0,t1)
create_block(30,3,30,0,-10,0,t2)
create_skysphere(s1)
End Function

Function update_skysphere()
  TurnEntity sky,0,0.01,0
End Function

Function update_light()
lit=CreateLight()
LightRange lit,2000
RotateEntity lit,270,0,0
End Function


Function update_box()
local ent = EntityCollided (user,BOXT) 

If ent > 0 And KeyHit(SC1)

  for b.cb = each cb
    if b\entity = ent then exit
  Next

size#=size# + .001
  ScaleEntity b\entity,size#,size#,size#

EndIf
End Function


;------^CRETAEWORLD^-
create_w()
;------^PROCESS^-----
While Not KeyHit(1)=1
    update_skysphere()
    update_light()
	update_user()
	update_box()
	UpdateWorld()
	RenderWorld()
	Text 10,10,"xPos "+EntityX (user)
	Text 10,20,"yPos "+EntityY (user)
	Text 10,30,"zPos "+EntityZ (user)
	Text 10,40,"Render "+TrisRendered()
	Flip
Wend
;----------------------------
End

МБ ошибка во всем коде?