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