Fps shooting Code Help - GameCreators Forum

Author

Message

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 27th Jan 2010 03:21 Edited at: 30th Jan 2010 07:13

Link

Hey guys i am working on an Fps. I searched alot for shooting stuff but most of the stuff didn,t make sense and or work.

Rem Project: level 2
Rem Created: 11/07/2009 20:41:09

Rem ***** Main Source File *****
rem set display mode 800,600,32
sync on : sync rate 65 : hide mouse
autocam off
rem backdrop off
makeLevel()
makePlayer()

global rtimer as integer
global stimer as integer
global vtimer as integer

rem player movement vector
global vx# as double float
global vy# as double float
global vz# as double float

global x# as double float
global oldy# as double float
global z# as double float
ink rgb(255,0,0),1:set cursor 319,235:print "0"
global runon# as double float : runon# = 2.5 : ` used for run instead of walk
global radius# as double float : radius# = 24.5 : ` size of player collision sphere
global fpsviewy# as double float
global gravity# as double float : gravity# = -0.1
global slope# as double float : slope# = 0.5
global ground as integer : ground = 1
global jumptimer as integer : jumptimer = 0
load object "media/mp5.x",4
load sound "media\g1.wav",1
make object cube 103,5
make object cube 100,50
position object 100,0,10,0
make object cube 101,50

position object 101,  40,10,60
make object cube 102,50
position object 102,1000,10,-500
   scale object 4,9000,9000,9000
position object 4,110,10,160
load image "media\sas.dds",5
   texture object 4,5

distancia#=60000
do
ink rgb(255,0,0),1:set cursor 305,139:print "+"

movePlayer()
positionCameraToObject(2,0)

text 0,0,"FPS: "+str$(screen fps())
IF OBJECT COLLISION (2,4)=1
kanu=1
wieldgun()
endif

x=camera position x()
y=camera position y()+60
z=camera position z()

for i= 100 to 103
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z+600,nx,ny,nz)
  endif
  next i

if mouseclick()=1 and sound playing(1)=0 and kanu=1

if mouseclick()=1
move camera 3000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
endif

rem position object 1,camera position x(),camera position y(),camera position z()

play sound 1
endif
rem ----------------------------------------------------------------------------------------------------------------------------------
Rem shooting section

if mouseclick()=1
   for i= 100 to 102
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)

PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop
function wieldgun()
LOCK OBJECT ON 4
xrotate object 4,-25
kanu=1
position object 4,0,-16,20
yrotate object 4,-3
endfunction

function makeLevel()

load object "media/map.x",1 : `load level
   sc_setupComplexObject 1,1,2
   position object 1,0,0,0 : `position level

endfunction

function makePlayer()
   make object sphere 2,radius#
   position object 2,23,0,32
   sc_setupObject 2,0,1
   hide object 2
   rem player has no group
endfunction

function movePlayer()
   rem rotate player with mouse
   yrotate object 2,object angle y(2)+mousemovex()/3.0
   xrotate object 2,object angle x(2)+mousemovey()/3.0

oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem apply gravity, and user changes to movement
   angy# = object angle y(2)
   vx# = 0
   vz# = 0
   rem if player is jumping or falling then apply 'normal' gravity
   rem if not attempt to keep the player stuck to the floor
   if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(42)=1 then runon# = 5 else runon#= 2.5 : ` hold leftshift to run
   if keystate(46)=1 then radius# = 15.0 else radius#= 24.5 : ` hold c to crouch
   if keystate(32)=1 then vx# = vx# + cos(angy#)*runon# : vz# = vz# - sin(angy#)*runon#
   if keystate(30)=1 then vx# = vx# - cos(angy#)*runon# : vz# = vz# + sin(angy#)*runon#
   if keystate(31)=1 then vx# = vx# - sin(angy#)*runon# : vz# = vz# - cos(angy#)*runon#
   if keystate(17)=1 then vx# = vx# + sin(angy#)*runon# : vz# = vz# + cos(angy#)*runon#
   rem only jump if on ground, and a certain time after last jump
   if ground=1
      if spacekey()=1 and jumptimer=0 then vy# = vy# + 4.0 : jumptimer = 20
   endif

