Я попытался это вставить но он мне написал что тип машины не найден хотя всё есть. вот полный код:
AppTitle "CrimeLife"
Function LoadSkyBox( file$ )
m=CreateMesh()
;front face
b=LoadBrush( "texture\sky\sky_FR.jpg",49 )
s=CreateSurface( m,b )
AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0
AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3:
FreeBrush b
;right face
b=LoadBrush( "texture\sky\sky_LF.jpg",49 )
s=CreateSurface( m,b )
AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0
AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;back face
b=LoadBrush( "texture\sky\sky_BK.jpg",49 )
s=CreateSurface( m,b )
AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0
AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;left face
b=LoadBrush( "texture\sky\sky_RT.jpg",49 )
s=CreateSurface( m,b )
AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0
AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;top face
b=LoadBrush( "texture\sky\sky_UP.jpg",49 )
s=CreateSurface( m,b )
AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0
AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;bottom face
b=LoadBrush( "texture\sky\sky_DN.jpg",49 )
If b=0 b=CreateBrush (0,30,50)
s=CreateSurface( m,b )
AddVertex s,-1,-1,-1,1,0:AddVertex s,+1,-1,-1,1,1
AddVertex s,+1,-1,+1,0,1:AddVertex s,-1,-1,+1,0,0
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
ScaleMesh m,500,500,500
FlipMesh m
EntityFX m,1
Return m
End Function
Graphics3D 1024,768,32,1
SetBuffer BackBuffer()
lit=CreateLight()
LoadSkyBox ("data\gfx\skies\night")
cam=CreateCamera()
PositionEntity cam,0,4,0
; Ростительность
tr1=LoadMesh("model\object\exeterier\trava.3DS")
PositionEntity tr1,10,0,-9
tr2=LoadMesh("model\rast\trava2.3DS")
PositionEntity tr2,10,0,-11
gor=LoadMesh("model\gora.3DS")
PositionEntity gor,0,0.1,300
tex=LoadTexture("texture\trova.jpg")
ScaleTexture tex,5,5
EntityTexture gor,tex
; Создаём светофор
ligt=LoadMesh("model\object\exeterier\slight.3DS")
PositionEntity ligt,0,0,0
; Создаём фонари
slight=LoadMesh("model\object\exeterier\fonar2.3DS")
PositionEntity slight,-8,0,0
slight=LoadMesh("model\object\exeterier\fonar.3ds")
PositionEntity slight,4,0,-10
slight=LoadMesh("model\object\exeterier\fonar.3ds")
PositionEntity slight,4,0,-30
slight=LoadMesh("model\object\exeterier\fonar.3ds")
PositionEntity slight,4,0,-60
slight=LoadMesh("model\object\exeterier\fonar2.3DS")
PositionEntity slight,-8,0,-10
slight=LoadMesh("model\object\exeterier\fonar2.3DS")
PositionEntity slight,-8,0,-30
slight=LoadMesh("model\object\exeterier\fonar2.3DS")
PositionEntity slight,-8,0,-60
; Дома
house=LoadMesh("model\object\house1\house1.3DS")
PositionEntity house,-25,0,-30
tex=LoadTexture("texture\metal.jpg")
ScaleTexture tex,0.5,0.5
EntityTexture house,tex
office=LoadMesh("model\object\office1\office1.3DS")
PositionEntity office,16,0,-3
tex=LoadTexture("texture\metal.jpg")
ScaleTexture tex,0.5,0.5
EntityTexture office,tex
motel=LoadMesh("model\object\motel1\motel1.3DS")
PositionEntity motel,11,0.4,-25
tex=LoadTexture("texture\1.jpg")
EntityTexture motel,tex
house3=LoadMesh("model\object\house3\house3.3DS")
PositionEntity house3,25,0,14
house3=LoadMesh("model\object\house2\house2.3DS")
PositionEntity house3,25,0,14
; Мапинг
pl=LoadMesh("model\panel.3DS")
PositionEntity pl,-22,0,35
tex=LoadTexture("texture\trotuar.BMP")
ScaleTexture tex,1,1
EntityTexture pl,tex
pl=LoadMesh("model\panel.3DS")
PositionEntity pl,18,0,35
tex=LoadTexture("texture\trotuar.BMP")
ScaleTexture tex,1,1
EntityTexture pl,tex
pl=LoadMesh("model\panel.3DS")
PositionEntity pl,18,0,-8
tex=LoadTexture("texture\trotuar.BMP")
ScaleTexture tex,1,1
EntityTexture pl,tex
pl=LoadMesh("model\panel.3DS")
PositionEntity pl,18,0,-32
tex=LoadTexture("texture\trotuar.BMP")
ScaleTexture tex,1,1
EntityTexture pl,tex
pl=LoadMesh("model\panel.3DS")
PositionEntity pl,-22,0,-8
tex=LoadTexture("texture\trotuar.BMP")
ScaleTexture tex,1,1
EntityTexture pl,tex
kat=LoadMesh("model\object\exeterier\kat.3DS")
tex=LoadTexture("texture\trees.jpg")
PositionEntity kat,14,0.2,-9.5
ScaleTexture tex,-0.5,-0.5
EntityTexture kat,tex
box=LoadMesh("model\object\exeterier\recl_box.3DS")
tex=LoadTexture("texture\trees.jpg")
PositionEntity box,-22,0,-8
ScaleTexture tex,-0.5,-0.5
EntityTexture box,tex
; Player
car=LoadMesh("model\car\honda.3DS") ; Создаём авто
Function carupdate()
For c.car=Each car
c\vy#=c\vy#+gravity# ;тут изменяем ускорение
c\vx#=c\vx#+c\ax#
c\vy#=c\vy#+c\ay#
c\vz#=c\vz#+c\az#
c\x#=EntityX(c\e) ; считываем позицию
c\y#=EntityY(c\e)
c\z#=EntityZ(c\e)
TranslateEntity c\e,c\vx,c\vy,c\vz ;смещаем машину
Next
UpdateWorld()
For c.car=Each car
;correct velocity if collided
c\vx=(EntityX(c\e)-c\x) ;щитаем новое ускорение
c\vy=(EntityY(c\e)-c\y)
c\vz=(EntityZ(c\e)-c\z)
;slow down due to friction
If EntityCollided(c\e,world_col) ;если втаранились, изменяем ускорение
c\vx#=c\vx*0.98
c\vy#=c\vy*0.98
c\vz#=c\vz*0.98
EndIf
c\ax#=0 ;збрасываем силу изменяющюю ускорение (вроде так)
c\ay#=0
c\az#=0
Next
End Function
ScaleMesh car,1,1,1
RotateMesh car,-1,1,1
cam=CreateCamera(car) ; Создаём камеру
PositionEntity car,-5,0,3
pln=CreatePlane()
tex=LoadTexture("texture\Blkleath.jpg")
ScaleTexture tex,3,3
EntityTexture pln,tex
cam=CreateCamera(car)
MoveEntity cam,0,2,6
Repeat
; Управление
If KeyDown(200) MoveEntity car,0,0,-.2
If KeyDown(208) MoveEntity car,0,0,.2
If KeyDown(203) TurnEntity car,0,2,0
If KeyDown(205) TurnEntity car,0,-2,0
PointEntity cam,car
UpdateWorld
RenderWorld
Flip
Until KeyHit(1)
End