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

chipanpriest

Sun Dec 18, 2011 4:13 pm


Line Thing

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

Very simple took me 2 minutes :p but its cool

 
var mx, my, click, col : int

View.Set ("offscreenonly")

loop
    randint (col, 10, 13)
    mousewhere (mx, my, click)
    if click = 1 then
        drawline (0, 0, mx, my, col)
        drawline (0, maxy, mx, my, col)
        drawline (maxx, 0, mx, my, col)
        drawline (maxx, maxy, mx, my, col)
    end if
    View.Update
end loop




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

Aange10

Sun Dec 18, 2011 5:55 pm


RE:Line Thing

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

Very cool


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

klutzedufus

Tue Mar 20, 2012 10:12 pm


RE:Line Thing

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

Simple things amuse simple minds. aka I love it!