rem this would be the player's final position without collision
   x# = oldx#+vx#
   y# = oldy#+vy#
   z# = oldz#+vz#

rem first handle gravity - seperated from horizontal movement
   rem to achieve a more realistic effect
   rem Method: simple - cast a sphere vertically down, if it hits the level then
   rem                  position the object there (sticky collision) then move
   rem                  on to horizontal movement
   rem   more complex - if we were to only use the simple method the player would be
   rem                  allowed to climb almost vertical slopes. Alternative is to
   rem                  get the normalY direction to work out how flat the gorund
   rem                  below the player is, 0-slope# is flatter, slope#-1 is steeper.
   rem                  if it's flat, use sticky collision, if it's steep slide the
   rem                  player down the slope. Changing slope# determines how steep the
   rem                  player can climb. NOTE: this also effects stairs.
   collide = sc_SphereCastGroup(1,oldx#,oldy#,oldz#,oldx#,oldy#+vy#,oldz#,radius#,0)
   if collide>0
      rem how flat is this ground
      ny# = sc_getCollisionNormalY()
      if abs(ny#)>slope#
         rem FLAT, stick
         oldy# = sc_getStaticCollisionY()
      else
         rem STEEP, slide
         x# = x# - oldx# : z# = z# - oldz#
         oldx# = sc_getCollisionSlideX()
         oldy# = sc_getCollisionSlideY()
         oldz# = sc_getCollisionSlideZ()
         x# = x# + oldx# : z# = z# + oldz#
      endif

rem ny#<0 means the player has hit a ceiling rather than a floor

if ny#>slope#
         rem only on ground if standing on flat ground
         ground = 1
         vy# = 0
      else
         ground = 0
         rem if player has hit a flat ceiling then stop vy# movement
         if ny#<-slope# then vy# = gravity#
      endif
   else
      rem nothing below player, not on ground, add vertical speed to player
      oldy# = oldy# + vy#
      ground = 0
   endif

rem jumptimer will decrease only when player is back on ground
   rem creates a pause between two successive jumps
   if ground = 1 and jumptimer>0 then dec jumptimer

rem handle horizontal movement as sliding
   rem player only collides with group 1 (level) objs and moves freely through others
   collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,oldy#,z#,radius#,0)

if collide>0
      rem if hit, reposition player, halt movement vector
      x# = sc_getCollisionSlideX()
      oldy# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()
      vx# = 0
      vz# = 0

rem possible code for giving the player a jumping help up stairs...
      rem might be useful if slope# is set very high but stairs are still required
      `dy# = oldy#-sc_getStaticCollisionY()
      `if dy#<slope# and dy#>0 and ground=1 then vy# = 0.5
   endif

rem position the player
   position object 2,x#,oldy#,z#
  rem position object 10,x#,oldy#,z# : ` position skysphere unrem if sky moves with player
   sc_updateObject 2

endfunction

function positionCameraToObject(obj,thirdPerson)
   fpsviewy#=object position y(2)+radius#: ` camera on top of sphere
   position camera object position x(2),fpsviewy#,object position z(2)
   rotate camera object angle x(2),object angle y(2),object angle z(2)
   if thirdPerson=1
      pitch camera down 10
      move camera -30
   endif
   set camera range 1,50010 : ` gets rid of blue screen in distance
endfunction

if memblock exist(1) then delete memblock 1

+ Code Snippet

Rem Project: level 2
Rem Created: 11/07/2009 20:41:09

Rem ***** Main Source File *****
rem set display mode 800,600,32
sync on : sync rate 65 : hide mouse
autocam off
rem backdrop off
makeLevel()
makePlayer()

global rtimer as integer
global stimer as integer
global vtimer as integer

rem player movement vector
global vx# as double float
global vy# as double float
global vz# as double float

global x# as double float
global oldy# as double float
global z# as double float
ink rgb(255,0,0),1:set cursor 319,235:print "0"
global runon# as double float : runon# = 2.5 : ` used for run instead of walk
global radius# as double float : radius# = 24.5 : ` size of player collision sphere
global fpsviewy# as double float
global gravity# as double float : gravity# = -0.1
global slope# as double float : slope# = 0.5
global ground as integer : ground = 1
global jumptimer as integer : jumptimer = 0
load object "media/mp5.x",4
load sound "media\g1.wav",1
make object cube 103,5
make object cube 100,50
position object 100,0,10,0
make object cube 101,50

position object 101,  40,10,60
make object cube 102,50
position object 102,1000,10,-500
   scale object 4,9000,9000,9000
position object 4,110,10,160
load image "media\sas.dds",5
   texture object 4,5



distancia#=60000
do
ink rgb(255,0,0),1:set cursor 305,139:print "+"

movePlayer()
positionCameraToObject(2,0)

text 0,0,"FPS: "+str$(screen fps())
IF OBJECT COLLISION (2,4)=1
kanu=1
wieldgun()
endif

x=camera position x()
y=camera position y()+60
z=camera position z()

for i= 100 to 103
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z+600,nx,ny,nz)
  endif
  next i


if mouseclick()=1 and sound playing(1)=0 and kanu=1

if mouseclick()=1
move camera 3000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
endif

rem position object 1,camera position x(),camera position y(),camera position z()


play sound 1
endif
rem ----------------------------------------------------------------------------------------------------------------------------------
Rem shooting section


if mouseclick()=1
   for i= 100 to 102
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)


PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop
function wieldgun()
LOCK OBJECT ON 4
xrotate object 4,-25
kanu=1
position object 4,0,-16,20
yrotate object 4,-3
endfunction

function makeLevel()


   load object "media/map.x",1 : `load level
   sc_setupComplexObject 1,1,2
   position object 1,0,0,0 : `position level


endfunction

function makePlayer()
   make object sphere 2,radius#
   position object 2,23,0,32
   sc_setupObject 2,0,1
   hide object 2
   rem player has no group
endfunction

function movePlayer()
   rem rotate player with mouse
   yrotate object 2,object angle y(2)+mousemovex()/3.0
   xrotate object 2,object angle x(2)+mousemovey()/3.0

   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

   rem apply gravity, and user changes to movement
   angy# = object angle y(2)
   vx# = 0
   vz# = 0
   rem if player is jumping or falling then apply 'normal' gravity
   rem if not attempt to keep the player stuck to the floor
   if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(42)=1 then runon# = 5 else runon#= 2.5 : ` hold leftshift to run
   if keystate(46)=1 then radius# = 15.0 else radius#= 24.5 : ` hold c to crouch
   if keystate(32)=1 then vx# = vx# + cos(angy#)*runon# : vz# = vz# - sin(angy#)*runon#
   if keystate(30)=1 then vx# = vx# - cos(angy#)*runon# : vz# = vz# + sin(angy#)*runon#
   if keystate(31)=1 then vx# = vx# - sin(angy#)*runon# : vz# = vz# - cos(angy#)*runon#
   if keystate(17)=1 then vx# = vx# + sin(angy#)*runon# : vz# = vz# + cos(angy#)*runon#
   rem only jump if on ground, and a certain time after last jump
   if ground=1
      if spacekey()=1 and jumptimer=0 then vy# = vy# + 4.0 : jumptimer = 20
   endif

   rem this would be the player's final position without collision
   x# = oldx#+vx#
   y# = oldy#+vy#
   z# = oldz#+vz#

   rem first handle gravity - seperated from horizontal movement
   rem to achieve a more realistic effect
   rem Method: simple - cast a sphere vertically down, if it hits the level then
   rem                  position the object there (sticky collision) then move
   rem                  on to horizontal movement
   rem   more complex - if we were to only use the simple method the player would be
   rem                  allowed to climb almost vertical slopes. Alternative is to
   rem                  get the normalY direction to work out how flat the gorund
   rem                  below the player is, 0-slope# is flatter, slope#-1 is steeper.
   rem                  if it's flat, use sticky collision, if it's steep slide the
   rem                  player down the slope. Changing slope# determines how steep the
   rem                  player can climb. NOTE: this also effects stairs.
   collide = sc_SphereCastGroup(1,oldx#,oldy#,oldz#,oldx#,oldy#+vy#,oldz#,radius#,0)
   if collide>0
      rem how flat is this ground
      ny# = sc_getCollisionNormalY()
      if abs(ny#)>slope#
         rem FLAT, stick
         oldy# = sc_getStaticCollisionY()
      else
         rem STEEP, slide
         x# = x# - oldx# : z# = z# - oldz#
         oldx# = sc_getCollisionSlideX()
         oldy# = sc_getCollisionSlideY()
         oldz# = sc_getCollisionSlideZ()
         x# = x# + oldx# : z# = z# + oldz#
      endif

      rem ny#<0 means the player has hit a ceiling rather than a floor

      if ny#>slope#
         rem only on ground if standing on flat ground
         ground = 1
         vy# = 0
      else
         ground = 0
         rem if player has hit a flat ceiling then stop vy# movement
         if ny#<-slope# then vy# = gravity#
      endif
   else
      rem nothing below player, not on ground, add vertical speed to player
      oldy# = oldy# + vy#
      ground = 0
   endif

   rem jumptimer will decrease only when player is back on ground
   rem creates a pause between two successive jumps
   if ground = 1 and jumptimer>0 then dec jumptimer

   rem handle horizontal movement as sliding
   rem player only collides with group 1 (level) objs and moves freely through others
   collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,oldy#,z#,radius#,0)

   if collide>0
      rem if hit, reposition player, halt movement vector
      x# = sc_getCollisionSlideX()
      oldy# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()
      vx# = 0
      vz# = 0

      rem possible code for giving the player a jumping help up stairs...
      rem might be useful if slope# is set very high but stairs are still required
      `dy# = oldy#-sc_getStaticCollisionY()
      `if dy#<slope# and dy#>0 and ground=1 then vy# = 0.5
   endif

   rem position the player
   position object 2,x#,oldy#,z#
  rem position object 10,x#,oldy#,z# : ` position skysphere unrem if sky moves with player
   sc_updateObject 2

endfunction

function positionCameraToObject(obj,thirdPerson)
   fpsviewy#=object position y(2)+radius#: ` camera on top of sphere
   position camera object position x(2),fpsviewy#,object position z(2)
   rotate camera object angle x(2),object angle y(2),object angle z(2)
   if thirdPerson=1
      pitch camera down 10
      move camera -30
   endif
   set camera range 1,50010 : ` gets rid of blue screen in distance
endfunction



if memblock exist(1) then delete memblock 1

I have got code to load the world and pick up the gun. The collision code was taken from the code snippets. Can some one please explain how i can embed shooting code into this, i prefer to shoot boxes from barrel instead of ray casting. Thanks

p.s. i already looked at the fps tutorial and the shooting code didnt make much sense to me so please help.
Edit: Updated the code.

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Jan 2010 13:55

Link

Quote: "i prefer to shoot boxes from barrel instead of ray casting"

Ray casting is by far the most accurate method. You can still make it look as if something is moving, but that's just cosmetics.

It's actually really easy too: you just have to find a point directly infront of the gun (for some given distance), and then do the raycast between the gun and this point.

If you need any help, just ask and I or some other forum member will help.

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Jan 2010 15:44

Link

If you a looking for something like bullets instead of raycasting, have a look to this piece of code.

cheers.

autocam off:hide mouse
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(30,255,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1
sync on

arma= 20  //gun
bala=21  //bullet
dumy=3   //dumy

`foor
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

`gun
make object cylinder arma,1
scale object arma,100,1200,100
xrotate object arma,90
fix object pivot arma
make object box 100,32,35,32
make mesh from object 1,100
add limb arma,1,1
offset limb arma,1,0,-550,0

`bullet
make object box bala,1,1,20:color object bala,rgb(200,0,0):hide object bala

`dumy
make object sphere 3,30
position object 3,600,20,600

do   `************  MAIN BUCLE  *************************************************
gosub _controla_camara  
gosub bala
if object collision(bala,dumy)=1 then position object dumy,300+rnd(1000),10,300+rnd(1000)
sync
loop

_controla_camara: 
rem UPKEY DOWNKEY ARROWS
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)

`slide left
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1):z#=NEWZVALUE(z#,a#-90,1)
`slide right
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1): z#=NEWZVALUE(z#,a#-90,-1)

