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

Flashkicks

Mon Apr 26, 2004 10:44 am


BlindMelon's Fatality

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

This is a lil fatality I created for my friend Danny 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