TheGameCreators - CodeBase - Objects

Return to the CodeBase listing

Category: Basic 3D

Version: 1.0

Information

Uploaded: 18th Oct 2004 18:56

Modified: 1st Jan 1970 01:00

Author: The Wendigo

Summary

Make objects with properties safely and easily.

Full Description

I've been using this method for quite some time now, and though I haven't checked the code base in the past for similar posts, I felt this is code that can be very important and wouldn't be a mess repeating in the code base.<br /> What this accomplishes is a safe form of object creation that makes life easier. You can adapt this to all sorts of differnent object creation or use it on other types (such as images, memblocks, or sounds, etc....). This method is used in DOOP and in Height (two of my biggest projects).

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`In order to allow your object to have properties, we need to define a TYPE

Type Object3D

handle as Integer `this is the most important.  It will be a handle to our 3D object

life as Integer   `our property for this object will be its life (say, in a game)

EndType

`Now we would have all our game code here including our main loop

`Here, we will call our testfunction written below

myTestFunction()

`And once we get to the functions we create:

`A function to load a free object

Function LoadObject(Filename as String)

`Loop through objects till we find one that is free

For i = 1 to 65535

`This object is available

If Object Exist(i) = 0

Load Object Filename, i

`Remember to return the handle!

ExitFunction i

Endif

Next i

EndFunction 0

`Now as a test function, we will create this one, which should be called in your code

`Somewhere

Function myTestFunction()

`Make ourselves an object

o as Object3D

`Now we load in our object file into the handle

o.handle = LoadObject("myObject.x")

`Now as you can see, we have a physical object we can play with, plus a property!

rotate object o.handle, 0, 45, 0

o.Life = 100

text 0,0, "Object Life: " + str$(o.Life)

loop

`That's it! Feel free to use LoadObject() in any of your programs, and remember,

`You can adapt this to MakeObject, or even LoadSound()!  Happy coding!

EndFunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Objects - Safe and easy