Because I've just did
Rem Project: Dark Basic Pro Project
Rem Created: Sunday, December 02, 2012
Rem ***** Main Source File *****
Dim Teleports(4) as TTeleport
setup_teleports()
backdrop off
set text font "Arial"
set text size 22
set cursor 0,0
for i=0 to 4
print "Teleport "+str$(i)+" x: "+str$(Teleports(i).x)+" y: "+STR$(Teleports(i).y)+" z: "+STR$(Teleports(i).z)+" name: "+Teleports(i).levname
NEXT i
wait key
end
type TTeleport
x as double float
y as double float
z as double float
levname as string
endtype
function setup_teleports
for i=0 to 4
make object sphere 5+i, 4
sc_SetupObject 5+i,5,0
Teleports(i).x = rnd(40)
Teleports(i).y = rnd(40)
Teleports(i).z = rnd(40)
Teleports(i).levname = "agawa"+str$(i)
if showteleports
show object 5+i
else
hide object 5+i
ENDIF
NEXT i
endfunction
and all fields of all array items are accessible and works. Someone mentioned you cannot do them and since I'm notorious impossible things maker, I did this.
I'm using U77 RC7 and Matrix1Utils if it does matter.
