%BY SHOOBYMAN
View.Set ("offscreenonly")
colourback (black)
var starx, stary, starsize, starx2, stary2 : array 1 .. 2000 of real
var plx, ply : int
var direction : string := "up"
var movex, movey : real := 0
var chars : array char of boolean
var warp : boolean := false
plx := round (maxx / 2)
ply := round (maxy / 2)

proc MOVEALL
    for i : 1 .. 2000
        starx (i) += movex * starsize (i) * 2
        stary (i) += movey * starsize (i) * 2
        if warp = true then
            starx (i) += movex * starsize (i) * 18
            stary (i) += movey * starsize (i) * 18
            starx2 (i) += movex * starsize (i) * 19
            stary2 (i) += movey * starsize (i) * 19
        else
            starx2 (i) := starx (i)
            stary2 (i) := stary (i)
        end if
    end for
    movex := 0
    movey := 0
end MOVEALL

for i : 1 .. 2000
    starx (i) := Rand.Int (-1000, 1000)
    stary (i) := Rand.Int (-1000, 1000)
    starx2 (i) := starx (i)
    stary2 (i) := stary (i)
    starsize (i) := Rand.Real
end for

loop
    Input.KeyDown (chars)
    for i : 1 .. 2000
        if starsize (i) > 0.8 and warp = false then
            drawfilloval (round (starx (i)), round (stary (i)), 1, 1, 0)
        elsif warp = false then
            drawdot (round (starx (i)), round (stary (i)), 0)
        end if
        if warp = true and starsize (i) > 0.8 then
            Draw.ThickLine (round (starx (i)), round (stary (i)), round (starx2 (i)), round (stary2 (i)), 2, 0)
        elsif warp = true then
            drawline (round (starx (i)), round (stary (i)), round (starx2 (i)), round (stary2 (i)), 0)
        end if
    end for
    drawfilloval (plx, ply, 2, 2, 12)
    if warp = true then
        if direction = "up" then
            movey := -3
        end if
        if direction = "down" then
            movey := 3
        end if
        if direction = "left" then
            movex := 3
        end if
        if direction = "right" then
            movex := -3
        end if
    end if
    if warp = false then
        if chars (KEY_UP_ARROW) then
            movey := -3
            direction := "up"
        end if
        if chars (KEY_DOWN_ARROW) then
            movey := 3
            direction := "down"
        end if
        if chars (KEY_LEFT_ARROW) then
            movex := 3
            direction := "left"
        end if
        if chars (KEY_RIGHT_ARROW) then
            movex := -3
            direction := "right"
        end if
    end if
    if chars ('w') then
        warp := true
    end if
    if chars ('e') then
        warp := false
    end if
    MOVEALL
    View.Update
    delay (35)
    cls
end loop

var star : array 1 .. 2000 of
    record
        x1. y1. x2. y2. size : real
    end record