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

;LoadTerrain Example
;-------------------

Graphics3D 800, 600 ,32,1
SetBuffer BackBuffer()

Const TypePlayer = 1, TypeWall = 2 ,TypeFloor=4,TypeWeapon =5 TYPE_BULLET = 6 TypeAuto =7

Global lWire = False

Global windwave#
Global grasscount

ramp=CreateMesh()
ScaleEntity ramp,10,10,10
surf=CreateSurface( ramp )

segs=1
width#=2

Global g# = 0.3

JM#=terra_y#
JUMP=0
K=1
bmwy# = -15

Global player=CreateSphere()
PositionEntity player,120, 100, 1200
TurnEntity player,0,0,0
EntityRadius player, 5
EntityType player, TypePlayer

Global bull_sprite=LoadSprite( "spark.png" )
ScaleSprite bull_sprite,0.3,0.3
EntityRadius bull_sprite,1.5
EntityType bull_sprite,TYPE_BULLET
HideEntity bull_sprite

Type Bullet
Field rot#,sprite,time_out
End Type

Collisions TYPE_BULLET,TypeFloor, 1, 1

For k=0 To segs
x#=Float(k)*width/segs-width/2
u#=Float(k)/segs
AddVertex surf,x,1,0,u,0
AddVertex surf,x,-1,0,u,1
Next
For k=0 To segs-1
AddTriangle surf,k*2,k*2+2,k*2+3
AddTriangle surf,k*2,k*2+3,k*2+1
Next
EntityFX ramp, 16 Or 1

grasstex=LoadBrush("grass.png",4)
PaintMesh ramp, grasstex

Dim AirVents(20)
Global iAirVentsCount% = 0

plan = CreatePlane()
tp =LoadTexture("stone.bmp")
EntityTexture plan,tp
ScaleTexture tp, 5,5

camera = CreateCamera(player)

CameraRange camera,0.1,40000
;CameraFogMode Camera,1
;CameraFogColor Camera,255,255,255
;CameraClsColor Camera,255,255,255
;CameraFogRange Camera,10,100000000

light=CreateLight(0)
RotateEntity light,45,0,0

; Load terrain
Global terrain = LoadTerrain( "lmap.bmp" )
Global Y_TERR# = 0.0

; Set terrain detail, enable vertex morphing
TerrainDetail terrain,4000,True

; Scale terrain
ScaleEntity terrain,2,45,2

; Texture terrain
grass_tex=LoadTexture( "ground.bmp" )
EntityTexture terrain,grass_tex,0,1
ScaleTexture grass_tex, 10,10
FreeTexture grass_tex

; Water
Global watermesh=LoadMesh("20x20mesh.3ds")
RotateMesh watermesh,90,0,0
RotateEntity watermesh,-90,0,0
ScaleEntity watermesh,100,100,10
PositionEntity watermesh, 0,29,0

watertexture=LoadAnimTexture("Wateranim.JPG",256,124,124,0,25)
EntityTexture watermesh,watertexture,0,1
ScaleTexture watertexture,.01,.01
EntityShininess watermesh,0.2
EntityAlpha watermesh, 0.5
EntityFX watermesh, 16

house=LoadMD2( "house.md2" )
house_tex=LoadTexture( "text1.jpg" )
EntityTexture house,house_tex
Y# = TerrainY(terrain, 50,50,160)
PositionEntity house, 350,Y,360
ScaleEntity house, 0.3,0.3,0.3
TurnEntity house, 0,-50,0
FreeTexture house_tex
EntityType house, TypeWall
;EntityRadius house, 20

;Tree
tree = LoadMesh("Tree.b3d")
FlipMesh tree
ScaleEntity tree, .05, .05, .05
PositionEntity tree,0,0,0
TurnEntity tree ,0,0,0
EntityFX tree, 1000
EntityPickMode tree,1
HideEntity tree

sp=CreateSphere(32)
PositionEntity sp,3000,1800,3000
ScaleEntity sp,50,50,50
texm=LoadTexture("moon/moon.JPG")
EntityTexture sp, texm
FreeTexture texm

Global sky=load_skybox("sky\sky")
;PositionEntity sky,x#,y#,z#
ScaleEntity sky,5000,1000,5000
EntityOrder sky,1
EntityFX sky,9

m01 = LoadMesh("01.3ds")
ScaleEntity m01,120,160,40
RotateEntity m01,90,90,0
PositionEntity m01,500,35,1450
EntityType m01, TypeWall
tex2 =LoadTexture("FlatBrick.bmp")
ScaleTexture tex2,0.2,1
EntityTexture m01,tex2
FreeTexture tex2

m03 = LoadMesh("Maps/map3.b3d")
ScaleEntity m03 ,0.15,0.1,0.2
PositionEntity m03 ,500,45,1300
RotateEntity m03,0,90,0
EntityType m03,TypeFloor

m04 = LoadMesh("Maps/shooter.b3d")
ScaleEntity m04,0.1,0.1,0.1
PositionEntity m04 ,540,46,760
EntityType m04,TypeFloor

