Problems with Collisions/Gravity in game

Author

Message

Sazex

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location:

Posted: 6th Dec 2011 09:49 Edited at: 6th Dec 2011 09:53

Link

Now, before anyone asks me to use the search button, I just wanted to say I have... numerous times. I have tried sparkys collision, but most of the tutorials I find make a matrix,whereas I load a mesh, and I don't get how to connect those two objects (the main object I control and the level) into colliding into each other.

Also, I was just wondering if Sparky's Collision comes with gravity codes as well.

(btw, I have looked at the tutorials in Sparky's Collision, with no luck.)

Here is ALL of my code
(I know its not the best)

+ Code Snippet

Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,0.5,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,0
scale object 2,150,150,150  

do
   
   if keystate(17) = 1 then move object 1,-0.07
   if keystate(30) = 1 then y=wrapvalue(y-1)
   if keystate(31) = 1 then move object 1,0.1
   if keystate(32) = 1 then y=wrapvalue(y+1)
   
   yrotate object 1,y
   
   set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0


sync
loop

do
sync
loop

So if anyone can help me that would be very much appreciated

If anyone cares this is how the game looks:
http://i250.photobucket.com/albums/gg258/sazex/Untitled-11.png

sazex

Attachments

Login to view attachments

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 6th Dec 2011 11:56 Edited at: 6th Dec 2011 11:57

Link

Hi Sazex. Sparky's comes with several examples, and one of them is a first person/3d person, and it has gravity and you can easily put your map in it. Of course, you will have to scale you level to fit the size collision. Sparky is free, download it and if you have any problem we can help you.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

MrValentine

AGK Backer

13

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 6th Dec 2011 21:20

Link

Sort of on topic... how complete is sparkys? and how does it compare to Dark Physics?

Back to top

Profile PM

Sazex

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location:

Posted: 7th Dec 2011 06:01

Link

@ chafari, ok so I tried what you said, and took another spin on the examples that came with SparkysCollision, but unfortunately did not help me at all

Though I did look online for some more tutorials and thought I'd give one another try, and it yielded some results, though, not what I expected or want.

Whenever I try to move the object, from another position than its starting position, it just falls through the ground, or flies straight up.

here is my code if you know what I am doing wrong:

Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,0.5,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,0
scale object 2,150,150,150  
SC_SetupObject 2,0,0

do
    set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0

OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)
  
   if keystate(17) = 1 then move object 1,-0.07
   if keystate(30) = 1 then y=wrapvalue(y-1)
   if keystate(31) = 1 then move object 1,0.1
   if keystate(32) = 1 then y=wrapvalue(y+1)
   yrotate object 1,y
   
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)
   
   SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,2)
 
sync
loop

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

IF C > 0
    
        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()
    
        POSITION OBJECT Dyn, cx#, cy#, cz#
            
    ENDIF
ENDFUNCTION

DELETE MEMBLOCK 1

+ Code Snippet


Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,0.5,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,0
scale object 2,150,150,150  
SC_SetupObject 2,0,0

do
    set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0

    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)
  
   if keystate(17) = 1 then move object 1,-0.07
   if keystate(30) = 1 then y=wrapvalue(y-1)
   if keystate(31) = 1 then move object 1,0.1
   if keystate(32) = 1 then y=wrapvalue(y+1)
   yrotate object 1,y
   
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)
   
   SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,2)
 
sync
loop

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

    IF C > 0
    
        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()
    
        POSITION OBJECT Dyn, cx#, cy#, cz#
            
    ENDIF
ENDFUNCTION

DELETE MEMBLOCK 1

@MrValentine, well I do not have DARKphysics, so I can not say, but if you want, you can try out Sparky'sCollision for yourself, here is the link:
http://forum.thegamecreators.com/?m=forum_view&t=74762&b=5

sazex

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2011 11:36

Link

Hi Sazex. I test your code, and you don`t have gravity. Test you level with this code. Example complete attached

autocam off
sync on
sync rate 60
set camera range 0.01,30000
hide mouse

load object "nivel2.dbo", 2
yrotate object 2,14
load image "dirt.jpg",1
load image "name.jpg",2
set light mapping on 2,1
scale object 2,300,300,300
fix object scale 2
sc_setupcomplexobject 2, 1, 2

`making another object into our level and setup collisions
make object box 3,30,1,200
position object 3,-278,30,-15
xrotate object 3,-20
texture object 3,2:scale object texture 3,1,10:yrotate object 3,180
sc_setupcomplexobject 3, 1, 2

