BlindMelon's Fatality

Flashkicks · **Posted:** Mon Apr 26, 2004 10:44 am

This is a lil fatality I created for my friend Danny [BlindMelon].. He told me wut to do and I enjoyed it. MAINLY CUZ I GET TO SEE HIM DIEEEE...MwuHaHaHaAaAaAaAa..lol 8)

code:

setscreen ("graphics:800;600")
process BloodDrop (x, y : int)
var xx, yy : int := x
yy := y
loop
drawfilloval (xx, yy, 5, 5, 21)
yy := yy - 5
drawfilloval (xx, yy, 5, 5, 12)
delay (20)
exit when yy < 150
end loop
for i : 1 .. 15
drawfilloval (xx, yy, 5 + i, 5 - i div 3, 12)
delay (20)
drawfilloval (xx, yy, 5 + i, 5 - i div 5, 21)
end for
end BloodDrop

setscreen ("graphics:800;600")
procedure Danny
var dX, dY, mX, mY, kX, kY, tX, tY, hideX, hideY, bX, bY, dotX, dotY, btX, btY : int
dX := 375
dY := 300
mX := 650
mY := 300
kX := 610
kY := 300
tX := 150
tY := 200
hideX := 645
hideY := 307
bX := 645
bY := 290
btX := 200
btY := 283

drawfillbox (0, 0, maxx, maxy, 21)

drawfilloval (dX, dY, 20, 20, 7)
drawfilloval (dX + 8, dY + 7, 2, 2, 0)
drawfilloval (dX - 8, dY + 7, 2, 2, 0)
drawdot (dX + 8, dY + 7, 7)
drawdot (dX - 8, dY + 7, 7)
drawline (dX, dY - 20, dX, dY - 60, 7) % body
drawline (dX, dY - 60, dX - 5, dY - 80, 7) % left leg
drawline (dX, dY - 60, dX + 5, dY - 80, 7) % right leg
drawline (dX, dY - 30, dX - 7, dY - 50, 7) % left arm
drawline (dX, dY - 30, dX + 7, dY - 50, 7) % right arm

drawfillbox (tX, tY, tX + 50, tY + 300, 4) % tree
drawfilloval (tX, tY + 300, 100, 50, 2)
drawfilloval (tX + 50, tY + 350, 130, 50, 2)
drawfilloval (tX, tY + 300, 70, 30, 6)
drawfilloval (tX + 100, tY + 310, 50, 20, 6)
drawfilloval (tX + 40, tY + 360, 60, 20, 6)

delay (1000)
for i : 1 .. 9
drawfilloval (dX + 8, dY + 7, i, i, 0)
drawfilloval (dX - 8, dY + 7, i, i, 0)
delay (100)
end for
drawdot (dX + 8, dY + 7, 7)
drawdot (dX - 8, dY + 7, 7)

delay (2000)

for decreasing i : 21 .. 19
drawfilloval (mX, mY, 5, 5, i)
drawfilloval (mX + 10, mY, 5, 5, i)
delay (500)
end for
drawfilloval (mX, mY, 5, 5, 0)
drawfilloval (mX + 10, mY, 5, 5, 0)
drawfilloval (mX, mY, 2, 2, 7)
drawfilloval (mX + 10, mY, 2, 2, 7)
delay (1000)

loop
drawfillbox (hideX, hideY, hideX + 20, hideY + 10, 21)
hideY := hideY - 1
drawfillbox (hideX, hideY, hideX + 20, hideY + 10, 21)
delay (300)
exit when hideY <= 303
end loop

loop
drawfilloval (mX, mY, 2, 2, 0)
drawfilloval (mX + 10, mY, 2, 2, 0)
mX := mX - 1
drawfilloval (mX, mY, 2, 2, 7)
drawfilloval (mX + 10, mY, 2, 2, 7)
delay (200)
exit when mX <= 646
end loop

loop
drawfillbox (kX, kY, kX + 30, kY + 5, 21)
drawfillbox (kX + 20, kY, kX + 30, kY + 5, 21)
kX := kX - 5
drawfillbox (kX, kY, kX + 30, kY + 5, 0)
drawfillbox (kX + 20, kY, kX + 30, kY + 5, 7)
drawfilloval (dX, dY, 20, 20, 7) % Dannys head drawing over ..
drawfilloval (dX + 8, dY + 7, 9, 9, 0)
drawfilloval (dX - 8, dY + 7, 9, 9, 0)
drawdot (dX + 8, dY + 7, 7)
drawdot (dX - 8, dY + 7, 7)
delay (5)
exit when kX <= 200
end loop

for decreasing i : 20 .. 1
drawdot (btX, btY + i, 12)
delay (50)
end for

