From: Scott Seekford #2 @1910605 VirtualNET
Date: Fri Jun 02, 1995 01:32:56

7� URBe3garding: 9UH1e9lp with Spotad...
7� URBe3quested UA RBe3ply: UY1e9p.
7� UDBa3rkUQBu3ote 3vB13.B10
 
U����������B�U�B�����������������������3�����������������������������������������-��
U���������������������B�U�BĴ UU1h9m, Uy1o9u Us1a9id Ut1h9isB ������3�B�3�����������������������Ŀ
3����������������������U�B�U����������������������������B�U�B������������������������
3�0 Where did you get spotad.v from?  I called Richard's Business Board, and even
3�0 did a search for the file, but it didn't come up...
3�0 Pleasure Slave
3���������������������U�B�U����������������������������B�U�B�����������������������Ŀ
U���������������������B�U�BĴ UA1n9d UI Ur1e9plied Uw1i9thB ������3�B�3�������������������������
U����������B�U�B�����������������������3��������������������������������������������
                                                UH1a9ssim Uw1u9z Uh1e9re3!

 Spotad is in the virtual library... it's $20 a year, and there are thousands
of neat-o scripts and utils available.... hmmm.... lemme see if SpotAd will
fit..:)

                            SPOTAD.V
                            by Richard Shell
 
SPOTAD is a neat little script which will show an advertisement or
other text material to a user in a scrolling window.  It may be called
up from any string prompt.  We call it up from Part 1 of the function
block prompt, string #25.
 
The text itself is saved in SAYINGx.DAT files in the following format:
 
First Line :  Title (which is centered)
Text:  Any number of lines of text may be entered, however, for aesthetic
       reasons keep the line length of each to 78 characters.  You may
       need to use padding. Use the included saying data files as examples.

!SPOTAD.V
!CALL THIS SCRIPT FROM WHATEVER STRING YOU LIKE
!CHANGE THE SECURITY LEVEL TO WHATEVER YOU LIKE
testval $security = 80 end
test $ansi = "OFF" end
!CHANGE THE NUMBER 15 ON THE NEXT LINE  A HIGHER OR LOWER NUMBER TO
!INCREASE OR DECREASE THE FREQUENCY THAT THE SPOT AD WILL APPEAR
$e = 2 RND 15
testval $e <> 6 end
!CHANGE THE 15 BELOW TO MATCH THE NUMBER OF SAYING.DAT FILES YOU USE
$k = 0 RND 15
!CHANGE THIS PATH TO WHERE YOU KEEP THE SAYINGx.DAT FILES
!WE SUGGEST JUST CHANGING THE DRIVE LETTER AND PLACING ALL OF THE
!SAYING.DAT FILES IN YOUR MAIN VBBS DIRECTORY
$f = "o:\vbbs\saying" & $k & ".dat"
checkfile $m $f
testval $m = 0 end
suspendpagebreak
open $f input
read $z
$tt = "                                                                      
        "
loc 20, 1
ts $tt
$h = "7���(c)SpotAd����������2 "
loc 20, 1
ts $h
jc $z 32
ts $z
$j = "7 ���������������������"
loc 20, 54
ts $j
# try
test $z = "!EOF!" goexit
read $z
test $z = "!EOF!" goexit
loc 21, 1
ts "                                                                         
         "
$t = $z LEN 0
$c = "U"
$cnt = 1
$x = 1
$y = 79
DO WHILE $cnt
testval $x = $t tryit
$w = $z LEFT $x
loc 21, $y
ts " "
loc 21, $y
ts $w
$x = $x + 1
$y = $y - 1
go godo
# tryit
delay 3
go try
# godo
LOOP
 
# goexit
close
$r = "                                                                       
         "
loc 20, 1
ts $r
loc 21, 1
ts $r
# end
resumepagebreak

 heh, there ya be! :)

---Origin: Cape Fear Ratite Ranch***Wilmington/Hampstead NC*(910)270-9112
0
0Via: 1704000*1 5*1 1614017*1 1615002*1 1615004*1