%Eni Elezi
%The Title Page of my Storyboard
%April 21,2009
%The Animation Project
var x1,x2, y1,y2: int := 0
%The Title Page
var fonts : int
var font : int
setscreen ("graphics")
colorback (yellow)
cls
fonts := Font.New ("Papyrus:30:italic")
assert fonts > 0
font := Font.New ("Arial:12:italic")
assert font > 0
Font.Draw ("Elmo Saves The Day ", 32, 345, fonts, 1)

delay (500)
cls

%------------------------------------------Scene 1
%The UFO's are comming
var m : int := 200
var x: int := 1

drawfill (1, 1, 53, 53)


drawfilloval (30, 210, 10, 8, 100)
drawfilloval (30, 200, 30, 8, 125)


        for i : 1 .. 10

            m := m + 1

            drawfilloval (30, m + 10, 10, 8, 100)
            drawfilloval (30, m, 30, 8, 125)

            delay (2)
            drawfilloval (30, m + 10, 30, 14, 53)
            drawfilloval (30, m, 60, 30, 53)

        
            exit when m + 17 = 399
        end for

 
        drawfilloval (30, m + 10, 10, 8, 100)
        drawfilloval (30, m, 30, 8, 125)


        for t : 1 .. 10


            m := m - 1

            drawfilloval (30, m + 10, 10, 8, 100)
            drawfilloval (30, m, 30, 8, 125)

            delay (2)
            drawfilloval (30, m + 10, 30, 14, 53)
            drawfilloval (30, m, 60, 30, 53)

          
            exit when m - 8 = 0
        end for



    drawfilloval (30, m + 10, 10, 8, 100)
    drawfilloval (30, m, 30, 8, 125)



    if m + 17 = 399 or m - 8 = 0 then

        loop

            x := x + 1

            delay (20)
            drawfilloval (30, m, x, x, red)
            delay (20)
            drawfilloval (30, m, x, x, yellow)

            if x = 50 then
                x := 50
                drawfilloval (30, m, x, x, 53)
            end if

            exit when x = 50

        end loop
       

    end if

delay (500)
cls

%------------------------------------------Scene 2
%UFO's gettin ready to attack the city
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
delay (500)
cls

%------------------------------------------Scene 3

%UFO's  attack the city with lasers
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
%Lasers shooting at the city

% more lasers 
for l : 1..50 
Draw.DashedLine (150, 280, 400, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 400, 150, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, black)
end for
delay (1400)
cls
%------------------------------------------Scene 4

% The city explosions occur
% the city
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)


for g : 1..10
delay (50)
Draw.FillOval (320, 125, 0+g, 0+g, brightred)
delay (50)
Draw.FillOval (200, 150, 0+g, 0+g, brightred)
delay (50)
Draw.FillOval (275, 125, 0+g, 0+g, brightred)
end for
 delay (1400)
cls
%------------------------------------------Scene 5
%The Main Alien comes out of the UFO

var cratearm : int
%The background

View.Set ("graphics;offscreenonly")

drawfillbox (0, 150, maxx, maxy, 100)

drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)

drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)

process movearmdownc
    cratearm := 130
    for decreasing conte : 20 .. 1
    Draw.ThickLine (160, cratearm, 280, 130, 30, 0)
        cratearm := cratearm - 1
        Draw.ThickLine (160, cratearm, 280, 130, 30, 49)
        delay (50)
    end for
end movearmdownc
%Draw.ThickLine (160, 110, 280, 130, 30, 49)


