Staying ontop of cubes - GameCreators Forum

Author

Message

Flaming Ghost

19

Years of Service

User Offline

Joined: 29th Apr 2005

Location: Um...Right here

Posted: 20th Nov 2005 16:25

Link

In my game I want to make it so you can't move off of th cubes that are the ground. Is there anyway to do this?

CODE:

`Set Up the Background
Sync On
Backdrop On
Color Backdrop Black
Autocam Off

`Variables
x#=0 : y#= 15 : z#=0

`Make the Charecter
Make Object Sphere 200,3
Color object 200,rgb(0,100,0)

`Make The Ground Cubes
For cubes=1 to 118
   Make Object Cube cubes,40
   Scale Object cubes,100,50,100
   Position object cubes,0,-1000,0
   Make Object Collision Box cubes,-22,-22,-22,22,2,22,2
Next cubes

`Position the Map form the .TXT File
xpos#=-200
zpos#=200
   For a=0 to 118
      num#=Read Byte From File ("Maps.txt",a)
      if num#=48
      Position Object a+1,xpos#,-100,zpos#
      endif
      if num#=49 then Position Object a+1,xpos#,0,zpos#
      if num#=10 or num#=13 then xpos#=xpos#-40
         xpos#=xpos#+40
      if xpos#=200
         xpos#=-200
         zpos#=zpos#-40
      endif
    Next a

`Main Loop
Do

`Movement + Position
Position Object 200,x#,y#,z#

`Movement + Keys
a#=object angle y(200)

if upkey()=1 then x#=newxvalue(x#,a#,.5) : z#=newzvalue(z#,a#,.5)
if downkey()=1 then x#=newxvalue(x#,a#,-.5) : z#=newzvalue(z#,a#,-.5)
if leftkey()=1 then yrotate object 200,wrapvalue(object angle y(200)-1)
if rightkey()=1 then yrotate object 200,wrapvalue(object angle y(200)+1)

`So you stay on the blocks///////////////////

If x#<-200 then x#=-200
If x#>200 then x#=200
If z#<-180 then z#=-180
If z#>220 then z#=220

`Camera things
Set Camera to Follow x#,y#,z#,a#,10,5,10,1

`Refresh the screen
Sync
`End of Loop
Loop
`Terminate Program!
End

+ Code Snippet

`Set Up the Background
Sync On
Backdrop On
Color Backdrop Black
Autocam Off

`Variables
x#=0 : y#= 15 : z#=0

`Make the Charecter
Make Object Sphere 200,3
Color object 200,rgb(0,100,0)

`Make The Ground Cubes
For cubes=1 to 118
   Make Object Cube cubes,40
   Scale Object cubes,100,50,100
   Position object cubes,0,-1000,0
   Make Object Collision Box cubes,-22,-22,-22,22,2,22,2
Next cubes

`Position the Map form the .TXT File
xpos#=-200
zpos#=200
   For a=0 to 118
      num#=Read Byte From File ("Maps.txt",a)
      if num#=48
      Position Object a+1,xpos#,-100,zpos#
      endif
      if num#=49 then Position Object a+1,xpos#,0,zpos#
      if num#=10 or num#=13 then xpos#=xpos#-40
         xpos#=xpos#+40
      if xpos#=200
         xpos#=-200
         zpos#=zpos#-40
      endif
    Next a

`Main Loop
Do

`Movement + Position
Position Object 200,x#,y#,z#

`Movement + Keys
a#=object angle y(200)

if upkey()=1 then x#=newxvalue(x#,a#,.5) : z#=newzvalue(z#,a#,.5)
if downkey()=1 then x#=newxvalue(x#,a#,-.5) : z#=newzvalue(z#,a#,-.5)
if leftkey()=1 then yrotate object 200,wrapvalue(object angle y(200)-1)
if rightkey()=1 then yrotate object 200,wrapvalue(object angle y(200)+1)


`So you stay on the blocks///////////////////

If x#<-200 then x#=-200
If x#>200 then x#=200
If z#<-180 then z#=-180
If z#>220 then z#=220

`Camera things
Set Camera to Follow x#,y#,z#,a#,10,5,10,1

`Refresh the screen
Sync
`End of Loop
Loop
`Terminate Program!
End

Am I dead yet?

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Nov 2005 17:47 Edited at: 20th Nov 2005 17:49

Link

There are ways, try using the intersect object command, that's what I use

[edit]

Try out Sprakys collision dll, it's great, Infact, I think they're putting it into the next update

Back to top

Profile PM Email

Flaming Ghost

19

Years of Service

User Offline

Joined: 29th Apr 2005

Location: Um...Right here

Posted: 20th Nov 2005 21:41

Link

I really don't understand how you use the intersect object command for collision... I don't know how it works, and the DBPro Index isn't very helpful. How do use the interect object command for collision?

Am I dead yet?

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Nov 2005 21:45

Link

well, using the intersect object command, it check first if any line that you are putting out is intersecting with anything.. i.e. if you do the intersect object command to go straight ahead, say 100 units, if you are 101 units behind an objects, the inersect object command will return a value of 0, but if you are <100 units behind the object, it will tell you the distance between you and the point where it's colliding.. next step is to check if the distance is less that the collision radius, and if it is, then stop moving.

Back to top

Profile PM Email

Flaming Ghost

19

Years of Service

