Bullet System

Blitz3D Forums/Blitz3D Programming/Bullet System

asdfasdf

(Posted 2004) [#1]

Can somebody help me make a Bullet System. Never Mind.
AppTitle "Building"

Graphics3D 1024,768

Collisions 1,2,2,2

player=CreatePivot()
PositionEntity player,0,1,-1
EntityRadius player,.6
EntityType player,1

ShowSight = 0

camera=CreateCamera( player )
CameraRange camera,.1,200

light=CreateLight()
LightColor light,32,32,32
TurnEntity light,45,45,0

light=CreateLight()
LightColor light,32,32,32
TurnEntity light,45,-45,0

Global bullet = LoadImage("Data\Bullet.BMP")
MidHandle bullet
Global Sight = LoadImage("Data\Sight.bmp")
MidHandle Sight
Global mesh=LoadMesh( "Data\Building.b3d" )
EntityFX mesh,1
EntityType mesh,2

sp#=.05
ey#=EntityY(player)

HidePointer

sky=LoadSkyBox( "Data\sky" )
EntityParent sky,camera

While Not KeyHit(1)

yv#=EntityY(player)-ey
ey=EntityY(player)

If KeyHit(57) yv=.1

MoveEntity player,0,yv-.005,0

If KeyDown(203) TurnEntity player,0,2,0
If KeyDown(205) TurnEntity player,0,-2,0

If KeyDown(200) MoveEntity player,0,0,sp
If KeyDown(208) MoveEntity player,0,0,-sp

If KeyHit(59) And ShowSight = 0 Then
ShowSight = 1
ElseIf KeyHit(59) And ShowSight = 1 Then
ShowSight = 0
EndIf

RotateEntity sky,0,0,0,True

UpdateWorld
RenderWorld

If ShowSight = 1 Then
DrawImage Sight,MouseX(),MouseY(),0
EndIf
Flip
Wend

EndGame()

;skybox code stolen from castle demo!
Function LoadSkyBox( file$ )
m=CreateMesh()
;front face
b=LoadBrush( file$+"_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( file$+"_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( file$+"_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( file$+"_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( file$+"_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( file$+"_DN.jpg",49 )
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,100,100,100
FlipMesh m
EntityFX m,1
EntityOrder m,1
Return m
End Function

Function EndGame()

FreeImage Sight
FreeEntity mesh
FreeEntity m
FreeImage bullet

EndGraphics

End

End Function

jfk EO-11110

(Posted 2004) [#2]

Maybe you want to try something like this:
http://www.blitzbasic.com/codearcs/codearcs.php?code=559