my cool animation with an eyepoke

[clint12]

%********************************
%name block TIK TIK TIK TIK TIK
%name - Clinton Shepley
%date - Sepetember 21 2004
%program description- My animation shows a character (Rand al'Thor) taking up the
%The Sword That is Not a Sword (Callandor) and battleing Ishamael.
%*********************************
%
%
%*********************************
%Algorithm
%A set of instructions in order, used to pre-plan a program

%<><><><><><><><><><><><><>INTRO SCREEN
%1. Draw background (Pillars, tiles, torches) [Drawfillboxes]

%<><><><><<><>><><><><>><>ANIMATION SCREEN
%1. Draw background (Pillars, tiles, torches, door) [Drawfillboxes]
%2. Draw Rand [drawfilloval, drawfillbox]
%3. Draw Ishamael [drawfillbox, drawfilloval]
%5. Draw Callandor [drawfillbox, drawline, drawfilloval]
%6. Animate Rand grabbing sword[Draw delay cover]
%7. Animate Rand running [draw delay cover]
%8. Animate Ishamael appearing [draw delay cover]
%9. Animate Ishamael dying [draw delay cover]
%10. Animate Rand cut [draw delay cover]
%11. Animate Gateway [draw delay cover]
%12. Fade to end screen [draw delay cover]
%13. Draw Eye being poked [draw delay cover]
%*********************************
%
%
%*********************************
%Variables Dictionary
%declare variable by name and type
%*********************************
%
%
%*********************************
%Procedures/Subprograms/Subroutines
%do each seperatly in a block
%<><><><><><><><><><<><><><><><><><><><><>Pillars, tiles, background.
proc background
%........................................background color
drawfillbox (1, 0, 640, 480, 43)
%....................................pillar 1
drawfillbox (1, 0, 90, 20, 12)
drawfillbox (1, 480, 90, 460, 12)
drawfillbox (10, 0, 80, 480, 12)
%....................................pillar 2
drawfillbox (550, 0, 640, 20, 12)
drawfillbox (550, 480, 640, 460, 12)
drawfillbox (560, 0, 630, 480, 12)
%....................................Torches
drawfillbox (20, 200, 30, 270, black)
drawfilloval (25, 275, 5, 20, yellow)
drawfillbox (600, 200, 610, 270, black)
drawfilloval (605, 275, 5, 20, yellow)

end background

%<><><>><><><><><><><><><><><><><<><><><><>Callandor
proc sword
drawfilloval (298, 375, 5, 62, black)
drawfillbox (280, 314, 315, 320, black)
drawfilloval (283, 317, 9, 4, black)
drawfilloval (315, 317, 9, 4, black)
drawfillbox (294, 315, 301, 280, black)
drawfillbox (300, 320, 295, 280, white)
drawfillbox (285, 319, 310, 315, white)
drawfilloval (283, 317, 8, 3, white)
drawfilloval (315, 317, 8, 3, white)
drawfilloval (298, 375, 4, 60, white)
drawline (294, 315, 300, 300, black)
drawline (294, 295, 300, 280, black)
drawline (294, 305, 300, 290, black)
drawline (300, 315, 294, 300, black)
drawline (300, 295, 294, 280, black)
drawline (300, 305, 294, 290, black)
end sword

%<><><><<>><><><><><><><><>><><><><><>><><>Rand
proc randp
for c : 0 .. 160

%...........................................LEGS
drawfillbox (137, 335 - c, 164, 290 - c, green)
drawline (150, 335 - c, 150, 290 - c, black)
%...........................................FEET
drawfillbox (130, 290 - c, 150, 285 - c, brown)
drawfillbox (153, 290 - c, 173, 285 - c, brown)
%...........................................BODY
drawfillbox (138, 335 - c, 163, 385 - c, 40) %...arm
drawfillbox (125, 340 - c, 138, 385 - c, 40) %....arm
drawline (138, 340 - c, 138, 380 - c, black)
drawfillbox (163, 340 - c, 175, 385 - c, 40)
drawline (163, 340 - c, 163, 380 - c, black)
drawfilloval (169, 338 - c, 7, 10, 89) %...hand
drawfilloval (132, 338 - c, 7, 10, 89) %....hand
%...........................................HEAD
drawfilloval (150, 405 - c, 16, 22, 4)
drawfilloval (150, 400 - c, 15, 20, 89)
drawfilloval (143, 406 - c, 4, 4, white)
drawfilloval (157, 406 - c, 4, 4, white)
drawfilloval (143, 406 - c, 1, 1, black) %...eye
drawfilloval (157, 406 - c, 1, 1, black) %...eye
drawline (157, 390 - c, 143, 390 - c, black) %...mouth
delay (30)
%.....................................COVER UP
drawfillbox (125, 285 - c, 178, 430 - c, 43)

end for

for c : 0 .. 125


%<><><><><><<><><><><><><<><><><><><<>><><><<><><><><>MOVE RIGHT
drawfillbox (125, 285 - 170, 178, 420 - 170, 43)
%...........................................LEGS
drawfillbox (137 + c, 335 - 160, 164 + c, 290 - 160, green)
drawline (150 + c, 335 - 160, 150 + c, 290 - 160, black)
%...........................................FEET
drawfillbox (130 + c, 290 - 160, 150 + c, 285 - 160, brown)
drawfillbox (153 + c, 290 - 160, 173 + c, 285 - 160, brown)
%...........................................BODY
drawfillbox (138 + c, 335 - 160, 163 + c, 385 - 160, 40) %....arm
drawfillbox (125 + c, 340 - 160, 138 + c, 385 - 160, 40) %....arm
drawline (138 + c, 340 - 160, 138 + c, 380 - 160, black)
drawfillbox (163 + c, 340 - 160, 175 + c, 385 - 160, 40)
drawline (163 + c, 340 - 160, 163 + c, 380 - 160, black)
drawfilloval (169 + c, 338 - 160, 7, 10, 89) %....hand
drawfilloval (132 + c, 338 - 160, 7, 10, 89) %....hand
%...........................................HEAD
drawfilloval (150 + c, 405 - 160, 16, 22, 4)
drawfilloval (150 + c, 400 - 160, 15, 20, 89)
drawfilloval (143 + c, 406 - 160, 4, 4, white) %...eye
drawfilloval (157 + c, 406 - 160, 4, 4, white) %...eye
drawfilloval (143 + c, 406 - 160, 1, 1, black) %...eye
drawfilloval (157 + c, 406 - 160, 1, 1, black) %...eye
drawline (157 + c, 390 - 160, 143 + c, 390 - 160, black) %...mouth
delay (10)
%.....................................COVER UP
drawfillbox (125 + c, 285 - 160, 178 + c, 430 - 160, 43)

end for



drawfillbox (125, 285 - 160, 178, 420 - 160, 43)
%...........................................LEGS
drawfillbox (137 + 125, 335 - 160, 164 + 125, 290 - 160, green)
drawline (150 + 125, 335 - 160, 150 + 125, 290 - 160, black)
%...........................................FEET
drawfillbox (130 + 125, 290 - 160, 150 + 125, 285 - 160, brown)
drawfillbox (153 + 125, 290 - 160, 173 + 125, 285 - 160, brown)
%...........................................BODY
drawfillbox (138 + 125, 335 - 160, 163 + 125, 385 - 160, 40) %...arm
drawfillbox (125 + 125, 340 - 160, 138 + 125, 385 - 160, 40) %...arm
drawline (138 + 125, 340 - 160, 138 + 125, 380 - 160, black)
drawfillbox (163 + 125, 375 - 168, 175 + 125, 273, 40)
drawline (163 + 125, 340 - 160, 163 + 125, 380 - 160, black)
drawfilloval (169 + 125, 283, 7, 10, 89) %....hand
drawfilloval (132 + 125, 338 - 160, 7, 10, 89) %...hand
%...........................................HEAD

drawfilloval (150 + 125, 405 - 160, 16, 22, 4)
drawfilloval (150 + 125, 400 - 160, 15, 20, 89)
drawfilloval (143 + 125, 406 - 160, 4, 4, white) %...eye
drawfilloval (157 + 125, 406 - 160, 4, 4, white) %...eye
drawfilloval (143 + 125, 406 - 160, 1, 1, black) %...eye
drawfilloval (157 + 125, 406 - 160, 1, 1, black) %...eyr
drawline (157 + 125, 390 - 160, 143 + 125, 390 - 160, black) %...mouth

end randp

%<><><><><><><><><><><><><><><><><><><><><>Ishamael
proc ishamael

%...........................................LEGS
drawfillbox (137 + 325, 335, 164 + 325, 290, 1)
drawline (150 + 325, 335, 150 + 325, 290, black)
%...........................................FEET
drawfillbox (130 + 325, 290, 150 + 325, 285, brown)
drawfillbox (153 + 325, 290, 173 + 325, 285, brown)
%...........................................BODY
drawfillbox (138 + 325, 335, 163 + 325, 385, 128) %...arm
drawfillbox (100 + 325, 370, 138 + 325, 385, 128) %...arm
drawline (138 + 325, 340, 138 + 325, 380, black)
drawfillbox (140 + 325, 340, 175 + 325, 385, 128)
drawline (163 + 325, 340, 163 + 325, 380, black)
drawfilloval (169 + 325, 338, 7, 10, 95) %...hand
drawfilloval (95 + 325, 380, 7, 10, 95) %...hand
%...........................................HEAD
drawfillstar (150 + 313, 405, 150 + 340, 440, black)
drawfilloval (150 + 325, 400, 15, 20, 89)
drawfilloval (143 + 325, 406, 4, 4, black) %...eye
drawfilloval (157 + 325, 406, 4, 4, black) %..eye
drawfilloval (143 + 325, 406, 1, 1, black) %...eye
drawfilloval (157 + 325, 406, 1, 1, black) %...eye
drawline (157 + 325, 390, 143 + 325, 390, black)
end ishamael
proc ishamaellight

for c : 1 .. 100
%...........................................LEGS
drawfillbox (137 + 325, 335, 164 + 325, 290, white)
drawline (150 + 325, 335, 150 + 325, 290, white)
%...........................................FEET
drawfillbox (130 + 325, 290, 150 + 325, 285, white)
drawfillbox (153 + 325, 290, 173 + 325, 285, white)
%...........................................BODY
drawfillbox (138 + 325, 335, 163 + 325, 385, white) %...arm
drawfillbox (100 + 325, 370, 138 + 325, 385, white) %...arm
drawline (138 + 325, 340, 138 + 325, 380, white)
drawfillbox (140 + 325, 340, 175 + 325, 385, white)
drawline (163 + 325, 340, 163 + 325, 380, white)
drawfilloval (169 + 325, 338, 7, 10, white) %...hand
drawfilloval (95 + 325, 380, 7, 10, white) %...hand
%...........................................HEAD
drawfillstar (150 + 313, 405, 150 + 340, 440, white)
drawfilloval (150 + 325, 400, 15, 20, white)
drawfilloval (143 + 325, 406, 4, 4, white) %...eye
drawfilloval (157 + 325, 406, 4, 4, white) %...eye
drawfilloval (143 + 325, 406, 1, 1, white) %...eye
drawfilloval (157 + 325, 406, 1, 1, white) %...eye
drawline (157 + 325, 390, 143 + 325, 390, white) %...mouth
end for

end ishamaellight

proc ishamaelgone
%...........................................LEGS
drawfillbox (137 + 325, 335, 164 + 325, 290, 43)
drawline (150 + 325, 335, 150 + 325, 290, 43)
%...........................................FEET
drawfillbox (130 + 325, 290, 150 + 325, 285, 43)
drawfillbox (153 + 325, 290, 173 + 325, 285, 43)
%...........................................BODY
drawfillbox (138 + 325, 335, 163 + 325, 385, 43) %...arm
drawfillbox (100 + 325, 370, 138 + 325, 385, 43) %...arm
drawline (138 + 325, 340, 138 + 325, 380, 43)
drawfillbox (140 + 325, 340, 175 + 325, 385, 43)
drawline (163 + 325, 340, 163 + 325, 380, 43)
drawfilloval (169 + 325, 338, 7, 10, 43) %..hand
drawfilloval (95 + 325, 380, 7, 10, 43) %...hand
%...........................................HEAD
drawfillstar (150 + 313, 405, 150 + 340, 440, 43)
drawfilloval (150 + 325, 400, 15, 20, 43)
drawfilloval (143 + 325, 406, 4, 4, 43) %...eye
drawfilloval (157 + 325, 406, 4, 4, 43) %...eye
drawfilloval (143 + 325, 406, 1, 1, 43) %...eye
drawfilloval (157 + 325, 406, 1, 1, 43) %...eye
drawline (157 + 325, 390, 143 + 325, 390, 43)
end ishamaelgone
%<><><><><><><><><><>><><><><><>><><>Lightning


%.....................................cover light
proc coverl
drawfilloval (298, 427, 20, 20, blue)
end coverl

proc lightn
drawline (298, 427, 470, 410, 80)
drawline (298, 420, 470, 400, 80)
drawline (300, 410, 470, 390, 80)
drawline (290, 415, 470, 395, 80)
drawline (305, 405, 470, 385, 80)
end lightn

proc lights
drawline (298, 427, 470, 410, white)
drawline (298, 420, 470, 400, white)
drawline (300, 410, 470, 390, white)
drawline (290, 415, 470, 395, white)
drawline (305, 405, 470, 385, white)
end lights

proc light %......................glowingball

for c : 0 .. 15
drawfilloval (298, 427, 10 + c, 10 + c, 80)
delay (2)
drawfilloval (298, 427, 10 + c, 10 + c, white)
delay (2)
drawfilloval (298, 427, 10 + c, 10 + c, blue)
delay (2)
end for

end light
%.....................................cover light

%<><><><><<><><>><<><>><><><><><><><>Firebolts

proc fire %......................................................fire at pillar
for c : 0 .. 340
drawfillbox (90 + 325 - c, 370, 90 + 325, 375, yellow)
delay (2)
drawfillbox (90 + 325 - c, 370, 90 + 325, 375, 43)
end for
end fire
proc blowup %.......................................................Pillar explosion
drawfillstar (96 + 325 - 350, 355, 96 + 325 - 330, 390, yellow) %...hole in pillar
delay (4)
drawfillstar (96 + 325 - 350, 355, 96 + 325 - 330, 390, 43) %...hole in pillar
end blowup

proc firer %.....................................................fire at rand
for c : 0 .. 200
drawfillbox (90 + 325 - c, 370 - c, 90 + 325 - c, 375 - c, yellow)
delay (5)
drawfillbox (90 + 325 - c, 370 - c + 100, 90 + 325 - c, 375 - c + 100, 43)
end for
end firer

proc firer1 %.....................................................fire at rand
for c : 0 .. 200
drawfillbox (90 + 325 - c, 370 - c + 100, 90 + 325 - c, 375 - c + 100, 43)
end for
end firer1

proc blood
drawdot (200, 300, 34)
end blood
%<><<><><><><>><><<><><><>><><><><><><><><TILES
proc tiles
drawfillbox (95, 25, 220, 105, black) %...outline
drawfillbox (220, 25, 325, 105, black) %...outline
drawfillbox (325, 25, 430, 105, black) %...outline
drawfillbox (430, 25, 545, 105, black) %...outline
drawfillbox (100, 30, 220, 100, red) %...tile
drawfillbox (225, 30, 325, 100, red) %...tile
drawfillbox (330, 30, 430, 100, red) %...tile
drawfillbox (435, 30, 540, 100, red) %...tile
end tiles

%<><><<>><><<><><><><><><><><><><><><><><><><>DOOR
proc door
drawfillbox (100, 290, 175, 420, black)
end door

%<><<><><><><>><><><><><><><><><><><><><<>>GATEWAY
proc gate
for c : 1 .. 70
drawfillbox (450, 350 + c, 550, 350 - c, grey) %...gate
delay (10)

drawfillbox (450, 350 + 70, 550, 350 - 70, 43) %...cover
delay (10)
end for
end gate

proc gate2
for c : 1 .. 70
drawfillbox (1, 1 + c, 640, 480 - c, grey) %...gate
delay (10)

drawfillbox (1, 1, 640, 480, 43) %...cover
delay (10)
end for
end gate2


%<<><><><><><><><><>><><<><><><><>><><><>finger poking eye
proc eyeball

drawfilloval (400, 200, 80, 80, white)
drawoval (400, 200, 80, 80, black)
drawfilloval (450, 200, 30, 30, black)
for c : 0 .. 200
drawfillbox (680 - c, 180, 680 - c, 210, 89)
delay (5)
end for

drawfilloval (490, 250, 5, 5, blue)
drawfilloval (490, 150, 5, 5, blue)
drawfilloval (500, 130, 5, 5, blue)
drawfilloval (500, 280, 5, 5, blue)
drawfilloval (510, 265, 5, 5, blue)
drawfilloval (510, 140, 5, 5, blue)

for c : 0 .. 200
drawfillbox (680 - 200 + c, 180, 680 - 200 + c, 210, 43) %....finger
delay (2)
end for

drawfilloval (490, 250, 5, 5, 43)
drawfilloval (490, 150, 5, 5, 43)
drawfilloval (500, 130, 5, 5, 43)
drawfilloval (500, 280, 5, 5, 43)
drawfilloval (510, 265, 5, 5, 43)
drawfilloval (510, 140, 5, 5, 43)
end eyeball
%<><><><><><>><><><><><><><><><><><><>Credits
proc credits

end credits
%*********************************
%
%
%*********************************
%Mainline
%step by step enter the program
%<><<><><><><><><>><><><><><><><<><><> INTRO SCREEN

background
sword


tiles
colorback (43)
color (40)
locate (15, 30)
put "THE DRAGON REBORN" ..
delay (3000)

color (40)
locate (15, 20)
put "RAND AL'THOR IS THE PROPHECIED DRAGON" ..
delay (3000)

color (40)
locate (15, 20)
put "SENT TO DESTROY ALL DARKNESS " ..
delay (3000)

color (40)
locate (15, 20)
put "DOOMED TO GO MAD, AND DESTROY THE WORLD" ..
delay (3000)

color (40)
locate (15, 20)
put "AND IN THIS BRING SALVATION... " ..
delay (3000)

color (40)
locate (15, 20)
put "RAND IS ABOUT TO CLAIM CALLANDOR," ..
delay (3000)

color (40)
locate (18, 20)
put "THE SWORD THAT IS NOT A SWORD " ..
delay (3000)

color (40)
locate (20, 18)
put "IT LETS HIM CHANNEL HUGE AMOUNTS OF THE ONE POWER..." ..
delay (3000)

color (40)
locate (23, 20)
put "...SAIDIN " ..
delay (3000)

cls


background
sword


tiles
randp
delay (10)
gate
ishamael


locate (1, 13)
put "Ishamael: Now you shall die dragon... Callandor is mine!" ..
delay (3000)
locate (1, 13)
put "Rand: No shadowspawn, you are the one who will die, " ..
delay (3000)
locate (1, 13)
put "Rand: With Callandor I am unstoppable! " ..
delay (3000)
locate (1, 13)
put " " ..
fire
blowup
sword
locate (1, 13)
put "And with that Rand The Dragon, siezes Saidin..." ..
delay (3000)
locate (1, 13)
put "...and blasts Ishamael with lightning!!! " ..
delay (2000)
for c : 0 .. 10
light
coverl
light
coverl
lightn
ishamaellight
lights
ishamael
end for
locate (1, 13)
put "Ishamael: AAARRGGGGH!!! " ..
firer
delay (4)
firer1
locate (1, 13)
put "Nooooo..... " ..
delay (3000)
gate2

locate (10, 13)
put " Rand is cut in half and they both died" ..
delay (3000)

locate (10, 18)
put " THE END " ..
delay (2000)

locate (10, 13)
put "BY " ..

locate (11, 14)
put "... " ..
delay (100)

locate (12, 15)
put "... " ..
delay (1000)
locate (13, 16)
put "... " ..
delay (1000)
locate (14, 17)
put "... " ..
delay (1000)
locate (15, 18)
put "... " ..
delay (1000)
locate (16, 19)
put "... " ..
delay (1000)
locate (11, 25)
put "... " ..
delay (1000)
locate (12, 26)
put "... " ..
delay (1000)
locate (13, 27)
put "... " ..
delay (1000)
locate (14, 28)
put "... " ..
delay (1000)
locate (15, 29)
put "... " ..

locate (16, 30)
put "... " ..
delay (1000)

locate (11, 13)
put "Clint Shepley " ..

%<><<><><><><><><><><><><>><><><><><><><><><>ANIMATION SCREEN
loop
eyeball
end loop
%*********************************