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

recneps

Fri Feb 06, 2004 5:33 pm


Very Cool Effect

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

very cool effect i made in my opinion, easily created too :)

randomize
var x1,x2,y1,y2,clr:int:=0
var window:int:=Window.Open("graphics:max;max")

loop
randint(x1,0,maxx)
randint(x2,0,maxx)
randint(y1,0,maxy)
randint(y2,0,maxy)
randint(clr,0,15)
drawline(x1,y1,x2,y2,clr)
end loop



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

Cervantes

Fri Feb 06, 2004 5:55 pm



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

looks cool, pointless though :eh:
those are fun to program.
try adding to that program.  make some cool more cool stuff, and put in that program.. make a show! :) 

here's a neat one that you can add :)

View.Set ("graphics:567;567,title:Cervantes' Coolness")
for j : 1 .. maxy by maxy div 5
        Draw.FillBox (j, j, j + maxy div 5, j + maxy div 5, 255)
        Draw.FillBox (maxy - j - maxy div 5, j, maxy - j, j + maxy div 5, 255)
    end for
    Draw.FillBox (1, maxx div 2 - maxx div 10, maxy div 5, maxx div 2 + maxx div 10, 255)
    Draw.FillBox (maxx - maxx div 5, maxy div 2 - maxy div 10, maxx, maxy div 2 + maxy div 10, 255)
    Draw.FillBox (maxx div 2 - maxx div 10, 1, maxx div 2 + maxx div 10, maxy div 5, 255)
    Draw.FillBox (maxx div 2 - maxx div 10, maxy - maxy div 5, maxx div 2 + maxx div 10, maxy, 255)
var OR : int := maxy div 2
for a : 32 .. 103
    for as : 1 .. 4
        OR -= 1
        Draw.FillOval (maxx div 2, maxy div 2, OR + (maxx div 2 - maxy div 2), OR, a)
    end for
    delay (30)
end for
OR := 0
delay (1500)
for decreasing a : 44 .. 39
    for as : 1 .. 65
        OR += 1
        Draw.Oval (maxx div 2, maxy div 2, OR, OR, a)
    end for
    delay (1)
end for


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

Andy

Fri Feb 06, 2004 5:56 pm



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

we did that back in turing 3, when there was full screen....
btw randomize is obsolete cuz turing 4 auto does it
and ever tried to move the mouse to the top of the screen? prety cool


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

Delta

Fri Feb 06, 2004 6:02 pm



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

for recenps as basic as that is... its kinda kewl... reminds me of lots of strings being wrapped(strung) really fast... nice effect :)

for cervantes... lol very pointless lol

for dodge... what are you talking about (mouse)... it does nothing... sure it looks like it gets drawn over... but its not really happening... is that what you meant?


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

Cervantes

Fri Feb 06, 2004 6:07 pm



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

move mouse to top??  

anyways, here's another one to add to the show :) (if you want :eh:)

var x, y, btn : int
var clr, OR : int
loop
    OR := 0
    Mouse.Where (x, y, btn)
    if x >= 0 and x = 0 and y