`camera rotations
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0        //camera rotations
set object to camera orientation arma  // orientation gun with the camera

//positioning camera gun and bullet
position camera x#,145,z#
position object arma,x#,145,z#
move object arma,-5
position object bala,x#,145,z#

move object arma,15
move object right arma,3
move object down arma,3

move object bala,15
move object right bala,3
move object down bala,3

return

bala:
set cursor 310,235:ink rgb(255,0,0),0
print " +"
`-------------------------------------------------------------
`bullet start in gun positions
if dispara=0
   set object to object orientation bala,arma
endif

if mouseclick() and dispara=0
   dispara=1
   show object bala
endif

if dispara=1
   la=la+10
   run=run+1
   move object bala,la
endif

if run>200
   run=0
   la=0
   dispara=0
   hide object bala
endif
return
`-------------------------------------------------------------

+ Code Snippet

autocam off:hide mouse
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(30,255,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1
sync on

arma= 20  //gun
bala=21  //bullet
dumy=3   //dumy

`foor
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

`gun
make object cylinder arma,1
scale object arma,100,1200,100
xrotate object arma,90
fix object pivot arma
make object box 100,32,35,32
make mesh from object 1,100
add limb arma,1,1
offset limb arma,1,0,-550,0

`bullet
make object box bala,1,1,20:color object bala,rgb(200,0,0):hide object bala

`dumy
make object sphere 3,30
position object 3,600,20,600

do   `************  MAIN BUCLE  *************************************************
gosub _controla_camara  
gosub bala
if object collision(bala,dumy)=1 then position object dumy,300+rnd(1000),10,300+rnd(1000)
sync
loop

_controla_camara: 
rem UPKEY DOWNKEY ARROWS
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)

`slide left
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1):z#=NEWZVALUE(z#,a#-90,1)
`slide right
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1): z#=NEWZVALUE(z#,a#-90,-1)

`camera rotations
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0        //camera rotations
set object to camera orientation arma  // orientation gun with the camera 


