BlitzBasic Code Base

Try my new website: www.urcho.com - the new SIMPLE social network

3D City and car control template

[back]

Author: Nebula | Viewed: 1528 times | Language: BlitzBasic 3D | Category: Misc

;
Graphics3D 640,480,16,2
SetBuffer BackBuffer()

Global cam = CreateCamera()
PositionEntity cam,10,.5,-7

For x = 0 To 10 : For z = 0 To 10
	;
	i = 1
	;
	For ax = 0 To 4:For az = 0 To 4
		;
		a = Int(Mid(Right(Bin(cnt),9),i,1))
		i = i + 1:cnt=cnt+1
		;
		Select a
			Case 1 : 	mesh1 = makecube(1,0,1,1,1,1)
						EntityColor mesh1,95,109,110
						PositionMesh mesh1,x*12+(ax*3),0,z*12+(az*3)			
						ScaleEntity mesh1,1,Rnd(3),1
						mesh2 = makecube(1, 0, 1, 1, 1, 1)
						EntityColor mesh2,130, 139, 139
						ScaleEntity mesh2,1.3, .1, 1.3
						PositionMesh mesh2,x * 12 + (ax * 3 / 1.3), 0, z * 12 + (az * 3 / 1.3)
		End Select
	Next:Next
Next:Next

Local w#

While KeyDown(1) = False
	;
	RenderWorld()
	;
	If KeyDown(32) = True  MoveEntity cam,0,-.1,0 ; down
	If KeyDown(18) = True  MoveEntity cam,0,.1,0  ; up
	
	If KeyDown(200) = True Then v# = v# + .01  ; ahead
	If v#>.05
	If KeyDown(208) = True Then v# = v# - .02     ; backwards
	Else
	If KeyHit(208) = True Then v# = v# -.03     ; backwards

End If
	If KeyDown(203) = True Then w# = w# + 1	   ; links
	If KeyDown(205) = True Then w# = w# - 1	   ; rects
	;
	MoveEntity cam,0,0,v
	RotateEntity cam,0,w,0	
	;
	Text 0,0,TrisRendered()
	Flip
	;
Wend
End

Function makecube(a=True,b=True,c=True,d=True,e=True,f=True)
	z=CreateMesh()

surf=CreateSurface(z)

v0 = AddVertex(surf,0,0,0,	0,1)
	v3 = AddVertex(surf,4,0,0,	1,1)	
	v4 = AddVertex(surf,0,4,0,	0,0)
	v7 = AddVertex(surf,4,4,0,	1,0)

v1 = AddVertex(surf,0,0,4	,0,1)
	v2 = AddVertex(surf,4,0,4	,1,1)	
	v5 = AddVertex(surf,0,4,4	,0,0)
	v6 = AddVertex(surf,4,4,4	,1,0)

v8  = AddVertex(surf,0,0,0	,0,1)
	v9  = AddVertex(surf,0,0,4	,1,1)	
	v10 = AddVertex(surf,0,4,0	,0,0)
	v11 = AddVertex(surf,0,4,4	,1,0)

v12 = AddVertex(surf,4,0,0  ,0,1)
	v13 = AddVertex(surf,4,0,4  ,1,1)	
	v14 = AddVertex(surf,4,4,0	,0,0)
	v15 = AddVertex(surf,4,4,4	,1,0)

v16 = AddVertex(surf,0,4,0  ,0,1)
	v17 = AddVertex(surf,0,4,4	,1,1)	
	v18 = AddVertex(surf,4,4,0	,0,0)
	v19 = AddVertex(surf,4,4,4	,1,0)

v20 = AddVertex(surf,0,0,0  ,0,1)
	v21 = AddVertex(surf,0,0,4	,1,1)	
	v22 = AddVertex(surf,4,0,0	,0,0)
	v23 = AddVertex(surf,4,0,4	,1,0)

If a = True
		AddTriangle(Surf,v16,v17,v18) ;top
		AddTriangle(surf,v18,v17,v19)
	End If
	If b = True
		AddTriangle(surf,v21,v20,v22) ; bottom
		AddTriangle(surf,v21,v22,v23)
	End If
	If e = True Then
		AddTriangle(surf,v5,v1,v2) ; front
		AddTriangle(surf,v5,v2,v6)
	End If
	If f = True Then
		AddTriangle(surf,v0,v4,v3) ; back
		AddTriangle(surf,v3,v4,v7) ; 
	End If
	If c = True
		AddTriangle(surf,v15,v13,v12) ; left
		AddTriangle(surf,v15,v12,v14)
	End If
	If d = True
		AddTriangle(surf,v9,v11,v8) ; right
		AddTriangle(surf,v8,v11,v10)
	End If
	
	Return z
	
End Function

Author Comments:

3D city and car control - template. No collision.