Sorry your browser is not supported!

function distance(obja,objb)

`object data
x1#=object position x(obja)
y1#=object position y(obja)
z1#=object position z(obja)
x2#=object position x(objb)
y2#=object position y(objb)
z2#=object position z(objb)
`calculations
xdist# = x1#-x2#
ydist# = y1#-y2#
zdist# = z1#-z2#
set vector3 1,xdist#,ydist#,zdist#
distance# = length vector3(1)

endfunction distance#

dim sector(segsAcross, segsDown) as SectorData
rem ....

for sx = -2 to 2
    for sy = -2 to 2
        tx = sx + segmentX
        ty = sy + segmentY
        if tx >= 0 and ty >= 0 and tx < segsAcross and ty < segsDown
            // Process sector(tx, ty)
        endif
    next y
next x

// Sector List
type t_sec_list
	id$		// This is the sector ID string, also used as filename and to extract position data
endtype
// Array (Made from Type)
dim sec_list(0) as t_sec_list

array insert at bottom sec_list()
sec_list().id$ = "15,7,-19"

global sec_size# : sec_size# = 1024
global sec_range# : sec_range# = 5

// Sector List
type t_sec_list
	id$		// This is the sector ID string, also used as filename and to extract position data
endtype
// Array (Made from Type)
dim sec_list(0) as t_sec_list

	// Get the sectors, occupied by players
	for ID = 1 to array count(client(0))
	
		// Get the ID strings of the sectors, of each client
		new_x# = client(ID).pos_x# / sector_size#
		new_y# = client(ID).pos_y# / sector_size#
		new_z# = client(ID).pos_z# / sector_size#
		new_x# = val(remove$(str$(new_x#), find char(str$(new_x#),"."), len(str$(new_x#))))
		new_y# = val(remove$(str$(new_y#), find char(str$(new_y#),"."), len(str$(new_y#))))
		new_z# = val(remove$(str$(new_z#), find char(str$(new_z#),"."), len(str$(new_z#))))
	
		// Add these to the sector list
		array insert at bottom sec_list()
		sec_list().id$ = str$(new_x#) + "," + str$(new_y#) + "," + str$(new_z#)
	
	next ID

	// Add all sectors into to range (sec_range#)
	` I need some help with this part
	
	// Load/unload all actual sectors based on this list
	` Right here! (Don't need help with this one ;) )

	rem Get the sectors, occupied by players
	for ID = 1 to array count(client(0))
	
		rem Get the ID strings of the sectors, of each client
		sector_x = int(client(ID).pos_x# / sector_size#)
		sector_y = int(client(ID).pos_y# / sector_size#)
		sector_z = int(client(ID).pos_z# / sector_size#)
	
		rem Add this sector as well as adjacent sectors to the list
		offset = int((sec_range / 2) + 0.5) ` This should be an integer and not a float
		for x = 0 to sec_range
			for y = 0 to sec_range
				for z = 0 to sec_range
					sx = sector_x - offset + x
					sy = sector_y - offset + y
					sz = sector_z - offset + z
					rem Here sz, sy and sz define the sector. I'm just adding them directly to the id string but you can multiply them as you described earlier if need be
					array insert at bottom sec_list()
					sec_list().id$ = str$(sx) + "," + str$(sy) + "," + str$(sz)
				next z
			next y
		next x
		
		rem NOTE that this will insert duplicate sector entries in the list if they or their ranges overlap. To prevent this you would have to keep track of the 
		rem      sectors you've already got entries for in the list. In a language that supports it, I would probably recommend using a hashmap instead of a list.
	next ID
	
	rem Load/unload all actual sectors based on this list
	` Right here! (Don't need help with this one ;) )