Tank Simulator

Blitz3D Forums/Blitz3D Programming/Tank Simulator

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Okay, I'm making a tank simulator. Problem is, I don't know how to get the camera working to see the tank from the back and NOT the front, as you'll see in the code that I whipped up below. Also, how can I make some realistic gravity? Oh, and please don't say anything about the terrain-I know it's a problem.
;The Forbidden
;By Minkee
Global gfxPlayer
Global gfxAlert
;Set the graphics mode
Graphics3D 640,480
SetBuffer BackBuffer()
;Load An Image
gfxPlayer=LoadImage ("invader.bmp")
;Load Another image
gfxAlert=LoadImage ("alert.bmp")
;Set global on font variables
Global fntArial
;Load fonts to a file handle variables
fntArial=LoadFont ("OCR A Extended",36,False,False,False)
;Set the font and print text
SetFont fntArial
;Okay...
Print "The Forbidden"
fntComic=LoadFont ("Arial",15,False,False,False)
;Set font
SetFont fntComic
;Subtitles
Print "The Forbidden: As the last defender of Britain, you must fight the opposing forces and win the war!"
Print "Press the arrow keys To move forward, backwards, Left, And Right and press the spacebar to fire."
Print "Questions? Comments? Constructive criticism? Feel free to contact me at minkee.s@..."
Print "Code  written by Minkee S"
Print "A GLITCH CITY GAMES CO. PRODUCTION"
;This draws the images
DrawImage gfxPlayer, 500,0,0
DrawImage gfxAlert, 300,300,0
WaitKey 
;Assign the types
type_player=1
type_ground=2
;Create the terrain
terrain=LoadTerrain("texture.bmp")


tadpole=LoadMesh( "btadpole.3ds" )
tex=LoadTexture( "spheremap.bmp",64+1 )
EntityType tadpole, type_player
PositionEntity tadpole, 0,1,5
EntityTexture tadpole,tex
EntityFX tadpole,10
ScaleEntity tadpole, 0.1,0.1,0.1


camera=CreateCamera()
PositionEntity camera,0,0,50

While Not KeyHit(1)
If KeyDown (208) TranslateEntity tadpole, 0,0,-0.3
If KeyDown (200) TranslateEntity tadpole, 0,0,0.3
If KeyDown (205) TranslateEntity tadpole, 0.3,0,0
If KeyDown (203) TranslateEntity tadpole, -0.3,0,0

Collisions type_player,type_ground,2,2
Collisions type_ground,type_player,2,2
	UpdateWorld
	RenderWorld
	Flip
Wend
End