delay (1000)
drawfilloval (dX, dY, 20, 20, 7) % Dannys Head Injured
drawfilloval (dX + 9, dY + 10, 4, 9, 0) % eye
drawdot (dX + 12, dY + 10, 7)
drawfilloval (dX, dY, 5, 5, 21) % erases hole in head
for i : 1 .. 5
drawfilloval (dX, dY - 4, i, 1, 12)
delay (400)
end for
for decreasing i : 10 .. 1
drawfilloval (dX + 5, dY - 13 + i, 1, 1, 12)
delay (200)
end for

loop
drawfilloval (bX, bY, 5, 5, 21)
bX := bX - 1
drawfilloval (bX, bY, 5, 5, 14)
delay (5)
exit when bX <= 510
end loop
for i : 5 .. 50
drawfilloval (bX, bY, i, i, 14)
delay (1)
end for
drawfilloval (bX, bY, 50, 50, 21)

for i : 1 .. 20000
randint (dotX, 353, 397)
randint (dotY, 217, 322)
drawdot (dotX, dotY, 21)
end for
drawfillbox (353, 217, 397, 322, 21)
end Danny

var font : int := Font.New ("Chiller:100")

loop
font := Font.New ("Chiller:100")
drawfillbox (0, 0, maxx, maxy, 28)
Font.Draw ("Finish Him", 200, 460, font, 12)
delay (2000)
for decreasing i : 28 .. 21
drawfillbox (0, 0, maxx, maxy, i)
delay (100)
end for
delay (1000)
Danny
delay (1000)
Font.Draw ("Fatality", 210, 470, font, 12)
var bX, bY : array 1 .. 50 of int
for i : 1 .. 50
bX (i) := Rand.Int (235, 450)
bY (i) := 450
end for
for i : 1 .. 50
fork BloodDrop (bX (i), bY (i))
delay (100)
end for
delay (2000)
font := Font.New ("Chiller:20")
Font.Draw ("Dannys Dead...", 300, 120, font, 12)
delay (1500)
for i : 21 .. 28
drawfillbox (0, 0, maxx, maxy, i)
delay (125)
end for
end loop

Im hopnig you have the "Chiller" text...

Raugrist · **Posted:** Mon Apr 26, 2004 11:33 am

I'm going to have to admit, that was pretty slick. I really liked the blood drop effect. I'd give you bits but I'm against that. So instead, here's a nice virtual pat on the back...

AsianSensation · **Posted:** Mon Apr 26, 2004 4:45 pm

well, since Ragurizer can't give bits. I will award some for those blood drops.

+15bits

Flashkicks · **Posted:** Mon Apr 26, 2004 6:51 pm

Thanks guys!!!. Appreciate it MUCH!!.. I have been trying to save for a new effect and now i finaly have enuff!!! Very Happy

once again- thanks!

Delta · **Posted:** Mon Apr 26, 2004 7:58 pm

Ya bill nice blood drop effect, I remember making one just like it, maybe a lil different.... but ya get the point. Dan your so dead its not even funny... wait yes it is...

Blindmelon_53 · **Posted:** Tue Apr 27, 2004 6:30 am

Looks great Flashkicks ...I think... considering its me and all.....Next I think we should have Deltas Fatality Laughing

Rated R..... Good work Flashkicks

Flashkicks · **Posted:** Tue Apr 27, 2004 6:36 am

BlindMelon Boy- Delta's fatalit is on the way and shall be delivered sooner than you think Laughing

..MwuHaHaHaaaaaaaaaaaaaa... .. Rated R..lol

See you So0o0o0on DeltAAaaaaa Twisted Evil

Delta · **Posted:** Tue Apr 27, 2004 11:06 am

My fatality eh?... hmmm if thats how you want it to be... fine... I'm gonna have to kill you both (fatality of course Wink

) but ya... hmmmm... who to kill first... hmmm.... well ok first I'm gonna screw around with limbs... then ya ... then I'll kill yas... till then Smile

Paul · **Posted:** Tue Apr 27, 2004 2:22 pm

you can combine ur slide o death with several other ideas together lol.

Flashkicks · **Posted:** Wed Apr 28, 2004 7:55 am

Paul- you might even see a sneek peek of your lil monkey pet there Laughing

Paul · **Posted:** Wed Apr 28, 2004 3:03 pm

Nooo, not the monkey, take the car!!
But Im sure you'll be more satisfied, seeing Delta's death animations in flash!

Flashkicks · **Posted:** Thu Apr 29, 2004 8:36 am

lmbo!! . alright alright..Maybe the car!!! And yeah- Flash for SHEEZY will outdue any other kind;) But i love Turing..lol

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