---

This is a sorta graphics demo I made in the last half hour, using circles and lines instead of clearing the screen to make a nice effect. The mouse emits a shadow from the screen center. If you point near the middle of the screen, the screen will be cleared normally. Also, by pressing the left mouse button you turn on a falling character thing like in the matrix. Anyways, hope ya like it

Edited:
+ Code Snippet

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)
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

---

wow! Thats a really nice effect
Dont watch it for too long or ur gonna puke all over ur monitor

---

Nice effect!

---

Cool.

---

good job

---

Yeah great job

---

Thanks guys

---

Great, although it should come with a health warning, it took me half-an-hour to press the esc key (it draws you in )

---

Oww.. my head hurts .

Nice effect

---

AWESOME
that is so cool i would make it a screensaver if i were u
i did but ti is all screwy cause it like will start 2 times for soem reason but anyway congratulations u have made soemthign that i will put on my screen rather than the blank default

---

It seems to run a little slow in DBC, or maybe that is just how it is supposed to be, well anyways, good job!

---

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**

+ Code Snippet

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

---

^^^ Anyone tried the last one? ^^^ (last post of mine)
Tis, very lots gooder. (grammar, meh)

---

BEEEUUUUGGGGHHHHHH......um..interesting effect, anyone got a tissue?

---

thats kinda neat...
'i like that'-Ying Yang Twins

---

What is reallly cool is when you left-click the mouse adn hold while you point the mouse to the center of the screen.

Nice!

---

Hey, there is a good game in this demo - trying to hold the mouse pointer in the centre to make the screen go blank.

---

Oh great now I feel sick thanks a lot!