Sorry your browser is not supported!

rem -------------
rem Message Demo
rem By OBese87
rem -------------

set display mode 1024,768,32
randomize timer()
hide mouse
sync on
sync rate 0

`Find what fonts are on the computer
Perform Checklist For Fonts
`how many fonts are on the computer?
numfonts=CHECKLIST QUANTITY()

`Make a message
Message$="Out of the darkness comes light."

`Find how many words there are
words=1
For c = 1 to Len(Message$)
   if mid$(Message$,c)=" " then inc words
Next c

`make array to store words
DIM Words$(words)

DIM Format#(words,4) :`stores x/y positions, font type and font size
color=0 : x=1 : y=2 : font=3 : size=4 :`labels for our array

`Break up the message into words
c=0
For w = 1 to words
   Repeat
     inc c
     Words$(w)=Words$(w)+mid$(Message$,c)
   Until mid$(Message$,c)=" " or c=Len(Message$)
Next w

`assign position, fonts and font sizes to the different words
For w = 1 to words
   Format#(w,size)=rnd(60)+20
   Format#(w,font)=rnd(numfonts-1)+1
   Format#(w,x)=rnd(screen width()-text width(Words$(w))*10)
   Format#(w,y)=rnd(screen height()-text height(Words$(w))*10)
Next w

`MAIN LOOP
target=255

Repeat
   For w = words to 1 step -1
      set text font CHECKLIST STRING$(Format#(w,font))
      set text size Format#(w,size)
      col=Format#(w,color)
      ink rgb(col,col,col),0

      text Format#(w,x),Format#(w,y),Words$(w)

      if w>1
         Format#(w,color) = curvevalue(Format#(w-1,color),Format#(w,color),300)
      else
         Format#(w,color) = curvevalue(target,Format#(w,color),1000)
      endif
   Next w

   sync
Until Format#(words,color)=target

`tidy up
UNDIM Format#(words,4)
UNDIM Words$(words)
END

sync on
sync rate 30
hide mouse
gosub images

for f=0 to 7
	

	if f=0 then message$="In" : pos=0
   if f=1 then message$="the" : pos=45
   if f=2 then message$="Rainforest" : pos=90
  	if f=3 then message$="1000" : pos=135
  	if f=4 then message$="trees" : pos=180
  	if f=5 then message$="are" : pos=225   	
   if f=6 then message$="cut down" : pos=270
   if f=7 then message$="every day" : pos=315




for t=0 to 255 step 15

      set text size 30
   	ink rgb(t,t,t),0
      if f=3 then ink rgb(t,0,0),0
		center text 320,pos,message$
sync
	next t
next t

wait 500

for t=0 to 300 step 8
sprite 1,320-(t/2),370,1
size sprite 1,t,50
sync
next t

wait 500
ink rgb(0,0,0),0
for zz=370 to -50 step -5
sprite 1,322-(t/2),zz,1
box 0,zz,639,zz+50
sync
next t

delete sprite 1


images:
ink rgb(255,0,0),0
box 0,0,10,100
get image 1,0,0,11,101
cls
return