%head
drawfilloval (350, 245, 125, 70, 49)
%right eye
drawfilloval (400, 260, 25, 15, 44)
%left eye
drawfilloval (290, 260, 25, 15, 44)
%left eye ring
drawoval (400, 260, 10, 5, 12)
%right eye ring
drawoval (285, 260, 10, 5, 12)
%right eye pupil
drawfilloval (401, 260, 5, 2, 12)
%left eye pupil
drawfilloval (285, 260, 5, 2, 12)
%right ear
drawline (410, 307, 450, 350, 49)
%right ear circle
drawfilloval (450, 350, 20, 10, 49)
%left ear
drawline (300, 307, 250, 350, 49)
%left ear circle
drawfilloval (260, 350, 20, 10, 49)
%mouth
drawfilloval (350, 200, 25, 20, 225)
%tounge
drawline (350, 170, 350, 175, 62)
%body
drawfilloval (350, 105, 100, 70, 49)
%rght arm above
Draw.ThickLine (360, 120, 550, 215, 30, 49)
%right arm below
Draw.ThickLine (370, 130, 520, 130, 30, 49)
%leftarm
Draw.ThickLine (160, 210, 280, 130, 30, 49)

%right wheel
drawfilloval (400, 40, 40, 30, 255)
%right wheel middle
drawfilloval (400, 40, 10, 5, 0)
%left wheel
drawfilloval (290, 40, 40, 30, 255)
%left wheel middle
drawfilloval (290, 40, 10, 5, 0)

fork movearmdownc
delay (500)
cls
%-----------------------------------Scene 6
%Elmo is walking down the street and sees the bad Alien
setscreen ("graphics:600;500")
    x1 := 450
    x2 := 335
    y1 := 205
    y2 := 270

process Elmo

        for count : 1 .. 70

            y1 := y1 + 1
            %Head
            drawoval (300, 350, 96, 82, 16)
            drawfilloval (300, 350, 95, 80, 12)
            %First Eye
            drawfilloval (280, 400, 15, 16, 0)
            %Black part of first eye
            drawfilloval (280, 400, 8, 8, 16)
            %Second Eye
            drawfilloval (320, 400, 15, 16, 0)
            %Black part of second eye
            drawfilloval (320, 400, 8, 8, 16)
            %Nose
            drawfilloval (301, 370, 20, 20, 42)
            %Mouth
            drawfillarc (300, 332, 50, 50, 180, 0, 16)
            %Body
            drawfillbox (361, 275, 241, 245, 12)
            drawoval (300, 200, 71, 78, 16)
            drawfilloval (300, 200, 70, 80, 12)
            %Left arm
            Draw.ThickLine (250, 265, 150, 230, 40, 12)
            %Right arm..moves arm down
            Draw.ThickLine (450, y1, 335, 270, 40, 12)
            delay (50)
            Draw.ThickLine (450, y1, 335, 270, 40, 0)
            %Left Leg
            Draw.ThickLine (210, 50, 300, 150, 40, 12)
            
            %Right Leg
            Draw.ThickLine (400, 200, 300, 150, 40, 12)
            %Moves right arm down
            if y1 = 275 then
                Draw.ThickLine (450, 275, 335, 270, 40, 12)
                for decreasing counte : 70 .. 1
                    y1 := y1 - 1
                    Draw.ThickLine (450, y1, 335, 270, 40, 12)
                    delay (50)
                    Draw.ThickLine (450, y1, 335, 270, 40, 0)
                    if y1 = 205 then
                        Draw.ThickLine (450, 205, 335, 270, 40, 12)
                    end if
                end for
            end if
        end for
   

        %Left Leg
          drawfillarc (220, 30, 170, 90, 120, 140, 12)

end Elmo


fork Elmo



%THe background for the First Scene

var  n1: int := 0

View.Set ("graphics;offscreenonly")

drawfillbox (0, 150, maxx, maxy, 100)

drawfillarc (330, 100, 350, 150, 0, 180, green)

drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)

var background : int := Pic.New (0, 0, maxx, maxy)

drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)

var clouds : int := Pic.New (0, 280, 306, 363)

var xpos1 : int := 1

        xpos1 := 1

    Pic.Draw (background, 0, 0, picCopy)
    Pic.Draw (clouds, xpos1, 306, picMerge)


    drawbox (xpos1, 280, 306, 363, 100)

    xpos1 := xpos1 + 2

 



delay (500)
cls

%-----------------------------------Scene 7
%Elmo later shoots laser beams at the Alien

