setscreen ("graphics:1025;700,nocursor,offscreenonly")
%Declare Variables here
var b : array 1 .. 100 of int       %holds the pictures of the broken pieces
var x : array 1 .. 100 of int       %holds the starting x coordinate of the piece on the main picture
var y : array 1 .. 100 of int       %holds the strating y coordinate of the picee on the main picture
var num : array 1 .. 100 of int     %holds the random orders that the pieces will shoot out in
var flag : boolean                  %Flag to make sure 2 differnet pieces don't get the same order number
var x1, y1 : int                    %Holds the x and y coordinate of the current moving piece
var x1r, y1r : int                  %Holds the random increment for the X and Y of the current piece
var count : int                     %Counts how many pieces we have taken picture of so far
var xtrack : array 1 .. 100 of int  %Holds the x of where the piece came from so we can draw a box over it
var ytrack : array 1 .. 100 of int  %holds the y of where the piece came from so we can draw a box over it
var shipTrack : int                 %holds pic of ship with boxes

%Initialize Variables
x1 := 0
y1 := 0
count := 0
Pic.ScreenLoad ("battleship1.jpg", 0, 0, picCopy)


%takes all the pictures from the main pircture
for row : 1 .. 10
    y (row) := (26 * (row - 1))
    for col : 1 .. 10
        count += 1
        x (col) := (34 * (col - 1))

        b (count) := Pic.New (x (col), y (row), x (col) + 34, y (row) + 26)
        ytrack (count) := row - 1 * 26
        xtrack (count) := col - 1 * 34
    end for
end for

%assigne each picture a random number to define the order thaty they will fly out in
for i : 1 .. 100
    loop
        flag := false
        randint (num (i), 1, 100)
        for j : 1 .. i - 1
            if num (i) = num (j) then
                flag := true
            end if
        end for
        exit when flag = false
    end loop
end for

Pic.ScreenLoad ("battleship1.jpg", 0, 0, picCopy)
%makes each random picture move
for i : 1 .. 100
    randint (x1r, -50, 50)
    randint (y1r, -50, 50)
    x1 := 0
    y1 := 0
    Draw.FillBox (xtrack (num (i)), ytrack (num (i)), xtrack (num (i)) + 10, ytrack (num (i)) + 10, 0)
    View.Update
    shipTrack := Pic.New (0, 0, 340, 266)
    loop
        x1 += x1r
        y1 += y1r

        Pic.Draw (b (num (i)), x1, y1, picCopy)
       
        View.Update
        cls
        Pic.Draw (shipTrack, 0, 0, picCopy)
        exit when x1 >= 1025 or x1 + 10 <= 0 or y1 >= 700 or y1 + 10 <= 0
    end loop
end for

type ball :
    record
        x : int
        y : int
        col : int
    end record


var bucket : array 1 .. 50 of ball

for i : 1 .. upper (bucket)
    bucket (i).x := Rand.Int (0, maxx)
    bucket (i).y := Rand.Int (0, maxy)
    bucket (i).col := Rand.Int (0, 255)
end for

for i : 2 .. upper (bucket)
    drawline (bucket (i).x, bucket (i).y,
        bucket (i - 1).x, bucket (i - 1).y, bucket (i).col)
    drawfilloval (bucket (i).x, bucket (i).y, Rand.Int (1, 5),
        Rand.Int (1, 5), bucket (i).col)
end for