Sorry your browser is not supported!

ok ive taken several parts of codes from the forums and probably one of them doesnt like the others
here it is (media attached)
it also doesnt like me choosing where the model spawns

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 0
ch=camera position y()+height

gravity#=0
gravrate#=0.01
jumping=0
jumpspeed#=-0.4
groundDistance#=0
onGround=1

`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 1, 1
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 0, and to be set to collision
`type 0 - "Polygon".
SC_SetupObject 2,0,0

`Position/orient the camera.
POSITION CAMERA 0,100,-300
POINT CAMERA 0,0,0

`Start the main program loop.
DO
    oldx#=OBJECT POSITION X(1)
    oldy#=OBJECT POSITION Y(1)
    oldz#=OBJECT POSITION Z(1)

`Store the user's old position on the xyz axis
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

`Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * .5
    TURN OBJECT LEFT 1,( LEFTKEY()-RIGHTKEY() ) * .5
`if spacekey()=1 and jump=0
`height=height+1
`jumpb=1
`endif
`
`if jumpb=1
`position object 1, object position x(1),object position y(1)+height,object position z(1)
`endif

`if ch>0
`height=height-0.1
`endif

`if spacekey()=0
`jump=0
`endif
    if onGround>0 then onGround=1
    IF collide>0
        rem if hit, reposition player
      x#=SC_getCollisionSlideX()
      y#=SC_getCollisionSlideY()
      z#=SC_getCollisionSlideZ()
      onground=1 : jumping = 0
    else
      onground = 0
    EndIF
    if keystate(17)=1 then move camera 1
    if keystate(31)=1 then move camera -1
    if keystate(30)=1 then turn camera left 1
    if keystate(32)=1 then turn camera right 1
    if keystate(19)=1 then pitch camera up 1
    if keystate(33)=1 then pitch camera down 1
    MOVE OBJECT DOWN 1,gravity#
    INC gravity#,gravrate#
    collide=SC_sphereCastGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,1.5,0)
   IF onGround=1 AND jumping=0 AND SPACEKEY()=1
      jumping=1
      gravity#=jumpspeed#
   ENDIF

position object 1,x#,y#,z#

SC_updateObject 2
    SC_drawObjectBounds 2

`Store the player's new position on the xyz axis, after they've moved.
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

`Call the sliding collision function, filling in the necassary variables
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,2)

SYNC

LOOP

`Sliding Collision Function
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

`X1#-Z1# : The starting XYZ position of the intersection ray
    `X2#-Z2# : The ending XYZ position of the intersection ray
    `Radius# : The radius of the sliding collision sphere, usually you'd set this
    `          to the player's object's z sixe divided by 2. Our cube is 20 units thick,
    `          so we use 10 in the example.
    `Dyn     : The player object
    `Obj     : The map object that we want the player object to slide on

`Call the sc_SphereSlide command, using our variables.
        `This command will create a mathematical intersection "Ray",
        `this basically means that it'll make a 3D line starting from X1#,Y1#,Z1#,
        `and ending at X2#,Y2#,Z2#. It'll then check if any of the polygons on the
        `map object are inbetween these 2 points, if there is then it'll return a 1,
        `if not, it'll return 0.

`What Sparky has done for us however is added in a few handy functions
        `that are carried out inside of the SphereSlide command. Basically,
        `once it detects an intersection, it'll get the angle the intersection
        `occured at and using trigonometry (sin, cos and tan), it'll determine
        `the logical position for an object to be if it were to "slide" along
        `the polygon it hit. To make the system even more accurate however,
        `Sparky's dll goes one step further by doing another intersection check on the
        `new mathematical coordinates it just obtained, and checks that there wont be
        `a collision there either. `It'll keep doing this until it reaches it's max
        `iteration or until it finds a free, empty 3d location where the player's object
        `can go. All this for free, sheesh!

C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

`Now, sparky's dll will return the 3d position it thinks you should position your
    `player object at AS WELL. These positions are returned using the sc_getCollisionSlideXYZ()
    `commands. Basicaly the next code checks if an intersection occured in the first place
    ` (if C > 0), and if one did, then it retrieves the new XYZ location that the player should be
    `placed at, and then positions the player object there accordingly.
    IF C > 0

cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

POSITION OBJECT Dyn, cx#, cy#, cz#

ENDIF

ENDFUNCTION

`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 0
ch=camera position y()+height

gravity#=0
gravrate#=0.01
jumping=0
jumpspeed#=-0.4
groundDistance#=0
onGround=1


`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 1, 1
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 0, and to be set to collision
`type 0 - "Polygon".
SC_SetupObject 2,0,0

`Position/orient the camera.
POSITION CAMERA 0,100,-300
POINT CAMERA 0,0,0

`Start the main program loop.
DO
    oldx#=OBJECT POSITION X(1)
    oldy#=OBJECT POSITION Y(1)
    oldz#=OBJECT POSITION Z(1)

    `Store the user's old position on the xyz axis
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

    `Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * .5
    TURN OBJECT LEFT 1,( LEFTKEY()-RIGHTKEY() ) * .5
`if spacekey()=1 and jump=0
`height=height+1
`jumpb=1
`endif
`
`if jumpb=1
`position object 1, object position x(1),object position y(1)+height,object position z(1)
`endif

`if ch>0
`height=height-0.1
`endif

`if spacekey()=0
`jump=0
`endif
    if onGround>0 then onGround=1
    IF collide>0
        rem if hit, reposition player
      x#=SC_getCollisionSlideX()
      y#=SC_getCollisionSlideY()
      z#=SC_getCollisionSlideZ()
      onground=1 : jumping = 0
    else
      onground = 0
    EndIF
    if keystate(17)=1 then move camera 1
    if keystate(31)=1 then move camera -1
    if keystate(30)=1 then turn camera left 1
    if keystate(32)=1 then turn camera right 1
    if keystate(19)=1 then pitch camera up 1
    if keystate(33)=1 then pitch camera down 1
    MOVE OBJECT DOWN 1,gravity#
    INC gravity#,gravrate#
    collide=SC_sphereCastGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,1.5,0)
   IF onGround=1 AND jumping=0 AND SPACEKEY()=1
      jumping=1
      gravity#=jumpspeed#
   ENDIF

    position object 1,x#,y#,z#

    SC_updateObject 2
    SC_drawObjectBounds 2





    `Store the player's new position on the xyz axis, after they've moved.
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

    `Call the sliding collision function, filling in the necassary variables
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,2)

    SYNC

