For beginners: A first person shooter engine, fully compatible with collision, jumping and gravity..

Author

Message

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 9th Sep 2004 17:41 Edited at: 26th Sep 2004 21:50

Link

collision libary on page 2

>>>NEWEST UPDATES:

one with not really smooth ramp code, but it works..

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r

get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>

`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 10
`check
if object exist(i)=0
`make one
make object cube i,80
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,45
`graphics :P
texture object i,1

endif
next i
xrotate object 1,0
xrotate object 3,0

make object box 11,100,100,400
set object collision on 11
texture object 11,1

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r

get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off


`from here >>>>>>>>>>>>


`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 10
`check
if object exist(i)=0
`make one
make object cube i,80
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,45
`graphics :P
texture object i,1

endif
next i
xrotate object 1,0
xrotate object 3,0

make object box 11,100,100,400
set object collision on 11
texture object 11,1

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional



REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

And this one with a simple ai player that's chasing you:

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i

make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=ang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif

x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0

endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i



make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=ang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

for DBC users:

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
`dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,1400,10,1400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30+rnd(20)
position object i,rnd(700)-200,-10,rnd(700)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1
a=rnd(10)
if a=1
xrotate object i,45
endif

endif
next i

make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

dim bullet(300,50)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
rotate camera wrapvalue(xang#),wrapvalue(yang#),0

`loop
loop

function shoot_bullets(id,action)
if action = 1

endif

if action =0

endif
endfunction
function make_bullets(id,startobj,amount)

for bullet = 1 to amount
if object exist(bullet+startobj)=1
do
sync
print "SYNTAX ERROR"
PRINT "BULLET OBJECT ALREADY EXISTS >> FUNCTION CALL: 'make bullets'"
set cursor 0,0
loop
endif
make object cube bullet+startobj,10
bullet(id,bullet)=1
next bullet
endfunction
function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif

x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0

endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
`dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,1400,10,1400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30+rnd(20)
position object i,rnd(700)-200,-10,rnd(700)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1
a=rnd(10)
if a=1
xrotate object i,45
endif

endif
next i



make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

dim bullet(300,50)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
rotate camera wrapvalue(xang#),wrapvalue(yang#),0

`loop
loop

function shoot_bullets(id,action)
if action = 1

endif

if action =0

endif
endfunction
function make_bullets(id,startobj,amount)

for bullet = 1 to amount
if object exist(bullet+startobj)=1
do
sync
print "SYNTAX ERROR"
PRINT "BULLET OBJECT ALREADY EXISTS >> FUNCTION CALL: 'make bullets'"
set cursor 0,0
loop
endif
make object cube bullet+startobj,10
bullet(id,bullet)=1
next bullet
endfunction
function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

Hi everyone

,

This engine is very easy to use, The only thing you need to do is:

setting up your game
do
move_player_with_collision(object,coll,y angle)
loop

That's it!!!

well if this isn't easy..

click the source button for the code.

please tell me what you think

Do you need a complete FPS,3rdPS engine

?? Or a collision command libary?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 10th Sep 2004 02:56

Link

no comments

...

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

teh game wiz

20

Years of Service

User Offline

Joined: 24th Feb 2004

Location: EWS

Posted: 10th Sep 2004 03:03

Link

i like it, the jumps good and the sliding collision makes it look professional. this will defantly help those who want to get straight in designing levels etc... without having to code a fps engine.

http://www.elliot-dickerson.co.uk

Back to top

Profile PM Email Website

Atreides

20

Years of Service

User Offline

Joined: 11th Oct 2003

Location: Switzerland (but NOT on a mountain !)

Posted: 10th Sep 2004 03:21

Link

I tested, and I found that code very good for its lenght

but I think you could improve it a bit by adding comments explaining what does each part of the collision system, this part of the code is the most important

The sleeper must awaken !

Back to top

Profile PM Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 10th Sep 2004 03:33

Link

@atreides: working on it

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 10th Sep 2004 10:50

Link

very nice thank you I can use some if not all of the code renny

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Sep 2004 22:20

Link

mouse is a little sensitive. does collision only work with boxes?

"eureka" - Archimedes

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 11th Sep 2004 02:45

Link

You can use it on a poly collision object, "set object collision to polygons", but you'll need to get the radius good. That is diffrent with each object.. if im right..

I'm trying to make ramp collision so you can walk up a ramp/stairs.. its pretty hard to make

..

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 11th Sep 2004 03:04 Edited at: 11th Sep 2004 03:05

Link

UPDATE:
added the command explaination.. as suggested by atreides

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>

`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 100
`check
if object exist(i)=0
`make one
make object cube i,20
position object i,rnd(400)-200,rnd(20),rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()
xang#=xang#+mousemovey()
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      `put the object back
      position object objectnr,x#,y#,z#
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
  `put the object back
      position object objectnr,x#,y#,z#
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off


`from here >>>>>>>>>>>>


`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 100
`check
if object exist(i)=0
`make one
make object cube i,20
position object i,rnd(400)-200,rnd(20),rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional



REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()
xang#=xang#+mousemovey()
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      `put the object back
      position object objectnr,x#,y#,z#
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
  `put the object back
      position object objectnr,x#,y#,z#
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
      position object objectnr,x#,y#,z#
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

Hope you all like it

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

Kequor

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: United States

Posted: 11th Sep 2004 04:25

Link

REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
Whats that mean?

Dont worry and keep a cool head. And click the URL below the image.

http://www.kalepia.cjb.com

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 11th Sep 2004 04:34

Link

do you use dbpro or dbc?

if you use dbpro you must make these global:

global jumping
global start_y#
global jump_angle#
global jumpable

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 11th Sep 2004 16:32

Link

Works great

,hope you get the stairs & ramp code in

dave

Windows XP Home 2002 Service Pack 1,1AMD Athlon(tm)XP 3200+ Barton 2.20 GHz ,1 GB of RAM
NVIDIA GeForce FX 5600 256MB DDR
http://www.granadagames.com/

Back to top

Profile PM

Spaceman Spiff

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Smacking my head on your keyboard.

Posted: 11th Sep 2004 20:03

Link

Wow! cool

It was great I love the way you can jump off into nothingness and fall forever!

I'm going to go and play with it some more!

Takes 1 2 no 1

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 11th Sep 2004 22:40

Link

thanks space man

@granada: I finished the ramp code you can walk up an ramp now if its 30 degrees or less. But it isnt smooth..

well here it is..

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>

`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 100
`check
if object exist(i)=0
`make one
make object cube i,20
position object i,rnd(400)-200,rnd(20),rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,30
`graphics :P
texture object i,1

endif
next i

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()
xang#=xang#+mousemovey()
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off


`from here >>>>>>>>>>>>


`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 100
`check
if object exist(i)=0
`make one
make object cube i,20
position object i,rnd(400)-200,rnd(20),rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,30
`graphics :P
texture object i,1

endif
next i

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional



REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()
xang#=xang#+mousemovey()
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

Kequor

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: United States

Posted: 12th Sep 2004 04:00

Link

Classic.

Dont worry and keep a cool head. And click the URL below the image.

http://www.kalepia.cjb.com

Back to top

Profile PM Email Website

Kequor

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location: United States

Posted: 12th Sep 2004 04:08

Link

Also when I take those out I get this when I run it. Runtime Error at line 47. Specified angle must be 0 to 360 degrees at line 47

Dont worry and keep a cool head. And click the URL below the image.

http://www.kalepia.cjb.com

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 12th Sep 2004 04:44 Edited at: 12th Sep 2004 08:03

Link

yes that's right, because you use classic

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r

get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>

`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 10
`check
if object exist(i)=0
`make one
make object cube i,80
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,45
`graphics :P
texture object i,1

endif
next i
xrotate object 1,0
xrotate object 3,0

make object box 11,100,100,400
set object collision on 11
texture object 11,1

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r

get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off


`from here >>>>>>>>>>>>


`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 1 to 10
`check
if object exist(i)=0
`make one
make object cube i,80
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
xrotate object i,45
`graphics :P
texture object i,1

endif
next i
xrotate object 1,0
xrotate object 3,0

make object box 11,100,100,400
set object collision on 11
texture object 11,1

`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional



REM REM REM REM REM REM REM REM REM REM

`YOU MUST PUT THESE VARIABLES GLOBAL!!!

REM REM REM REM REM REM REM REM REM REM
global jumping
global start_y#
global jump_angle#
global jumpable


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping = 0
   `gravity
   start_y# = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable = 1
      `set the variables right
      jumping = 1
      jump_angle# = 0
      start_y# = object position y(objectnr)
      jumpable = 0
   endif
endif

`if you are jumping
if jumping = 1
   `increse jump angle
   jump_angle# = jump_angle# + 2
   `if its 180, then stop jumping
   if jump_angle# => 180 then jumping=0
endif

`position the object
position object objectnr,x#,start_y# + sin(jump_angle#)*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping = 0
      jump_angle# = 0
      jumpable = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

This one is made with some ramps.. as i said already it isnt very smooth, but have a look and tell me what you think!

syntax error??? it isn't an error, it is a feature

Back to top

Profile PM

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 12th Sep 2004 10:39

Link

can u please post the controls for if the rookie does not know how keystate #s

Back to top

Profile PM Email Website

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 12th Sep 2004 10:40

Link

and don't forget to add shooting

Back to top

Profile PM Email Website

Dot Merix

20

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 12th Sep 2004 13:02

Link

Nifty.

- Merix

Athlon xp 2400+, 1.0GB Ram, Radeon 9800PRO 128mb

Back to top

Profile PM

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 12th Sep 2004 13:12

Link

but needs bullets

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 12th Sep 2004 19:16

Link

@alpha: yes thats a good idea!

ive already made function that can move an ai player.. have a look:

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i

make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=ang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif

x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0

endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i



make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=ang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Mitchell

20

Years of Service

User Offline

Joined: 1st Mar 2004

Location: The Netherlands

Posted: 14th Sep 2004 03:38

Link

Great Snippit!

If I hadn't bought NuclearGlory I would certainly use it

"A delayed game is eventually good, a bad game is bad forever"
- Shigeru Miyamoto

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 14th Sep 2004 06:17

Link

wow...not really sure how you got sliding collision with that code...but it's nice

"We make the worst games in the universe."

Back to top

Profile PM Email

Oz_

19

Years of Service

User Offline

Joined: 30th Jul 2004

Location: Exeter, United Kingdom

Posted: 14th Sep 2004 07:32

Link

You should make it so that when in midair you continue in the direction you jumped in, like in real life, that always makes fps seem more realistic, great tho

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 14th Sep 2004 07:35

Link

thanks guys

How do you think about the ramp code.. it isnt smooth, but is it smooth enough or must i improve it (i got no idea how to do that..

) ?

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

PiratSS

21

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 14th Sep 2004 08:02

Link

Imrpove it by askin the user the angle the ramp is.

Back to top

Profile PM

DK_

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 14th Sep 2004 09:48

Link

I've been looking for something like this for a long time now! maybe now I can finally make a decent 3D game.

Just now I was trying out your code on a .x object I have but it didn't work. It worked when I set the collision to boxes, but then it was like the whole map had a huge invisible block around it and I was walking on top.
When I set the collision to polygons, I just fall through the ground into infinity. What's wrong? Are '.x' files supported by collision?
They should be.

Please help me.

Email:
laptop5002@hotmail.com

Back to top

Profile PM Email

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 14th Sep 2004 18:58

Link

Quote: "I just fall through the ground into infinity"

I think that that is happening because you've set the radius incorrect.. but im not sure. In theory it should work on any object, I'll take alook at it..

@piratss: Yes, but what if there are ramps with diffrent angles

?

anyway im happy to see that its useable for some guys

.

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 14th Sep 2004 20:10

Link

ok, look at this one. it hase some stairs

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
`dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,1400,10,1400
position object 3,0,-5,0

`make arena
for t = 1 to 10
make object box t+1000,20,5,100+t*25
position object t+1000,t*15,t*5,0
set object collision on t+1000
texture object t+1000,1
next t

for t = 1 to 10
make object box t+1100,100+t*25,5,20
position object t+1100,0,t*5,t*15
set object collision on t+1100
texture object t+1100,1
next t

make object box 500,1000,70,100
position object 500,0,0,10*15+70

make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

xrotate object 1,45
zrotate object 1,45
dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

dim bullet(300,50)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
rotate camera wrapvalue(xang#),wrapvalue(yang#),0
`set camera to follow x#,y#,z#,yang#,30,20,10,10
`point camera x#,y#,z#
`loop
loop

function shoot_bullets(id,action)
if action = 1

endif

if action =0

endif
endfunction
function make_bullets(id,startobj,amount)

for bullet = 1 to amount
if object exist(bullet+startobj)=1
do
sync
print "SYNTAX ERROR"
PRINT "BULLET OBJECT ALREADY EXISTS >> FUNCTION CALL: 'make bullets'"
set cursor 0,0
loop
endif
make object cube bullet+startobj,10
bullet(id,bullet)=1
next bullet
endfunction
function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif

x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0

endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

move on x
  check collision
  if hit.. restore x

move on z
  check collision
  if hit.. restore z

jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

+ Code Snippet

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
`dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,1400,10,1400
position object 3,0,-5,0

`make arena
for t = 1 to 10
make object box t+1000,20,5,100+t*25
position object t+1000,t*15,t*5,0
set object collision on t+1000
texture object t+1000,1
next t

for t = 1 to 10
make object box t+1100,100+t*25,5,20
position object t+1100,0,t*5,t*15
set object collision on t+1100
texture object t+1100,1
next t

make object box 500,1000,70,100
position object 500,0,0,10*15+70








make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

xrotate object 1,45
zrotate object 1,45
dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)

dim bullet(300,50)

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
rotate camera wrapvalue(xang#),wrapvalue(yang#),0
`set camera to follow x#,y#,z#,yang#,30,20,10,10
`point camera x#,y#,z#
`loop
loop

function shoot_bullets(id,action)
if action = 1

endif

if action =0

endif
endfunction
function make_bullets(id,startobj,amount)

for bullet = 1 to amount
if object exist(bullet+startobj)=1
do
sync
print "SYNTAX ERROR"
PRINT "BULLET OBJECT ALREADY EXISTS >> FUNCTION CALL: 'make bullets'"
set cursor 0,0
loop
endif
make object cube bullet+startobj,10
bullet(id,bullet)=1
next bullet
endfunction
function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 16th Sep 2004 11:48

Link

u in a TEAM ???

Back to top

Profile PM Email Website

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 16th Sep 2004 11:53

Link

and btw how do ya shoot ??

Back to top

Profile PM Email Website

ALPHA ZERO PRODUCTIONS

20

Years of Service

User Offline

Joined: 28th Sep 2003

Location: Mom ! I forgot where we live !

Posted: 16th Sep 2004 13:53 Edited at: 16th Sep 2004 13:54

Link

Back to top

Profile PM Email Website

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 16th Sep 2004 19:36

Link

I haven't add shooting yet

and im currently setting up a team with some other guys.

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Game Freak10K

19

Years of Service

User Offline

Joined: 29th Apr 2004

Location:

Posted: 17th Sep 2004 03:50 Edited at: 17th Sep 2004 03:53

Link

I loaded a level into your engine and while it does indeed have professional collision, it also has total collision. Theres no way to get inside of the level. Is there a workaround for this?
EDIT
What I mean is, when I load my level, I can walk around it and over it

, but I cant walk thru it...

Comics and Games-Bread and Butter.

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 18th Sep 2004 00:49

Link

Yes, That's because the collision is set to boxes.. you can set it to polygons but its acting very weird then.. because of the radius. The best thing you could do is make a level editor

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 18th Sep 2004 00:57

Link

I can make a level editor for ya!

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 18th Sep 2004 05:30

Link

Yeah. A simple level editor is easy. I was working on one a while back. All it needs to do is add in primitive objects or load in small objects, add textures etc. then save the lot as arrays in files. If you want me to help you then e-mail me: andrewneale2004@yahoo.com.
By the way, great collision there. A bit of work on it and it will be perfect for my RPG.

Realms Of Tutopia: Rise Of Evil v0.2
www.freewebs.com/elbsoftware/index.htm

Back to top

Profile PM Email

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 18th Sep 2004 21:01

Link

Thanks andrew

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 19th Sep 2004 00:44

Link

Thanks for working on this Jopie dopie,I'me enjoying folowing this

Quote: "I can make a level editor for ya!"

sounds cool

dave

Windows XP Home 2002 Service Pack 1,1AMD Athlon(tm)XP 3200+ Barton 2.20 GHz ,1 GB of RAM
NVIDIA GeForce FX 5600 256MB DDR
http://www.granadagames.com/

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 06:15

Link

What kind of options do you want to have in it

?

-textures..
-lights..
-event editor..

tell me

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 07:06

Link

yay! 2 pages

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 19th Sep 2004 07:46

Link

Quote: "What kind of options do you want to have in it ?

-textures..
-lights..
-event editor.."

What a great start they would be

dave

Windows XP Home 2002 Service Pack 1,1AMD Athlon(tm)XP 3200+ Barton 2.20 GHz ,1 GB of RAM
NVIDIA GeForce FX 5600 256MB DDR
http://www.granadagames.com/

Back to top

Profile PM

Major Payn

20

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 09:58

Link

I would like in an editor....

1)The ability to load .x, or .3DS models
2)An easy terrain tool
3)a point and click type environment
4)the ability to set up collision boxes for your models from within the editor
5)ability to paint textures onto terrain
6)an easy way of saving, and importing the level into the game engine!
7)DBC support!

