Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Come on in.. my first animation...
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
we64




PostPosted: Mon Jan 19, 2004 8:48 pm   Post subject: Come on in.. my first animation...

code:

var x, wt, ht, tt, ls, hs, persent, progress : int := 0
setscreen ( "graphics:650;420" )
locate (9, 37)
put "Loading..."

loop
    for b : 1 .. 1
        drawfillbox (80 + progress, 185, 85 + progress, 225, 48)
        delay (30)
        progress += 5
    end for

    for a : 1 .. 1
        persent += 1
        delay (30)
        locate (10, 40)
        put "   "
        locate (10, 40)
        put persent, " %"
    end for
    exit when persent = 100
    drawbox (75, 180, 585, 230, black)
end loop
cls

colourback (9)
cls

process aa
    loop
        drawfillstar (495, 220, 555, 260, yellow)
        drawline (525, 260, 525, 240, black)
        drawline (525, 240, 555, 245, black)
        drawline (525, 240, 495, 245, black)
        drawline (525, 240, 505, 220, black)
        drawline (525, 240, 545, 220, black)
        delay (1000)
        drawfillstar (495, 220, 555, 260, 59)
        drawline (525, 260, 525, 240, black)
        drawline (525, 240, 555, 245, black)
        drawline (525, 240, 495, 245, black)
        drawline (525, 240, 505, 220, black)
        drawline (525, 240, 545, 220, black)
        delay (1000)
        drawfilloval (425, 65, 5, 5, red)
        drawfilloval (450, 115, 5, 5, red)
        drawfilloval (475, 165, 5, 5, red)
        drawfilloval (575, 165, 5, 5, red)
        drawfilloval (600, 115, 5, 5, red)
        drawfilloval (625, 65, 5, 5, red)
        delay (1000)
        drawfilloval (425, 65, 5, 5, 40)
        drawfilloval (450, 115, 5, 5, 40)
        drawfilloval (475, 165, 5, 5, 40)
        drawfilloval (575, 165, 5, 5, 40)
        drawfilloval (600, 115, 5, 5, 40)
        drawfilloval (625, 65, 5, 5, 40)
        delay (1000)
    end loop
end aa

process bb
    loop
        %Window1
        drawfillbox (75, 125, 150, 175, yellow)
        drawline (75, 150, 150, 150, black)
        drawline (113, 125, 113, 175, black)
        delay (4500)
        drawfillbox (75, 125, 150, 175, 20)
        drawline (75, 150, 150, 150, black)
        drawline (113, 125, 113, 175, black)
        delay (4500)

        %Window2
        drawfillbox (200, 125, 275, 175, yellow)
        drawline (200, 150, 275, 150, black)
        drawline (238, 125, 238, 175, black)
        delay (5000)
        drawfillbox (200, 125, 275, 175, 20)
        drawline (200, 150, 275, 150, black)
        drawline (238, 125, 238, 175, black)
        delay (5000)
    end loop
end bb

%Stars
process cc
    loop
        drawfillstar (300, 380, 305, 385, yellow)
        drawfillstar (100, 275, 105, 280, yellow)
        drawfillstar (50, 300, 55, 305, yellow)
        drawfillstar (30, 220, 35, 225, yellow)
        drawfillstar (410, 350, 415, 355, yellow)
        drawfillstar (460, 280, 465, 285, yellow)
        drawfillstar (545, 270, 550, 265, yellow)
        delay (500)
        drawfillstar (300, 380, 305, 385, 9)
        drawfillstar (100, 275, 105, 280, 9)
        drawfillstar (50, 300, 55, 305, 9)
        drawfillstar (30, 220, 35, 225, 9)
        drawfillstar (410, 350, 415, 355, 9)
        drawfillstar (460, 280, 465, 285, 9)
        drawfillstar (545, 270, 550, 265, 9)
        delay (100)
    end loop
end cc

%Door
process dd
    for a : 0 .. 100 by 20
        drawfillbox (150, 51, 200, 110, black)
        drawfillbox (150, 51, 200 - a, 110, 112)
        delay (500)
    end for

    for b : 0 .. 100 by 10
        if b <= 50 then
            drawfillbox (100, 51, 100 + b, 110, 40)
            drawfillbox (150, 51, 100 + b, 110, 112)
            drawfillbox (150, 51, 200, 110, black)
        elsif b > 50 then
            drawfillbox (150, 51, 200, 110, black)
            drawfillbox (150, 51, 100 + b, 110, 112)
        end if
        delay (500)
    end for
