Computer Science Canada cool thing by twinkletoes- |
| Author: | twinkletoes [ Fri Nov 05, 2004 12:17 pm ] |
| Post subject: | cool thing by twinkletoes- |
[code] setscreen ("title:By : shane bellefeuille") setscreen ("graphics:300;300, nobuttonbar") var x, y, button, co : int co := 56 colorback (black) for row : 1 .. 30 for col : 1 .. 180 put " " .. end for end for loop Mouse.Where (x, y, button) Text.Locate (1, 1) if button = 0 then drawline (x, y, 150, 150, co) co := co + 1 if co = 96 then co := 69 end if end if end loop [/code] |
|
| Author: | cool dude [ Fri Nov 05, 2004 1:56 pm ] |
| Post subject: | |
not bad. seems like a cool effect, but i've seen a lot like those on this site. lol. good job |
|