mp5 = LoadMesh("mp5.b3d",player)
PositionEntity mp5 ,4,-3,4
RotateEntity mp5,0,90,0
ScaleEntity mp5,0.2,0.2,0.2
EntityType mp5,TypeWeapon

bmw = LoadMesh("bmw/bmw.b3d")
PositionEntity bmw ,540,51,1006
ScaleEntity bmw ,0.3,0.3,0.3
EntityType bmw,TypeAuto

Dim grass(1000)
Dim grass_dir#(1000)
grasscount=0
For j#=-1000 To 1000 Step 100
For i#=-1000 To 1000 Step 100
grass(grasscount)=CopyEntity(ramp)
x#=(i+Rnd(150,150))
z#=(j+Rnd(150,150))
y#=TerrainY(terrain,x#,y#,z#);
If Y < 30 Then X= 897897
PositionEntity grass(grasscount),x,y,z
grass_dir(grasscount)=Rand(-450,450)
grasscount=grasscount+1
Next
Next
HideEntity ramp

SeedRnd MilliSecs()
For i=1 To 150
X# = Rnd(10,600)
Z# = Rnd(10,600)
tree1 = CopyEntity( tree )
Y# = TerrainY(terrain, X,50,Z)
If Y < 30 Then X= 897897
PositionEntity tree1, X, Y, Z

Next

AmbientLight 100,100,100

Global waterflow# = 10
Global wavesize# = 0.05

Global surface=GetSurface(watermesh,1)

Global VertexCount=CountVertices(surface)

Type Vertices
Field x#
Field y#
Field z#
End Type

Dim Vertex.Vertices(VertexCount)

For A=0 To VertexCount-1
Vertex(a) = New Vertices
Vertex(a)\x#=VertexX#(surface,a)
Vertex(a)\y#=VertexY#(surface,a)
Vertex(a)\z#=VertexZ#(surface,a)
Next

Collisions TypePlayer, TypeWall, 2, 2
Collisions TypePlayer, TypeFloor, 2, 3
Collisions TypePlayer, TypeAuto, 2, 3
;Collisions TypePlayer, TypeWeapon, 2, 3

While Not KeyDown( 1 )

; Toggle terrain shading value between 0 and 1 when spacebar is pressed
If KeyHit(57)=True Then terra_shade=1-terra_shade

; Enable/disable terrain shading
TerrainShading terrain,terra_shade

dest_yang# = 100
mxs = MouseXSpeed()/2:mys = MouseYSpeed()/2
dest_xang# = dest_xang# - mxs:dest_yang# = dest_yang# +mys
xm# = CurveValue (xm#, dest_xang#, 3):ym# = CurveValue (ym#, dest_yang#, 3)

If KeyDown( 32 )=True Then TurnEntity player,0,-5,0
If KeyDown( 30 )=True Then TurnEntity player,0,5,0
If KeyDown( 31 )=True Then MoveEntity player,0,0,-1
If KeyDown( 17 )=True Then MoveEntity player,0,0,2
If KeyHit( 16 )=True Then lWire = Not lWire
If KeyDown( 57 )=True And k=1 Then JUMP=1
If MouseHit(1)=True Then Fire

If KeyHit(56)
CreateBullet( player )
EndIf

For b.Bullet=Each Bullet
UpdateBullet( b )
Next

