FPS examples? - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|397\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> FPS examples?
Page : 1 2 Next Prev
Mon, 06 Aug 2007, 15:21
Erebel55	Anyone have any good FPS examples that were made in B3D that I could check out? The main problem that I am having right now is placing the gun in front of the camera and having it look the way I want. DiabloDevil already gave me a few examples...I'm just looking for some more. Thanks in advance. -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Mon, 06 Aug 2007, 18:34
magicman	any chance we can see your code and try to fix it? also heres something i wrote up real quick, it may help. Graphics3D 800,600,16,2 HidePointer light = CreateLight() RotateEntity light,90,0,0 user = CreatePivot() camera = CreateCamera(user) CameraRange camera,.5,1000 gun = CreateCube(camera) ScaleEntity gun,.3,.3,2 PositionEntity gun,1,-.5,2 EntityColor gun,100,100,100 ground = CreatePlane() PositionEntity ground,0,-5,0 gt = CreateTexture(64,64) SetBuffer TextureBuffer(gt) Color 0,255,0 Rect 0,0,64,64 Color 255,255,255 Oval 10,10,30,30 EntityTexture ground,gt Global turnx# Global turny# SetBuffer BackBuffer() While Not KeyDown(1) Cls turnx = MouseXSpeed() turny = MouseYSpeed() MoveMouse 400,300 TurnEntity camera,turny,0,0 TurnEntity user,0,-turnx,0 If (KeyDown(200)) Or (KeyDown(17)) MoveEntity user,0,0,.5 If (KeyDown(208)) Or (KeyDown(31)) MoveEntity user,0,0,-.4 If (KeyDown(203)) Or (KeyDown(30)) MoveEntity user,-.3,0,0 If (KeyDown(205)) Or (KeyDown(32)) MoveEntity user,.3,0,0 UpdateWorld RenderWorld Flip Wend End --v -=-=- Stuff... Yeah...
Mon, 06 Aug 2007, 23:32
JL235	Here is a FPS example I didn't send you, my FPS. The way I set up the player worked, but I made me feel like I was short and fat. On my PC it refuses to run, but I think that is a compatibility problem. I did have it running a few months ago on another machine so I'm pretty certain it does work. link!
Tue, 07 Aug 2007, 08:18
Erebel55	Thanks for the code magicman even though it won't be much help But, I finally got my gun placed the way I like it so that is good. Now I am just having trouble with a jump/collision problem. When I make the player look up high into the air and I run towards a bunker and jump the player can jump over a lot of bunkers he is not supposed to be able to, ( this isn't because his jump is set to high). I think the problem is that my level is all one .b3d model, it consists of the ground and then the bunkers placed on top of it, therefore when I do collisions between the player and the bunker it is still set to slide. Hmm that was a mouthful and I probably confused most of you guys. Well thanks for another example DiablosDevil, I will check it out -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Tue, 07 Aug 2007, 08:35
power mousey	thank you for asking, Erebel55. True! and thank you magicman for showing him, others and I some code in Blitz 3d. Seriously, this will come in handy. And I have to admit and confess...I'm ever learning and re-learning from people. All the time. True. cheers to you both power mousey
Tue, 07 Aug 2007, 09:59
JL235	Here is another FPS example. It's a part of a tutorial on a site (somewhere) where he goes through making this with you. Graphics3D 800, 600, 0, 2 ;3D graphics at a resolution of 800x600 SetBuffer BackBuffer() ;do all drawing to the back drawing buffer Const PLAYER_COL= 1 Const LEVEL_COL = 2 Const ENEMY_COL = 3 Const BULLET_COL= 4 Type bullettype ;set up the bullet type Field entityhandle ;create a field to contain the handle of the bullets mesh End Type Type badguytype ;set up the badguy type Field entityhandle ;will contain the handle of the badguys mesh Field state ;will contain the state that the badguy is currently in End Type light = CreateLight() ;Create a light to see RotateEntity light, 30, 30, 0 ;angle the light player = CreatePivot() ;A simple pivot is all we need to represent the player camera = CreateCamera(player) ;create the camera and attach it to the player CameraRange camera, .01, 250 ;set the camera range to something reasonable ;level = LoadMesh("level.b3d") ;load in the level mesh level = CreateCube():ScaleEntity level,50,50,50:FlipMesh level:MoveEntity level,0,50,0:EntityColor level,20,20,200 levelfloor=CreatePlane():MoveEntity levelfloor,0,.002,0:EntityColor levelfloor,0,100,0 ;plane not needed, added it just for color ;weapon1 = LoadMesh("pistol.b3d", camera) ;load in the weapon mesh and attach it to the camera weapon1 = CreateCylinder(32, 1, camera):RotateMesh weapon1, 90, 0, 0:ScaleEntity weapon1, .05, .05, .2:EntityColor weapon1, 50, 50, 50 ;bulletmesh = LoadMesh("bullet.b3d") ;load in a bullet mesh (this will be a template mesh) bulletmesh = CreateCone():RotateMesh bulletmesh,90,0,0:ScaleEntity bulletmesh,.1,.1,.1 EntityType bulletmesh, BULLET_COL ;set up collision type for the bullet EntityRadius bulletmesh, .01 ;set up collision radius for the bullet ;badguymesh = LoadMesh("badguy.b3d") ;load in badguy mesh (this will also be a template mesh) badguymesh = CreateCylinder():ScaleEntity badguymesh,.3,.95,.125;.6 wide, 1.9 tall, .25 thick EntityType badguymesh, ENEMY_COL ;set up collision type for the badguy EntityRadius badguymesh, .3, .95 ;set up collision radius for the badguy (1.9 meters tall, .6 meters wide) HideEntity bulletmesh ;hide the template meshes since they are not actual objects HideEntity badguymesh ;this will also exclude them from collisions For iter = 1 To 10 ;create some badguys from the template badguy mesh badguy.badguytype = New badguytype ;create a new badguy badguy\entityhandle = CopyEntity(badguymesh) ;give him a mesh badguy\state = Rnd(1, 2) ;1=Guard 2=Search 3=Evade 4=Attack 5=Dead Next MoveEntity camera, 0, .9, 0 ;move camera up to height of players head (also moves weapon) MoveEntity weapon1, .1, -.15, .1 ;move weapon to bottom right of camera MoveEntity player, 20, 1, -20 ;move the player to the starting position For badguy = Each badguytype ;iterate through all of the badguys PositionEntity badguy\entityhandle, Rnd(100)-50, .95, Rnd(100)-50 ;move the badguy to a random starting position Next EntityType player, PLAYER_COL ;set up collision type for the player EntityRadius player, .3, .95 ;set up the players collision radius (1.9 meters tall, .6 meters wide) EntityType level, LEVEL_COL ;set up collision type for the level Collisions PLAYER_COL, LEVEL_COL, 2, 2 ;player to level Collisions PLAYER_COL, ENEMY_COL, 1, 2 ;player to badguy Collisions ENEMY_COL, LEVEL_COL, 2, 2 ;badguy to level Collisions BULLET_COL, LEVEL_COL, 2, 1 ;bullet to level Collisions BULLET_COL, ENEMY_COL, 2, 1 ;bullet to badguy While Not KeyHit(1) ;ESC key wkey = KeyDown(17) ;collect user input skey = KeyDown(31) ;It's a good practice to collect these inputs only once akey = KeyDown(30) ;per loop. This will prevent odd behaviors from happening, dkey = KeyDown(32) ;for instance if the state of a key changes between multiple mouse1 = MouseHit(1) ;checks of that key while still in the same loop. If wkey Then MoveEntity player, 0, 0, .1 ;Forward - w key If skey Then MoveEntity player, 0, 0, -.1 ;Back - s key If akey Then MoveEntity player, -.1, 0, 0 ;Left - a key If dkey Then MoveEntity player, .1, 0, 0 ;Right - d key TurnEntity player, 0, -MouseXSpeed()/5.0, 0 ;rotate player Pivot according to mouse X movement TurnEntity camera, MouseYSpeed()/5.0, 0, 0 ;rotate camera up/down according to mouse Y movement If EntityPitch(camera) < -45 ;don't allow camera to look below -45 degrees RotateEntity camera, -45, EntityYaw(camera), EntityRoll(camera) EndIf If EntityPitch(camera) > 45 ;don't allow camera to look above 45 degrees RotateEntity camera, 45, EntityYaw(camera), EntityRoll(camera) EndIf MoveMouse GraphicsWidth()/2, GraphicsHeight()/2 ;reset mouse position to middle of screen TranslateEntity player, 0, -.1, 0 ;simple gravity If mouse1 ;check if left mouse button was pressed bullet.bullettype = New bullettype ;create a bullet bullet\entityhandle = CopyEntity(bulletmesh) ;create the bullet mesh PositionEntity bullet\entityhandle, EntityX(weapon1, 1), EntityY(weapon1, 1), EntityZ(weapon1, 1) ;place the bullet at the guns position RotateEntity bullet\entityhandle, EntityPitch(weapon1, 1), EntityYaw(weapon1, 1), EntityRoll(weapon1, 1);orientate the bullet with the gun ResetEntity bullet\entityhandle ;otherwise bullet could hit enemy while moving from 0,0,0 to current position EndIf For thisbullet.bullettype = Each bullettype ;iterate through all of the bullets MoveEntity thisbullet\entityhandle, 0, 0, 2 ;move the bullet forward along the bullets Z axis If Abs(EntityX(thisbullet\entityhandle, 1)) > 10000 ;check if the bullet is way out of bounds FreeEntity thisbullet\entityhandle ;delete the bullet mesh Delete thisbullet ;delete the bullet ElseIf Abs(EntityY(thisbullet\entityhandle, 1)) > 10000 ;check if the bullet is way out of bounds FreeEntity thisbullet\entityhandle ;delete the bullet mesh Delete thisbullet ;delete the bullet ElseIf Abs(EntityZ(thisbullet\entityhandle, 1)) > 10000 ;check if the bullet is way out of bounds FreeEntity thisbullet\entityhandle ;delete the bullet mesh Delete thisbullet ;delete the bullet EndIf Next UpdateWorld ;figures out collisions For thisbullet = Each bullettype ;iterate through all of the bullets If CountCollisions(thisbullet\entityhandle) > 0 ;check if bullet collided with something enemyhit = EntityCollided(thisbullet\entityhandle, 3) ;note which enemy bullet collided with (if any) If enemyhit > 0 Then KillBadGuy(enemyhit) ;enemyhit contains entity handle of enemy that was hit FreeEntity thisbullet\entityhandle ;delete the bullet mesh Delete thisbullet ;delete the bullet EndIf Next RenderWorld ;draws the 3d scene Flip ;displays the scene to the screen Wend ;loop until the ESC key is pressed End Function KillBadGuy(enemyhit) For thisbadguy.badguytype = Each badguytype ;iterate through all of the badguys If enemyhit = thisbadguy\entityhandle ;check if the enemy hit = this badguy If thisbadguy\state <> 5 ;check if badguy is alive thisbadguy\state = 5 ;dead ;make him dead EntityType thisbadguy\entityhandle, 0 ;turn off collisions for this badguy RotateEntity thisbadguy\entityhandle, 90, 0, 0 ;make him horizontal TranslateEntity thisbadguy\entityhandle, 0, -.9, 0 ;set him on the ground Exit ;exits the badguy For-Next loop (no need to check rest of badguys) EndIf EndIf Next End Function --v Enjoy!
Tue, 07 Aug 2007, 11:06
Erebel55	Thanks for the example and if anyone wants to see the game so far here is the link. www.bestsharing.com/files/JmBMb315856/BackYard%20Paintball.rar.html -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Tue, 07 Aug 2007, 17:51
magicman	hey Erebel, thats coming along nice, and i think i found your problem with the jumping over bunkers when you look up. your moving the camera and not the player. the camera is a child of the player so you shouldn't be moving the child but the player itsself. if you go through and change the parts were you move the camera from "playercamera" to "player" it should work. \|edit\| Oh, also, your going to need to change the part were you turn the camera from RotateEntity playerCamera,cam_pitch/8.0,cam_yaw/8.0,0 --v to RotateEntity playerCamera,cam_pitch/8.0,0,0 RotateEntity player,0,cam_yaw/8.0,0 --v otherwise it gets all messed up. \|edit\| -=-=- Stuff... Yeah...
Thu, 09 Aug 2007, 16:56
Erebel55	Alright, thanks for the help magicman. Here is another update. I am having another problem, seems like there is going to be a problem with every update Alright, so I need my player to be able to shoot his paintballs. To do this the player can use both mouse buttons. With my code right now I made a cube that is positioned inside of the gun barrel, you can see the cube if you comment out the line that says this "EntityOrder tippman98c,-1" When the player clicks one of the mouse buttons I call the Shoot() function and it creates the paintball at the cubes coordinates and rotates the paintball to the cameras current rotation, I then update the paintball. Now here are some of the problems...1) By the time we can see the paintball it is too far in front of the camera and it doesn't look like it is coming out of the gun very well. 2) When I am running sideways the paintball seems to look funny as it is shot (hard to explain). 3) The paintball doesn't seem to go exactly where I am aiming when I'm close to a bunker, I tried to fix this by moving the crosshair to the right but it's not very good right now. That is about all I can to complain about right now, so..any help is greatly appreciated. Thanks everyone www.bestsharing.com/files/f0kXVAF317264/BackYard%20Paintball%20Update.rar.html -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Fri, 10 Aug 2007, 06:42
Blitz3Dman	Awesome game! I can't wait for it to finish!
Fri, 10 Aug 2007, 15:42
Erebel55	Thanks for the words of encouragment man
Fri, 10 Aug 2007, 18:10
Erebel55	Here is a new update to the .bb. Doesn't really fix anything though, could really use some help, thanks everyone www.bestsharing.com/files/du1GSH8317881/new9.bb.html -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Fri, 10 Aug 2007, 21:05
magicman	ok, 1)I dont really see that problem happening. 2)put the "if mousehitblahblahbalh shoot()" before the player movement in the check keys function. 3)that happens because the bullet is moving towards the center but since it dosnt start out in the center it cant get there in the short amount of time before it hits a wall. i think the only way to combat that would be to use some sort of picking function, not really sure though. I dont think any of that was really helpful but at least i tried! -=-=- Stuff... Yeah...
Fri, 10 Aug 2007, 21:25
power mousey	hey Erebel55, keep it coming, keep it going, and keep it coding. True! can't wait for the finished game. cheers power mousey
Sat, 11 Aug 2007, 06:10
Erebel55	Hmm it still seems to mess up even when i move the "if mousehit then shoot line around". But thanks for the reply magicman and power mousey. This is bloody hard though -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Sat, 11 Aug 2007, 11:49
Erebel55	Well, since I am not making any progress at the moment, I was wondering if anyone has any kind of linepick example. -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Sat, 11 Aug 2007, 12:14
magicman	i never said it was going to look much better, but if you noticed, the bullet is now created at the barrel of the gun instead of off to the side when you strafe. or at least it is for me, mabey i did something else that i just dont remember. -=-=- Stuff... Yeah...
Sat, 11 Aug 2007, 15:18
power mousey	you'd expect it to be easy?? Sometimes It Don't Come Easy.....like that song by Ringo Starr. Yet, whats the point if it does come easy-- no learning, no trial and error, no straining the brain. Might as well just use that FPS gamemaker from the game creators over at the Dark Basic site. I admit I'm out of your league and nowhere have the knowledge,wisdom nor skills for these First Person shooter games. Not yet. But hey, when I'm ready watch out!! I'll leave your Quakes and Halos in the dust. Besides, right now I like doing these animation scenes in Blitz3d. When I'm ready I'll take it to the next level. True! cheers, power mousey
Sat, 11 Aug 2007, 15:49
Blitz3Dman	I find that 3.5 is a better bullet speed. Right now they are a bit slow for bullets -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 12 Aug 2007, 10:57
Erebel55	Well it isn't a real bullet, it is a paintball, and they fly at 300 fps in real life. -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Sun, 12 Aug 2007, 14:28
Blitz3Dman	err... paintballs.... I suppose you might know better then. Never measured the speed of a paintball. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Mon, 13 Aug 2007, 10:08
Teasy	Trying this thingy out in practice is even more funny than I originally imagined Here's some of the things I came up with. By changing the speed from 0.5 to 0.85, and adding a little gravity, and increasing the size of the paint ball (i used 0.015 rather than 0.0015), it already looks a lot more like real paintball (to me, that is ) When you change the MouseHit(2) to MouseDown(2) you can see how the point of fire is maligned (when firing), e.g. simply changed by altering the initial ball offset depending on the player's movement. The last thing that I find missing is adding the player's velocity to the ball's velocity during the ball's trajectory, for example by precalculating the effective XYZ velocities, like when you're strafing right, the ball is supposed to have this same strafe velocity added to it (e.g. moving right too). You can ofcourse add air resistance but I think that's perhaps at a later stage If you want my modified version of your code, let me know how you want to receive it
Tue, 14 Aug 2007, 16:57
Erebel55	Wow, a very useful reply Teasy And yes I would very much like to see your modified code, you can either upload it somewhere and post the link or you can just post the code here, whichever you prefer. Thanks for the help mate -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Wed, 15 Aug 2007, 07:15
Teasy	No problem, Erebel55 I'll inline it here.. Graphics3D 800,600,32,3 SetBuffer BackBuffer() SeedRnd MilliSecs() AutoMidHandle True ;include files ;arrays ;global variables Global gameFPS = 40 ; Set the Frames per second ; Camera position, angle values Global cam_x#,cam_z#,cam_pitch#,cam_yaw# Global jumpKey,jump,tempy#,velocity#=-0.15 Global moveDn = 208 ; Camera lookup, down, right or left Global moveLeft = 203 Global moveRight = 205 Global moveUp = 200 ;constants Const PLAYER_COL= 1 Const LEVEL_COL = 2 Const BULLET_COL= 3 Const ENEMY_COL = 4 Const BUNK_COL=5 ;collisions Collisions PLAYER_COL, LEVEL_COL,2, 2 Collisions PLAYER_COL, BUNK_COL,2,2 Collisions BULLET_COL,BUNK_COL,2,1 Collisions BULLET_COL,LEVEL_COL,2,1 ;types Type bullet Field fall# Field mesh End Type ;create objects ;========================================== ;Global grass=CreatePlane() ;moss=LoadTexture("moss.bmp") ;ScaleTexture moss,32,32 ;EntityTexture grass,moss ;PositionEntity grass,0,0.41,0 ;EntityType grass,LEVEL_COL Global grass = CreateTerrain(256) moss = LoadTexture("moss.bmp") PositionEntity grass,-100,.41,-100 ScaleTexture moss,5,5 EntityTexture grass,moss FreeTexture moss EntityType grass,LEVEL_COL Global player = CreatePivot() MoveEntity player,0,10,0 EntityType player,PLAYER_COL Global playerCamera = CreateCamera(player) ;create the camera and attach it to the player CameraRange playerCamera,.01,1000 CameraViewport playerCamera,0,0,800,600 CameraZoom playerCamera, 1.0 / Tan(72/2) EntityType playerCamera,PLAYER_COL EntityRadius playerCamera,0.00013,0.00015 ;set up the players collision radius (.6 meters wide ,3.5 meters tall) EntityRadius player,1.3,0.5 MoveEntity playerCamera, 0,1.5,0;move camera up To height of players head PositionEntity playercamera,0,1.5,0 ;Global cam = CreateCamera() ;PositionEntity cam,1,3,1 ;========================================== light=CreateLight() PositionEntity light,0,0,0 LightColor light,255,255,128 LightRange light,7500 ;========================================== meshSkybox = MakeSkyBox("sky") Global pballField = LoadMesh("BackYard Field.b3d") PositionEntity pballField,0,0,0 EntityType pballField,BUNK_COL EntityRadius pballField,.2 ;========================================== crosshair = LoadImage("crosshair2.bmp") Global tippman98c = LoadMesh("tippman 98 custom.b3d") EntityParent tippman98c,playerCamera PositionEntity tippman98c,.15,-.18,.85 RotateEntity tippman98c,0,270,0 ScaleEntity tippman98c,.02,.02,.02 EntityOrder tippman98c,-1 EntityAlpha tippman98c,.5 Global bulletmesh = LoadMesh("dusk paint.b3d") ; ScaleEntity bulletmesh,.0015,.0015,.0015 ScaleEntity bulletmesh,.015,.015,.015 EntityRadius bulletmesh,.001 EntityType bulletmesh,BULLET_COL HideEntity bulletmesh Global insideGun = CreateCube(playerCamera) ScaleEntity insideGun,.005,.005,.005 MoveEntity insideGun,.15,-.025,.6 ;========================================== framePeriod = 1000 / gameFPS ;frame limiting setup frameTime = MilliSecs () - framePeriod ;========================================== While Not KeyHit(1) ;check for esc. key Repeat frameElapsed = MilliSecs () - frameTime Until frameElapsed frameTicks = frameElapsed / framePeriod frameTween# = Float (frameElapsed Mod framePeriod) / Float (framePeriod) ; -------------------------------------------------------------- ; Update game and world state ; -------------------------------------------------------------- For frameLimit = 1 To frameTicks If frameLimit = frameTicks Then CaptureWorld frameTime = frameTime + framePeriod UpdateGame () ; jump to the update game function UpdateWorld Next RenderWorld frameTween# DrawImage crosshair,GraphicsWidth()/2+4,GraphicsHeight()/2 Text 0,0,"playerx" + EntityX(player) Text 150,0,"playery" + EntityY(player) Text 300,0,"playerz" + EntityZ(player) Flip Wend ClearWorld ClearCollisions FreeImage crosshair End ;functions Function UpdateGame() CheckKeys() CameraControl() UpdateBullet() End Function Function CheckKeys() jumpKey = KeyHit(82) If KeyDown(moveup) Then MoveEntity player, 0, 0, .15 ;Forward If KeyDown(movedn) Then MoveEntity player, 0, 0, -.15 ;Back If KeyDown(moveLeft) Then MoveEntity player, -.10, 0, 0 ;Left If KeyDown(moveRight) Then MoveEntity player, .10, 0, 0 ;Right If MouseHit(1) Or MouseDown(2) Then Shoot() End Function Function CameraControl() ;Velocity handling If jump=0 Then velocity#=velocity#1.07 ;Adds gravity col=EntityCollided(player,LEVEL_COL) If col velocity#=-0.15 jump=0 End If If jump=0 If jumpkey Then jump=1 : velocity#=0.15 Else If jump=1 velocity#=velocity#-0.01 If velovity#=0.5 Then jump=2 Else If jump=2 velocity#=velocity#-0.01 If col jump=0 End If End If ; Mouse look // also mostly ripped from included examples ; ---------- If EntityPitch(playerCamera) >= 60 cam_pitch# = (60.08.0)-.01;359.99 ;(50 * 8.0) - .01 ElseIf EntityPitch(player) < 60 ; Mouse x and y speed mxs=MouseXSpeed() mys=-MouseYSpeed() cam_yaw#=cam_yaw-(mxs) cam_pitch#=cam_pitch+(mys) EndIf If EntityPitch(playerCamera) <= -55 ; used to be -55 cam_pitch# = (-55.08.0)+.01 ElseIf EntityPitch(player) > -55 ; Mouse x and y speed mxs=MouseXSpeed() mys=MouseYSpeed() cam_yaw#=cam_yaw-(mxs) cam_pitch#=cam_pitch+(mys) EndIf RotateEntity playerCamera,cam_pitch#/8.0,0,0 RotateEntity player,0,cam_yaw#/8.0,0 MoveMouse GraphicsWidth()/2+4,GraphicsHeight()/2 ;reset mouse position to middle of screen TranslateEntity player, 0, velocity#, 0 ;simple gravity End Function Function MakeSkyBox( file$ ) ;ripped this from examples that came with blitz m=CreateMesh() ;front face b=LoadBrush( file$+"_FR.bmp",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.bmp",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.bmp",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.bmp",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.bmp",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 ScaleMesh m,200,200,200 FlipMesh m EntityFX m,9 EntityOrder m,10 Return m End Function Function Shoot() b.bullet = New bullet ;create a bullet b\mesh = CopyEntity(bulletmesh) ;create the bullet mesh PositionEntity b\mesh, EntityX(insideGun,1), EntityY(insideGun,1), EntityZ(insideGun,1) ;place the bullet at the guns position RotateEntity b\mesh, EntityPitch(playerCamera,1), EntityYaw(player,1), EntityRoll(playerCamera);orientate the bullet with the gun ResetEntity b\mesh ;otherwise bullet could hit enemy while moving from 0,0,0 to current position End Function Function UpdateBullet() For b.bullet = Each bullet b\fall = b\fall - .0025 MoveEntity b\mesh, 0, b\fall, .85 ;move the bullet forward along the bullets Z axis Next End Function ;data --v The code for adding the player motion vector to the ball vector is not in there though, but there are like 1000+1 ways to do it. I'm not familiar with all the handy Blitz3D trigonometry functions, but these can possibly make it even easier E.g. ball\xyz = xyz( ball_initial_speed , ball_direction ) + player\xyz*
Sun, 19 Aug 2007, 11:38
Erebel55	Well I have been messing around with the code, and your paintballs were set too big and too slow, but I fixed them to how I like them. But I have been trying out things on how to add the players velocity to the balls. So this is what I tried, I just added a line in the directional keydown section for the player. For example If keydown(movedn)...move player and MoveEntity b\mesh,0,0,-.15 But then I found out that if I do it this way the paintball will continue to move with the player even after it has been shot. So I added a "flag" so that the ball is only moved when the player first clicks the mouse. I have included my code, but I don't think I'm doing it right, because it still looks weird when you are strafing left. Hmm I'm starting to think that I approached this wrong. Any help is appreciated, thanks Graphics3D 800,600,32 SetBuffer BackBuffer() SeedRnd MilliSecs() AutoMidHandle True ;include files ;arrays ;global variables Global gameFPS = 40 ; Set the Frames per second ; Camera position, angle values Global cam_x#,cam_z#,cam_pitch#,cam_yaw# Global jumpKey,jump,tempy#,velocity#=-0.15 Global moveDn = 208 ; Camera lookup, down, right or left Global moveLeft = 203 Global moveRight = 205 Global moveUp = 200 Global flag = False ;constants Const PLAYER_COL= 1 Const LEVEL_COL = 2 Const BULLET_COL= 3 Const ENEMY_COL = 4 Const BUNK_COL=5 ;collisions Collisions PLAYER_COL, LEVEL_COL,2, 2 Collisions PLAYER_COL, BUNK_COL,2,2 Collisions BULLET_COL,BUNK_COL,2,1 Collisions BULLET_COL,LEVEL_COL,2,1 ;types Type bullet Field fall# Field mesh End Type ;create objects ;========================================== ;Global grass=CreatePlane() ;moss=LoadTexture("moss.bmp") ;ScaleTexture moss,32,32 ;EntityTexture grass,moss ;PositionEntity grass,0,0.41,0 ;EntityType grass,LEVEL_COL Global grass = CreateTerrain(256) moss = LoadTexture("moss.bmp") PositionEntity grass,-100,.41,-100 ScaleTexture moss,5,5 EntityTexture grass,moss FreeTexture moss EntityType grass,LEVEL_COL Global player = CreatePivot() MoveEntity player,0,10,0 EntityType player,PLAYER_COL Global playerCamera = CreateCamera(player) ;create the camera and attach it to the player CameraRange playerCamera,.01,1000 CameraViewport playerCamera,0,0,800,600 CameraZoom playerCamera, 1.0 / Tan(72/2) EntityType playerCamera,PLAYER_COL EntityRadius playerCamera,0.00013,0.00015 ;set up the players collision radius (.6 meters wide ,3.5 meters tall) EntityRadius player,1.3,0.5 MoveEntity playerCamera, 0,1.5,0;move camera up To height of players head PositionEntity playercamera,0,1.5,0 ;Global cam = CreateCamera() ;PositionEntity cam,1,3,1 ;========================================== light=CreateLight() PositionEntity light,0,0,0 LightColor light,255,255,128 LightRange light,7500 ;========================================== meshSkybox = MakeSkyBox("sky") Global pballField = LoadMesh("BackYard Field.b3d") PositionEntity pballField,0,0,0 EntityType pballField,BUNK_COL EntityRadius pballField,.2 ;========================================== crosshair = LoadImage("crosshair2.bmp") Global tippman98c = LoadMesh("tippman 98 custom.b3d") EntityParent tippman98c,playerCamera PositionEntity tippman98c,.15,-.18,.85 RotateEntity tippman98c,0,270,0 ScaleEntity tippman98c,.02,.02,.02 ;EntityOrder tippman98c,-1 ;EntityAlpha tippman98c,.5 Global bulletmesh = LoadMesh("dusk paint.b3d") ScaleEntity bulletmesh,.0015,.0015,.0015 ; ScaleEntity bulletmesh,.015,.015,.015 EntityRadius bulletmesh,.001 EntityType bulletmesh,BULLET_COL HideEntity bulletmesh Global insideGun = CreateCube(playerCamera) ScaleEntity insideGun,.005,.005,.005 MoveEntity insideGun,.15,-.025,.6 ;========================================== framePeriod = 1000 / gameFPS ;frame limiting setup frameTime = MilliSecs () - framePeriod ;========================================== While Not KeyHit(1) ;check for esc. key Repeat frameElapsed = MilliSecs () - frameTime Until frameElapsed frameTicks = frameElapsed / framePeriod frameTween# = Float (frameElapsed Mod framePeriod) / Float (framePeriod) ; -------------------------------------------------------------- ; Update game and world state ; -------------------------------------------------------------- For frameLimit = 1 To frameTicks If frameLimit = frameTicks Then CaptureWorld frameTime = frameTime + framePeriod UpdateGame () ; jump to the update game function UpdateWorld Next RenderWorld frameTween# ;DrawImage crosshair,GraphicsWidth()/2+4,GraphicsHeight()/2 Text 0,0,"playerx" + EntityX(player) Text 150,0,"playery" + EntityY(player) Text 300,0,"playerz" + EntityZ(player) Text 400,0,"flag" + flag Flip Wend ClearWorld ClearCollisions FreeImage crosshair End ;functions Function UpdateGame() CheckKeys() CameraControl() UpdateBullet() End Function Function CheckKeys() jumpKey = KeyHit(82) If KeyDown(moveup) MoveEntity player, 0, 0, .15 ;Forward If flag = True For b.bullet = Each bullet MoveEntity b\mesh,0,0,.15 Next flag = False EndIf EndIf If KeyDown(movedn) MoveEntity player, 0, 0, -.15 ;Back If flag = True For b.bullet = Each bullet MoveEntity b\mesh,0,0,-.15 Next flag = False EndIf EndIf If KeyDown(moveLeft) MoveEntity player, -.10, 0, 0 ;Left If flag = True For b.bullet = Each bullet MoveEntity b\mesh,-.10,0,0 Next flag = False EndIf EndIf If KeyDown(moveRight) MoveEntity player, .10, 0, 0 ;Right If flag = True For b.bullet = Each bullet MoveEntity b\mesh,.10,0,0 Next flag = False EndIf EndIf If MouseHit(1) Or MouseDown(2) flag = True Shoot() EndIf End Function Function CameraControl() ;Velocity handling If jump=0 Then velocity#=velocity#1.07 ;Adds gravity col=EntityCollided(player,LEVEL_COL) If col velocity#=-0.15 jump=0 End If If jump=0 If jumpkey Then jump=1 : velocity#=0.15 Else If jump=1 velocity#=velocity#-0.01 If velovity#=0.5 Then jump=2 Else If jump=2 velocity#=velocity#-0.01 If col jump=0 End If End If ; Mouse look // also mostly ripped from included examples ; ---------- If EntityPitch(playerCamera) >= 60 cam_pitch# = (60.08.0)-.01;359.99 ;(50 * 8.0) - .01 ElseIf EntityPitch(player) < 60 ; Mouse x and y speed mxs=MouseXSpeed() mys=MouseYSpeed() cam_yaw#=cam_yaw-(mxs) cam_pitch#=cam_pitch+(mys) EndIf If EntityPitch(playerCamera) <= -55 cam_pitch# = (-55.0*8.0)+.01 ElseIf EntityPitch(player) > -55 ; Mouse x and y speed mxs=MouseXSpeed() mys=MouseYSpeed() cam_yaw#=cam_yaw-(mxs) cam_pitch#=cam_pitch+(mys) EndIf RotateEntity playerCamera,cam_pitch#/8.0,0,0 RotateEntity player,0,cam_yaw#/8.0,0 MoveMouse GraphicsWidth()/2+4,GraphicsHeight()/2 ;reset mouse position to middle of screen TranslateEntity player, 0, velocity#, 0 ;simple gravity End Function Function MakeSkyBox( file$ ) ;ripped this from examples that came with blitz m=CreateMesh() ;front face b=LoadBrush( file$+"_FR.bmp",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.bmp",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.bmp",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.bmp",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.bmp",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 ScaleMesh m,200,200,200 FlipMesh m EntityFX m,9 EntityOrder m,10 Return m End Function Function Shoot() b.bullet = New bullet ;create a bullet b\mesh = CopyEntity(bulletmesh) ;create the bullet mesh PositionEntity b\mesh, EntityX(insideGun,1), EntityY(insideGun,1), EntityZ(insideGun,1) ;place the bullet at the guns position RotateEntity b\mesh, EntityPitch(playerCamera,1), EntityYaw(player,1), EntityRoll(playerCamera);orientate the bullet with the gun ResetEntity b\mesh ;otherwise bullet could hit enemy while moving from 0,0,0 to current position End Function Function UpdateBullet() For b.bullet = Each bullet b\fall = b\fall - .0010 MoveEntity b\mesh, 0, b\fall, .8 ;move the bullet forward along the bullets Z axis Next End Function ;data --v -=-=- Lava Monkey https://play.google.com/store/apps/details?id=com.lvm.lavamonkey
Mon, 20 Aug 2007, 07:39
Teasy	Yeah I used the big and slow balls to see the speed, gravity, impact, trajectory etc more clearly. What I usually do when you fire a ball, is determine the initial XYZ velocities. Now, I'm not sure how you want to do this in 3D, but it's something along the lines of this: ; create the ball ball = new ball with x, y and z: ball \ vel = vector ( ball speed , player aim angle ) + vector ( player speed , player motion angle ) --v So you can keep the XYZ velocities inside the ball's object: Type ball ... field vel x, vel y, vel z ... End type --v Then, when updating each ball, just add the velocities to the current position, in whichever way feels most comfortable to you: For ball = each ball with x, y and z: ball \ pos = ball \ pos + ball \ vel --v I think you can also easily translate the XYZ velocities to/from various scales using Blitz3D's commands like EntityPitch etc you're already using.
Page : 1 2 Next Prev