-----------------------------------

hacker101

Fri May 27, 2005 9:11 pm


Sports fan animation

-----------------------------------

This is a project I had to do for class. It's a football and hockey animation and it even has O Canada! Enjoy! By the way i did this several months ago. I am now a little more experienced!  8) 


% Hacker 101
% Ms. D***
% March 17, 2005
% This program is my original creation

setscreen ("graphics")
var font, font2, font3, font4, font5, font6, font7, font8, loop1, loop2 : int
loop1 := 0
loop2 := 0

% Draws the Background

for x : 0 .. 640
    drawline (x, 0, x, 400, 43)
end for

% Opening Credits

for x : 0 .. 350
    font := Font.New ("Arial:40")
    Draw.Text ("Hacker 101 Presents", 75, x - 1, font, 43)
    Draw.Text ("Hacker 101 Presents", 75, x, font, 12)
    delay (7)
end for

for x : 0 .. 275
    font2 := Font.New ("Arial:40")
    Draw.Text ("TURING HOCKEY", 90, x - 1, font2, 43)
    Draw.Text ("TURING HOCKEY", 90, x, font2, 9)
    delay (7)
end for

for x : 0 .. 200
    font3 := Font.New ("Arial:40")
    Draw.Text ("AND", 250, x - 1, font3, 43)
    Draw.Text ("AND", 250, x, font3, 48)
    delay (7)
end for

for x : 0 .. 125
    font4 := Font.New ("Arial:40")
    Draw.Text ("FOOTBALL", 175, x - 1, font4, 43)
    Draw.Text ("FOOTBALL", 175, x, font4, 9)
    delay (7)
end for

% Flying Puck and Football

for x : -100 .. 125
    drawfillarc (x - 1, 50, 60, 30, 0, 180, 43)
    drawfillarc (x - 1, 50, 60, 30, 180, 360, 43)
    drawline (x - 31, 50, x + 30, 50, 114)
    drawline (x + 29, 45, x + 30, 55, 114)
    drawline (x + 19, 45, x + 20, 55, 114)
    drawline (x + 9, 45, x + 10, 55, 114)
    drawline (x - 1, 45, x, 55, 114)
    drawline (x - 11, 45, x - 10, 55, 114)
    drawline (x - 21, 45, x - 20, 55, 114)
    drawline (x - 31, 45, x - 30, 55, 114)
    drawfillarc (x, 50, 60, 30, 0, 180, 114)
    drawfillarc (x, 50, 60, 30, 180, 360, 114)
    drawline (x - 30, 50, x + 30, 50, 0)
    drawline (x + 30, 45, x + 30, 55, 0)
    drawline (x + 20, 45, x + 20, 55, 0)
    drawline (x + 10, 45, x + 10, 55, 0)
    drawline (x, 45, x, 55, 0)
    drawline (x - 10, 45, x - 10, 55, 0)
    drawline (x - 20, 45, x - 20, 55, 0)
    drawline (x - 30, 45, x - 30, 55, 0)
    delay (4)
end for

for decreasing x : 740 .. 525
    drawfilloval (x + 1, 60, 50, 50, 43)
    drawfillmapleleaf (x - 39, 20, x + 40, 100, 16)
    drawfilloval (x, 60, 50, 50, 16)
    drawfillmapleleaf (x - 40, 20, x + 40, 100, 40)
    delay (4)
end for

delay (3000)

cls

% Football introduction

for x : 0 .. 640
    drawline (x, 0, x, 400, 16)
end for

for x : 0 .. 15
    font5 := Font.New ("Arial:40")
    Draw.Text ("FOOTBALL TIME", x - 1, 200, font5, 16)
    Draw.Text ("FOOTBALL TIME", x, 200, font5, 0)
    delay (2)
end for

% My "TUNE"

play ("2e gg  2defga 1d")
play ("2e 4f+ 4f+ 2g >4abbaa 2gcc4ac