stick death animation

[Llama]

Check out my cool stick death animation. Nothing is more amusing than watching a stick get run over by a car.
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

[Asok]

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

[Llama]

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

[Delta]

Interesting...

[ZeroKelvin]

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

[Prince]

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

[Corpy]

ya that game cracks me up

[naoki]

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]

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

[Prince]

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

[Homer_simpson]

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

[Tubs]

and im pretty sure they make them in flash not turing

[Homer_simpson]

well nobody makes stick death animation in turing...

[Tony]

other then the first post that started this whole topic about stick death...