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

Graphics3D 800,600,32,2

SetBuffer BackBuffer()

Cit = LoadMesh("models\terrain.3ds")
ScaleEntity Cit, 0.2, 0.2, 0.2
PositionEntity Cit,0,20,0
RotateEntity Cit, 0, 0, 0

EntityType Cit,2  

bren = LoadMesh("models\BREN.3ds")
ScaleEntity bren, 0.002, 0.002, 0.002
PositionEntity bren,5,25,5
RotateEntity bren, -10, 180, 0

cam=CreateCamera()
PositionEntity cam,1,32,-6
RotateEntity cam, 0, 0, 0
EntityType cam,1
EntityRadius cam,30  
CameraRange cam,1,10000

l = CreateLight(bren)
RotateEntity l, 0, 45, 45

ground = CreatePlane()
PositionEntity ground, 0, -8, 0
grass = LoadTexture("pictures\tex20.jpg")
ScaleTexture grass, 20, 20
EntityTexture ground, grass
EntityType ground,2

EntityParent bren,cam
HidePointer

Collisions 1,2,2,3  

snd_step=LoadSound("snd/gravel.wav")

snd_step=LoadSound("snd/gravel.wav")  
snd_step=LoadSound("snd/Bren.mp3")   

Repeat

If KeyDown(17)   
   MoveEntity cam,0,0,1
If ChannelPlaying(ch_stepsnd)=0
ch_stepsnd = PlaySound(snd_step)
EndIf    
EndIf  

Cy#=EntityY(cam)
   y_vel#=((ty)-cam_y)
   cam_y=Cy  
  If KeyHit(57)  
   y_vel=10  
  Else
   y_vel=y_vel-2
  EndIf
  TranslateEntity cam,0,CurveValue#(EntityY(cam),(y_vel),1.5),0
If  MouseDown(1)   
If ChannelPlaying(ch_stepsnd)=0  
ch_stepsnd = PlaySound(snd_step)  
EndIf     
EndIf