Don't worry; you'll get the hang of them quickly and they are pretty much a necessity for all projects. Here is a quick example:
type Type_Object
Name as string
endType
global dim Objects() as Type_Object
global NextObject as integer : NextObject = 0
set display mode 800, 600, 32
set window on
set window title "Array Example"
disable escapeKey
autoCam off
set normalization on
sync on
sync rate 60
sync
for i = 0 to 10
local ObjectName as string : ObjectName = "Object #" + str$(i + 1)
local ObjectId as integer : ObjectId = addObject(ObjectName)
position object ObjectId, 10 - rnd(20), 10 - rnd(20), 0
next i
position camera 0, 0, -20
rotate camera 0, 0, 0
while (escapeKey() = 0)
local mX as integer : mX = mouseX()
local mY as integer : mY = mouseY()
p = pick object(mX, mY, 1, 11)
if (p > 0)
text mX, mY, Objects(p - 1).Name
endIf
sync
endWhile
end
function addObject(_name as string)
make object box NextObject + 1, 1, 1, 1
array insert at bottom Objects()
Objects(NextObject).Name = _name
inc NextObject
endFunction NextObject
Just hover the mouse over an object and it will show the object name. If you need any of it explained then just let me know.
Previously TEH_CODERER.
