Cool Animation

LiquidDragon · **Posted:** Wed Feb 18, 2004 3:42 pm

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

Krabjuice · **Posted:** Wed Feb 18, 2004 3:55 pm

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 · **Posted:** Wed Feb 18, 2004 4:53 pm

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

LiquidDragon · **Posted:** Wed Feb 18, 2004 4:56 pm

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 · **Posted:** Wed Feb 18, 2004 5:01 pm

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 · **Posted:** Wed Feb 18, 2004 5:02 pm

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 · **Posted:** Wed Feb 18, 2004 5:12 pm

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 · **Posted:** Wed Feb 18, 2004 5:49 pm

<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 · **Posted:** Wed Feb 18, 2004 6:25 pm

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 · **Posted:** Wed Feb 18, 2004 7:05 pm

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 · **Posted:** Wed Feb 18, 2004 7:53 pm

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 · **Posted:** Wed Feb 18, 2004 8:06 pm

should i believe him? hmmm.

Paul · **Posted:** Wed Feb 18, 2004 8:07 pm

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

shorthair · **Posted:** Wed Feb 18, 2004 9:27 pm

so multiple accounts = bad

or stealing code = bad

Which bad do you want ?

AsianSensation · **Posted:** Wed Feb 18, 2004 11:39 pm

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.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members