//positioning camera gun and bullet
position camera x#,145,z#
position object arma,x#,145,z#
move object arma,-5
position object bala,x#,145,z#

move object arma,15
move object right arma,3
move object down arma,3

move object bala,15
move object right bala,3
move object down bala,3

return

bala:
set cursor 310,235:ink rgb(255,0,0),0
print " +"
`-------------------------------------------------------------
`bullet start in gun positions
if dispara=0
   set object to object orientation bala,arma
endif

if mouseclick() and dispara=0
   dispara=1
   show object bala
endif

if dispara=1
   la=la+10
   run=run+1
   move object bala,la
endif

if run>200
   run=0
   la=0
   dispara=0
   hide object bala
endif
return
`-------------------------------------------------------------

learning every day

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Jan 2010 17:55

Link

The problem there chafari is that when the object moves, it doesn't literally move through every point in that direction, it just jumps in that direction by a given speed every frame, which means the faster it goes, the more it missed out. If you have a very fast bullet, chances are it won't even hit the target.

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 28th Jan 2010 00:21

Link

well i want to turn this into a simple multiplayer fps. so which would be better for multiplyer. can you guys please give me some examples of ray casting and shooting with raycasting. thanks

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 28th Jan 2010 10:06

Link

@Zotoaster

Ok...that is true...the bullet speed can´t be higher than the bullet long...but it works somehow...it was just an answer to the inquire.

I normally use raycasting and object screen x()...object screen y()...and there´s a big problem with this method because you can hit several enemys at the same time or even behind walls, so we have to check collision .

I have been trying to raycast the shot in a point 1000 units in front and check if there was intersection with some soldats in a queue, and all of them die...I couldn´t fix that when intersect with the first sodat, the second could be happy drinking beer,nooo the beer splash down to the floor...what I mean...I couldn´t stop all soldats dying in the queue.

learning every day

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 28th Jan 2010 15:15

Link

well does anyone one have example code of how ot use raycast for shooting thanks for the help so far

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 29th Jan 2010 05:43

Link

Man no replies, seems like everyones left the forums, i was wondering if any one has examples on how to use ray cast for shooting. Once i learn i can implent it into my code.

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2010 11:26 Edited at: 29th Jan 2010 11:29

Link

have a look to this code .Maybe you can take something of it

cheers.

autocam off:hide mouse
sync on
make light 1:position light 1,0,150,0
rem make object box 1,20,20,20:color object 1,rgb(0,255,0)
make object box 3,2,2,2:color object 3,rgb(0,0,0)
make object box 100,400,1,400:color object 100,rgb(100,70,30) //suelo
`-----------------------------------------------------------
make object box 101,30,30,30:position object 101,100,30,200
make object box 102,30,30,30: position object 102,60,30,-190
make object box 103,30,30,30:position object 103,0,30,-190
make object box 104,30,30,30: position object 104,-60,30,-190