User Offline

Joined: 29th Apr 2005

Location: Um...Right here

Posted: 21st Nov 2005 23:31 Edited at: 22nd Nov 2005 00:27

Link

Thank you... I did all of that. but for some reason, whenever I move the number changes to 0? Any Sugestions? (I also only want you to stop when you run into the walls.)

`Set Up the Background
Sync On
Backdrop On
Color Backdrop Black
Autocam Off

`Variables
x#=0 : y#= 15 : z#=0

`Make the Charecter
Make Object Sphere 200,3
Color object 200,rgb(0,100,0)

`Make The Ground Cubes
For cubes=1 to 118
   Make Object Cube cubes,40
   Scale Object cubes,100,50,100
   Position object cubes,0,-1000,0
   Color Object cubes,rgb(200,0,0)
   Make Object Collision Box cubes,-22,-20,-22,22,20,22,0
Next cubes

`Position the Map form the .TXT File
xpos#=-200
zpos#=200
   For a=0 to 118
      num#=Read Byte From File ("Maps.txt",a)
      if num#=48
      Position Object a+1,xpos#,15,zpos#

endif
      if num#=49 then Position Object a+1,xpos#,0,zpos#
      if num#=10 or num#=13 then xpos#=xpos#-40
         xpos#=xpos#+40
      if xpos#=200
         xpos#=-200
         zpos#=zpos#-40
      endif
    Next a

`Main Loop
Do

`Movement + Position
Position Object 200,x#,y#,z#

`Movement + Keys
a#=object angle y(200)

if upkey()=1 then x#=newxvalue(x#,a#,.5) : z#=newzvalue(z#,a#,.5)
if downkey()=1 then x#=newxvalue(x#,a#,-.5) : z#=newzvalue(z#,a#,-.5)
if leftkey()=1 then yrotate object 200,wrapvalue(object angle y(200)-1)
if rightkey()=1 then yrotate object 200,wrapvalue(object angle y(200)+1)

`The Light Changer

`So you stay on the blocks
oldx#=x# : oldz#=z#
x#=newxvalue(x#,a#,40) : z#=newzvalue(z#,a#,40)
col=intersect object(200,oldx#,15,oldz#,x#,15,z#)

If x#<0
   dec x#,get object collision x()
   dec z#,get object collision z()
endif

x#=oldx# : z#=oldz#
Set Cursor 10,10
Print ": ",col
If x#<-200 then x#=-200
If x#>200 then x#=200
If z#<-180 then z#=-180
If z#>220 then z#=220

`Camera things
Set Camera to Follow x#,y#,z#,a#,10,5,10,1

`Refresh the screen
Sync
`End of Loop
Loop
`Terminate Program!
End

+ Code Snippet

`Set Up the Background
Sync On
Backdrop On
Color Backdrop Black
Autocam Off

`Variables
x#=0 : y#= 15 : z#=0

`Make the Charecter
Make Object Sphere 200,3
Color object 200,rgb(0,100,0)

`Make The Ground Cubes
For cubes=1 to 118
   Make Object Cube cubes,40
   Scale Object cubes,100,50,100
   Position object cubes,0,-1000,0
   Color Object cubes,rgb(200,0,0)
   Make Object Collision Box cubes,-22,-20,-22,22,20,22,0
Next cubes

`Position the Map form the .TXT File
xpos#=-200
zpos#=200
   For a=0 to 118
      num#=Read Byte From File ("Maps.txt",a)
      if num#=48
      Position Object a+1,xpos#,15,zpos#

      endif
      if num#=49 then Position Object a+1,xpos#,0,zpos#
      if num#=10 or num#=13 then xpos#=xpos#-40
         xpos#=xpos#+40
      if xpos#=200
         xpos#=-200
         zpos#=zpos#-40
      endif
    Next a

`Main Loop
Do

`Movement + Position
Position Object 200,x#,y#,z#

`Movement + Keys
a#=object angle y(200)

if upkey()=1 then x#=newxvalue(x#,a#,.5) : z#=newzvalue(z#,a#,.5)
if downkey()=1 then x#=newxvalue(x#,a#,-.5) : z#=newzvalue(z#,a#,-.5)
if leftkey()=1 then yrotate object 200,wrapvalue(object angle y(200)-1)
if rightkey()=1 then yrotate object 200,wrapvalue(object angle y(200)+1)

`The Light Changer

`So you stay on the blocks
oldx#=x# : oldz#=z#
x#=newxvalue(x#,a#,40) : z#=newzvalue(z#,a#,40)
col=intersect object(200,oldx#,15,oldz#,x#,15,z#)

If x#<0
   dec x#,get object collision x()
   dec z#,get object collision z()
endif

x#=oldx# : z#=oldz#
Set Cursor 10,10
Print ": ",col
If x#<-200 then x#=-200
If x#>200 then x#=200
If z#<-180 then z#=-180
If z#>220 then z#=220

`Camera things
Set Camera to Follow x#,y#,z#,a#,10,5,10,1

`Refresh the screen
Sync
`End of Loop
Loop
`Terminate Program!
End

To run it you need a notepad program that says this and is named Maps.txt:
0111111110
0111111110
0110110110
0110110110
0110110110
0110110110
0110110110
0110110110
0111111110
0111111110
(Or something close to that)

Am I dead yet?

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Staying ontop of cubes