make object sphere 1, 5
position object 1, 5, 5, 5
color object 1, RGB(0, 255, 0)
hide object 1

do
    rem first save the original position
    oldx# = object position x(1)
    oldy# = object position y(1)
    oldz# = object position z(1)

if upkey()then move object 1, 2
    if downkey()then move object 1, -2
    if leftkey() then move object left 1, 2
    if rightkey() then move object right 1, 2

rem add simple gravity
    speedY# = speedY#-0.5
    position object 1,object position x(1),object position y(1)+speedY#,object position z(1)

rem after moving check for sliding collision
    X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)
    coll = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,10,0)
    if coll>0
        rem get sliding collision position
        newX# = sc_getcollisionslideX()
        newY# = sc_getcollisionslideY()
        newZ# = sc_getcollisionslideZ()
        position object 1,newX#,newY#,newZ#

rem reset gravity up to a certain slope
        nY# = sc_getcollisionnormalY()
        if nY#>0.707 `about 45 degrees
            speedY# = 0
            `jumping
            if spacekey() then speedY# = 5
        endif
    endif

X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)

position camera X#, Y#+10, Z#

`camera moving
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
`camera limits
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,a#,0
yrotate object 1,a#

sync
loop
delete memblock 1

+ Code Snippet

autocam off
sync on
sync rate 60
set camera range 0.01,30000
hide mouse

load object "nivel2.dbo", 2
yrotate object 2,14
load image "dirt.jpg",1
load image "name.jpg",2
set light mapping on 2,1
scale object 2,300,300,300
fix object scale 2
sc_setupcomplexobject 2, 1, 2

`making another object into our level and setup collisions
make object box 3,30,1,200
position object 3,-278,30,-15
xrotate object 3,-20
texture object 3,2:scale object texture 3,1,10:yrotate object 3,180
sc_setupcomplexobject 3, 1, 2


make object sphere 1, 5
position object 1, 5, 5, 5
color object 1, RGB(0, 255, 0)
hide object 1