do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)

ink rgb(255,0,0),1:set cursor 319,235:print "+" // punto de mira
//camera position at start
x=camera position x()
y=camera position y()
z=camera position z()

if mouseclick()
move camera 1000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
rem position object 1,camera position x(),camera position y(),camera position z()
endif

//checking distance of every cube
for i= 100 to 104
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z,nx,ny,nz)
  endif
next i

set cursor 5,5
print "DIST OF HIT:   ", distancia#,"m"

//camera control
rotate camera cam#,a#,0
position camera x#,55,z#
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70

//checking for any collision
if mouseclick()
   for i= 100 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         position object 3,x#,55,z#
         rotate object 3,cam#,a#,0
         move object 3,distancia#
      endif
   next i
endif

//checking the actual cube we hit
if mouseclick()
   for i= 101 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)
 position object i,object   position x(i),30+rnd(2),object  position z(i)
SET CURSOR 200,115
PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop

+ Code Snippet

autocam off:hide mouse
sync on
make light 1:position light 1,0,150,0
rem make object box 1,20,20,20:color object 1,rgb(0,255,0)
make object box 3,2,2,2:color object 3,rgb(0,0,0)
make object box 100,400,1,400:color object 100,rgb(100,70,30) //suelo
`-----------------------------------------------------------
make object box 101,30,30,30:position object 101,100,30,200
make object box 102,30,30,30: position object 102,60,30,-190
make object box 103,30,30,30:position object 103,0,30,-190
make object box 104,30,30,30: position object 104,-60,30,-190


do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)


ink rgb(255,0,0),1:set cursor 319,235:print "+" // punto de mira
//camera position at start
x=camera position x()
y=camera position y()
z=camera position z()

if mouseclick()
move camera 1000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
rem position object 1,camera position x(),camera position y(),camera position z()
endif

//checking distance of every cube
for i= 100 to 104
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z,nx,ny,nz)
  endif
next i


set cursor 5,5
print "DIST OF HIT:   ", distancia#,"m"

//camera control
rotate camera cam#,a#,0
position camera x#,55,z#
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70


//checking for any collision
if mouseclick()
   for i= 100 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         position object 3,x#,55,z#
         rotate object 3,cam#,a#,0
         move object 3,distancia#
      endif
   next i
endif

//checking the actual cube we hit
if mouseclick()
   for i= 101 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)
 position object i,object   position x(i),30+rnd(2),object  position z(i)
SET CURSOR 200,115
PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop

learning every day

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 30th Jan 2010 05:17 Edited at: 31st Jan 2010 03:25

Link

Hey chafari im trying to implent this into my code, but its not working. It would be realy nice if you coudl help me, ill also continue trying.

This is the position i gave for my crosshair, its aligned with my guns sight. How can i make it so the ray cast is alligned with the ctrosshair. Thanks so much.

+ Code Snippet

ink rgb(255,0,0),1:set cursor 305,139:print "+"

I got the code implented in but its still not workign perfectly. The range is very short. Can you please help me to increase the range. By the way i attatched a screen shot of my progrress so far. Almost everyhtings good except the hsooting rnage is extremely small.
No response

Why isn't anyoner responding?

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Attachments

Login to view attachments

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 31st Jan 2010 16:19 Edited at: 31st Jan 2010 16:24

Link

Sorry for the delay, but on weekends I use to go out with my wife and family.

last code...there was an error..mmmmmm I don´t know if it was my fault ....in my code I,v got :

+ Code Snippet

position object i,object position x(i),30+rnd(2),object position z(i)

And I can´t understand way when I copied and pasted, it was:

+ Code Snippet

position  object i,object  position x(i),30+rnd(2),object  
 position z(i)

The problem is that object position ...was like that: object____position too separated.
So probably you couldn´t see the code....in this code, it shows you how to put the crosshair

If it was the case that you couldn´t see my code, now I hope it must be OK.

cheers.

autocam off:hide mouse
sync on
make light 1:position light 1,0,150,0
rem make object box 1,20,20,20:color object 1,rgb(0,255,0)
make object box 3,2,2,2:color object 3,rgb(0,0,0)
make object box 100,400,1,400:color object 100,rgb(100,70,30) //suelo
`-----------------------------------------------------------
make object box 101,30,30,30:position object 101,100,30,200
make object box 102,30,30,30: position object 102,60,30,-190
make object box 103,30,30,30:position object 103,0,30,-190
make object box 104,30,30,30: position object 104,-60,30,-190

