Wow, so many responses
I fixed up the origonal one. No the colors dont get too dark, and switch quicker - Looks a tad nicer.
Also, If your looking for wierd, look at this one! Many "improvments"...
:
**MUST BE RUN IN FULLSCREEN EXCLUSIVE 1024/768**
set display mode 1024,768,16
hide mouse
sync on
sync rate 0
colchr=rnd(200)+20
colchg=rnd(200)+20
colchb=rnd(200)+20
dim txt(90,3)
for t=1 to 90
txt(t,0)=rnd(300)+32
txt(t,1)=rnd(1024)
txt(t,2)=rnd(1536)
txt(t,3)=3+rnd(4)
next t
set text font "Symbol"
set text size 26
set text to bold
do
inc speed#
if speed#>1000 then speed#=1000
inc g#,speed#/1000
inc ci
if colchra=0
inc colchr,rnd(1)+1
if colchr>250 then colchra=1
else
dec colchr,rnd(1)+1
if colchr<2 then colchra=0
endif
if colchga=0
inc colchg,rnd(1)+1
if colchg>250 then colchga=1
else
dec colchg,rnd(1)+1
if colchg<2 then colchga=0
endif
if colchba=0
inc colchb,rnd(1)+1
if colchb>250 then colchba=1
else
dec colchb,rnd(1)+1
if colchb<2 then colchba=0
endif
if ci=20 then ci=0
ink rgb(255-colchr,255-colchg,255-colchb),0
for s=1 to 36
nx=newxvalue(512,wrapvalue((360/36)*s+g#),700)
ny=newzvalue(384,wrapvalue((360/36)*s+g#),700)
nxa=512
nya=384
line nxa+rnd(2)-1,nya+rnd(2)-1,nx+rnd(2)-1,ny+rnd(2)-1
next s
for c=1 to 40
color=255-(c*6)
colorr=color-colchr
colorg=color-colchg
colorb=color-colchb
if colorr<10 then colorr=10
if colorr>255 then colorr=255
if colorg<10 then colorg=10
if colorg>255 then colorg=255
if colorb<10 then colorb=10
if colorb>255 then colorb=255
ink rgb(colorr,colorg,colorb),0
nxa=512
nya=384
circle nxa,nya,(c*20+ci)-8
next c
mex=mousex()
mey=mousey()
mang=ATANFULL(mex-512,mey-384)
mdist=sqrt((512-mex)^2+(384-mey)^2)
set gamma 255+mdist,255+mdist,255+mdist
ink rgb(0,0,0),0
for l=1 to 20
nxa=newxvalue(512,mang+(l/2)-5,mdist)
nya=newzvalue(384,mang+(l/2)-5,mdist)
nxb=newxvalue(512,mang+(l/2)-5,800)
nyb=newzvalue(384,mang+(l/2)-5,800)
line nxa+rnd(4)-2,nya+rnd(4)-2,nxb+rnd(4)-2,nyb+rnd(4)-2
next l
sync
if mdist<20
cls rgb(5,5,5)
endif
if mouseclick()=1
for t=1 to 90
inc txt(t,2),txt(t,3)
if txt(t,2)>1536 then txt(t,2)=0
ink rgb(50,100+(txt(t,3)*20),50),0
text txt(t,1),txt(t,2)/2,chr$(txt(t,0))
next l
endif
ent$=entry$()
if len(ent$)>0 then dcount=0 else inc dcount
if dcount=100 then st$="":dcount=0
st$=st$+ent$
clear entry buffer
ink rgb(50+(dcount*2),50+(dcount*2),50+(dcount*2)),0
center text 510,98-(dcount/2),st$
center text 514,102-(dcount/2),st$
ink rgb(rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2),rnd(100)+100+(dcount/2)),0
center text 512,100-(dcount/2),st$
loop
-Formerly DarkSephiroth-
