Игростроение - Создание игр

MoveEntity player,0,yvel#*.4,0

If EntityCollided(player, TERRT) Then
   gravity#=0.3
   colis=True
Else
   gravity#=.5
   colis=False
EndIf

walking=0
jumpvel#=1

If jumping=0
      If KeyHit(57) And colis=True Then yvel#=jumpvel# jumping=1  PlaySound sJump1
TranslateEntity player,0,-Gravity#,0
EndIf
If jumping=1
      yvel#=yvel#-gravity#*0.3
      by#=by#+yvel#
EndIf

Graphics3D 1280,1024,32,1
SetBuffer BackBuffer()
Const T_player=1,T_terrain=2  
   
   
Collisions T_player, T_terrain,2,3
player = CreateSphere()
PositionEntity player,0,2,0
EntityType player, T_player
Camera=CreateCamera(player)
CameraRange Camera,0.1,1000
PositionEntity camera ,0,5,-10
Light=CreateLight(5,Camera)
LightRange Light,5
terrain=LoadMesh("mesh.b3d")

dom=LoadMesh("dom.b3d")
RotateEntity dom,20,0,0
PositionEntity dom,0,-253,0
EntityType terrain, T_terrain
PositionEntity terrain ,-300,-500,-300

While Not KeyDown(1)
mxspd#=MouseXSpeed()*0.25
myspd#=MouseYSpeed()*0.25
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2  
campitch#=EntityPitch(player)+myspd#
If campitch#<-85 Then campitch#=-85
If campitch#>85 Then campitch#=85
RotateEntity player,campitch#,EntityYaw(player)-mxspd#,EntityRoll(player)
yv#=EntityY(player)-ey  
ey=EntityY(player)  

If KeyHit(57) Then yv=49  
MoveEntity player,0,yv#-2,0
If KeyDown(17) MoveEntity player,0,0,.2
If KeyDown(31) MoveEntity player,0,0,-.2
If KeyDown(32) MoveEntity player,.2,0,0
If KeyDown(30) MoveEntity player,-.2,0,0
If KeyDown(42) speed#=speed#+.1  
  If Not KeyDown(42)speed#=0
If speed#>2 speed#=2  
If speed#>3 speed#=3
MoveEntity player,0,0,speed#  

RenderWorld

UpdateWorld

Flip
CameraRange Camera,0.1,1000  
Wend
End