do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)

ink rgb(255,0,0),1:set cursor 319,235:print "+" // punto de mira
//camera position at start
x=camera position x()
y=camera position y()
z=camera position z()

if mouseclick()
move camera 1000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
rem position object 1,camera position x(),camera position y(),camera position z()
endif

//checking distance of every cube
for i= 100 to 104
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z,nx,ny,nz)
  endif
next i

set cursor 5,5
print "DIST OF HIT:   ", distancia#,"m"

//camera control
rotate camera cam#,a#,0
position camera x#,55,z#
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70

//checking for any collision
if mouseclick()
   for i= 100 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         position object 3,x#,55,z#
         rotate object 3,cam#,a#,0
         move object 3,distancia#
      endif
   next i
endif

//checking the actual cube we hit
if mouseclick()
   for i= 101 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)
 position object i,object position x(i),30+rnd(2),object position z(i)
SET CURSOR 200,115
PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop

+ Code Snippet

autocam off:hide mouse
sync on
make light 1:position light 1,0,150,0
rem make object box 1,20,20,20:color object 1,rgb(0,255,0)
make object box 3,2,2,2:color object 3,rgb(0,0,0)
make object box 100,400,1,400:color object 100,rgb(100,70,30) //suelo
`-----------------------------------------------------------
make object box 101,30,30,30:position object 101,100,30,200
make object box 102,30,30,30: position object 102,60,30,-190
make object box 103,30,30,30:position object 103,0,30,-190
make object box 104,30,30,30: position object 104,-60,30,-190


do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)


ink rgb(255,0,0),1:set cursor 319,235:print "+" // punto de mira
//camera position at start
x=camera position x()
y=camera position y()
z=camera position z()

if mouseclick()
move camera 1000
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
rem position object 1,camera position x(),camera position y(),camera position z()
endif

//checking distance of every cube
for i= 100 to 104
  if intersect object(i,x,y,z,nx,ny,nz)>0
      distancia#=intersect object(i,x,y,z,nx,ny,nz)
  endif
next i


set cursor 5,5
print "DIST OF HIT:   ", distancia#,"m"

//camera control
rotate camera cam#,a#,0
position camera x#,55,z#
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70


//checking for any collision
if mouseclick()
   for i= 100 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         position object 3,x#,55,z#
         rotate object 3,cam#,a#,0
         move object 3,distancia#
      endif
   next i
endif

//checking the actual cube we hit
if mouseclick()
   for i= 101 to 104
      if intersect object(i,x,y,z,nx,ny,nz)>0
         color object i,rgb(0,0,255)
 position object i,object position x(i),30+rnd(2),object position z(i)
SET CURSOR 200,115
PRINT "HIT OBJECT     ",I-(100)
         else color object i,rgb(255,255,255)
      endif
   next i
endif

sync
loop

learning every day

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 31st Jan 2010 18:54

Link

Hey chafari i had actually finxed that part of the coce. My only question is which part of the code controls from how far you can shoot. Thanks.

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 1st Feb 2010 11:34 Edited at: 1st Feb 2010 11:40

Link

The distance is:

+ Code Snippet

if mouseclick()
move camera 1000     
//camera position at the end of raycast
nx=camera position x()
ny=camera position y()
nz=camera position z()
rem position object 1,camera position x(),camera position y(),camera position z()
endif

when we press mouse, the camera move 1000 units ahead and this is the distance....you can decide how far the raycast should go.
Is that right now?

cheers.

learning every day

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 3rd Feb 2010 06:48 Edited at: 3rd Feb 2010 07:18

Link

Hey chafari that method doesnt work for me, heres why. I had to change the crosshair to this position to align it with my gun.

+ Code Snippet

ink rgb(255,0,0),1:set cursor 305,139:print "+"

nOW THE RAYCAST WAS OFF SO ON THE CAMERAS ORIGINAL POSITON, I ADDED 60 UNTIS TO THE CAMERAS Y POSITION.

+ Code Snippet

//camera position at start
x=camera position x()
y=camera position y()+60 rEM I HAD TO HAD 6O UNITS TO THE Y POSITION TO REALIGN THE RAYCAST WITH THE CROSSHAIR.
z=camera position z()

sINCE I ADDED 60 UNTIS TO THE Y POSITION THE MOVE CAMERA FURTHER DOESNT INCREASE THE RANGE. sO WHAT AM I ODING WRONG. tHE REASON IM ADDING 60 UNITS TO THE CAMERA Y POSITON IS TO REALIGN THE RAY CAST WITH THE CROSSHAIR.

EDit: Actually what i notcied was the farther i get away from the target i have to raise the crosshair/camera into the air to hit the object. Why is that.And any solutions Thank

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 4th Feb 2010 08:59

Link

I need more code to test

In the example I showed to you, it works perfect....so for any adjusting, I need to se the code.

cheers.

learning every day

Back to top

Profile PM Email

kuljot

15

Years of Service

User Offline

Joined: 2nd Jan 2009

Location: sacramneto, ca united states

Posted: 12th Feb 2010 06:55

Link

Hey Chafari,
Everythign else is good now except, when the camera moves forward during shooting, whatever texture is in the way flashes on the screen is there any way to stop this.

Gateway GT5628 Quad Core Desktop Intel Core 2 Q6600 2.4GHz Quad Core 3072MB RAM / 500GB 7200 SATA II Hard drive DVD RW 18X multi dual NVIDIA GeForce 8500GT ....

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Fps shooting Code Help

Attachments