!==========================================================================
!  FileName   :   NEWS.V
!  Date       :   07-07-1992
!  Who Put It Together: Outlaw 1, 1@8230
!
!  Description:   This is a scipt that you can add to your start.v to
!                 allow you to have any important NEWS you want your
!                 users to know about.
!
!                 This is my first script, actually it's not mine, I just
!                 slapped it together by looking at two other scripts.
!                 The orginal idea and the basic script came from
!                 Caveman 3@2034.  And few pieces came from GREMPOST v5.51
!                 by The Gremlin, 1@8180.  I just dressed it up a little
!                 and got it all working.
!
!  Setup      :   First, you need to add a new message sub to one of your
!                 database groups to keep your news in if you don't already
!                 have one.  I have a group called "local messages",
!                 this is where I keep any local message bases and any
!                 locally networked stuff.  The database group letter is
!                 "L".  In this group I have a message sub called "CC
!                 System News", this is where I post any news the users
!                 NEED to know about, the database filename is CCNEWS.  You
!                 can change the Title and filename to anything you like.
!                 As for the other options like Taglines and Number of
!                 entries to keep, that's up to you also. One thing I did
!                 was set this up as a semi read-only sub, the only people
!                 who can post in here are my co-sysop and myself, so my
!                 RSL is 1 and the WSL is 100. Once you've got this done,
!                 find the line below that says dbgroup l and change the l
!                 to whatever group you decide to use.  Then edit this
!                 file, NEWS.V, to suit your needs, take out all the
!                 comments if you want to reduce the size.
!
!                 Next you need to add a few lines to your start.v.  First, you
!                 need to place "call news", leave off the quotes, in your
!                 start.v at the point you want the news to be shown.  Then at
!                 the end of your start.v add "& news", no quotes.  This will
!                 add the news.v code to your start.v whenever you compile the
!                 start.v.  (Thanks to Wazoo, 1@8033, for this, I was just
!                 dumping the whole thing into my start.v)
!
!                 Run VCOM on your start.v and news.v and you should be set.
!                 If you run into any problems or have any suggestions, email
!                 me at 1@8230.
!
!  NOTE       :   If you want, you can make a new message group and just have
!                 the one message sub in it, but just remember to add the new
!                 database letter to the approiate .FB, otherwise you won't be
!                 able to post any messages or delete them.

# news
!=============================================================================
!  Initilization of seperator line
!=============================================================================
!
if $ansi = ON then
   $sepline = "�������������������������������������������������������������������������������"
   $sepline = $norm & $red & $sepline
else
   $sepline = "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
endif

!=============================================================================
! Find and initilize the message sub you set up for your news
! If it's not found, quit.
!=============================================================================
!
dbgroup a                          ! This is where the right message sub is
$newsdb = 0                        ! selected, I found out how to do this by
# trynextdb                        ! looking at GREMPOST v5.51 by The Gremlin
$newsdb = $newsdb + 1              ! 1@8180.
testval $newsdb > $dbnumber leave  !
db $newsdb                         !
test $dbfile = "KDNEWS" founddb    ! This is the database FILENAME that you
test $dbfile <> "KDNEWS" trynextdb ! used in VCONFIG

!=============================================================================
! Check to see if there are any new news items to read
! if not, quit
!=============================================================================
!
# founddb
ts $clear
tr "K E N D A S  System News..."
testval $highdb < $numberdb readnews
tr
tr
tr "Nothing New To Read Since Your Last Call " $Handle ""
go leave

!=============================================================================
! This block of code is where all new messages are shown to the user since
! they last called.  This part of the code was sent to me by Caveman, 3@2034.
! I made a few changes to dress it up a little.  Just change the Title to what
! ever you want and the colors etc. etc.
!=============================================================================
!
# readnews
$startdb = $highdb + 1
do $t = $startdb $numberdb
  # readagain
  load $t
  test $result <> "OK" dontshow
  ts $clear
  $z = "  K E N D A S System News  "
  jc $z 80
  tr "" $z
  tr "Subject: " $subject ""
  tr "Date   : " $dbdate ""
  tr $sepline
  tr
  displaytext
  tr
  tr $sepline
  $resp = $cr & "A"
  $pr = "Press [A] to read news Item again, or [ENTER] to continue: "
  rr $ans $resp $pr
  tr
  test $ans = "A" readagain
  # dontshow
loop
tr
tr "Thats All Of The News For Now...."

!=============================================================================
! Done
!=============================================================================
!
# leave
tr
pause
tr $clear
newpage
# endit