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

Username:   Password: 
 RegisterRegister   
 Cool Animation
Index -> Programming, Turing -> Turing Submissions
Goto page 1, 2  Next
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
LiquidDragon




PostPosted: Wed Feb 18, 2004 3:42 pm   Post subject: Cool Animation

This is my awsome animation i made for class!
code:

setscreen ("graphics:640;480")
View.Set ("offscreenonly")
var font : int

%road
drawline (0, 200, 641, 200, 7)
drawline (0, 100, 641, 100, 7)
drawfill (1, 120, 0, 0)
drawfill (1, 1, 10, 7)

%house
drawline (20, 199, 20, 350, 7)
drawline (200, 200, 200, 350, 7)
drawline (0, 330, 110, 440, 7)
drawline (220, 330, 110, 440, 7)
drawfill (100, 300, 115, 7)
%door and windows
drawfillbox (90, 200, 130, 260, 7)
drawfillbox (140, 220, 190, 260, 0) %bottom right window
drawbox (140, 220, 190, 260, 7)
drawline (165, 260, 165, 220, 7)
drawline (140, 240, 190, 240, 7)
drawfillbox (30, 220, 80, 260, 0) %bottom left window
drawbox (30, 220, 80, 260, 7)
drawline (55, 260, 55, 220, 7)
drawline (30, 240, 80, 240, 7)
drawfillbox (30, 290, 90, 340, 0) %top left window
drawbox (30, 290, 90, 340, 7)
drawfillbox (130, 290, 190, 340, 0) %top right window
drawbox (130, 290, 190, 340, 7)

%tree
drawfillbox (520, 201, 580, 370, 187)
drawfilloval (550, 400, 70, 50, 143)

%man
drawoval (250, 260, 10, 10, 7)
drawline (250, 220, 250, 250, 7)
drawline (250, 220, 260, 200, 7)
drawline (250, 220, 240, 200, 7)
drawline (250, 240, 235, 230, 7)
drawline (250, 240, 265, 230, 7)
drawdot (247, 265, 7)
drawdot (253, 265, 7)
drawarc (250, 258, 5, 5, 200, 340, 7)
delay (1000)
drawoval (250, 260, 10, 10, 0)
drawline (250, 220, 250, 250, 0)
drawline (250, 220, 260, 200, 0)
drawline (250, 220, 240, 200, 0)
drawline (250, 240, 235, 230, 0)
drawline (250, 240, 265, 230, 0)
drawdot (247, 265, 0)
drawdot (253, 265, 0)
drawarc (250, 258, 5, 5, 200, 340, 0)
View.Update
%walking
for c : 1 .. 90 by 2

    drawoval (250, 260 - c, 10, 10, 7)
    drawfill (250, 260 - c, 0, 7)
    drawline (250, 220 - c, 250, 250 - c, 7)
    drawline (250, 220 - c, 260, 200 - c, 7)
    drawline (250, 220 - c, 240, 200 - c, 7)
    drawline (250, 240 - c, 235, 230 - c, 7)
    drawline (250, 240 - c, 265, 230 - c, 7)
    drawdot (247, 265 - c, 7)
    drawdot (253, 265 - c, 7)
    drawarc (250, 258 - c, 5, 5, 200, 340, 7)
    View.Update
    delay (100)
    drawoval (250, 260 - c, 10, 10, 0)
    drawline (250, 220 - c, 250, 250 - c, 0)
    drawline (250, 220 - c, 260, 200 - c, 0)
    drawline (250, 220 - c, 240, 200 - c, 0)
    drawline (250, 240 - c, 235, 230 - c, 0)
    drawline (250, 240 - c, 265, 230 - c, 0)
    drawdot (247, 265 - c, 0)
    drawdot (253, 265 - c, 0)
    drawarc (250, 258 - c, 5, 5, 200, 340, 0)
    drawline (0, 200, 641, 200, 7)
end for
drawoval (250, 170, 10, 10, 7)
drawline (250, 130, 250, 160, 7)
drawline (250, 130, 260, 110, 7)
drawline (250, 130, 240, 110, 7)
drawline (250, 150, 235, 140, 7)
drawline (250, 150, 265, 140, 7)
drawfilloval (247, 175, 2, 2, 7)
drawfilloval (253, 175, 2, 2, 7)
drawoval (250, 165, 3, 3, 7)
View.Update
%car
for c : 1 .. 640 by 20
    drawfillbox (1 + c, 130, 130 + c, 160, 9)
    drawfillbox (40 + c, 150, 80 + c, 180, 9)
    drawline (20 + c, 160, 40 + c, 180, 7)
    drawline (110 + c, 160, 80 + c, 180, 7)
    drawfilloval (20 + c, 120, 10, 10, 7)
    drawfilloval (110 + c, 120, 10, 10, 7)
    drawoval (87+c,166,5,5,7)
    drawdot (89+c,168,7)
    drawline (88+c,165,90+c,163,7)
    font := Font.New ("Times New Roman:25")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    View.Update
    delay (60)
    font := Font.New ("Times New Roman:20")
    Font.Draw ("Pizza", 25 + c, 135, font, 0)
    drawfillbox (1 + c, 130, 130 + c, 160, 0)
    drawfillbox (40 + c, 150, 80 + c, 180, 0)
    drawline (20 + c, 160, 40 + c, 180, 0)
    drawline (110 + c, 160, 80 + c, 180, 0)
    drawfilloval (20 + c, 120, 10, 10, 0)
    drawfilloval (110 + c, 120, 10, 10, 0)
end for