Thats all I can think of!

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 18:08

Link

@dave: ok working on it!

@major:

Quote: "1)The ability to load .x, or .3DS models"

I haven't figured out yet how to get right collision for .x or .3ds models, that's why im making a level editor.

Importing the level will be easy, such as:

load_heremapeditorname_level(filename$,startobj,startimg)

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 19th Sep 2004 19:41

Link

Thanks,take your time thers no hurry.Will we be able to see the code as you build it!!

dave

Windows XP Home 2002 Service Pack 1,1AMD Athlon(tm)XP 3200+ Barton 2.20 GHz ,1 GB of RAM
NVIDIA GeForce FX 5600 256MB DDR
http://www.granadagames.com/

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 20:58

Link

yes, open source

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 21:02 Edited at: 19th Sep 2004 21:03

Link

ow btw, I'm thinking about to make a FPS libary

, with level editor and very easy commands, for example:
Move_ai(objectnr,action)

something like that, actions(for example):
1=attack
2=idle
just fill it in the function

it will be though, but very handy to newbies.

I think that a game made with my lib (when finished) will look like this:

+ Code Snippet


load_level
make player
make some ai players
place them right
do
move player with collision
move ai with collision
loop

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

20

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 19th Sep 2004 21:35

Link

or should i just make an engine, like the 2d shoot m up engine, but than for 1st person shooter gaems

so you only have to make the media, guns, sound etc en load it in the game, enter the amount of enemies, clips, lives and done !

Do you need a complete FPS engine

?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

granada

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 19th Sep 2004 22:00 Edited at: 19th Sep 2004 22:02

Link

Both sound cool to me

Quote: "but very handy to newbies."

like me

dave

Windows XP Home 2002 Service Pack 1,1AMD Athlon(tm)XP 3200+ Barton 2.20 GHz ,1 GB of RAM
NVIDIA GeForce FX 5600 256MB DDR
http://www.granadagames.com/

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / For beginners: A first person shooter engine, fully compatible with collision, jumping and gravity..