end dd

%Floor
drawfillbox (0, 0, maxx, 50, brown)

%House
drawfillbox (50, 51, 300, 200, 40)

%Roof
drawline (300, 200, 175, 250, black)
drawline (175, 250, 50, 200, black)
drawline (50, 200, 300, 200, black)
drawfill (175, 210, 114, black)

%Window1
drawfillbox (75, 125, 150, 175, 20)
drawline (75, 150, 150, 150, black)
drawline (113, 125, 113, 175, black)

%Window2
drawfillbox (200, 125, 275, 175, 20)
drawline (200, 150, 275, 150, black)
drawline (238, 125, 238, 175, black)

%Door
drawfillbox (150, 51, 200, 110, 112)

%Chimney
drawfillbox (220, 210, 260, 270, 114)

%Tree Trunk
drawfillbox (500, 50, 550, 70, 112)

%Moon
drawarc (450, 350, 35, 45, 280, 90, white)
drawarc (450, 350, 55, 45, 260, 90, white)
drawfill (490, 350, white, white)

for a : 1 .. 3
    drawline (425 + wt, 71 + ht, 625 - wt, 71 + ht, green)
    drawline (425 + wt, 71 + ht, 525, 130 + ht, green)
    drawline (625 - wt, 71 + ht, 525, 130 + ht, green)
    drawfill (525, 80 + tt, green, green)
    wt += 25
    ht += 50
    tt += 70
end for

for b : 1 .. 3
    drawfilloval (425 + ls, 65 + hs, 5, 5, red)
    drawfilloval (575 + ls, 165 - hs, 5, 5, red)
    ls += 25
    hs += 50
end for

for j : 1 .. 999999
    fork aa
    fork bb
    fork cc
    fork dd

    %Smoke
    for a : 0 .. 6
        drawfilloval (240 + x, 280 + x, 18 + x, 6 + x div 5, 25 + a)
        delay (1000)
        x += 10
    end for

    %Text
    if j mod 2 = 1 then
        Draw.Text ("Merry Christmas", 240, 333, Font.New ("serif:12:bold"), 40)
    else
        Draw.Text ("Happy New Year", 240, 333, Font.New ("sans serif:12:bold"), 42)
    end if
    x := 1
    delay (1500)
end for
Sponsor
Sponsor
Sponsor
sponsor
shorthair




PostPosted: Mon Jan 19, 2004 9:43 pm   Post subject: (No subject)

You hav recieved a rating of " Gay " for having that stupid loading bar at the beginning , there is no need for that and your just wasting my time , you eill learn that you wanna cut down on code , processing time and user waiting time , just wait till you have to wait for things to finish , the actual program is good and its a good start to learning turings graphics , i just cant stand fake loading bars , i dont mean to flame but please just lay off the fake stuff , i know your probably new and had no clue that we dont like them , Very Happy Very Happy Very Happy

+ 10 bits for the house
we64




PostPosted: Mon Jan 19, 2004 10:36 pm   Post subject: (No subject)

thank you for your opinion. I will remember it the next time.
the_icycle




PostPosted: Tue Jan 20, 2004 11:04 am   Post subject: Nice

Hey man! im new on this site, but thats pretty wck. Could've done a bit better but for first one is ok Wink
valor




PostPosted: Wed Mar 24, 2004 10:39 pm   Post subject: (No subject)

nice
jonos




PostPosted: Thu Mar 25, 2004 5:15 pm   Post subject: (No subject)

please don't bring up old topics, you can reply to newer ones, there is not point, but nice job we, very sexy
Hackster




PostPosted: Thu Mar 25, 2004 6:38 pm   Post subject: (No subject)

hehe ... you called a prog sexy Laughing thats funny, ya good job we64, that long of a program is better in a downloadable file, not all the code.. i know this is an old topic too
we64




PostPosted: Tue Mar 30, 2004 9:48 pm   Post subject: (No subject)

sexy~~~ interesting opinion for a program Very Happy Very Happy
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 8 Posts ]
Jump to:   


Style:  
Search: