DBPro Helper Functions - GameCreators Forum

Author

Message

jinzai

18

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 30th Aug 2006 07:25 Edited at: 30th Aug 2006 07:26

Link

I just have a few quick things that I use to reduce the number of times I write the same inane code...nothing spectacular, they just help you do your job, that's all. They are not guaranteed to be robust, but I try to write code that does not bite me later.

The first two are functions for getting the next available image and object.

GetNextImageID()

+ Code Snippet

function GetNextImageID()
   temp = 1
   do
      if image exist(temp) = 0 then exitfunction temp
      temp = temp + 1
   loop
endfunction -1

GetNextObjectID()

+ Code Snippet

function GetNextObjectID()
   temp = 1
   do
      if object exist(temp) = 0 then exitfunction temp
      temp = temp + 1
   loop
endfunction -1

I hope they help. Certainly, I think it could be applied to other function calls, so be sure to find other places to use the templates!

Back to top

Profile PM Email Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 30th Aug 2006 22:58

Link

Quite a lot of DB users use similar code.

You can simplify the code a bit;

+ Code Snippet

function GetNextImageID()
   repeat
      inc temp
   until image exist(temp)=0
endfunction temp

Boo!

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 31st Aug 2006 00:18

Link

I do it differently than most people.

+ Code Snippet

dim objtaken(0)

function freeObject()
local count as integer
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

The reason I do it like this is because if you use the traditional method, it wont work if you do lots at once, i.e.

player=freeObject()
enemy=freeObject()
building=freeObject()
make object .....

or even

for x=1 to 10
object(x)=freeObject()
make object....
next x

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 31st Aug 2006 01:33

Link

Zotoaster I can still make multiple objects using spooky's way:

+ Code Snippet

sync on
sync rate 0
autocam off
position camera 0,0,-500
MAke object cube 1,50
ghost object on 1
for X = 1 to 10
Free=FreeOBject()
Make Object cube Free,20
position object free,-300+x*40,0,0
next x


do
sync
loop

end

function FreeObject()
Object=0
repeat
inc Object
until Object exist(Object)=0
endfunction Object

Back to top

Profile PM Email

Mickm

18

Years of Service

User Offline

Joined: 22nd Apr 2006

Location: Kingston, ON

Posted: 31st Aug 2006 07:39

Link

Sixty,

He means if you use ObjectID's as variables

+ Code Snippet

myObj1 = FreeObject()
myObj2 = FreeObject()
myObj3 = FreeObject()

MAKE OBJECT CUBE myObj1, 5
MAKE OBJECT CUBE myObj2, 5
MAKE OBJECT CUBE myObj3, 5

Thus it will fail on the 2nd MAKE OBJECT because spooky only checks if it is created. Thus in the example it wasnt created before calling another FreeObject()

Online Flash Games and Guides .::. http://www.gamestack.org
Online Notebook .::. http://onlinenotes.gamestack.org

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 31st Aug 2006 20:12

Link

AH I see. Thanks.

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / DBPro Helper Functions