A question about object deletion

Author

Message

Yodaman Jer

User Banned

Posted: 3rd Jan 2009 22:18

Hey all, sorry to make another thread, but I need help with this.

I remember a while back there was a way to assign a letter to an object as opposed to regular numbers, thusly making it possible to delete certain objects (such as un-collected coins) when the player loses all their lives.

This is what the code looks like now:

+ Code Snippet

`make coins
load object "Textures-Objects\coin.3ds",20 : set object 20,1,1,1 : scale object 20,20,12,2 : position object 20,0,5,10
load object "Textures-Objects\coin.3ds",21 : set object 21,1,1,1 : scale object 21,20,12,2 : position object 21,0,5,15
load object "Textures-Objects\coin.3ds",22 : set object 22,1,1,1 : scale object 22,20,12,2 : position object 22,0,5,20
load object "Textures-Objects\coin.3ds",23 : set object 23,1,1,1 : scale object 23,20,12,2 : position object 23,0,5,25
load object "Textures-Objects\coin.3ds",24 : set object 24,1,1,1 : scale object 24,20,12,2 : position object 24,0,5,30
load object "Textures-Objects\coin.3ds",25 : set object 25,1,1,1 : scale object 25,20,12,2 : position object 25,0,5,-10

I want it to look like this:

+ Code Snippet

load object "Textures-Objects\coin.3ds",x : set object x,1,1,1 : scale object x,20,12,2 : position object x,0,5,10

My game requires you collect all 50 coins to continue on to the next level. However, when the player loses all lives, I want to be able to delete the coins that were not collected. I can't do this successfully at all, unless I make the object numbers letters. Then in the main program loop I could have something like:

+ Code Snippet

`main loop
  if lives =< 0
    lives =0
    stop sound 1
    delete light 1
    delete light 2
    delete sound 1
    delete sound 2
    delete sound 3
    delete sound 4
    delete sound 5
`delete uncollected coins
  for nocoins = x to x
  delete object nocoins
  next object
  loop

   for object = 1 to 17
   delete object object
   next object
    gosub GOL1
  endif

My question is how do I do this exactly? How do I make the objects use letters instead of numbers? I remember it is possible, but I just can't recall how to implement it.

"People still have 1024x768?" -Jeku

Back to top

Profile

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 4th Jan 2009 00:36

Link

for you, you should use a for t loop:

+ Code Snippet

for t=20 to 25 : load object blabla,t : position object t,bla,bla,bla:next t

Now the deleting. Are you deleting the ones collected in the main loop?

If so, you would to this:

+ Code Snippet

for t=20 to 25
   if object exist(t)=1 then delete object t
next t

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 4th Jan 2009 00:37 Edited at: 4th Jan 2009 00:39

Link

[EDIT] - TheComet beat me to it!

For whatever number you want an object to be, use a variable.

If every time you want to access object 1, you could assign it a variable:
a=1

So now just reference object 1 with 'a'
position object a,x,y,z

Or you can create an array to hold all of the objects you want. Say you have 10 objects for the whole game but they are numbered 100 200 300 400 500 600 700 800 900 1000. You could use an array that is dimensioned with 10 indexes to store these numbers:

+ Code Snippet

dim obj(10)
currentobj=0
for n=1 to 10
   inc currentobj,100
   obj(n)=currentobj
next n

So you could reference each object by the array:
position object obj(5),x,y,z
That positions object 500 at x y and z

Does that answer your question?

Enjoy your day.

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 4th Jan 2009 04:48

Link

Indeed, it does answer a few of my questions! Thanks guys!

"People still have 1024x768?" -Jeku

Back to top

Profile

Yodaman Jer

User Banned

Posted: 4th Jan 2009 23:27 Edited at: 5th Jan 2009 00:45

Link

Well, actually, I have encountered a new problem and I consulted the help manual but it isn't working.

I've made it so that when the player collects all 50 coins, you go to level 2. However, because I am using static collision, I cannot delete the static collision boxes, thusly meaning that in level 2 when the player is moving, it's on top of invisible collision boxes from the first level.

I'm using this code as the main collision deteciont:

` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

+ Code Snippet

  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

But I want to change it so that is uses box collision (I know doing that requires lots of guess work for oblongish objects, but I'm willing to deal with that) instead of static, since you can delete collision boxes that aren't static.

My question is, what exactly in that block of code do I have to change in order for box collision to work?

Sorry for asking noobish questions, but this one is really a puzzler (at least for me). Thanks to any and all who help!

EDIT:

After further analysis, I saw the obvious answer, and had I looked further into my code originally I would have seen my own question answered before I even asked it.

Instead of this:

` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

+ Code Snippet

  ` get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

I needed to remove this:

+ Code Snippet

  `ensure camera stays out of static boxes
  if get static collision hit(oldposx#-s#,oldposy#-s#,oldposz#-s#,oldposx#+s#,oldposy#+s#,oldposz#+s#,posx#-s#,posy#-s#,posz#-s#,posx#+s#,posy#+s#,posz#+s#)=1
    dec posx#,get static collision x()
    dec posy#,get static collision y()
    dec posz#,get static collision z()
    if get static collision y()<>0.0 then playergrav#=0.0
  endif

And that is all of the change I needed to do for box collision...hehehe. Sorry for posting that everyone. But maybe someone will find this helpful one day, at the cost of my embarrassment.

http://forum.thegamecreators.com/?m=forum_view&t=138753&b=19

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / A question about object deletion