LOOP

`Sliding Collision Function
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

    `X1#-Z1# : The starting XYZ position of the intersection ray
    `X2#-Z2# : The ending XYZ position of the intersection ray
    `Radius# : The radius of the sliding collision sphere, usually you'd set this
    `          to the player's object's z sixe divided by 2. Our cube is 20 units thick,
    `          so we use 10 in the example.
    `Dyn     : The player object
    `Obj     : The map object that we want the player object to slide on

    `Call the sc_SphereSlide command, using our variables.
        `This command will create a mathematical intersection "Ray",
        `this basically means that it'll make a 3D line starting from X1#,Y1#,Z1#,
        `and ending at X2#,Y2#,Z2#. It'll then check if any of the polygons on the
        `map object are inbetween these 2 points, if there is then it'll return a 1,
        `if not, it'll return 0.

        `What Sparky has done for us however is added in a few handy functions
        `that are carried out inside of the SphereSlide command. Basically,
        `once it detects an intersection, it'll get the angle the intersection
        `occured at and using trigonometry (sin, cos and tan), it'll determine
        `the logical position for an object to be if it were to "slide" along
        `the polygon it hit. To make the system even more accurate however,
        `Sparky's dll goes one step further by doing another intersection check on the
        `new mathematical coordinates it just obtained, and checks that there wont be
        `a collision there either. `It'll keep doing this until it reaches it's max
        `iteration or until it finds a free, empty 3d location where the player's object
        `can go. All this for free, sheesh!

    C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

    `Now, sparky's dll will return the 3d position it thinks you should position your
    `player object at AS WELL. These positions are returned using the sc_getCollisionSlideXYZ()
    `commands. Basicaly the next code checks if an intersection occured in the first place
    ` (if C > 0), and if one did, then it retrieves the new XYZ location that the player should be
    `placed at, and then positions the player object there accordingly.
    IF C > 0

        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

        POSITION OBJECT Dyn, cx#, cy#, cz#

    ENDIF

ENDFUNCTION

`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 20th Jul 2008 20:01 Edited at: 20th Jul 2008 21:55

Okay. I'm not exactly sure how your code works, but I made some functions a while back that do collision and jumping with the DLL if you'd like to try those. They may be hard to learn from due to the fact that they're a little buggy and pretty messy with very few REM statements

.

Example With Functions:

rem Setup the demo...
sync on
sync rate 60
autocam off

rem Setup the collision system to handle object numbers 1-19.
COLLSetup(19)

rem Make the start box.
   make object box 100,100,1,100
   position object 100,0,150,0
   sc_Setupobject 100,1,2
   color object 100,rgb(255,0,255)

rem Make the player
    Make object sphere 1,10
   position object 1,0,175,0
   color object 1,rgb(0,255,0)
   sc_setupobject 1,3,1

rem Make a light blue skysphere
   MAKE OBJECT SPHERE 200,-2400
   disable object zwrite 200
   color object 200,rgb(155,155,255)

rem Make lots of random objects that will fall
   for o = 2 to 19
      make object sphere o,10
      position object o,rnd(10)*50,400+rnd(100),rnd(10)*50
      sc_setupobject o,2,1
   color object o,rgb(0,0,255)
   next o

rem Make 40 boxes, position them in random spots, and set them to use box collision.
   for c = 20 to 59
      make object box c,50+rnd(100),rnd(200),50+rnd(100)
      position object c,rnd(10)*50,rnd(100),rnd(10)*50
      if rnd(3)=0 then xrotate object c,rnd(90)
      sc_setupobject c,1,2
      color object c,rgb(100+rnd(155),0,rnd(100))
   next c

rem Set the player's movement speed to 2.
   Speed=2

