Computer Science Canada :: View topic

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

Author:	Cervantes [ Wed Feb 18, 2004 4:53 pm ]
Post subject:
not only is that program really bad, its totally inappropriate. Don't do stuff like that.

Author:	LiquidDragon [ Wed Feb 18, 2004 4:56 pm ]
Post 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

Author:	apomb [ Wed Feb 18, 2004 5:01 pm ]
Post 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?

Author:	jonos [ Wed Feb 18, 2004 5:02 pm ]
Post 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.

Author:	netninja [ Wed Feb 18, 2004 5:12 pm ]
Post 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 +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>

Author:	jonos [ Wed Feb 18, 2004 5:49 pm ]
Post 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.

Author:	LiquidDragon [ Wed Feb 18, 2004 6:25 pm ]
Post 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

Author:	Paul [ Wed Feb 18, 2004 7:05 pm ]
Post 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.

Author:	LiquidDragon [ Wed Feb 18, 2004 7:53 pm ]
Post 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 please forgive me.

Author:	jonos [ Wed Feb 18, 2004 8:06 pm ]
Post subject:
should i believe him? hmmm.

Author:	Paul [ Wed Feb 18, 2004 8:07 pm ]
Post subject:
so your saying, Llama and LiquidDragon are the same person... well, they both start with L...

Author:	shorthair [ Wed Feb 18, 2004 9:27 pm ]
Post subject:
so multiple accounts = bad or stealing code = bad Which bad do you want ?

Author:	AsianSensation [ Wed Feb 18, 2004 11:39 pm ]
Post 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.

Author:	octopi [ Thu Feb 19, 2004 12:40 am ]
Post subject:
If you look at the emails for both, they are the same person. I think krabjuice deserves some bits for that, did you guys acctually run his code....its awesome, atleast...I liked it. Not the message, but the way he did it, pretty neat.

Author:	AsianSensation [ Thu Feb 19, 2004 7:45 am ]
Post subject:
yeah, the effect is great, and I have to award some bits for that, too bad the code is kinda hard coded. But other then that, the msg is inapporpriate for our forum, so I kinda had to take away bits for that, turned out I only took away 15 in the end anyways. (+10 for effect, -25 for inappropriate msg)

Author:	Krabjuice [ Thu Feb 19, 2004 4:54 pm ]
Post subject:
Well, if you want to know why I made such an application, i'll tell you. It was one of those days at school where.. life takes it toll, and you want a refund. So, I whipped this up, fired up dameware, and modefied everyone's registry to run it. Needless to say, the admin was called in.

Author:	Krabjuice [ Thu Feb 19, 2004 10:00 pm ]
Post subject:
waves hands defensivly no no no, I manually changed the registries and placed the program in the startup folder, it took the admin half a cycle to correct it. You know what, i'm just going to undo this whole catastrophe.

Author:	LiquidDragon [ Thu Feb 19, 2004 3:27 pm ]
Post subject:
WOW such controversey over one small thing. Anyways, I have come to straighten things out. Llama is my old account that i used to use. I haven't used this profile in a long time because i forgot i had it, so i made new one with the name LiquidDragon. I decided to post this animation because i found it on my old computer and i dont remember posting it before. I am sorry that got mad and there is no one to blame, except for me forgetting i had another profile. Oh, and the thing about the different ip. I used to post on my old computer and i haven't used the Llama account since i switched from dial-up.

Author:	octopi [ Thu Feb 19, 2004 5:32 pm ]
Post subject:
I don't believe anyone asked you why you made it. ....and honestly, I wish you hadn't told us. -15 bits. See this post: http://www.compsci.ca/v2/viewtopic.php?t=3348&postdays=0&postorder=asc&start=0