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

Graphics3D 1024,768,16,1

SetBuffer BackBuffer()
Const TypePlayer=1,TypeWall=2
   

   

;set speed
speed#=0  
mspeed#=5
;create player  

cub=LoadMesh("marscar.3DS");player
MoveEntity cub,40,800,30
EntityRadius cub,1
EntityType cub,TypePlayer
ScaleEntity cub,.1,.1,.1

;light
lit=CreateLight()

;create camera  
cam=CreateCamera(cub)
CameraRange cam,1,100000
PositionEntity cam,0,30,-6

;create terrain  
kal=LoadMesh("111.x");zeml9  
ScaleEntity kal,500,500,500
tex=LoadTexture ("ground.jpg")
EntityTexture kal,tex
ScaleTexture tex,.01,.01
EntityType kal,TypeWall

;colission
Collisions TypePlayer,TypeWall,2,3

;colission
Repeat;цикл!!
  If  EntityCollided (cub,TypeWall) MoveEntity cub,0,0,0 Else MoveEntity cub,0,-20,0

;move

  If KeyDown(203) TurnEntity cub,0,1,0

  If KeyDown(205) TurnEntity cub,0,-1,0

   

  If KeyDown(30) TurnEntity cam,0,1,0
  If KeyDown(44) TurnEntity cam,0,-1,0

  If KeyDown(200) Then If speed#<=mspeed# Then speed#=speed#+0.2
  If KeyDown(208) Then If speed#<=mspeed# Then speed#=speed#-0.2
  If speed>=0.1 speed#=speed#-.1

MoveEntity cub,0,0,speed#

  UpdateWorld

  RenderWorld

   

  Flip

   

Until KeyHit(1)

   

End