particles -> newStar (x - 1 + i, y, o (i).clr)

View.Set ("Graphics,OffscreenOnly,NoButtonbar")
particles -> initStarsIDAll
levelTimer := Time.ElapsedCPU - 10000
lvl := 1
var currentTime, prevTime : int := 3
loop
    currentTime := Time.ElapsedCPU
    put "Total Delay: ", (currentTime - prevTime)
    prevTime := Time.ElapsedCPU
    Mouse.Where (mX, mY, mB)
    timer := Time.ElapsedCPU
    if mB = 0 and reset = true then
        reset := false
    end if

    if mB ~= 0 and reset = false then
        clicked := true
        reset := true
    end if

    if levelTimer + 15000 < timer then
        lvl := lvl + 1
        newObject (Rand.Int (1, 4))
        levelTimer := Time.ElapsedCPU
    end if

    for i : lower (o) .. upper (o)
        if (o (i).timeDelay + Time.ElapsedCPU) <= timer and o (i).running = false then
            resetObject (i)
        end if
        if o (i).running = true then
            if clicked = true then
                if ((mX - o (i).x) * (mX - o (i).x)) + ((mY - o (i).y) * (mY - o (i).y)) < 49 then
                    freeObject (i)
                    deathEffect (round (o (i).x), round (o (i).y), i)
                    score := score + round ((o (i).vel + (lvl / 20)) * 1000)
                end if
            end if
            moveObject (i)
            drawfilloval (round (o (i).x), round (o (i).y), 6, 6, o (i).clr)
        end if
    end for
    particles -> drawStars
    View.Update
    %Time.DelaySinceLast (24)
    cls
    %exit when lives <= 0
    drawfillbox (0, 0, maxx, maxy - 25, 24)
    Font.Draw ("Score: " + intstr (score), 5, maxy - 12, fnt1, black)
    Font.Draw ("Lives: " + intstr (lives), maxx - 72, maxy - 12, fnt1, black)
    if levelTimer + 12000 < timer then
        Font.Draw ("Level " + intstr (lvl) + " in: " + intstr (round ((levelTimer + 15000 - timer) / 1000)),
            maxx div 2 - (Font.Width ("Level " + intstr (lvl) + " in: " + intstr (round ((levelTimer + 15000 - timer) / 1000)), fnt2) div 2), maxy div 2, fnt2, black)
    end if
    clicked := false
end loop

o (i).vel := Rand.Int (1000, 2000) / 3000  %Line 31
Time.DelaySinceLast (8)  %Line 98