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

Viper

Wed Jan 19, 2005 11:47 am


Pointless but kool

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

press the arrow keys around to see wut happens :D


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

zomg

Wed Jan 19, 2005 9:35 pm



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

whoa! trippy

pssst....this should go in the turing source code


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

[Gandalf]

Wed Jan 19, 2005 11:11 pm



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

woah...nice - its almost hypnotizing lol.
You should make it end when it stops drawing to the screen.  (you can make a reasonable asumtion as to the screen size...)


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

Viper

Thu Jan 20, 2005 8:45 am



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

yeah i could make it stop but then i probly end up adding more and more and more i tend to get a lil carried away for a new programmer


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

ste_louis26

Wed Jan 26, 2005 8:42 am



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

Neat Program. Here's some mod's that make it only one multicoloured circle. I think it's a little cooler with more colours  and the movement is faster.


var WinID := Window.Open ("graphics:max;max")
var r,r2:=0
var mx,my,mb:int
var x,y,x2,y2,cc,c:int

var key:array char of boolean
colourback(9)
cls
x:=maxx div 2
y:=maxy div 2
x2:=maxx div 2
y2:=maxy div 2
loop
cc:=Rand.Int (1,10)
if cc=1 then c:=7
elsif cc=2 then c:=67
elsif cc=3 then c:=98
elsif cc=4 then c:=15
elsif cc=5 then c:=27
elsif cc=6 then c:=57
elsif cc=7 then c:=98
elsif cc=8 then c:=200
elsif cc=9 then c:=180
elsif cc=10 then c:=120
end if
Input.KeyDown (key)
drawoval (x,y,r,r,c)
r:=r+5
delay (100)
if key(KEY_RIGHT_ARROW)
then x:=x+10
end if
if key(KEY_LEFT_ARROW)
then x:=x-10
end if
if key (KEY_UP_ARROW)
then y:=y+10
end if
if key (KEY_DOWN_ARROW)
then y:=y-10
end if
end loop
[/code]


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

Viper

Wed Jan 26, 2005 8:46 am



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

ok...... :?