do
    rem first save the original position
    oldx# = object position x(1)
    oldy# = object position y(1)
    oldz# = object position z(1)


    if upkey()then move object 1, 2
    if downkey()then move object 1, -2
    if leftkey() then move object left 1, 2
    if rightkey() then move object right 1, 2

    rem add simple gravity
    speedY# = speedY#-0.5
    position object 1,object position x(1),object position y(1)+speedY#,object position z(1)

    rem after moving check for sliding collision
    X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)
    coll = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,10,0)
    if coll>0
        rem get sliding collision position
        newX# = sc_getcollisionslideX()
        newY# = sc_getcollisionslideY()
        newZ# = sc_getcollisionslideZ()
        position object 1,newX#,newY#,newZ#

        rem reset gravity up to a certain slope
        nY# = sc_getcollisionnormalY()
        if nY#>0.707 `about 45 degrees
            speedY# = 0
            `jumping
            if spacekey() then speedY# = 5
        endif
    endif

    X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)

    position camera X#, Y#+10, Z#

`camera moving
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
`camera limits
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70
rotate camera cam#,a#,0
yrotate object 1,a#

sync
loop
delete memblock 1

Cheers.

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

Bulsatar

13

Years of Service

User Offline

Joined: 19th Apr 2011

Location:

Posted: 7th Dec 2011 14:43

Link

To go along with chafari's code...
It would be a good idea to spend a day or so and get comfortable with creating your own UDTs (user defined types). When you use these, you can compartmentalize values that are specific to each thing and reduce the amount of code that you use. For something specific and quick, they are not that important...but when you have hundreds of different types of objects (players, enemies, bullets, health pickups, world clutter, etc.), setting each to a udt is almost essential to keep things organized.

Back to top

Profile PM

Sazex

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location:

Posted: 8th Dec 2011 07:47 Edited at: 8th Dec 2011 09:04

Link

@chafari wow thanks! It did the trick, but for some reason the character is still floating over the land, though he is colliding with the buildings

so many thanks for that... but if you know why he is floating over the map that would be awesome
here is a pic:
http://i250.photobucket.com/albums/gg258/sazex/Untitled-12.png

heres the updated code:

Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,1,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,3 
sc_setupcomplexobject 2,1,1

load object "levellayout.x" ,3
position object 3,0,-8,0
scale object 3,500,500,500

SC_drawObjectBounds 2

do

set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0
  
    oldx# = object position x(1)
    oldy# = object position y(1)
    oldz# = object position z(1)
  
   if keystate(17) = 1 then move object 1,-0.07
   if keystate(30) = 1 then y=wrapvalue(y-1)
   if keystate(31) = 1 then move object 1,0.1
   if keystate(32) = 1 then y=wrapvalue(y+1)
   yrotate object 1,y
 
    speedY# = speedY#-0.5
    position object 1,object position x(1),object position y(1)+speedY#,object position z(1)

X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)
    collide = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,.4,0)
    if collide>0

X# = sc_getcollisionslideX()
        Y# = sc_getcollisionslideY()
        Z# = sc_getcollisionslideZ()
        position object 1,X#,Y#,Z#

nY# = sc_getcollisionnormalY()
        if nY#>0.707 
            speedY# = 0
           
            if spacekey() then speedY# = 1
        endif
    endif

sync
loop
delete memblock 1

+ Code Snippet

Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,1,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,3 
sc_setupcomplexobject 2,1,1

load object "levellayout.x" ,3
position object 3,0,-8,0
scale object 3,500,500,500

SC_drawObjectBounds 2

do

    set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0
  
    oldx# = object position x(1)
    oldy# = object position y(1)
    oldz# = object position z(1)
  
   if keystate(17) = 1 then move object 1,-0.07
   if keystate(30) = 1 then y=wrapvalue(y-1)
   if keystate(31) = 1 then move object 1,0.1
   if keystate(32) = 1 then y=wrapvalue(y+1)
   yrotate object 1,y
 
    speedY# = speedY#-0.5
    position object 1,object position x(1),object position y(1)+speedY#,object position z(1)

    X# = object position x(1)
    Y# = object position y(1)
    Z# = object position z(1)
    collide = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,.4,0)
    if collide>0

        X# = sc_getcollisionslideX()
        Y# = sc_getcollisionslideY()
        Z# = sc_getcollisionslideZ()
        position object 1,X#,Y#,Z#

        nY# = sc_getcollisionnormalY()
        if nY#>0.707 
            speedY# = 0
           
            if spacekey() then speedY# = 1
        endif
    endif
    
    

sync
loop
delete memblock 1

@Bulsatar Thanks, I'll have to look into UDTs, they seem important

sazex

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 8th Dec 2011 12:31

Link

Quote: "the character is still floating over the land, though he is colliding with the buildings "

Perhaps you need to scale your level a bit biger, or your character a little bit smaller. Can you send me your level and Character to test

I'm not a grumpy grandpa

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 8th Dec 2011 13:43

Link

No that's not the problem. Your character's center point is located at it's feet, and that's also the point where you perform a sphere cast. This means the character will be offset from the ground by the radius of the sphere cast. Untested, but this should fix it:

Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,1,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,3 
sc_setupcomplexobject 2,1,1

load object "levellayout.x" ,3
position object 3,0,-8,0
scale object 3,500,500,500

SC_drawObjectBounds 2

rem main loop
do

set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0
  
    oldx# = object position x(1)
    oldy# = object position y(1)+0.4
    oldz# = object position z(1)
  
    if keystate(17) = 1 then move object 1,-0.07
    if keystate(30) = 1 then y=wrapvalue(y-1)
    if keystate(31) = 1 then move object 1,0.1
    if keystate(32) = 1 then y=wrapvalue(y+1)
    yrotate object 1,y

rem get updated positions
    X# = object position x(1)
    Y# = object position y(1)+0.4
    Z# = object position z(1)
 
    rem add gravity
    dec speedY#,0.5
    inc y#,speedY#

rem check for collision
    collide = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,0.4,0)
    if collide>0

rem get new positions of player
        X# = sc_getcollisionslideX()
        Y# = sc_getcollisionslideY()
        Z# = sc_getcollisionslideZ()

nY# = sc_getcollisionnormalY()
        if nY#>0.707 
            speedY# = 0
           
            if spacekey() then speedY# = 1
        endif
    endif

rem update player positions
    position object 1,x#,y#-0.4,z#
    
    rem refresh screen
    sync

rem end of main loop
loop
delete memblock 1

+ Code Snippet

Rem Project: "Instinct"
Rem Created: Sunday November, 27 2011
Rem ***** Main Source File *****
Sync on
Sync rate 60
backdrop on 
set display mode 800,600,32
hide mouse

load music "soundtrack1.mp3" ,1 
Play music 1

load object "Twitch_2.x" ,1
position object 1,0,1,0
rotate object 1,0,180,0
scale object 1,30,30,30

load object "level_alpha.x" ,2
position object 2,2,0,3 
sc_setupcomplexobject 2,1,1

load object "levellayout.x" ,3
position object 3,0,-8,0
scale object 3,500,500,500

SC_drawObjectBounds 2

rem main loop
do

    set camera to follow 0, object position x (1), object position y (1), object position z (1), object angle y(1)-180, 2, 1.5, 25, 0
  
    oldx# = object position x(1)
    oldy# = object position y(1)+0.4
    oldz# = object position z(1)
  
    if keystate(17) = 1 then move object 1,-0.07
    if keystate(30) = 1 then y=wrapvalue(y-1)
    if keystate(31) = 1 then move object 1,0.1
    if keystate(32) = 1 then y=wrapvalue(y+1)
    yrotate object 1,y

    rem get updated positions
    X# = object position x(1)
    Y# = object position y(1)+0.4
    Z# = object position z(1)
 
    rem add gravity
    dec speedY#,0.5
    inc y#,speedY#

    rem check for collision
    collide = sc_sphereslide(0,oldx#,oldy#,oldz#,X#,Y#,Z#,0.4,0)
    if collide>0

        rem get new positions of player
        X# = sc_getcollisionslideX()
        Y# = sc_getcollisionslideY()
        Z# = sc_getcollisionslideZ()

        nY# = sc_getcollisionnormalY()
        if nY#>0.707 
            speedY# = 0
           
            if spacekey() then speedY# = 1
        endif
    endif

    rem update player positions
    position object 1,x#,y#-0.4,z#
    
    rem refresh screen
    sync

rem end of main loop
loop
delete memblock 1

TheComet

Back to top

Profile PM Email Website

Sazex

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location:

Posted: 9th Dec 2011 01:32

Link

Thank you so much Comet, it did the trick! I now have my character correctly colliding with the floor and the buildings!

sazex

Back to top

Profile PM

theSPACEmafia

13

Years of Service

User Offline

Joined: 5th Jan 2011

Location: somewherez majikalz

Posted: 19th Dec 2011 16:00

Link

on a similar note i am making a maze game where the camera is above everything and the character keeps going through the walls and i cant make it stop

tsm

Back to top

Profile PM

theSPACEmafia

13

Years of Service

User Offline

Joined: 5th Jan 2011

Location: somewherez majikalz

Posted: 19th Dec 2011 16:21

Link

also im just using dark basic pro with the physics provided because im using school provided software

tsm

Back to top

Profile PM

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 19th Dec 2011 18:32

Link

@theSPACEmafia:

Quote: "on a similar note i am making a maze game where the camera is above everything and the character keeps going through the walls and i cant make it stop"

The SET CAMERA TO FOLLOW command has a special flag to have this situation automatically handled.

From DBPro help:

Quote: "SET CAMERA TO FOLLOW

This command automatically controls the camera to provide a tracking system. By providing the 3D world coordinate of the entity you wish to
track, and some camera data, your camera will automatically update its current position each time this command is called. The X, Y, Z and
Angle values provide the coordinate to track. The Distance value specifies the required distance between the coordinate and the camera. The
Height value specifies the required height of the camera in 3D space. The Smooth value specifies the level of smoothing required for the
camera, where a value of 1.0 is no smoothing and a value of 100.0 is lots of smoothing. The Collision value is a special flag that allows the
camera to detect whether it is hitting any of the static collision boxes and if set to one will automatically adjust so as not to enter these
collidable areas."

Back to top

Profile PM Email Website

theSPACEmafia

13

Years of Service

User Offline

Joined: 5th Jan 2011

Location: somewherez majikalz

Posted: 19th Dec 2011 20:44

Link

my maze is made of cubes and the red cube is being treated as my test cube how do i stop the controlable cube (cube 1) from colliding with the red one

make camera 1
position camera 1,0,110,30
point camera 1,0,0,30
load sound "media/meow.wav",2
load SOUND "media/boom.wav" ,1
load image "media/boom.jpg" ,1
load image "media/BOOM!.jpg",2
make object cube 1,10
make object cube 2,10
make object cube 3,10
make object cube 4,10
make object cube 5,10
make object cube 6,10
make object cube 7,10
make object cube 8,10
make object cube 9,10
make object cube 10,10
make object cube 11,10
make object cube 12,10
make object cube 13,10
make object cube 14,10
make object cube 15,10
make object cube 16,10
make object cube 17,10
make object cube 18,10
make object cube 19,10
make object cube 20,10
make object cube 21,10
make object cube 22,10
make object cube 23,10
make object cube 24,10
make object cube 25,10
make object cube 26,10
make object cube 27,10
make object cube 28,10
make object cube 29,10
make object cube 30,10
make object cube 31,10
make object cube 32,10
make object cube 33,10
make object cube 34,10
make object cube 35,10
make object cube 36,10
make object cube 37,10
make object cube 38,10
make object cube 39,10
make object cube 40,10
make object cube 41,10
make object cube 42,10
make object cube 43,10
make object cube 44,10
make object cube 45,10
make object cube 46,10
make object cube 47,10
make object cube 48,10
make object cube 49,10
make object cube 50,10
make object cube 51,10
make object cube 52,10
make object cube 53,10
make object cube 54,10
make object cube 55,10
make object cube 56,10
make object cube 57,10
MAKE OBJECT cube 58,10
position object 58,20,0,30
position object 57,-30,0,0
position object 56,-30,0,10
position object 55,-30,0,20
position object 54,-30,0,30
position object 53,-50,0,30
position object 52,-50,0,20
position object 51,-50,0,10
position object 50,-50,0,0
position object 49,-50,0,-10
position object 48,-50,0,-20
position object 47,-40,0,-20
position object 46,-10,0,-10
position object 45,-30,0,-20
position object 44,-20,0,-20
position object 43,-10,0,-20
position object 42,0,0,-20
position object 41,20,0,-20
position object 40,10,0,-20
position object 39,30,0,-20
position object 38,30,0,-10
position object 37,30,0,0
position object 36,30,0,10
position object 35,30,0,20
position object 34,30,0,30
position object 33,30,0,40
position object 32,30,0,50
position object 31,30,0,60
position object 30,30,0,70
position object 29,20,0,70
position object 28,-30,0,40
position object 27,-30,0,40
position object 26,-50,0,40
position object 25,-50,0,60
position object 24,-50,0,70
position object 23,-50,0,50
position object 22,-40,0,70
position object 21,-30,0,50
position object 20,-30,0,70
position object 19,-20,0,50
position object 18,-20,0,70
position object 17,0,0,70
position object 16,10,0,70
position object 15,-10,0,70
position object 14,-30,0,30
position object 13,-10,0,50
position object 12,10,0,50
position object 11,-10,0,40
position object 10,10,0,40
position object 8,10,0,30
position object 9,-10,0,30
position object 6,10,0,20
position object 7,-10,0,20
position object 5,-10,0,10
position object 3,-10,0,0
position object 2,10,0,0
position object 4,10,0,10
texture object 1,1
rem cat cant enter wall
make object collision box 1,10,10,10,10,10,10,1
SET CAMERA TO FOLLOW 0,0,0,0,110,10,1.0,1
make object collision box 2,10,10,10,20,0,0,2
color object 2, rgb (225,0,0)
rem controles
do

text 50,0, "arrow keys to steer, shift to explode, enter to reset space to meow"
   rem cube control
   if upkey()=1 then move object 1,.5: texture object 1,1
   if downkey()=1 then move object 1,-.5: texture object 1,1
   if leftkey()=1 then move object left 1,.5: texture object 1,1
   if rightkey()=1 then move object right 1,.5: texture object 1,1
   if spacekey()=1 then stop sound 1: play sound 2: texture object 1,1
   if shiftkey()=1 then position object 1, 0,0,0:  texture object 1,2
   if shiftkey()=1 then play sound 1
   if upkey()=1 then stop sound 1
   if downkey()=1 then stop sound 1
   if leftkey()=1 then stop sound 1
   if rightkey()=1 then stop sound 1
   if returnkey()=1 then POSITION OBJECT 1, 0,0,0: texture object 1,1
loop

+ Code Snippet

make camera 1
position camera 1,0,110,30
point camera 1,0,0,30
load sound "media/meow.wav",2
load SOUND "media/boom.wav" ,1
load image "media/boom.jpg" ,1
load image "media/BOOM!.jpg",2
make object cube 1,10
make object cube 2,10
make object cube 3,10
make object cube 4,10
make object cube 5,10
make object cube 6,10
make object cube 7,10
make object cube 8,10
make object cube 9,10
make object cube 10,10
make object cube 11,10
make object cube 12,10
make object cube 13,10
make object cube 14,10
make object cube 15,10
make object cube 16,10
make object cube 17,10
make object cube 18,10
make object cube 19,10
make object cube 20,10
make object cube 21,10
make object cube 22,10
make object cube 23,10
make object cube 24,10
make object cube 25,10
make object cube 26,10
make object cube 27,10
make object cube 28,10
make object cube 29,10
make object cube 30,10
make object cube 31,10
make object cube 32,10
make object cube 33,10
make object cube 34,10
make object cube 35,10
make object cube 36,10
make object cube 37,10
make object cube 38,10
make object cube 39,10
make object cube 40,10
make object cube 41,10
make object cube 42,10
make object cube 43,10
make object cube 44,10
make object cube 45,10
make object cube 46,10
make object cube 47,10
make object cube 48,10
make object cube 49,10
make object cube 50,10
make object cube 51,10
make object cube 52,10
make object cube 53,10
make object cube 54,10
make object cube 55,10
make object cube 56,10
make object cube 57,10
MAKE OBJECT cube 58,10
position object 58,20,0,30
position object 57,-30,0,0
position object 56,-30,0,10
position object 55,-30,0,20
position object 54,-30,0,30
position object 53,-50,0,30
position object 52,-50,0,20
position object 51,-50,0,10
position object 50,-50,0,0
position object 49,-50,0,-10
position object 48,-50,0,-20
position object 47,-40,0,-20
position object 46,-10,0,-10
position object 45,-30,0,-20
position object 44,-20,0,-20
position object 43,-10,0,-20
position object 42,0,0,-20
position object 41,20,0,-20
position object 40,10,0,-20
position object 39,30,0,-20
position object 38,30,0,-10
position object 37,30,0,0
position object 36,30,0,10
position object 35,30,0,20
position object 34,30,0,30
position object 33,30,0,40
position object 32,30,0,50
position object 31,30,0,60
position object 30,30,0,70
position object 29,20,0,70
position object 28,-30,0,40
position object 27,-30,0,40
position object 26,-50,0,40
position object 25,-50,0,60
position object 24,-50,0,70
position object 23,-50,0,50
position object 22,-40,0,70
position object 21,-30,0,50
position object 20,-30,0,70
position object 19,-20,0,50
position object 18,-20,0,70
position object 17,0,0,70
position object 16,10,0,70
position object 15,-10,0,70
position object 14,-30,0,30
position object 13,-10,0,50
position object 12,10,0,50
position object 11,-10,0,40
position object 10,10,0,40
position object 8,10,0,30
position object 9,-10,0,30
position object 6,10,0,20
position object 7,-10,0,20
position object 5,-10,0,10
position object 3,-10,0,0
position object 2,10,0,0
position object 4,10,0,10
texture object 1,1
rem cat cant enter wall
make object collision box 1,10,10,10,10,10,10,1
SET CAMERA TO FOLLOW 0,0,0,0,110,10,1.0,1
make object collision box 2,10,10,10,20,0,0,2
color object 2, rgb (225,0,0)
rem controles
do

   text 50,0, "arrow keys to steer, shift to explode, enter to reset space to meow"
   rem cube control
   if upkey()=1 then move object 1,.5: texture object 1,1
   if downkey()=1 then move object 1,-.5: texture object 1,1
   if leftkey()=1 then move object left 1,.5: texture object 1,1
   if rightkey()=1 then move object right 1,.5: texture object 1,1
   if spacekey()=1 then stop sound 1: play sound 2: texture object 1,1
   if shiftkey()=1 then position object 1, 0,0,0:  texture object 1,2
   if shiftkey()=1 then play sound 1
   if upkey()=1 then stop sound 1
   if downkey()=1 then stop sound 1
   if leftkey()=1 then stop sound 1
   if rightkey()=1 then stop sound 1
   if returnkey()=1 then POSITION OBJECT 1, 0,0,0: texture object 1,1
loop

also i know that it should be organized beter but ill work on that at another time

tsm

Back to top

Profile PM

29 games

19

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 20th Dec 2011 02:15

Link

Hi, theSPACEmafia.

Have a look at TDK's turtorials:

http://forum.thegamecreators.com/?m=forum_view&t=99497&b=10

Tutorial 10 "Dark Basic Collision Made Simple" is probably what you want.

Also, you might want to make the controlled cube a little bit smaller than the cubes used for the maze so that it's not constantly touching the walls. This could cause problems when you come to use the collision commands.

Back to top

Profile PM Email

theSPACEmafia

13

Years of Service

User Offline

Joined: 5th Jan 2011

Location: somewherez majikalz

Posted: 20th Dec 2011 16:32

Link

thanks for the referal it helped alot

tsm

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Problems with Collisions/Gravity in game

Attachments

Attachments