sprkys - GameCreators Forum

Author

Message

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 12th Jan 2008 03:55 Edited at: 12th Jan 2008 04:42

Link

ok i am making a maze game and i finally figured out collision using the native commands but it is box collision so i cant get into my maze and evryone says to use sparkys but i have no idea to do it.

here is my code...

rem load object
load object "maze2.x",3
position object 3,500,0,500
   rem load sphere
make object cube 1,75
scale object 1,70,70,70
position object 1,90,0,90
load bitmap "grass3.bmp",1
get image 1,0,0,256,256
rem make matrix
make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,2,2
set matrix height 1,12,12,300.0
update matrix 1
print "FPS "+Str$(screen FPS())
rem sync
hide mouse
sync on
sync rate 60
do
  If UpKey()=1 Then Speed#=5.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=-5.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,500.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#

If OBJECT COLLISION(1,3)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
      Position Camera Object Position X(1),50.0,Object Position Z(1)-40
      Point Camera Object Position X(1),3.0,Object Position Z(1)
    Until OBJECT COLLISION(1,0)=0
  Endif
sync
loop

+ Code Snippet

rem load object
load object "maze2.x",3
position object 3,500,0,500
   rem load sphere
make object cube 1,75
scale object 1,70,70,70
position object 1,90,0,90
load bitmap "grass3.bmp",1
get image 1,0,0,256,256
rem make matrix
make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,2,2
set matrix height 1,12,12,300.0
update matrix 1
print "FPS "+Str$(screen FPS())
rem sync
hide mouse
sync on
sync rate 60
do
  If UpKey()=1 Then Speed#=5.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=-5.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,500.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#

  If OBJECT COLLISION(1,3)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
      Position Camera Object Position X(1),50.0,Object Position Z(1)-40
      Point Camera Object Position X(1),3.0,Object Position Z(1)
    Until OBJECT COLLISION(1,0)=0
  Endif
sync
loop

Come see the WIP!

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 12th Jan 2008 06:40

Link

if you are using box collision DB will treat your maze as if it was a solid box of the same size, this is a technique used to save time when checking collisions on complicated objects.
To get more accurate collisions use SET OBJECT COLLISION TO POLYGONS
look it up in the help file

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: 12th Jan 2008 12:26 Edited at: 14th Feb 2008 17:31

Link

@ DB newbie

Check out this link. Roddman put together a pretty good example of using collision to maintain the camera height on a terrain. To be able to see what is going on, you might have to set the object to wire frame:

SET OBJECT <obj>,0,1,1

Click here

Oooooops!!! I accidentally formated drive c.

Back to top

Profile PM Email Website

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 14th Jan 2008 02:50 Edited at: 14th Jan 2008 04:49

Link

thank you both of you...thecomet i looked at it and it is a little to complecated for me right now so i decided to try the polygon collision it works great except it only stops at one part of the object which happend to be before i did the box collision?

edit: oh and one more thing how do i get it to show the fps on the screen... this is what i tried

+ Code Snippet

text 10,70, "FPS = "+str$(screen fps())

Come see the WIP!

Back to top

Profile PM Email

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 14th Jan 2008 15:38

Link

anyone?

Come see the WIP!

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 14th Jan 2008 16:12

Link

What you have used is correct - but whether you see it or not depends on where in your program you put it.

Try putting it at the end of the main program Do..Loop immediately after the Sync.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 15th Jan 2008 00:34

Link

hmmmmmmm i just tried that and it still didnt work. here is were i put it.

+ Code Snippet

do
  If UpKey()=1 Then Speed#=5.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=-5.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,500.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#
  If OBJECT COLLISION(1,3)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
      Position Camera Object Position X(1),50.0,Object Position Z(1)-40
      Point Camera Object Position X(1),3.0,Object Position Z(1)
    Until OBJECT COLLISION(1,0)=0
  Endif
  sync
  text 10,70, "FPS = "+str$(screen fps())
loop

Come see the WIP!

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 15th Jan 2008 16:51

Link

Have you got Sync On: Sync Rate 0 at the start of your program?

Also, check the font colour. I there any possibility that it's printing black text on a black background?

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 15th Jan 2008 17:30

Link

While making this maze game I would print a lot of "bug catchers" (as I call them) to screen; things like OBJECT COLLISION(1,3), the reason to display raw data like this is that you'll be able to see what is going on in your program and why things aren't working.

For example, if you miss-typed the object collision check as OBJECT COLLISION(1,2) and you hadn't noticed it, you'd be wondering why the code inside the if statement was never executed. By printing the result of OBJECT COLLISION(1,2) to screen you'd immediately see that you had been checking the wrong object.
Errors like this are extremely common so good de-bugging will save you lots of time

Back to top

Profile PM Email

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 16th Jan 2008 05:09

Link

@TDK ok i put the text right after sync and before loop and i set the sync rate to 0 and it is not up on a black background and it still wont show here is all of my code...i've tried placing it all over and it wont work.

rem load object
load object "maze2.x",3
position object 3,500,0,500
   rem load sphere
make object box 1,70,70,70
position object 1,70,0,70
set object collision to polygons 1
set object collision to polygons 3
load bitmap "grass3.bmp",1
get image 1,0,0,256,256
rem make matrix
make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,2,2
set matrix height 1,12,12,300.0
update matrix 1
rem sync
hide mouse
Autocam off
sync on
sync rate 0
do
  If UpKey()=1 Then Speed#=5.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=-5.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,500.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#
  If OBJECT COLLISION(1,3)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
    Until OBJECT COLLISION(1,0)=0
  Endif
  sync
text 10,70, "FPS = "+str$(screen fps())
loop

+ Code Snippet

rem load object
load object "maze2.x",3
position object 3,500,0,500
   rem load sphere
make object box 1,70,70,70
position object 1,70,0,70
set object collision to polygons 1
set object collision to polygons 3
load bitmap "grass3.bmp",1
get image 1,0,0,256,256
rem make matrix
make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,2,2
set matrix height 1,12,12,300.0
update matrix 1
rem sync
hide mouse
Autocam off
sync on
sync rate 0
do
  If UpKey()=1 Then Speed#=5.4: Move Object 1,Speed#
  If DownKey()=1 Then Speed#=-5.4: Move Object 1,Speed#
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,500.0,ObjPosZ#-40
  Point Camera ObjPosX#,3.0,ObjPosZ#
  If OBJECT COLLISION(1,3)>0: Rem collision detected
    Repeat
      Move Object 1,0-Speed#
    Until OBJECT COLLISION(1,0)=0
  Endif
  sync
text 10,70, "FPS = "+str$(screen fps())
loop

@ TDK or OBese87 how would i go about making " bug catcher" like somthign such as

+ Code Snippet

If OBJECT COLLISION(1,3)=1 then print blah blah blah...

i think thats how to do it...like i know how to detect but ow to display thats what i dont know...thank you for all of your guys help.

Come see the WIP!

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 28th Jan 2008 03:50

Link

Quote: "how would i go about making " bug catcher" like somthign such as "

not quite, you want something that will show you the result no matter what it is, like this

+ Code Snippet

print "Object Collision: "; OBJECT COLLISION(1,3)

Back to top

Profile PM Email

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 28th Jan 2008 04:24

Link

ok thank you...you and TDK have helped me so much

Come see the WIP!

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 28th Jan 2008 06:18

Link

no probs

Back to top

Profile PM Email

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 30th Jan 2008 01:22

Link

one last quick question that i have on lvl two.
ok sweet i made the second level and the gosub worked and everything...but you know how when you use scroll object texture it has to be in the main loop..well i tried it in the gosub because i want the textures to move but it wont work...here is my entire gosub.

+ Code Snippet

`gosub
level2:
Position Object 1, 0,0,0
if object collision(1,16)=1
end
endif

`  Ground 3
Position Object    3, -5.0,-30,-2
XRotate Object     3, 180



`  Ground 4
Position Object    4, -10.0,-15,20
XRotate Object     4, 180


`  Ground 5
Position Object    5, 18.0,-10,50
XRotate Object     5, 180


`  Ground 6
Position Object    6, 35.0, -20, 70
XRotate Object     6, 180

`  Ground 7
Position Object    7, 48.0, -15, 80
XRotate Object     7, 180


`  Ground 9
Position Object    9, 40.0, -15, 40
XRotate Object     9, 180


`Ground 13
Position Object    13, 35.0, -15, 95
XRotate Object     13, 180


`Ground 14
Position Object    14, 53.0, -10, 95
XRotate Object     14, 180


`Ground 15
Position Object    15, 53.0, 0, 110
XRotate Object     15, 180
return

Come see the WIP!

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 30th Jan 2008 20:00

Link

umm I can't see SCROLL OBJECT TEXTURE anywhere there.

Why do you have this code at the start? (I've indented it for you)

+ Code Snippet

Position Object 1, 0,0,0
if object collision(1,16)=1
  end
endif

Back to top

Profile PM Email

DB newbie

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: um..... i dont remember.

Posted: 31st Jan 2008 00:25

Link

well that was supposed to make it so if it hit that cube again then the program would end..
and the scroll texture i had it at the begining then i took it out when i posted..cant remember whythough.

Come see the WIP!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / sprkys