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

Include "start.bb"
Include "Menu.bb"
AppTitle("Game",1)  
SetBuffer BackBuffer()
file=OpenMovie("C:\Documents and Settings\Admin\My Documents\My Video\001.avi")
Repeat
Cls
DrawMovie(file,0,0,GraphicsWidth(),GraphicsHeight())
Flip
Until KeyHit(1) Or (Not MoviePlaying(file))
CloseMovie(file)
;============================
Graphics3D 1280,1024,32,1
SetBuffer FrontBuffer()
cam=CreateCamera(m)
PositionEntity cam,.1,5.5,-100.5
m1=LoadMesh("Models\venik.3DS")
m1_texture=LoadTexture("cone01di.psd")
SetBuffer TextureBuffer(tex)
EntityTexture m1,tex
CreateListener (cam,.1,5.5,-100.5)
light=CreateLight(2,m)
LightColor light,255,255,255
LightRange light,30
PositionEntity light,0,0,0
Repeat
If KeyDown(72) MoveEntity m,-.5,0,0
If KeyDown(80) MoveEntity m,.5,0,0
If KeyDown(75) TurnEntity m,0,1,0
If KeyDown(77) TurnEntity m,0,-1,0
If KeyDown(200) MoveEntity cam,0,0,.1
If KeyDown(208) MoveEntity cam,0,0,-.1
If KeyDown(203) TurnEntity cam,0,.1,0
If KeyDown(205) TurnEntity cam,0,-.1,0
If KeyDown(17) MoveEntity cam,.0,.1,0
If KeyDown(31) MoveEntity cam,0,-.1,0
If KeyDown(32) MoveEntity cam,.1,0,0
If KeyDown(30) MoveEntity cam,-.1,0,0
RenderWorld
Flip
Until KeyHit(1)
End

m1=LoadMesh("Models\venik.3DS")