A very very very nice effect for DBC made by
Monos
Rem * Title : A NEW DEMO
Rem * Author : Monos
Rem * Date : Today
REM MONOS
REM
REM http://mic.ha.bei.t-online.de
cls 0
gosub Init
Rem MAIN
DO
counter1=wrapvalue(counter1+1)
counter2=wrapvalue(counter2+2)
if counter2=0 then ghost=1-ghost
if ghost then ghost object on 999 else ghost object off 999
for a=1 to objecte
pitch object up a,(a/100.0)
roll object left a,(a/40.0)
turn object right a,(a/300.0)
scale object a,sin#(counter1),sin#(counter2),sin#(counter1)
next a
gosub calc_particle
SYNC
LOOP
rem SUBS
calc_particle:
set current bitmap 1
for a=0 to particle
if life(a)=0
life(a)=253
part_x(a)=128+(rnd(255)-128)
part_y(a)=0
pic(part_x(a),part_y(a))=1
endif
if life(a)>0
if pic(part_x(a),part_y(a)+1)=0 and part_y(a)<255
pic(part_x(a),part_y(a))=0
ink 0,0
dot part_x(a),part_y(a)
part_y(a)=part_y(a)+1
pic(part_x(a),part_y(a))=1
else
life(a)=life(a)-1
endif
if rnd(2)=1
if part_x(a)>=0 and part_x(a)<256
ink 0,0
dot part_x(a),part_y(a)
pic(part_x(a),part_y(a))=0
part_x(a)=part_x(a)+(rnd(2)-1)
pic(part_x(a),part_y(a))=1
endif
endif
endif
if part_y(a)>=254 then life(a)=0
inc col
if col>255 then col=0
ink rgb(counter2,col,counter1),0
dot part_x(a),part_y(a)
next a
get image 1,0,0,255,255
for a=1 to objecte
texture object a,1
next a
set current bitmap 0
get image 2,193,113,447,367
texture object 999,2
return
Init:
remstart
if check display mode(640,480,24)=1
set display mode 640,480,24
else
set display mode 640,480,32
endif
remend
autocam off
dim sin#(360)
for a=0 to 360
sin#(a)=sin(a)*100.0
next a
sync on
sync rate 60
hide mouse
randomize timer()
col=0
ghost=0
rem CHANGE THIS!
rem Good Values: 100-1000
particle=200
dim life(particle)
dim part_x(particle)
dim part_y(particle)
dim pic(256,256)
for a=0 to particle
part_x(a)=128+(rnd(255)-128)
part_y(a)=rnd(255)
life(a)=255
next a
create bitmap 1,256,256
objecte=5
for a=1 to objecte
make object sphere a,40+a
set object a,1,1,0
REM rem the next line!
scale object texture a,2,3
ghost object on a
next a
make object plain 999,1000,800
ghost object on 999
position object 999,0,0,500
set object 999,1,1,0
make object plain 998,80,60
position object 998,0,0,0
ghost object on 998,1
set object 998,1,1,1
position camera 0,0,-45
backdrop off
return
[/center]