If EntityCollided (player,TypeAuto)
bmw2 = LoadMesh("bmw/bmw.b3d",player)
PositionEntity bmw2 ,0,-15,10
ScaleEntity bmw2 ,0.3,0.3,0.3
RotateEntity bmw2 ,0,180,0
;If EntityY(bmw2)<TerrainY(terrain,x#,y#,z#) Then EntityY(bmw2)=TerrainY(terrain,x#,y#,z#)

bmwyyy# = TerrainY(terrain,x#,y#,z#)
bmwyy#=TerrainY(terrain,x#,y#,z#)+15
ply#=bmwyy#+15
g#=0
PositionEntity player,EntityX(player),200,EntityZ(player)
PositionEntity bmw2,0,bmwyy#,10
FreeEntity bmw

EndIf

TurnEntity sp,0,-0.001,0

wind(1)

If EntityCollided (player,TypeWall) Then g#=0 Else g#=0.3

;wIf EntityCollided (player,TypeWeapon) Then PositionEntity mp5,EntityX(player)+3,JM#+8,EntityZ(player)

If jump=1 Then jm#=jm#+g#:k=0
If jm#>max_y# Then jump=0:k=2
If k=2 Then jm#=jm#-g#
If jm#<terra_y# Then jm#=terra_y#:k=1
If jump=0
If jm#>terra_y# Then jm#=jm#-g#
End If

WireFrame lWire
x#=EntityX(player)
y#=EntityY(player)
z#=EntityZ(player)

terra_y#=TerrainY(terrain,x#,y#,z#)
max_y# = terra_y#+8

;RotateEntity player,ym#,xm#,zc#
PositionEntity player,EntityX(player),JM#+8,EntityZ(player)

wd=wd+1
If wd=4
EntityTexture watermesh,watertexture,frame,1
frame=frame+1
If frame=22 Then frame=0
wd=0
EndIf

UpdateWater()

If terra_y < 14.5
CameraFogRange Camera,10,70
AmbientLight 0,250,250
Else
CameraFogRange Camera,10,1000
AmbientLight 100,100,100
EndIf

RenderWorld
UpdateWorld
Text 0,0,"Use cursor keys to move about the terrain"
Text 400,300 ,"*"

Flip

Wend

End

;---------------------
Function UpdateWater()
For a=0 To VertexCount-1
Freq#=MilliSecs()/waterflow
Vertex(a)\z#=Sin(freq+Vertex(a)\x#*300+Vertex(a)\y#*400)*wavesize
VertexCoords surface,a,Vertex(a)\x#,Vertex(a)\y#,Vertex(a)\z#
Next

UpdateNormals watermesh

End Function

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Load_SkyBox( file$ )
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

m=CreateMesh()

;front face

b=LoadBrush(file +"_Le.png",49 )::
If Not B b=LoadBrush( file +"_Le.png",49 )::
s=CreateSurface( m,b )
AddVertex s,-1,+2,-1,0,0:AddVertex s,+1,+2,-1,1,0
AddVertex s,+1,-0,-1,1,1:AddVertex s,-1,-0,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b

;right face
b=LoadBrush( file +"_fr.png",49 )::
If Not B b=LoadBrush(file +"_fr.png",49 )::
s=CreateSurface( m,b )
AddVertex s,+1,+2,-1,0,0:AddVertex s,+1,+2,+1,1,0
AddVertex s,+1,-0,+1,1,1:AddVertex s,+1,-0,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b

;back face
b=LoadBrush(file +"_ri.png",49 )::
If Not B b=LoadBrush(file +"_ri.png",49 )::
s=CreateSurface( m,b )
AddVertex s,+1,+2,+1,0,0:AddVertex s,-1,+2,+1,1,0
AddVertex s,-1,-0,+1,1,1:AddVertex s,+1,-0,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;left face
b=LoadBrush(file +"_bk.png",49 )::
If Not B b=LoadBrush(file +"_bk.png",49 )::
s=CreateSurface( m,b )
AddVertex s,-1,+2,+1,0,0:AddVertex s,-1,+2,-1,1,0
AddVertex s,-1,-0,-1,1,1:AddVertex s,-1,-0,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;top face
b=LoadBrush(file +"_UP.png",49 )::
If Not B b=LoadBrush(file +"_UP.png",49 )::
s=CreateSurface( m,b )
AddVertex s,-1,+2,+1,0,1:AddVertex s,+1,+2,+1,0,0
AddVertex s,+1,+2,-1,1,0:AddVertex s,-1,+2,-1,1,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
FlipMesh m
EntityFX m,9
EntityOrder m,1
RotateEntity m,0,90,0
Return m
End Function

Function Fire()
;Animate mp5,1,0.2,1,9
shot = LoadSound("SHOOT1.WAV")
PlaySound shot
LoopSound shot
CreateBullet( player )
For b.Bullet=Each Bullet
UpdateBullet( b )
Next
End Function

;*******Mouse Function************
Function CurveValue#(current#,destination#,curve)
current#=current#+((destination#-current#)/curve)
Return current#
End Function
;********************************

;--------------------
Function wind(speed#)
For i=0 To grasscount-1
x#=EntityX(grass(i))
z#=EntityZ(grass(i))
RotateEntity grass(i),0,grass_dir(i),Cos(windwave+z)*0.5
Next
windwave=(windwave+speed#)
End Function

Function CreateBullet.Bullet( player )
b.Bullet=New Bullet
b\time_out=150
b\sprite=CopyEntity( bull_sprite,player )
EntityParent b\sprite,0
Return b
End Function

Function UpdateBullet( b.Bullet )
b\time_out=b\time_out-1
If (b\time_out=0) Or EntityCollided( b\sprite,TypeWall )
FreeEntity b\sprite
Delete b
Return
EndIf
b\rot=b\rot+30
RotateSprite b\sprite,b\rot
MoveEntity b\sprite,0,0,3
End Function

Function Go()
bmw2 = LoadMesh("bmw/bmw.b3d",player)
PositionEntity bmw2 ,0,-15,10
ScaleEntity bmw2 ,0.3,0.3,0.3
RotateEntity bmw2 ,0,180,0
;If EntityY(bmw2)<TerrainY(terrain,x#,y#,z#) Then EntityY(bmw2)=TerrainY(terrain,x#,y#,z#)

bmwyyy# = TerrainY(terrain,x#,y#,z#)
bmwyy#=TerrainY(terrain,x#,y#,z#)-15
ply#=bmwyy#+15
g#=0
PositionEntity player,EntityX(player),200,EntityZ(player)
PositionEntity bmw2,0,bmwyy#,10

End Function

code