! NiFT.V                                           6** FREE SCRIPT **0
! The /<-rAd Menu Script, released under GNU Public License
! Featuring Scrollable Menu Bar, Easy Configuration, and *Source Code*
!
! By:   Christopher Heschong (CtG)                      This Script is
!       ctg@wiw.org  Internet                           UNDER 200
!       1@  1615004  VirtualNET                         Lines!
!       1@    61501  The Collective
!
! You can, and certainly should, modify this do do other, more imaginative
! things than what it currently does.  You could, in fact, use this sample
! script to create your entire menu system.  I've tried to make it as easily
! configurable as possible by putting all the main variables up top.
!
! Please Use, Modify, Distribute, and Copy this script to your heart's
! content, with or without acknowledgements to me.
!

! System Variable Initialization - **YOU** Configure these
! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ
  $background = "c:\vbbs\txt\vlogin.ans" ! Background ANSI Wallpaper File
  $startx = 58                           ! Starting x Position for window
  $starty = 7                            ! Starting y Position for window
  $barwidth = 18                         ! Width of Lightbar
  $numoptions = 4                        ! Number of Options
  $barcolor = "K"                       ! Color of Menu Bars
  $backcolor = "Q"                      ! Color of Menu Background
  $option1 = "The Screwdriver"           ! The actual options
  $option2 = "FeedBack"
  $option3 = "Who's On"
  $option4 = "Log Off"
  $barpos = 1                            ! Starting Bar Position
! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ
  jc $option1 $barwidth
  jc $option2 $barwidth
  jc $option3 $barwidth
  jc $option4 $barwidth

! Internal Variable Initialization
  $up = 254 chr 0           ! Cursor Key Constants (For Local Arrows)
  $down = 253 chr 0
  $right = 251 chr 0
  $left = 252 chr 0
  $escape = 27 chr 0        ! Escape Key Constant (For Remote Arrows)

  $bottom = $numoptions
  $hidden = $startx + $barwidth - 2
  $winbottomy = $starty + $bottom + 2
  $winbottomx = $startx + $barwidth -1

& GUEST
test $handle = "GUEST" guest

& pause
setflags f on
setflags s off

# NiFT
  call box

! Display the Options
  $tmpx = $startx
  $tmpy = $starty
  call dnln
  tr $backcolor $option1
  call dnln
  tr $backcolor $option2
  call dnln
  tr $backcolor $option3
  call dnln
  tr $backcolor $option4

# getkey
    $clr = $barcolor
    call putbar
    rc $key
    if $key = $escape
      rc $key
      ts $bs
      rc $key
    endif
    ts $bs
    test $key = $up up
    test $key = 8 up
    test $key = "A" up
    test $key = $down down
    test $key = 2 down
    test $key = "B" down
    test $key = "|" log
    test $key = "G" log
    test $key = "F" fast
    test $key = "W" who
    test $key = "V" vs

  ! Now go to the Neat Stuff
    if $key = $cr
      test $barpos = 1 vs
      test $barpos = 2 feed
      test $barpos = 3 who
      test $barpos = 4 log
    endif
    go getkey

! Here are the Neat Stuff Routines:
  # feed
    tr $clear
    feedback
    go NiFT
  # vs
    tr $clear
    link vs
  # fast
    tr $clear
    oneliners
    go end
  # who
    tr $clear
    who
    call pause
    go NiFT
  # log
    tr $clear
    stack "|"
    exit bye

! Draw the Box Around your Stuff
  # box
    tr $clear
    suspendpagebreak
    ef $background
    $tmpy = $starty
    $tmpx = $startx - 2
    loc $tmpy $tmpx
    tr "RÚÄÄÄS Login Options RÄÄ¿"
    call dnln
    tr "R³                    ³"
    call dnln
    tr "R³                    ³"
    call dnln
    tr "R³                    ³"
    call dnln
    tr "R³                    ³"
    call dnln
    tr "RÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ´"
    call dnln
    tr "R³  Use Arrow Keys  ³ ³"
    call dnln
    tr "RÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ"
    resumepagebreak
  ret
  # dnln
    $tmpy = $tmpy + 1
    loc $tmpy $tmpx
  ret

! Bar Movement Procedures
  # up
    $clr = $backcolor
    call putbar
    $barpos = $barpos - 1
    if $barpos = 0
      $barpos = $bottom
    endif
    go getkey

  # down
    $clr = $backcolor
    call putbar
    $barpos = $barpos + 1
    $foo = $bottom + 1
    if $barpos = $foo
      $barpos = 1
    endif
    go getkey

  # putbar
    $tmpy = $starty + $barpos
    loc $tmpy $startx
    if $barpos = 1
      tr $clr $option1
    endif
    if $barpos = 2
      tr $clr $option2
    endif
    if $barpos = 3
      tr $clr $option3
    endif
    if $barpos = 4
      tr $clr $option4
    endif
    loc $winbottomy $winbottomx
  ret

# end
  tr $clear
  exit