x1 := 450
    x2 := 335
    y1 := 205
    y2 := 270

       loop

            y1 := y1 + 1
            %Head
            drawoval (300, 350, 96, 82, 16)
            drawfilloval (300, 350, 95, 80, 12)
            %First Eye
            drawfilloval (280, 400, 15, 16, 0)
            %Black part of first eye
            drawfilloval (280, 400, 8, 8, 16)
            %Second Eye
            drawfilloval (320, 400, 15, 16, 0)
            %Black part of second eye
            drawfilloval (320, 400, 8, 8, 16)
            %Nose
            drawfilloval (301, 370, 20, 20, 42)
            %Mouth
            drawfillarc (300, 332, 50, 50, 180, 0, 16)
            %Body
            drawfillbox (361, 275, 241, 245, 12)
            drawoval (300, 200, 71, 78, 16)
            drawfilloval (300, 200, 70, 80, 12)
            %Left arm
            Draw.ThickLine (250, 265, 150, 230, 40, 12)
            %Right arm..moves arm down
            Draw.ThickLine (450, y1, 335, 270, 40, 12)
            delay (10)
            Draw.ThickLine (450, y1, 335, 270, 40, 0)
            %Left Leg
            Draw.ThickLine (210, 50, 300, 150, 40, 12)
            
            %Right Leg
            Draw.ThickLine (400, 200, 300, 150, 40, 12)
            %Moves right arm down
            if y1 = 275 then
                Draw.ThickLine (450, 275, 335, 270, 40, 12)
                for decreasing counte : 70 .. 1
                    y1 := y1 - 1
                    Draw.ThickLine (450, y1, 335, 270, 40, 12)
                    delay (50)
                    Draw.ThickLine (450, y1, 335, 270, 40, 0)
                    if y1 = 205 then
                        Draw.ThickLine (450, 205, 335, 270, 40, 12)
                             %Left Leg
               drawfillarc (220, 30, 170, 90, 120, 140, 12) 
                    end if
                end for
            end if
 
 end loop
   





% more lasers
loop
for l : 1..50
Draw.DashedLine (150, 280, 400, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 400, 150, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, black)
end for
delay (300)
cls
end loop
    x1 := 450
    x2 := 335
    y1 := 205
    y2 := 270

       loop

            y1 := y1 + 1
            %Head
            drawoval (300, 350, 96, 82, 16)
            drawfilloval (300, 350, 95, 80, 12)
            %First Eye
            drawfilloval (280, 400, 15, 16, 0)
            %Black part of first eye
            drawfilloval (280, 400, 8, 8, 16)
            %Second Eye
            drawfilloval (320, 400, 15, 16, 0)
            %Black part of second eye
            drawfilloval (320, 400, 8, 8, 16)
            %Nose
            drawfilloval (301, 370, 20, 20, 42)
            %Mouth
            drawfillarc (300, 332, 50, 50, 180, 0, 16)
            %Body
            drawfillbox (361, 275, 241, 245, 12)
            drawoval (300, 200, 71, 78, 16)
            drawfilloval (300, 200, 70, 80, 12)
            %Left arm
            Draw.ThickLine (250, 265, 150, 230, 40, 12)
            %Right arm..moves arm down
            Draw.ThickLine (450, y1, 335, 270, 40, 12)
            delay (50)
        
            %Left Leg
            Draw.ThickLine (210, 50, 300, 150, 40, 12)
            
            %Right Leg
            Draw.ThickLine (400, 200, 300, 150, 40, 12)
            %Moves right arm down
            if y1 = 275 then
                Draw.ThickLine (450, 275, 335, 270, 40, 12)
                for decreasing counte : 70 .. 1
                    y1 := y1 - 1
                    Draw.ThickLine (450, y1, 335, 270, 40, 12)
                    delay (50)
                    Draw.ThickLine (450, y1, 335, 270, 40, 0)
                    if y1 = 205 then
                        Draw.ThickLine (450, 205, 335, 270, 40, 12)
                             %Left Leg
               drawfillarc (220, 30, 170, 90, 120, 140, 12) 
                    end if
                end for
            end if
 
 end loop
   




