-----------------------------------

Llama

Wed May 07, 2003 3:35 pm


stick death animation

-----------------------------------

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

Its my first animation  8)


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

Wed May 07, 2003 4:33 pm



-----------------------------------

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


-----------------------------------

Llama

Wed May 07, 2003 4:38 pm



-----------------------------------

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


-----------------------------------

Delta

Thu May 08, 2003 8:54 am



-----------------------------------

Interesting...


-----------------------------------

ZeroKelvin

Thu May 08, 2003 10:41 am



-----------------------------------

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


-----------------------------------

Prince

Fri May 09, 2003 10:23 am



-----------------------------------

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

Fri May 23, 2003 7:07 pm



-----------------------------------

ya that game cracks me up


-----------------------------------

naoki

Sat May 24, 2003 11:06 pm



-----------------------------------

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

Sat May 24, 2003 11:51 pm



-----------------------------------

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


-----------------------------------

Prince

Sun May 25, 2003 1:37 am



-----------------------------------

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


-----------------------------------

Homer_simpson

Sun May 25, 2003 10:07 am



-----------------------------------

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


-----------------------------------

Tubs

Thu May 29, 2003 11:35 am



-----------------------------------

and im pretty sure they make them in flash not turing


-----------------------------------

Homer_simpson

Thu May 29, 2003 1:40 pm



-----------------------------------

well nobody makes stick death animation in turing...


-----------------------------------

Tony

Thu May 29, 2003 4:39 pm



-----------------------------------

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