[DBP] Free object finder with range

Author

Message

Aralox

18

Years of Service

User Offline

Joined: 16th Jan 2007

Location: Melbourne

Posted: 27th Aug 2007 14:36

Link

This is my version of the popular 'free object' snippet. i did a quick search for 'free object' which turned up with nothing, so i thought - why not just put one up? theres probably alot out there with other names, but who cares?
In case you didnt know, this snippet goes through a range of numbers (specified by you) and finds the next free (unused) object available.
It is easily modified for sounds or images, ect.

+ Code Snippet

obj = freeobj(100,200)
make object cube obj,20
wait key
end

function freeobj(start,finish)
   for i = start to finish
      if object exist(i) = 0
         freeobj = i
         i = finish+1
      endif
   next i
endfunction freeobj

enjoy!

Roborb

Back to top

Profile PM Website

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Aug 2007 18:21

Link

The problem with that is that it will only work for things where you know you have a range of objects to choose from, rather than needing any object.

Most people do something like this:

+ Code Snippet

function FreeObj()
   repeat
      inc o
   until object exist(o) = 0
endfunction o

which is all fair enough, but the problem with that is you can't do stuff like this:

+ Code Snippet

cube = FreeObj()
sphere = FreeObj()

make object cube cube, 100
make object sphere sphere, 100

because 'cube' and 'sphere' will be the same, as an object wasnt created after 'cube' was got.

This is my method:

+ Code Snippet

Dim __ObjTaken(0) as boolean     ` Global array


function FreeObj()

   array insert at bottom __ObjTaken()
   count = array count( __ObjTaken() )

   if object exist(count) = 0 and __ObjTaken(count) = 0

      __ObjTaken(count) = 1
      exitfunction count

   endif

endfunction 0

Which makes my last example possible

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

Aralox

18

Years of Service

User Offline

Joined: 16th Jan 2007

Location: Melbourne

Posted: 28th Aug 2007 00:52

Link

genious!

Roborb

Back to top

Profile PM Website

Sorry your browser is not supported!

Code Snippets / [DBP] Free object finder with range