%clears man
drawoval (250, 170, 10, 10, 0)
drawline (250, 130, 250, 160, 0)
drawline (250, 130, 260, 110, 0)
drawline (250, 130, 240, 110, 0)
drawline (250, 150, 235, 140, 0)
drawline (250, 150, 265, 140, 0)
drawfilloval (247, 175, 2, 2, 0)
drawfilloval (253, 175, 2, 2, 0)
drawoval (250, 165, 3, 3, 0)
View.Update
%dead man
drawoval (250, 140, 10, 10, 7)
drawline (260, 140, 300, 140, 7)
drawline (300, 140, 320, 150, 7)
drawline (300, 140, 320, 130, 7)
drawline (270, 140, 290, 150, 7)
drawline (270, 140, 260, 130, 7)
drawline (245, 135, 248, 138, 7)
drawline (245, 138, 248, 135, 7)
drawline (245, 142, 248, 145, 7)
drawline (245, 145, 248, 142, 7)
drawarc (260, 140, 5, 5, 140, 230, 7)
View.Update
delay (1000)


for decreasing d : 500 .. 1 by 4
    drawoval (270, 140, d, d, 12)
    View.Update
    delay (10)
end for
delay (100)
for c : 1 .. 550 by 2
    drawfilloval (270, 140, c, c, 12)
    View.Update
    delay (10)
end for

delay (1000)

%THE END
font := Font.New ("Times New Roman:40")
Font.Draw ("The End", 230, 225, font, black)

%inclosing circle
for decreasing c : 500 .. 100
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (5)
end for

delay (500)
for decreasing c : 100 .. 0
    drawoval (320, 240, c, c, 7)
    View.Update
    delay (2)
end for
Sponsor
Sponsor
Sponsor
sponsor
Krabjuice




PostPosted: Wed Feb 18, 2004 3:55 pm   Post subject: (No subject)

Yea, and this won me the nobel prize

code:

This code has been chopped, sliced and efficiently burned to applease Big Brother. 

Big Brother is watching.
Cervantes




PostPosted: Wed Feb 18, 2004 4:53 pm   Post subject: (No subject)

not only is that program really bad, its totally inappropriate.
Don't do stuff like that.
LiquidDragon




PostPosted: Wed Feb 18, 2004 4:56 pm   Post subject: (No subject)

WTF, i didnt say it was good. I said this is an animation i made for class and its like my second animation. So how about u be more considerate and F$%^ OFF URSELF
apomb




PostPosted: Wed Feb 18, 2004 5:01 pm   Post subject: (No subject)

OMG man uum you said it was
Quote:
You said: This is my awsome program i made for school

This is a computer SCIENCE help page ... what does that help with... or have anything to do with real computer science?
jonos




PostPosted: Wed Feb 18, 2004 5:02 pm   Post subject: (No subject)

settle down, i liked it, he was refering to the second one by krabjuice that is not wanted/needed on these forums cause they are meant for all ages.

people may swear, but very few people have ever used the gasp f word ungasp.
netninja




PostPosted: Wed Feb 18, 2004 5:12 pm   Post subject: (No subject)

Really good, i espically like the part when the graphics were good, and when the guys face is seethrough and you can see the sidewalk through him. +500000 bits , jk
Laughing

+50 bits to jonos for protecting the guy being flamed, and -50 for me, for not protecting him lol

note: i love the gasp ungasp. But it should be /ungasp or something lol. maybe </ungasp>
jonos




PostPosted: Wed Feb 18, 2004 5:49 pm   Post subject: (No subject)

<gasp>thankyou</gasp>

in tag format, or

gasp("thankyou");

in function format, or

gasp << "thankyou\n";

in c++ format, but i will not go on.
LiquidDragon




PostPosted: Wed Feb 18, 2004 6:25 pm   Post subject: (No subject)

LOL sorry Cervantes i thought you were talking about my piece of work. I do admit it is bad but it was my first animation i ever did. This year we get to make a game so I will post the game and hopyfully some idiots wont whine about how much better it is than theirs Laughing
Paul




PostPosted: Wed Feb 18, 2004 7:05 pm   Post subject: (No subject)

LMAO!!! if thats yours then whats this???
http://www.compsci.ca/v2/viewtopic.php?t=824&highlight=death
I knew I saw it somewhere...
Nice try.
I would flame, but I lack the skillz.
LiquidDragon




PostPosted: Wed Feb 18, 2004 7:53 pm   Post subject: (No subject)

LOL sorry guys i didnt think i had posted this before. I found it on my harddrive and thought like i should post it. But it looks like i did a while ago.

I'm sorry Crying or Very sad please forgive me.
jonos




PostPosted: Wed Feb 18, 2004 8:06 pm   Post subject: (No subject)

should i believe him? hmmm.
Paul




PostPosted: Wed Feb 18, 2004 8:07 pm   Post subject: (No subject)

so your saying, Llama and LiquidDragon are the same person... well, they both start with L...
shorthair




PostPosted: Wed Feb 18, 2004 9:27 pm   Post subject: (No subject)

so multiple accounts = bad

or stealing code = bad

Which bad do you want ?
AsianSensation




PostPosted: Wed Feb 18, 2004 11:39 pm   Post subject: (No subject)

i don't know, liquiddragon, your IP is quite different from Llama, and you dont seem to be using dialup...........

as for Krabjuice, taking away 20 bits is in order? Anyone feel I took too much (Krabjuice, you don't get a say in this) could PM me or something.

Anyways, Im locking this one until someone could prove something.
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 2  [ 21 Posts ]
Goto page 1, 2  Next
Jump to:   


Style:  
Search: