Sorry your browser is not supported!

TYPE
    dim _id$(5)
    _name$ as string
ENDTYPE

global width=1024
global height=768

// set window properties
SetWindowTitle( "test" )
SetWindowSize( width, height, 0 )
 
// set display properties
SetVirtualResolution( width, height )
SetOrientationAllowed( 0, 0, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery




type _test
	
	id as integer
	ball as string[10]
	
endtype

global test as _test[100]

setupvariables()



do
	displayvariables()
	sync()
loop


function displayvariables()
	SetPrintSize(15)
	for a=1 to 100
		for b=1 to 10
			print(str(test[a].id) + " - " + test[a].ball[b])
		next
	
	next
	
endfunction

function setupvariables()
	for a=1 to 100
		for b=1 to 10
			test[a].id = a
			test[a].ball[b]="Unit " + str(a) + " -- Ball " + test[a].ball[b]
		next
	
	next
	
endfunction

`Example by Revenant_Chaos:
`Using IanM's array linking commands to simulate non-rectangular arrays (arrays within arrays). This idea can also be used to store arrays within UDTs.
 
 
 
type cargo_data
    contract as integer
    limb as integer
    objid as integer
endtype
`this array will be used in conjunction with "Link Array" to access each player's cargo
Dim Cargo() as cargo_data
 
 
 
nPlayers = 5
`dimensionalize the players array as a DWORD because it will be used to store memory pointers
Dim Players(nPlayers) as dword
 
`for each player
for pId = 1 to nPlayers
    `get a random number of items to add to the player's cargo
    nCargo = rnd(2)+2
    `dimensionalize an array (as cargo_data) and return it's pointer
    ptr = NewArray_Cargo(nCargo)
    `store the player's cargo array pointer
    Players(pId) = ptr
 
    `Link Cargo() to the current player's cargo data
    Link Array Cargo(),ptr
        `for each item in the cargo
        for i = 1 to nCargo
            `fill the entry with random data...
            Cargo(i).contract = rnd(100)
            Cargo(i).limb = rnd(100)
            Cargo(i).objid = rnd(100)
        next i
    `remember to unlink the array after each use
    Unlink Array Cargo()
next player
 
 
 
 
 
 
`Print out player 2's cargo data
`=================================
`link the array to player 2's cargo
ptr = Players(2)
Link Array Cargo(),ptr
    `carry on as if it were a normal array
    nCargo = array count(Cargo())
    for i = 1 to nCargo
        print "Cargo Item Number: "+str$(i)
        print Cargo(i).contract
        print Cargo(i).limb
        print Cargo(i).objid
    next i
unlink array Cargo()
 
 
wait key
cls
 
 
 
 
 
 
 
 
 
` Add an item to player 2's cargo
`==================================
 
`link the array to player 2's cargo
ptr = Players(2)
Link Array Cargo(),ptr
    `add a new index
    array insert at bottom Cargo()
    `when a new index was added the array changed location in memory
    `so we need to store it's new address
    Players(2) = GET ARRAYPTR( Cargo() )
     
    `fill the new item with random data
    Cargo().contract = rnd(100)
    Cargo().limb = rnd(100)
    Cargo().objid = rnd(100)
unlink array Cargo()
 
 
 
 
`Print out player 2's cargo data again
`==========================================
ptr = Players(2)
Link Array Cargo(),ptr
    nCargo = array count(Cargo())
    for i = 1 to nCargo
        print "Cargo Item Number: "+str$(i)
        print Cargo(i).contract
        print Cargo(i).limb
        print Cargo(i).objid
    next i
unlink array Cargo()
 
 
 
 
wait key
end
 
 
 
 
 
 
 
 
 
`Dim a new "cargo_data" array and return it's pointer
Function NewArray_Cargo(size)
    ArrPtr as Dword
    Local Dim tmpCargo(size) as cargo_data
    ArrPtr = GET ARRAYPTR( tmpCargo() )
    UNLINK ARRAY tmpCargo()
endfunction ArrPtr