Sorry your browser is not supported!

dist#=400
for i=1 to 100

    check distance here...
    if distance#<dist#
        `add this object number to the array
    endif
next i

dim my_array() ' empty array

for x=start to finish
    if something_needed_adding = true
        array insert at bottom my_array()
        my_array() = new_value_added_to_array
    endif
next x

numer_of_elements_in_array = array count( my_array() )
` element count will start at 0 (-1 for no elements)

type ArrayName_Entry
deftypes as types
endtype

dim ArrayName() as ArrayName_Entry
OR
dim ArrayName() as sometype

if somecondition somedata
array insert at bottom ArrayName()
array index to bottom ArrayName()
ArrayName().DataElement = SourceData
endif

array index to top
while array index valid(ArrayName())
if ArrayName().DataElement somecondition somedata
do_some_crap
endif
next array index ArrayName()
endwhile

array delete element ArrayName(index)

array index to top ArrayName()
while array index valid(ArrayName())
if ArrayName().DataElement = somedata
array delete element ArrayName()
endif
next array index ArrayName()
endwhile

empty array ArrayName()

dim a()
global a_top = -1

...
Reset()
i = AddNew()
a(i) = 123
i = AddNew()
a(i) = 456
Remove(0)
...

function Reset()
   a_top = -1
endfunction

function AddNew()
   inc a_top
   if a_top > array count(a()) then array insert at bottom a(), 100
endfunction a_top

function Remove(i as integer)
   a(i) = a(a_top)
   dec a_top
endfunction

Rem Project: space traffic
Rem Created: Saturday, October 29, 2011
Rem ***** Main Source File *****
sync on
sync rate 0
set display mode desktop width(),desktop height(),32

backdrop on
'make collision spheres/ planet spheres 
for planets = 2000 to 2250 
make object sphere planets,150,6,6
if object collision (planets ,planets)=1
position object planets,rnd(10000)-5000,rnd(5000)-2500,rnd(10000)-5000
endif
next planets
for pcol = 2500 to 2750 
make object cube pcol,1500
hide object pcol
position object pcol,object position x(pcol-500),object position y(pcol-500),object position z(pcol-500)
next pcol
for npc = 10000 to 10999
    make object cube npc,50
    color object npc,rgb(250,0,0)
    hide object npc
    dim spawndest((npc-10000),1,1)
    dim speedtraffic#((npc-10000))
NEXT npc

set camera range 0,1,150000

point camera 0,0,0,0
make = 10000
position camera 0,11500,200,0
point camera 0,0,0,0
temp = make vector3(1)


do 

rand1 = rnd(6)
if rand1 = 6
if object visible(make)= 1 then inc make,1
if object visible(make)= 0
  spawndest((make-10000),1) = (rnd(249)+2000);randomize rnd(673490)
  spawndest((make-10000),1,1) = (rnd(249)+2000)
  position object (make),object position x(spawndest((make-10000),1)),object position y(spawndest((make-10000),1)),object position z(spawndest((make-10000),1)) 
  show object make
  inc make, 1
 rand1 = 0 
endif
endif
if make >10999 then make = 10000
text 20,40," number spawn = " +str$(make-10000)
for npc = 10000 to 10999 
if object visible (npc) = 1
if speedtraffic#((npc-10000)) < .001 > 0
point object (npc),object position x(spawndest((npc-10000),1,1)),object position y(spawndest((npc-10000),1,1)),object position z(spawndest((npc-10000),1,1))
if speedtraffic#(npc-10000) => (3 + (npc/50000)) then speedtraffic#((npc-10000))=(3+ (npc/50000))
endif
if speedtraffic#((npc-10000)) <(3+ (npc/50000)) then inc  speedtraffic#((npc-10000)),.001
move object npc,speedtraffic#((npc-10000))
 if object collision (npc,spawndest((npc-10000),1,1) + 500) = 1
  if speedtraffic#((npc-10000)) > .2
   dec speedtraffic#((npc-10000)),.001
 endif
 endif
 if object collision (npc,spawndest((npc-10000),1,1)) = 1
 hide object (npc)
 speedtraffic#((npc-10000)) = 0.0
 position object (npc),0,0,0
 inc home,1
 endif 
 endif
 if object in screen (npc) = 0 then inc offscreen,1:hide object (npc) :position object (npc),0,0,0
next npc

if spacekey() = 1 
 selectP = rnd(249)+2000 
 
  for scanplanets = 2000 to 2250
xdist# = object position x(scanplanets) - object position x(selectP) 
   ydist# = object position y(scanplanets) - object position y(selectP) 
         zdist# = object position z(scanplanets) - object position z(selectP) 
         set vector3 1,xdist#,ydist#,zdist#
         dist# = length vector3(1)

   if (selectP = scanplanets) = 0 then color object scanplanets ,rgb(255,255,255) 
   if dist# > 2000
    color object scanplanets ,rgb(0,0,255)
   endif
   if dist# < 2000 
    color object scanplanets ,rgb(200,200,0)
   endif
   color object (selectP),rgb(0,200,0)
NEXT scanplanets
endif
 text 500,40, "      fps  : "+str$(screen fps())
 text 500,70, "home runs  : "+str$(home)
 text 500,100,"offscreens : "+str$(offscreen)
sync
loop

` Dimensionalize an array
dim Test(5000)

` Randomly pick 50 elements to be 1
for t=0 to 50

 ` Make Test(random element) = 1
 Test(rnd(array count(Test(0))))=1

next t


do

 ` Do this...
 repeat

  ` Pick a random number between 0 and the array count
  Num=rnd(array count(Test(0)))

 ` Until an element with a 1 is found 
 until Test(Num)=1

 ` Show the element found
 print "Test("+str$(Num)+") = "+str$(Test(Num))
 
loop