Sorry your browser is not supported!

`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

` Player record
type player_data
   id as integer
   name as string
   ...
   ...
   cargo as dword
endtype
global dim Players(0) as player_data

` Cargo Record
type cargo_data
   contract as integer
   limb as integer
   objid as integer
endtype
global dim Cargo(0) as cargo_data

` Add Player
array insert at bottom Players(0)
rec = array count(Players(0))
Players(rec).cargo = NewArray_Cargo(8)

` Receive Cargo data from server
Packet = mn recv TCP(inst, Recv, plr)
...
...
link array Cargo(0), Players(rec).cargo
for c = 1 to 8
   Cargo(c).contract = mn Get Int(Recv)
   Cargo(c).limb = mn Get Int(Recv)
   Cargo(c).objid = mn Get Int(Recv)
next c
unlick array Cargo(0)

Function NewArray_Cargo(size)
        ArrPtr as Dword
        Local Dim tmpCargo(size) as cargo_data
        ArrPtr = GET ARRAYPTR( tmpCargo() )
        UNLINK ARRAY tmpCargo()
endfunction ArrPtr

link array Cargo(0), Players(rec).cargo
for c = 8 to 1 step -1
   array delete element Cargo(0), c
next c
unlink array Cargo(0)

link array Cargo(0), Players(rec).cargo
for c = 8 to 1 step -1
   array delete element Cargo(0), c
next c
Players(rec).cargo = GET ARRAYPTR( Cargo(0) ) `<-Very Important or this will leak memory and most likely crash when trying to link to the old pointer.
unlink array Cargo(0)

`no linking required to undim the array
undim arrayptr Players(rec).cargo
Players(rec).cargo = 0