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

clint12

Thu Nov 25, 2004 11:08 am


my cool animation with an eyepoke

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

%********************************
%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
%>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


        %