fork Elmo

% more lasers
loop
for l : 1..50
Draw.DashedLine (150, 280, 400, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 400, 150, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, black)
end for
delay (300)
cls
end loop
%-----------------------------------Scene 8
%A big explosion happens and the Alien is killed by Elmo
for n : 1 .. 900 by 10
Draw.FillOval (325 - n, 200 + n, 75, 75, red)
delay (10)
Draw.FillOval (325 + n, 200 + n, 75, 75, red)
delay (10)
Draw.FillOval (325 + n, 200 - n, 75, 75, red)
delay (10)
Draw.FillOval (325 - n, 200 - n, 75, 75, red)
Draw.FillOval (325, 200, 75 - n, 75 + n, yellow)
delay (10)
Draw.FillOval (325, 200, 75 + n, 75 - n, brightred)
end for
delay (500)
cls
%--------------------------------------Scene 9
%Elmo is very happy in the end and is walking back home to tell everyone what happened.
setscreen ("graphics:600;500")

    x1 := 450
    x2 := 335
    y1 := 205
    y2 := 270

 
        for count : 1 .. 70

            y1 := y1 + 1
            %Head
            drawoval (300, 350, 96, 82, 16)
            drawfilloval (300, 350, 95, 80, 12)
            %First Eye
            drawfilloval (280, 400, 15, 16, 0)
            %Black part of first eye
            drawfilloval (280, 400, 8, 8, 16)
            %Second Eye
            drawfilloval (320, 400, 15, 16, 0)
            %Black part of second eye
            drawfilloval (320, 400, 8, 8, 16)
            %Nose
            drawfilloval (301, 370, 20, 20, 42)
            %Mouth
            drawfillarc (300, 332, 50, 50, 180, 0, 16)
            %Body
            drawfillbox (361, 275, 241, 245, 12)
            drawoval (300, 200, 71, 78, 16)
            drawfilloval (300, 200, 70, 80, 12)
            %Left arm
            Draw.ThickLine (250, 265, 150, 230, 40, 12)
            %Right arm..moves arm down
            Draw.ThickLine (450, y1, 335, 270, 40, 12)
            delay (50)
            Draw.ThickLine (450, y1, 335, 270, 40, 0)
            %Left Leg
            Draw.ThickLine (210, 50, 300, 150, 40, 12)
            
            %Right Leg
            Draw.ThickLine (400, 200, 300, 150, 40, 12)
            %Moves right arm down
            if y1 = 275 then
                Draw.ThickLine (450, 275, 335, 270, 40, 12)
                for decreasing counte : 70 .. 1
                    y1 := y1 - 1
                    Draw.ThickLine (450, y1, 335, 270, 40, 12)
                    delay (50)
                    Draw.ThickLine (450, y1, 335, 270, 40, 0)
                    if y1 = 205 then
                        Draw.ThickLine (450, 205, 335, 270, 40, 12)
                    end if
                end for
            end if
        end for
        %Left Leg
          drawfillarc (220, 30, 170, 90, 120, 140, 12)



fork Elmo



%THe background for the First Scene



View.Set ("graphics;offscreenonly")

drawfillbox (0, 150, maxx, maxy, 100)

drawfillarc (330, 100, 350, 150, 0, 180, green)

drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)


drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)


for count : 1 .. maxx
    cls
    if xpos1 > maxx then
        xpos1 := 1
    end if

    Pic.Draw (background, 0, 0, picCopy)
    Pic.Draw (clouds, xpos1, 306, picMerge)

    delay (200)

    drawbox (xpos1, 280, 306, 363, 100)

    xpos1 := xpos1 + 2

 
end for
Pic.Free (clouds)
delay (500)
cls

%--------------------------------------Scene 10
%The credits at the end
delay (500)
cls

setscreen ("graphics")
colorback (yellow)
cls
fonts := Font.New ("Papyrus:30:italic")
assert fonts > 0
font := Font.New ("Arial:12:italic")
assert font > 0
Font.Draw ("\"Written By Eni Elezi\"", 272, 58, font, 1)