! 9Aliases v1.0.ctg by 1PsYcHo KiLLER U1@1216003 VNET
! From: 9Aliases v1.0 by 1PsYcHo KiLLER U1@1216003 VNET
! I know, I am a very obscure programmer....   :-)
! Lets you have Email aliases! Makes life much easier!
!
! UPDATED BY: CtG [FiXx]
! ON DATE: 12-11-94
! MODS MADE: FiXxed Infinite Loop bug when you have no aliases defined.
!            (Jeez Psycho... you'd think you'd at least add in that one
!             extra line.)
!            Also, changed it to be quicker when asking for an alias.
!
! UPDATED BY: CtG [FiXx]
! ON DATE: 02-13-95
! MODS MADE: FiXxed the ugly way it looks when it stacks the char.
!
! UPDATED BY:
! ON DATE:
! MODS MADE:
!
!
!
! Add to the second to the last line of VSTRING #14 so that it looks like this:
!   %pL. Local User
!   %pQ. Quit
! !ALIAS
!
! (No, don't.  Just put the !ALIAS line.  [CtG])
!
! Uncomment this line if you wish only the sysop to be able to use this script.
! TESTVAL $SECURITY < 255 DONE
! Make this your data directory:
$datadir = "C:\VBBS\DATA\ALIAS\"
$fname = $datadir & "ALIAS." & $user
$pk = 1
tr "  5L0. Local User"
tr "  5A. UEBn3ter an ALiBAUS"
tr "  5Q0. Quit"
rc $we "2Select: "
! tr
ts $bs
test $we = "A" start
stack $we
go done


# start
tr
tr "[list] to list aliases / [new] for New Alias / [enter] to Quit"
RS $dd "2Select: "
tr
test $dd = "new" enter
test $dd = "list" listall
test $dd = "" quit

open $fname input

# stayhere
read $p1
read $p2
read $p3
if $p1 = "!EOF!"
    tr "6ALIAS NOT FOUND!"
    close
    go start
endif
test $p1 = $dd qq
go stayhere

# qq
close
tr "ASending Email to 5" $p1
tr

$stck = $p2 & $p3 & $cr
stack $stck
go done

# enter
tr $w1 "9Enter alias you wish to use. (ie. 'chris') :"
rs $w1 "2Select: "
tr "9Now enter the net number as it appears above (ie. 1 = VirtualNET, 2=RushNET)"
rc $w2 "2Select: "
tr
tr "9Now enter the net address. (ie. 1@1216003) :"
rs $w3 "2Select: "
tr
getyn $ono "2Save? "
test $ono = "N" quit
open $fname append
write $w1
write $w2
write $w3
close
go start

# listall
open $fname input

tr "UAlias:              Aliased to:"
# againandagain
read $h1
read $h2
read $h3
test $h1 = "!EOF!" okokok
test $h1 = "" okokok
JL $h1 20
tr "7" $h1 $h3
go againandagain

# okokok
close
go start

# quit
$crs = $cr & $cr
stack $crs
# done

! END OF SCRIPT