Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / Colorful Colors!

Author

Message

adamsmasher23

Years of Service

User Offline

Joined: 31st Jan 2003

Location: United States

Posted: 17th Feb 2003 00:54

Link

Here is a small program with colorful colors!

+ Code Snippet

set display mode 800,600,32
sync on : sync rate 0
l=0
cls
f=0
g=0
hide mouse
x=0
y=0
do
dot x,y
if f=0 then inc x
if f=1 then dec x
inc y
if x=800 then x=1
if y=600 then y=1
if x=0 then x=799
if y=0 then y=599
if x>785 and y>580 then x=800 : y=0 : f=1 : ink rgb(rnd(255),rnd(255),rnd(255)),0 : inc l
if x580 then x=0 : y=600 : f=0 : ink rgb(rnd(255),rnd(255),rnd(255)),0 : inc l
if l=3
wait 1
x=0
y=0
l=0
cls
endif
loop

Whatever I did it wasn't me!

Profile PM Website

Server time is: 2024-05-05 09:02:11
Your offset time is: 2024-05-05 09:02:11