TGC Codebase Backup



Colorful Lines by Madscientist

25th Aug 2009 23:05
Summary

It will randomly draw connected lines all over the screen.



Description

It will randomly draw connected lines all over the screen. The lines are randomly colored and the rate that they're drawn at grows. Once the lines almost fill the screen, all of them are deleted and the program repeats.



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: Colorful lines
REM Created: 8/25/2009 4:18:51 PM
REM
REM ***** Main Source File *****
REM

oldX=rnd(640)
oldY=rnd(480)
Acc=250
linetime=1000


Do

R=rnd(255)
G=rnd(255)
B=rnd(255)
ink rgb(R,G,B),rgb(0,0,0)

NewX=rnd(640)
NewY=rnd(480)
line oldX,oldY,NewX,NewY
OldX=NewX
OldY=NewY

dec linetime

if linetime<1
cls
acc=250
linetime=1000
endif

acc=acc-2

sleep acc

loop