DO
set cursor 10,10
print "FPS: ",Screen FPS()
   rem Update the objects' old positions
   for o = 1 to 19
      `COLLUpdateOld(Object Number,Gravity Amount (0 will go to the default: 0.2))
      COLLUpdateOld(o,0.2)
   next o

rem Allow the player to move around.
   if upkey() then move object 1,Speed
   if downkey() then move object 1,-Speed
   if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-Speed)
   if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+Speed)

rem Allow the player to jump using the Spacebar ("57" is written because the spacebar's keystate is 57. Writing a 0 will default to the controlkeys)
   Height=4
   Key=57
   COLLJump(1,Height,Key)

rem Update the objects' new positions and handle their collision
   for o = 1 to 19
      if controlkey() and o>1 then position object o,object position x(o),200+rnd(100),object position z(o)
      rem COLLUpdateNew(Object Number)
      COLLUpdateNew(o)
      rem COLLHandleCollision(Object Number,Group To Check Against,Y Offset,Terrain Collision (not so great, set it to 0...) )
      COLLHandleCollision(o,0,5,0,0)
   next o

rem Control the camera
   set camera to follow Object Position X(1),Object Position Y(1),Object Position Z(1),Object Angle Y(1),50,80,3.5,0
   point camera Object Position X(1),Object Position Y(1),Object Position Z(1)

rem If you die then get reset
   if object position y(1)<-50 then position object 1,0,175,0 : yrotate object 1,0
   SYNC
LOOP

END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction

function COLLUpdateOld(OBJ,GravityAmount as float)

COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount

endfunction

function COLLJump(OBJ,HEIGHT as float,Key as integer)

if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF

endfunction

function COLLCompJump(OBJ,HEIGHT as float)

if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT

endfunction

Function COLLUpdateNew(OBJ)

sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)

COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction

Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)

if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

rem Setup the demo...
sync on
sync rate 60
autocam off

rem Setup the collision system to handle object numbers 1-19.
COLLSetup(19)

rem Make the start box.
   make object box 100,100,1,100
   position object 100,0,150,0
   sc_Setupobject 100,1,2
   color object 100,rgb(255,0,255)

rem Make the player
    Make object sphere 1,10
   position object 1,0,175,0
   color object 1,rgb(0,255,0)
   sc_setupobject 1,3,1


rem Make a light blue skysphere
   MAKE OBJECT SPHERE 200,-2400
   disable object zwrite 200
   color object 200,rgb(155,155,255)


rem Make lots of random objects that will fall
   for o = 2 to 19
      make object sphere o,10
      position object o,rnd(10)*50,400+rnd(100),rnd(10)*50
      sc_setupobject o,2,1
   color object o,rgb(0,0,255)
   next o



rem Make 40 boxes, position them in random spots, and set them to use box collision.
   for c = 20 to 59
      make object box c,50+rnd(100),rnd(200),50+rnd(100)
      position object c,rnd(10)*50,rnd(100),rnd(10)*50
      if rnd(3)=0 then xrotate object c,rnd(90)
      sc_setupobject c,1,2
      color object c,rgb(100+rnd(155),0,rnd(100))
   next c

rem Set the player's movement speed to 2.
   Speed=2

DO
set cursor 10,10
print "FPS: ",Screen FPS()
   rem Update the objects' old positions
   for o = 1 to 19
      `COLLUpdateOld(Object Number,Gravity Amount (0 will go to the default: 0.2))
      COLLUpdateOld(o,0.2)
   next o

   rem Allow the player to move around.
   if upkey() then move object 1,Speed
   if downkey() then move object 1,-Speed
   if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-Speed)
   if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+Speed)

   rem Allow the player to jump using the Spacebar ("57" is written because the spacebar's keystate is 57. Writing a 0 will default to the controlkeys)
   Height=4
   Key=57
   COLLJump(1,Height,Key)


   rem Update the objects' new positions and handle their collision
   for o = 1 to 19
      if controlkey() and o>1 then position object o,object position x(o),200+rnd(100),object position z(o)
      rem COLLUpdateNew(Object Number)
      COLLUpdateNew(o)
      rem COLLHandleCollision(Object Number,Group To Check Against,Y Offset,Terrain Collision (not so great, set it to 0...) )
      COLLHandleCollision(o,0,5,0,0)
   next o

   rem Control the camera
   set camera to follow Object Position X(1),Object Position Y(1),Object Position Z(1),Object Angle Y(1),50,80,3.5,0
   point camera Object Position X(1),Object Position Y(1),Object Position Z(1)

   rem If you die then get reset
   if object position y(1)<-50 then position object 1,0,175,0 : yrotate object 1,0
   SYNC
LOOP
























END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction


function COLLUpdateOld(OBJ,GravityAmount as float)



   COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount



endfunction


function COLLJump(OBJ,HEIGHT as float,Key as integer)


if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF



endfunction




function COLLCompJump(OBJ,HEIGHT as float)



if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT




endfunction


Function COLLUpdateNew(OBJ)



sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)



COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction





Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)


if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

It may be a good idea, for learning purposes, to keep trying on your own though

Back to top

Profile PM Email

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 20:10

awsome just what i needed!
=) <- happy
have a cookie
sorry i had a bite because it looked so tastey

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 20:18

what do i do if i want to just make that ball collide with a map
the map being a .x

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 20:24

and i get errors when i try to remove the blocks

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 20th Jul 2008 21:40 Edited at: 20th Jul 2008 22:05

I'm glad you liked the functions

. There are some bugs in them... Anyway, I will explain my functions to you.

****************************************************************

COLLSetupObject(MaxOBJ)
-Sets up the collision system. Call this at the top of your program.
MaxOBJ- The highest object number you will ever use for any collision-using objects in your project.

