% Wormy by fishtastic.
% you can also hold mouse button to give wormy a little speed boost

var total := 1
var x : array 1 .. 200 of real
var y : array 1 .. 200 of real
var sx, sy := 0.0
var mx, my, mc : int
var r := 0
var ix, iy := 50

View.Set ("offscreenonly")
colorback (black)
color (white)
var temp := 1 / total * 0.5
for i : 1 .. 200
    x (i) := 100.0
    y (i) := 100.0
end for


loop
    put total, "/200"
    drawfilloval (ix, iy, 10, 10, total + 1)
    drawoval (ix, iy, 10, 10, Rand.Int(1,255))

    for i : 1 .. total
        r := round (10 + (maxx - y (i)) / 100)
        drawfilloval (round (x (i)), round (y (i)), r, r, i)
    end for


    mousewhere (mx, my, mc)
    if mc = 1 then
        sx += (mx - x (1)) / 200
        sy += (my - y (1)) / 200
    end if

    if Math.Distance (x (1), y (1), ix, iy) < 15 then
        total += 1
        ix := Rand.Int (1, maxx)
        iy := Rand.Int (1, maxy)
        if total = 200 then
            cls
            put "you win!!"
            View.Update
            exit
        end if
    end if

    sx += (mx - x (1)) / 2000
    sy += (my - y (1)) / 2000
    x (1) += sx
    y (1) += sy

    for i : 2 .. total
        x (i) := (x (i) + x (i - 1)) / 2
        y (i) := (y (i) + y (i - 1)) / 2
    end for

    sx *= 0.99
    sy *= 0.99

    delay (10)
    View.Update
    cls
end loop