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

Username:   Password: 
 RegisterRegister   
 stick death animation
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Llama




PostPosted: Wed May 07, 2003 3:35 pm   Post subject: stick death animation

Check out my cool stick death animation. Nothing is more amusing than watching a stick get run over by a car. Laughing
Check it out.

Its my first animation 8)

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
Asok




PostPosted: Wed May 07, 2003 4:33 pm   Post subject: (No subject)

I am sure I have seen that exact same animation before.
Llama




PostPosted: Wed May 07, 2003 4:38 pm   Post subject: (No subject)

u probably have. Tony told me to put it in a seperate post so i put it here.
Delta




PostPosted: Thu May 08, 2003 8:54 am   Post subject: (No subject)

Interesting...
ZeroKelvin




PostPosted: Thu May 08, 2003 10:41 am   Post subject: (No subject)

i've seen the exact same thing before too
but it's still funny to watch over and over again Laughing
Prince




PostPosted: Fri May 09, 2003 10:23 am   Post subject: (No subject)

i hav a feelin tony or dan is gonna come in hear yellin for puttin up source code Confused... attachments r the way to go 8)
Corpy




PostPosted: Fri May 23, 2003 7:07 pm   Post subject: (No subject)

ya that game cracks me up
naoki




PostPosted: Sat May 24, 2003 11:06 pm   Post subject: (No subject)

pretty good. funny in that way we don't like to talk about.

corpy you should try to shrink that avatar, knuckles is massive.
BoyGenius




PostPosted: Sat May 24, 2003 11:51 pm   Post subject: (No subject)

what are some of the websites that has these stick animations... ?
Prince




PostPosted: Sun May 25, 2003 1:37 am   Post subject: (No subject)

http://www.stickdeath.com theres one... im sure there r others but thats the only one i kno
Homer_simpson




PostPosted: Sun May 25, 2003 10:07 am   Post subject: (No subject)

http://sfdt.com is the best there is...
they got 3d stickdeaths... hehe
Tubs




PostPosted: Thu May 29, 2003 11:35 am   Post subject: (No subject)

and im pretty sure they make them in flash not turing
Homer_simpson




PostPosted: Thu May 29, 2003 1:40 pm   Post subject: (No subject)

well nobody makes stick death animation in turing...
Tony




PostPosted: Thu May 29, 2003 4:39 pm   Post subject: (No subject)

other then the first post that started this whole topic about stick death...
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
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  [ 14 Posts ]
Jump to:   


Style:  
Search: