Asteroids FPS

This code has been declared by its author to be Public Domain code.

Asteroids FPS by Andy

2005

Demonstrates how to make an asteroids game in 3D with a First Person View

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 
light=CreateLight() 
tex=LoadTexture( "coolgrass2.bmp") 
ScaleTexture tex,1000.0,1000.0 

brush=CreateBrush() 
BrushTexture brush,tex 

plane=CreatePlane(8) 
PaintEntity plane,brush 
PositionEntity camera,0.0,50.0,0.0 
RotateEntity camera,90,0.0,0.0 

dist#=0.1 
x#=0 
y#=0 
z#=0 

While Not KeyDown( 1 ) 
If KeyDown( 203 )=True Then angle#=angle#+1.0 
If KeyDown( 205 )=True Then angle#=angle#-1.0 

If KeyDown( 200 )=True Then 
x#=x#+Cos(angle#+90.0)*dist# 
z#=z#+Sin(angle#+90.0)*dist# 
EndIf 

RotateEntity camera,0.0,angle#,0.0 
TranslateEntity camera,x#,0.0,z# 

RenderWorld 

Text 0,20,"X Position: "+x# 
Text 0,40,"Y Position: "+y# 
Text 0,60,"Z Position: "+z# 

Flip 
Wend 

End

Comments

Boiled Sweets

2006

What about the Y axis?
What about momentum?
What about inertia?

This needs work...

Andy

2006

>What about the Y axis?
>What about momentum?
>What about inertia?
>
>This needs work...

I didn't need any of those things in my project, but hey, that is why I placed it in the PUBLIC DOMAIN section, so that YOU can change it to YOUR liking.

Code Archives Forum