COLLUpdateOld(Obj,Gravity#)
-Updates your object's old position. Do this BEFORE you move your object.
Obj- The object number of the object you are updating.
Gravity#- How powerful the gravity is.

COLLUpdateNew(Obj)
-Updates your object's new position. Do this AFTER you move your object but BEFORE you call the COLLHandleCollision function.
Obj- The object number of the object you are updating.

COLLHandleCollision(Obj,Group,Radius,Offset,Terrain Collision?)
-Actually positions your object based on the old and new positions gathered by COLLUpdateOld and COLLUpdateNew.
Obj- The object you're handling collision for.
Group- The group number you want to check for collision against.
Radius- The radius of your object's collision sphere.
Offset- The Y offset of your object's collision sphere.
Terrain Collision?- Never got this working... just set it to 0.

COLLJump(Obj,Height,Key)
-Allows an object to jump a certain height only when a certain key is pressed and they are on the ground. Just call it each loop and you should be ok.
Obj- The object that will be jumping.
Height- The height of that object's jump.
Key- The scancode number of the key that will trigger jumping. Each key on your keyboard has its own number. The spacekey's, for example, is 57.

COLLCompJump(Obj,Height)
-Does the exact same thing as the COLLJump function but does not take a key input. When you call this, the object will jump if it can.
Obj- The object that will be jumping.
Height- The height of the object's jump.

****************************************************************

Here's how your code should look. (This won't run, it's just to show what should happen.)

Sync On

COLLSetup(Maximum Object) `10000 should do I guess...

Load Player Object
Setup your player object for collision using the sc_setupobject command.

Load World Object
Setup your world for collision with the sc_setupcomplexobject or sc_setupobject command (I recommend sc_SetupComplexOBject).

Do
COLLUpdateOld(Player Object Number,Gravity Amount [0.2 is good])

Move your player using move object or whatever

COLLJump(Player Object, Jump Height, Key) <--Only if the player jumps.

COLLUpdateNew(Player Object Number)
COLLHandleCollision(Player Object Number, Whatever group you put your world in, Player Radius, Player Offset (use 0 for now...),Terrain Collision (WRITE 0.))

Sync
Loop

And make sure to have this code at the end of your program:

END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction

function COLLUpdateOld(OBJ,GravityAmount as float)

COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount

endfunction

function COLLJump(OBJ,HEIGHT as float,Key as integer)

if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF

endfunction

function COLLCompJump(OBJ,HEIGHT as float)

if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT

endfunction

Function COLLUpdateNew(OBJ)

sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)

COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction

Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)

if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction


function COLLUpdateOld(OBJ,GravityAmount as float)



   COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount



endfunction


function COLLJump(OBJ,HEIGHT as float,Key as integer)


if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF



endfunction




function COLLCompJump(OBJ,HEIGHT as float)



if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT




endfunction


Function COLLUpdateNew(OBJ)



sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)



COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction





Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)


if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

I hope this helps! If you'd like an example with a .x model just ask. Good luck

If you don't know how to call a function, you can read this tutorial I wrote

: http://forum.thegamecreators.com/?m=forum_view&t=87472&b=7

EDIT: I changed your old code to use the functions, although they aren't too great with terrain

:

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 60
autocam off
set ambient light 70
COLLSetup(100)

`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0
sc_setupobject 1,2,1

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 2, 10
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 1 and define it as a complex object.
SC_SetupComplexObject 2,1,2

`Start the main program loop.
DO

COLLUpdateOld(1,0.2)
    `Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * 5
    yrotate object 1,Object Angle Y(1)-( LEFTKEY()-RIGHTKEY() ) * 5
    COLLJump(1,4,57)

COLLUpdateNew(1)
    COLLHandleCollision(1,1,Object Size Y(1,1)/2.0,0,0)

Set Camera To Follow Object Position X(1),Object Position Y(1),Object Position z(1),Object Angle Y(1),75,50,3.5,0
    Point Camera Object Position X(1),Object Position Y(1),Object Position z(1)

rem Player dies
    if Object Position Y(1)<-500
      Position Object 1,0,5,0
    Endif

SYNC

LOOP

`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1

END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction

function COLLUpdateOld(OBJ,GravityAmount as float)

COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount

endfunction

function COLLJump(OBJ,HEIGHT as float,Key as integer)

if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF

endfunction

function COLLCompJump(OBJ,HEIGHT as float)

if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT

endfunction

Function COLLUpdateNew(OBJ)

sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)

COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction

Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)

if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 60
autocam off
set ambient light 70
COLLSetup(100)


`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0
sc_setupobject 1,2,1

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 2, 10
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 1 and define it as a complex object.
SC_SetupComplexObject 2,1,2


`Start the main program loop.
DO

   COLLUpdateOld(1,0.2)
    `Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * 5
    yrotate object 1,Object Angle Y(1)-( LEFTKEY()-RIGHTKEY() ) * 5
    COLLJump(1,4,57)

    COLLUpdateNew(1)
    COLLHandleCollision(1,1,Object Size Y(1,1)/2.0,0,0)

    Set Camera To Follow Object Position X(1),Object Position Y(1),Object Position z(1),Object Angle Y(1),75,50,3.5,0
    Point Camera Object Position X(1),Object Position Y(1),Object Position z(1)

    rem Player dies
    if Object Position Y(1)<-500
      Position Object 1,0,5,0
    Endif



    SYNC

LOOP


`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1



END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction


function COLLUpdateOld(OBJ,GravityAmount as float)



   COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount



endfunction


function COLLJump(OBJ,HEIGHT as float,Key as integer)


if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF



endfunction




function COLLCompJump(OBJ,HEIGHT as float)



if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT




endfunction


Function COLLUpdateNew(OBJ)



sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)



COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction





Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)


if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

Back to top

Profile PM Email

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 22:45

ill give you another cookie as cookie payment

and heres some cookie love songs from BB

http://youtube.com/watch?v=2MTuSx13Wos
http://youtube.com/watch?v=obs_xsZ4q9Q&feature=related

ill try that out while you eat your cookies to the cookie love song

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 22:48

my block just walks through the terrain
=(
ill take that cookie back

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 22:49

before my thing would collide witht he terain but just not be able to jump or have gravity propily

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 20th Jul 2008 23:01

The last piece of code I posted didn't work? Hmm...

Which version of DBP are you using? I've got 6.6 because the other ones bugged out my game... Or maybe we have different versions of Sparky's Collision DLL?

Back to top

Profile PM Email

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 20th Jul 2008 23:04

i got 6.9 and
i think its 2.0 it doesnt say

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 21st Jul 2008 00:02

The version difference may be it. v6.9 made some major negative changes to my game so I had to downgrade. It seems to be working for you though. But you ran this code:

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 60
autocam off
set ambient light 70
COLLSetup(100)

`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0
sc_setupobject 1,2,1

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 2, 10
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 1 and define it as a complex object.
SC_SetupComplexObject 2,1,2

`Start the main program loop.
DO

COLLUpdateOld(1,0.2)
    `Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * 5
    yrotate object 1,Object Angle Y(1)-( LEFTKEY()-RIGHTKEY() ) * 5
    COLLJump(1,4,57)

COLLUpdateNew(1)
    COLLHandleCollision(1,1,Object Size Y(1,1)/2.0,0,0)

Set Camera To Follow Object Position X(1),Object Position Y(1),Object Position z(1),Object Angle Y(1),75,50,3.5,0
    Point Camera Object Position X(1),Object Position Y(1),Object Position z(1)

rem Player dies
    if Object Position Y(1)<-500
      Position Object 1,0,5,0
    Endif

SYNC

LOOP

`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1

END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction

function COLLUpdateOld(OBJ,GravityAmount as float)

COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount

endfunction

function COLLJump(OBJ,HEIGHT as float,Key as integer)

if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF

endfunction

function COLLCompJump(OBJ,HEIGHT as float)

if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT

endfunction

Function COLLUpdateNew(OBJ)

sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)

COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction

Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)

if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

Rem Project: collision
Rem Created: 07/07/2008 08:35:45

Rem ***** Main Source File *****

SYNC ON
SYNC RATE 60
autocam off
set ambient light 70
COLLSetup(100)


`Make a simple matrix, purely visual, not needed.
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the user's object.
MAKE OBJECT CUBE 1,20
POSITION OBJECT 1,0,5,0
sc_setupobject 1,2,1

`Make a box object, replace this with your map.
load image "test.jpg",10
load object "test.x",2
texture object 2, 10
POSITION OBJECT 2,0,0,0
scale object 2,1000,1000,1000
`Setup object 2, the map, to be in group 1 and define it as a complex object.
SC_SetupComplexObject 2,1,2


`Start the main program loop.
DO

   COLLUpdateOld(1,0.2)
    `Handle the player movement/orientation
    MOVE OBJECT 1,( UPKEY()-DOWNKEY() ) * 5
    yrotate object 1,Object Angle Y(1)-( LEFTKEY()-RIGHTKEY() ) * 5
    COLLJump(1,4,57)

    COLLUpdateNew(1)
    COLLHandleCollision(1,1,Object Size Y(1,1)/2.0,0,0)

    Set Camera To Follow Object Position X(1),Object Position Y(1),Object Position z(1),Object Angle Y(1),75,50,3.5,0
    Point Camera Object Position X(1),Object Position Y(1),Object Position z(1)

    rem Player dies
    if Object Position Y(1)<-500
      Position Object 1,0,5,0
    Endif



    SYNC

LOOP


`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1



END
rem ********************************************
rem
rem COLLISION FUNCTIONS
rem
rem ********************************************
function COLLSetup(MaxObj)
`MaxOBJ=The Highest Object Number that will need collision.
Dim COLL#(MaxOBJ,8)
exitfunction
delete memblock 1
endfunction


function COLLUpdateOld(OBJ,GravityAmount as float)



   COLL#(OBJ,4) = object position x(OBJ)
   COLL#(OBJ,5) = Object position y(OBJ)
   COLL#(OBJ,6) = object position z(OBJ)
   COLL#(OBJ,7)=COLL#(Obj,7)-GravityAmount



endfunction


function COLLJump(OBJ,HEIGHT as float,Key as integer)


if KEY>0
if Keystate(Key) and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
else
if controlkey() and COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT
ENDIF



endfunction




function COLLCompJump(OBJ,HEIGHT as float)



if COLL#(OBJ,8)=1 then COLL#(OBJ,7)=HEIGHT




endfunction


Function COLLUpdateNew(OBJ)



sc_UpdateObject OBJ

COLL#(OBJ,1) = object position x(OBJ)
COLL#(OBJ,2) = Object position y(OBJ)
COLL#(OBJ,3) = object position z(OBJ)



COLL#(OBJ,1) = object position x(OBJ)

COLL#(OBJ,3) = object position z(OBJ)

sc_UpdateObject OBJ
endfunction





Function COLLHandleCollision(OBJ,GROUP,RADIUS as float,Offset#,TC as boolean)

COLL#(obj,8)=0
COLL#(obj,2)=COLL#(obj,2)+COLL#(obj,7)
oy#=COLL#(obj,2)
Coll=sc_sphereSlideGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,1),COLL#(obj,2)+Offset#,COLL#(obj,3),Radius,Obj)


if Coll>0
COLL#(obj,1)=sc_getcollisionslidex()
if sc_getcollisionnormalx()=0 and sc_getcollisionnormalz()=0`COLL#(obj,2)+Offset#<>sc_getcollisionslidey() AND sc_getcollisionslidey()>sc_getstaticcollisiony()
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif
COLL#(obj,2)=sc_getcollisionslidey()-Offset#
COLL#(obj,3)=sc_getcollisionslidez()
Endif

Coll2=sc_SpherecastGroup(Group,COLL#(obj,4),COLL#(obj,5)+Offset#,COLL#(obj,6),COLL#(obj,4),oy#+Offset#,COLL#(obj,6),Radius,Obj)

if Coll2>0
    COLL#(obj,7)=0
    COLL#(obj,8)=1
endif

Position Object Obj,COLL#(obj,1),COLL#(obj,2),COLL#(obj,3)
endfunction

and it didn't work? Strange... It works fine here.

Back to top

Profile PM Email

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 21st Jul 2008 00:22

no the block walks through the terrain

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 23rd Jul 2008 17:16 Edited at: 23rd Jul 2008 17:42

ok this is good AND bad
i was playing around with another code somewhere

ok heres the problem
if you walk up a slope you fall through the world!!!!
i have to jump up slopes lol
but at least the collisions work

but i can walk on flat surfaces just aslong as there not going up

Rem Project: thing
Rem Created: 23/07/2008 14:38:04

Rem ***** Main Source File *****

`Setup Client Options

SYNC ON:SYNC RATE 0:HIDE MOUSE

`Create all media needed

` Our character
MAKE OBJECT SPHERE 1,50:COLOR OBJECT 1,RGB(000,255,000):POSITION OBJECT 1,0,0,-400
` An enemy
MAKE OBJECT SPHERE 2,50:COLOR OBJECT 2,RGB(255,000,000):POSITION OBJECT 2,130,0,0
` A large wall
MAKE OBJECT BOX 3 ,500,400,10:POSITION OBJECT 3,0,0,150
` An ammo crate
MAKE OBJECT BOX 4,15,20,50:COLOR OBJECT 4,RGB(000,255,255):POSITION OBJECT 4,-40,0,0
` Some ground to walk on
load object "test.x", 5
load image "test.jpg", 1
texture object 5, 1
scale object 5,500, 500, 500
position object 5,600,-20,-1000
`MAKE OBJECT PLAIN 5,1000,1000
YROTATE OBJECT 5,-90

`Make sure all the objects are on ground level

FOR Object = 1 TO 4

POSITION OBJECT Object, OBJECT POSITION X(Object), OBJECT SIZE Y(Object)/2,OBJECT POSITION Z(Object)

NEXT Object

`Add limb for intersection checks

MAKE OBJECT SPHERE 9999,10

MAKE MESH FROM OBJECT 1,9999

DELETE OBJECT 9999

`Bullet Intersection Limb
ADD LIMB 1,1,1

OFFSET LIMB 1,1,0,0,500

HIDE LIMB 1,1

`Front Intersection Limb
ADD LIMB 1,2,1

OFFSET LIMB 1,2,0,0,OBJECT SIZE Z(1)/2

HIDE LIMB 1,2

`Back Intersection Limb
ADD LIMB 1,3,1

OFFSET LIMB 1,3,0,0,-OBJECT SIZE Z(1)/2

HIDE LIMB 1,3

`Right Intersection Limb
ADD LIMB 1,4,1

OFFSET LIMB 1,4,OBJECT SIZE X(1)/2,0,0

HIDE LIMB 1,4

`Left Intersection Limb
ADD LIMB 1,5,1

OFFSET LIMB 1,5, -OBJECT SIZE X(1)/2,0,0

HIDE LIMB 1,5

`Define the main variables needed

EnemyHP=5000` Enemy's Health

Ammo=1000` Starting Ammo

MaxAmmo=1000` Maximum amount of Ammo

Clips=3` Starting Clips

MaxClips=30` Maximum amount of Clips

Jumping=0

Mission#=0

ScreenWidth#=SCREEN WIDTH()

ScreenHeight#=SCREEN HEIGHT()

`Start main DO/LOOP

DO

`Screen FPS

FPS=SCREEN FPS()

TEXT 0,0,"FPS: "+STR$(FPS)
Text 0,10,"Your mission is to destroy evil bob!"

if mission#=1
text 0,20,"You Killed evil bob! Mission Complete!"
endif

`Movement Controls

IF KEYSTATE(17)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,.5
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(31)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,-.5
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.3

IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.3

`Define variables for lag reduction

X#=OBJECT POSITION X(1)

Y#=OBJECT POSITION Y(1)

Z#=OBJECT POSITION Z(1)

`Camera Positioning

POSITION CAMERA X#,Y#,Z#

`Space key Controls

IF SPACEKEY()=1 AND Jumping=0 THEN Jump=1

`JUMP Variable Definition

IF Jump=1

Jump_Speed#=.5

Jumping=1

Jump=0

ENDIF

`Jumping

IF Jumping=1

DEC Jump_Speed#,.001

POSITION OBJECT 1,X#,Y#+Jump_Speed#, Z#

ENDIF

`Mouse Camera Movement

Camy#=Camy#+MOUSEMOVEX()*.1

Camx#=Camx#+MOUSEMOVEY()*.1

IF Camx#>90 AND Camx#<135 THEN Camx#=90

IF Camx#>270 AND Camx#<225 THEN Camx#=90

YROTATE CAMERA Camy#

XROTATE CAMERA Camx#

YROTATE OBJECT 1,Camy#

XROTATE OBJECT 1,Camx#

`Mouseclick Shooting

IF KEYSTATE(19)=0 AND MOUSECLICK()=1

IF Ammo>0 THEN DEC Ammo,1

IF OBJECT EXIST(2)=1

IF Ammo>0 AND INTERSECT OBJECT (2, LIMB POSITION X(1,1), LIMB POSITION Y(1,1), LIMB POSITION Z(1,1), X#,Y#,Z#)>0 THEN DEC EnemyHP,1

ENDIF

`Check if the enemy should die, if so delete it

IF EnemyHP=0 AND OBJECT EXIST(2)=1
DELETE OBJECT 2
inc mission#, 1
endif

`Reloading (press R)

IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND Ammo<MaxAmmo AND Clips>0

Reload=1

ENDIF

`Reloading Part 2 (delay)

IF Reload=1 THEN INC Time#,.001

IF Time#>=1 THEN Ammo=MaxAmmo:DEC Clips,1:Time#=0:Reload=0

`Ammo Crate code (obtain ammo from ground)

IF OBJECT EXIST(4)=1

IF Ammo<MaxAmmo AND INTERSECT OBJECT (4, X#,Y#-50,Z#, X#,Y#,Z#)>0

INC Clips,(Clips)

INC Ammo,(MaxAmmo-Ammo)

DELETE OBJECT 4

ENDIF

`Display text above enemy and crate object

IF OBJECT EXIST(2)=1 THEN CENTER TEXT OBJECT SCREEN X(2),OBJECT SCREEN Y(2)-70,"Evil Bobs Health: "+str$(EnemyHP)

IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-20,"Ammo Crate"

`Display our Ammo and Clips on-screen

TEXT 0,ScreenHeight#-50,"Ammo: "+str$(Ammo)

TEXT 0,ScreenHeight#-40,"Clips: "+str$(Clips)

`Show that we're reloading

IF Reload=1 THEN CENTER TEXT ScreenWidth#/2,ScreenHeight#/2,"Reloading..."

`Add a target reticule to the screen

CIRCLE ScreenWidth#/2,ScreenHeight#/2,5

`Check for collision with objects, and handle appropriately

`Ground Intersection Check
IF INTERSECT OBJECT (5,X#,(Y#-OBJECT SIZE Y(1)/2),Z#,X#,Y#,Z#)>0

Jumping=0

ELSE

IF Jumping=0

Jumping=1: Jump_Speed=-1

ENDIF

`Front Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,2),LIMB POSITION Y(1,2),LIMB POSITION Z(1,2),X#,Y#,Z#)
`If intersection infront, move the user backwards
MOVE OBJECT 1,-1

ENDIF

`Back Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,3),LIMB POSITION Y(1,3),LIMB POSITION Z(1,3),X#,Y#,Z#)
`If intersection behind, move user forwards
MOVE OBJECT 1,1

ENDIF

`Right Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,4),LIMB POSITION Y(1,4),LIMB POSITION Z(1,4),X#,Y#,Z#)
`If intersection to the right, move the user left
MOVE OBJECT LEFT 1,1

ENDIF

`Left Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,5),LIMB POSITION Y(1,5),LIMB POSITION Z(1,5),X#,Y#,Z#)
`If intersection to the left, move user right
MOVE OBJECT RIGHT 1,1

ENDIF

`Refresh the screen(SYNC) and call the LOOP function

SYNC

LOOP

Rem Project: thing
Rem Created: 23/07/2008 14:38:04

Rem ***** Main Source File *****

`Setup Client Options

SYNC ON:SYNC RATE 0:HIDE MOUSE

`Create all media needed

` Our character
MAKE OBJECT SPHERE 1,50:COLOR OBJECT 1,RGB(000,255,000):POSITION OBJECT 1,0,0,-400
` An enemy
MAKE OBJECT SPHERE 2,50:COLOR OBJECT 2,RGB(255,000,000):POSITION OBJECT 2,130,0,0
` A large wall
MAKE OBJECT BOX 3 ,500,400,10:POSITION OBJECT 3,0,0,150
` An ammo crate
MAKE OBJECT BOX 4,15,20,50:COLOR OBJECT 4,RGB(000,255,255):POSITION OBJECT 4,-40,0,0
` Some ground to walk on
load object "test.x", 5
load image "test.jpg", 1
texture object 5, 1
scale object 5,500, 500, 500
position object 5,600,-20,-1000
`MAKE OBJECT PLAIN 5,1000,1000
YROTATE OBJECT 5,-90

`Make sure all the objects are on ground level

FOR Object = 1 TO 4

POSITION OBJECT Object, OBJECT POSITION X(Object), OBJECT SIZE Y(Object)/2,OBJECT POSITION Z(Object)

NEXT Object

`Add limb for intersection checks

MAKE OBJECT SPHERE 9999,10

MAKE MESH FROM OBJECT 1,9999

DELETE OBJECT 9999

`Bullet Intersection Limb
ADD LIMB 1,1,1

OFFSET LIMB 1,1,0,0,500

HIDE LIMB 1,1

`Front Intersection Limb
ADD LIMB 1,2,1

OFFSET LIMB 1,2,0,0,OBJECT SIZE Z(1)/2

HIDE LIMB 1,2

`Back Intersection Limb
ADD LIMB 1,3,1

OFFSET LIMB 1,3,0,0,-OBJECT SIZE Z(1)/2

HIDE LIMB 1,3

`Right Intersection Limb
ADD LIMB 1,4,1

OFFSET LIMB 1,4,OBJECT SIZE X(1)/2,0,0

HIDE LIMB 1,4

`Left Intersection Limb
ADD LIMB 1,5,1

OFFSET LIMB 1,5, -OBJECT SIZE X(1)/2,0,0

HIDE LIMB 1,5

`Define the main variables needed

EnemyHP=5000` Enemy's Health

Ammo=1000` Starting Ammo

MaxAmmo=1000` Maximum amount of Ammo

Clips=3` Starting Clips

MaxClips=30` Maximum amount of Clips

Jumping=0

Mission#=0

ScreenWidth#=SCREEN WIDTH()

ScreenHeight#=SCREEN HEIGHT()

`Start main DO/LOOP

DO

`Screen FPS

FPS=SCREEN FPS()

TEXT 0,0,"FPS: "+STR$(FPS)
Text 0,10,"Your mission is to destroy evil bob!"

if mission#=1
text 0,20,"You Killed evil bob! Mission Complete!"
endif


`Movement Controls

IF KEYSTATE(17)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,.5
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(31)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,-.5
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.3

IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.3

`Define variables for lag reduction

X#=OBJECT POSITION X(1)

Y#=OBJECT POSITION Y(1)

Z#=OBJECT POSITION Z(1)

`Camera Positioning

POSITION CAMERA X#,Y#,Z#

`Space key Controls

IF SPACEKEY()=1 AND Jumping=0 THEN Jump=1

`JUMP Variable Definition

IF Jump=1

Jump_Speed#=.5

Jumping=1

Jump=0

ENDIF

`Jumping

IF Jumping=1

DEC Jump_Speed#,.001

POSITION OBJECT 1,X#,Y#+Jump_Speed#, Z#

ENDIF

`Mouse Camera Movement

Camy#=Camy#+MOUSEMOVEX()*.1

Camx#=Camx#+MOUSEMOVEY()*.1

IF Camx#>90 AND Camx#<135 THEN Camx#=90

IF Camx#>270 AND Camx#<225 THEN Camx#=90

YROTATE CAMERA Camy#

XROTATE CAMERA Camx#

YROTATE OBJECT 1,Camy#

XROTATE OBJECT 1,Camx#

`Mouseclick Shooting

IF KEYSTATE(19)=0 AND MOUSECLICK()=1

IF Ammo>0 THEN DEC Ammo,1

IF OBJECT EXIST(2)=1

IF Ammo>0 AND INTERSECT OBJECT (2, LIMB POSITION X(1,1), LIMB POSITION Y(1,1), LIMB POSITION Z(1,1), X#,Y#,Z#)>0 THEN DEC EnemyHP,1

ENDIF

ENDIF

`Check if the enemy should die, if so delete it

IF EnemyHP=0 AND OBJECT EXIST(2)=1
DELETE OBJECT 2
inc mission#, 1
endif

`Reloading (press R)

IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND Ammo<MaxAmmo AND Clips>0

Reload=1

ENDIF

`Reloading Part 2 (delay)

IF Reload=1 THEN INC Time#,.001

IF Time#>=1 THEN Ammo=MaxAmmo:DEC Clips,1:Time#=0:Reload=0

`Ammo Crate code (obtain ammo from ground)

IF OBJECT EXIST(4)=1

IF Ammo<MaxAmmo AND INTERSECT OBJECT (4, X#,Y#-50,Z#, X#,Y#,Z#)>0

INC Clips,(Clips)

INC Ammo,(MaxAmmo-Ammo)

DELETE OBJECT 4

ENDIF

ENDIF

`Display text above enemy and crate object

IF OBJECT EXIST(2)=1 THEN CENTER TEXT OBJECT SCREEN X(2),OBJECT SCREEN Y(2)-70,"Evil Bobs Health: "+str$(EnemyHP)

IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-20,"Ammo Crate"

`Display our Ammo and Clips on-screen

TEXT 0,ScreenHeight#-50,"Ammo: "+str$(Ammo)

TEXT 0,ScreenHeight#-40,"Clips: "+str$(Clips)

`Show that we're reloading

IF Reload=1 THEN CENTER TEXT ScreenWidth#/2,ScreenHeight#/2,"Reloading..."

`Add a target reticule to the screen

CIRCLE ScreenWidth#/2,ScreenHeight#/2,5

`Check for collision with objects, and handle appropriately

`Ground Intersection Check
IF INTERSECT OBJECT (5,X#,(Y#-OBJECT SIZE Y(1)/2),Z#,X#,Y#,Z#)>0

Jumping=0

ELSE

IF Jumping=0

Jumping=1: Jump_Speed=-1

ENDIF

ENDIF

`Front Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,2),LIMB POSITION Y(1,2),LIMB POSITION Z(1,2),X#,Y#,Z#)
`If intersection infront, move the user backwards
MOVE OBJECT 1,-1

ENDIF

`Back Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,3),LIMB POSITION Y(1,3),LIMB POSITION Z(1,3),X#,Y#,Z#)
`If intersection behind, move user forwards
MOVE OBJECT 1,1

ENDIF

`Right Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,4),LIMB POSITION Y(1,4),LIMB POSITION Z(1,4),X#,Y#,Z#)
`If intersection to the right, move the user left
MOVE OBJECT LEFT 1,1

ENDIF

`Left Intersection Check
IF INTERSECT OBJECT (3,LIMB POSITION X(1,5),LIMB POSITION Y(1,5),LIMB POSITION Z(1,5),X#,Y#,Z#)
`If intersection to the left, move user right
MOVE OBJECT RIGHT 1,1

ENDIF

`Refresh the screen(SYNC) and call the LOOP function

SYNC

LOOP

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

Outscape

16

Years of Service

User Offline

Joined: 23rd May 2008

Location:

Posted: 23rd Jul 2008 17:17

im sure its to do with something like
terrain height or somthing
but i dont know

Creators of Outscape

http://forum.thegamecreators.com/?m=forum_view&t=132472&b=8

Back to top

Profile PM Email Website

pirate

18

Years of Service

User Offline

Joined: 18th Apr 2006

Location: u.s.a

Posted: 1st Aug 2008 19:57

this code is by rohan...i have been using it for a good while and it works great...i modified mine to use the mouselook but this is rohan's original code from the code snippits....maybe it can help you...

rem the following code is set as two gosubs... call the "setup", before the main loop and 
rem the "handle_player" during the main loop. all you have to do is set the "player=X"
rem to a free number (ex: player=100) and you are ready to go! full FPS physics on any geometry!!!

setup:
rem load land
load object "medialand.x",2
MAKE MEMBLOCK 1,1000
SC_setupComplexObject 2,1,3

rem make player

player=X

make object sphere player,50
position object player,0,100,0
SC_setupObject player,1,1
hide object player
return

`--------------------------------------------------------------------------------------------
handle_player:
position camera 0,curvevalue (object position x(player),camera position x(0),2),curvevalue (object position y(player)+25,camera position y(0),2),curvevalue (object position z(player),camera position z(0),5)
rem FPS cam block
oldcamy#=camy#
oldcamx#=camx#
camy#= wrapvalue(camy#+mousemoveY()*0.2)
camx#= wrapvalue(camx#+mousemoveX()*0.2)
if camy#>70 and camy#<180 then camy#=70
if camy#<300 and camy#>200 then camy#=299
yrotate camera curveangle(camx#,oldcamx#,25)
xrotate camera curveangle(camy#,oldcamy#,25)
rem record old position
oldx#=object position x(player)
oldy#=object position y(player)
oldz#=object position z(player)
rem handle forwards
if keystate(17)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)
endif
rem handle backwards
if keystate(31)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+180
endif
rem handle left
if keystate(30)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+270
endif
rem handle right
if keystate(32)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+90
endif
rem handle diagonals
if keystate(17)=1 and keystate(32)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+45
endif
if keystate(17)=1 and keystate(30)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+315
endif
if keystate(31)=1 and keystate(30)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+225
endif
if keystate(31)=1 and keystate(32)=1
speed#=speed#+1.5
yrotate object player,camera angle y(0)+135
endif
rem speed limits
if speed#>10 then speed#=10
if speed#<0 then speed#=0
rem speed calculation
if speed#>0 then move object player,speed#
speed#=speed#-0.5
rem player new position
newx#=object position x(player)
newy#=object position y(player)
newz#=object position z(player)
rem handle jumping and gravity
if spacekey()=1 and canjump=0
jump#=10
canjump=1
endif
if spacekey()=0 and height#<30 then canjump=0
rem calculate height
height#=SC_intersectObject ( 0,object position x(player),object position y(player),object position z(player), object position x(player),object position y(player)-100000,object position z(player))
cieling#=SC_intersectObject ( 0,object position x(player),object position y(player),object position z(player), object position x(player),object position y(player)+100,object position z(player))
IF height#<26
gravity#=0
endif
IF cieling#<20 and cieling#>0
jump#=0
endif
rem handle gravity
if jump#>0
position object player,object position x(player),object position y(player)+jump#,object position z(player)
jump#=jump#-0.5
endif
if jump#<1
position object player,object position x(player),object position y(player)-gravity#,object position z(player)
gravity#=gravity#+0.5
endif
rem handle on ground calculation
if height#<25 then position object player,object position x(player),object position y(player)+(25-height#),object position z(player)
rem handle sliding using Sparky
slide#=SC_sphereSlide ( 0, oldx#, oldy#, oldz#, newx#, newy#, newz#,25, player )
slidex#=SC_getCollisionSlideX ()
slidez#=SC_getCollisionSlideZ ()
if slide#>0
position object player,slidex#,object position y(player),object position z(player)
endif
if slide#>0
position object player,object position x(player),object position y(player),slidez#
endif
slidex#=0
slidey#=0
slidez#=0

return