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

Тем кто поможет заранее спасибо.

вот код самого движка:

width=640
height=480
Graphics3D width,height,32,2

Const type_player=1
Const type_wall=2

Collisions type_player,type_wall,3,2
SetBuffer BackBuffer()

gravity#=.98
jumpvel#=4

zoom#=1

;Создания персонажа
;Global Pers=CreateCube()
pers=LoadMD2("Fwwolf\tris.md2")
pers_tex=LoadTexture("Fwwolf\Fox.pcx")
EntityTexture pers,pers_tex
PositionEntity Pers,xplayer#,yplayer#,zplayer#
ScaleEntity pers,2,2,2
EntityType pers,type_player
EntityRadius pers,30

NPC=LoadMD2("Fwwolf\tris.md2")
NPC_tex=LoadTexture("Fwwolf\Katerina.pcx")
ScaleEntity NPC,2,2,2
EntityTexture NPC,NPC_tex
PositionEntity NPC,0,50,-400

camera=CreateCamera(pers)
PositionEntity camera,0,100,-200
PointEntity camera,pers
CameraFogMode camera,1
CameraFogRange camera,500,10000
CameraFogColor camera,200,220,255
CameraRange camera,.1,1000

;Загрузка уровня
Global level=LoadMesh("leval\Leval_00\Leval_00.b3d")
ScaleEntity level,1,1,1
;level_tex=LoadTexture ("leval\Leval_01\Leval_01.bmp")
;EntityTexture level,level_tex
EntityType level,type_wall

HidePointer

While Not KeyDown(1)

; check user interaction
ma#=ma# - (MouseXSpeed()/4)
my#=my# + MouseYSpeed()
If my#>480 Then my#=480
If my#<0 Then my#=0
If ma#>360 Then ma#=0
If ma#<0 Then ma#=360

;управление WASD
If KeyDown(17)=1 Then
zplayer#=zplayer#-(Sin(ma#+90)*10)
xplayer#=xplayer#-(Cos(ma#+90)*10)
EndIf
If KeyDown(30)=1 Then
zplayer#=zplayer#+(Cos(ma#+90)*10)
xplayer#=xplayer#+(Sin(ma#+90)*10)
EndIf
If KeyDown(31)=1 Then
zplayer#=zplayer#+(Sin(ma#+90)*10)
xplayer#=xplayer#+(Cos(ma#+90)*10)
EndIf
If KeyDown(32)=1 Then
zplayer#=zplayer#-(Cos(ma#+90)*10)
xplayer#=xplayer#-(Sin(ma#+90)*10)
EndIf

ypic=LinePick(xplayer,1000,zplayer,0,-2000,0,1.0)
Po sitionEntity pers,xplayer,PickedY()+100+yplayer#,zplayer
RotateEntity pers,0,ma#+180,0

;PositionEntity camera, EntityX(pers), EntityY(pers), EntityZ(pers)

If jumping=0
If KeyDown(57) Then yplayer#=jumpvel# jumping=1
EndIf
If jumping=1
yplayer#=yplayer#-gravity#
by#=by#+yplayer#
EndIf

;функция увиличения
zoom#=zoom#-MouseZSpeed()
If zoom#>10 Then zoom#=10
If zoom#<-5 Then zoom#=-5

If by#<1 Then by#=0 yplayer#=-20 jumping=0

speed#=speed#*.99
MoveEntity pers,0,yplayer#,speed#

; Render the Scene normally....
CameraClsColor camera ,200,220,255

CameraViewport camera,0,0,width,height
camrot#=camrot#+1.0
If camrot#>360 Then camrot#=camrot#-360
camrot2#=camrot2#+3.0
If camrot2#>360 Then camrot2#=camrot2#-360

ypic=LinePick( xplayer+(Cos(ma#+90)*200),1500,zplayer+(Sin(ma#+90
)*200),0,-3000,0,1.0 )
PositionEntity camera,xplayer+(Cos(ma#+90)*200),PickedY()+150+my/3,zplayer+(Sin(ma#+90)*200),1
PointEntity camera,pers

UpdateWorld
CameraZoom camera,zoom#
;DrawImage(fen, GraphicsWidth()/2-128, GraphicsHeight()/2-128 );рисует картинку

tt=MilliSecs()
fps#=1000/(tt-ttold)
ttold=tt
Text 0,0,"FPS: "+Int(fps#)
Text 0,10,"Увиличение "+zoom#
Text 0,20,"Положени по X "+xplayer#
Text 0,30,"Положени по Y"+yplayer#
Text 0,40,"Положени по Z "+zplayer#

MoveMouse width/2,height/2
RenderWorld

Flip

Wend

End