View.Set ("offscreenonly")

var itemI, itemQ : array 1 .. 15 of int
procedure itemInitialization
    for i : 1 .. 15
        for q : 1 .. 30

            for a : 1 .. 15
                itemI (a) := Rand.Int (1, 15)
                itemQ (a) := Rand.Int (1, 30)
            end for

        end for
    end for
end itemInitialization

var fallBool : boolean := false
proc drawItem (fall : int)
    for a : 1 .. 15
        drawfilloval (((itemI (a) - 1) * 20) + 10, (((itemQ (a) - 1) * 10) + 5) - fall, 2, 2, black)
%Problem lies in the if statement below
        if whatdotcolour (((itemI (a) - 1) * 20) + 10, (((itemQ (a) - 1) * 10) + 5) - fall) = white then
            fallBool := true
        end if
    end for
end drawItem

itemInitialization

var itemFall : int := 0
loop

    delay (100)
    View.Update
    cls

    drawItem (itemFall)

    if fallBool = true then
        itemFall += 10
    end if

end loop

View.Set ("offscreenonly")

var itemI, itemQ : array 1 .. 15 of int
procedure itemInitialization
    for a : 1 .. 15
        itemI (a) := Rand.Int (1, 15)
        itemQ (a) := Rand.Int (1, 30)
    end for
end itemInitialization

var fallBool : array 1 .. 15 of boolean
proc drawItem (fall : array 1 .. 15 of int)
    for a : 1 .. 15
        drawfilloval (((itemI (a) - 1) * 20) + 10, (((itemQ (a) - 1) * 10) + 5) - fall (a), 2, 2, black)
        %Problem lies in the if statement below
        if whatdotcolour (itemI (a), itemQ (a)) = white then
            fallBool (a) := true
        end if
    end for
end drawItem

itemInitialization

var itemFall : array 1 .. 15 of int
for i : 1 .. 15
    itemFall (i) := 0
end for

loop
    drawfillbox (33, 424, 282, 55, blue)
    drawItem (itemFall)
    for a : 1 .. 15
        if fallBool (a) = true then
            itemFall (a) += 10
        end if
    end for

    delay (100)
    View.Update
    cls
end loop

setscreen ("Graphics:maxx;maxx, title: Test")
View.Set ("offscreenonly")

%%id try using a class for this, but its to show Mr.T about records

var mx, my, mb : int %%my mouse vars i want to use.
var box_size : int := 20 %going to draw a box (you center it yourself if you want)

type balls :
    record
        x, y : int
        size : int
        vy : int %%how fast it will fall
        check : boolean %%%%%oooooooooo!!!!!
        distance : int      %%im going to use this to see how far from top it is
        %%can have more, like color, etc:
    end record

%%on your code you have a set amount of balls at one givin time?
%%i will mimic this, but id use a flexable array with a timer
%% too add balls the longer you play :)
var ball : array 1 .. 15 of balls %%makes an array with the variables in the record

%%now we can start to initialize everything like you have done.
proc spawn_balls
    for i : 1 .. upper (ball)
        ball (i).size := Rand.Int (1, 10)
        ball (i).distance := 0  %%hasn't moved any pixles
        ball (i).x := Rand.Int (10, maxx - 10)
        ball (i).y := maxy %%set at the top
        ball (i).vy := Rand.Int (-5, -1)
    end for
end spawn_balls

fcn allowable_boundries (num : int) : boolean
    Mouse.Where (mx, my, mb) %too see where my mouse is
    %%mb not needed unless you want to add smothing for it

    %%number, for the specific ball
    if ball (num).x >= mx and ball (num).x <= mx + box_size and
            ball (num).y >= my and ball (num).y <= my + box_size then
        result false        %%it collided
    else
        result true %can continue to fall
    end if
   
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    %%%%%%%%%HOW EVER!!! YOU WANTED WHATDOTCOLOR
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
    %i dont feel like making a good colition system for your tests, but this should work.
   
 %  if whatdotcolor(ball(num).x,ball(num).y) = blue or whatdotcolor(ball(num).x + ball(num).size, ball(num).y + ball(num).size) = blue then
   %    result false       
  % else
   %    result true
  % end if
end allowable_boundries

proc move_balls
    for i : 1 .. upper (ball)
        ball (i).check := allowable_boundries (i)
        if ball (i).check = true then   %%not collided
            ball (i).y += ball (i).vy %%move it down
        end if
    end for
end move_balls

proc draw_items
    %%draw your blue box first to see the balls in it
    Draw.FillBox (mx, my, mx + box_size, my + box_size, blue)

    for i : 1 .. upper (ball)
        Draw.FillOval (ball (i).x, ball (i).y, ball (i).size, ball (i).size, 7)
    end for
end draw_items

spawn_balls
loop
    move_balls

    cls
    draw_items
    View.Update
    delay (20)
end loop

drawfilloval (((itemI (a) - 1) * 20) + 10, (((itemQ (a) - 1) * 10) + 5) - fall (a), 2, 2, black)

Draw.FillOval (item (a).x * GRID_SIZE + centerOffset, item (a).y * GRID_SIZE + centerOffset, 2, 2, black)