!ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
!³NAME:TGALPROF.V                         DATE: 9-11-1994   ÚÄÂÄ¿          ³\
!³FULL NAME:The Gunslinger's User Area Subscriber            ÉÍÍÍ A        ³ ³
!³VBBS Version: 6.x+                      DIFFICULTY: Easy   ºÁÍ»UNSLINGER ³ ³
!³TYPE: Script                            VERSION: 1.0       ÈÍͼ ORIGINAL ³ ³
!ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ Description ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
!³This script will allow your users to look at a list of available subs and³ ³
!³choose some to subscribe to.  Then it sends an e-mail to you and let's   ³ ³
!³you know what subs your users want.                                      ³ ³
!³NOTE: This requires AREALIST.TXT created by VAREA 7.00.00 and above.     ³ ³
!³You should be able to get it from a number of people.  If necessary, I   ³ ³
!³can have you download it.  It's nearly 200K, no netting.  :(             ³ ³
!ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ Thanks to.... ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
!³Richard Shell and Silly Boy.  Portions of the search coding were taken   ³ ³
!³from DMPHONE.V.  Thanks guys!                                            ³ ³
!ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³
! ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
# TGSTART
kill request.txt
tr $clear
loc 5, 0
tr "1This is here for you, the user, to tell me, the SysOp, what message subs you'd"
tr "9like on the BBS.  You can stop after each list, or continue on.  To tell me"
tr "7which sub you want, remember the FIRST group of numbers, the area number."
tr
getyn $yn1 "1Continue? "
test $yn1 = N ends
tr $clear
newpage
$pathd = D:\vbbs\net\arealist.txt
ef $pathd
tr
getny $ny1 "9Were there any subs you want to subscribe to?"
if $ny1 = Y then
go subscriber
endif
go exit

# SUBSCRIBER
tr $clear
rs $sta "1Enter the area number now: 0"
!TEST $STA = " " BEGIN
$none = "0"
$t = $sta LEN 0
testval $t < 1 pick
# sel
tr $clear
   loc 07, 3
   tr "7ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´1Searching AREALIST7ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
   loc 09, 3
   tr "7ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
$cnt = 1
open $pathd input
suspendpagebreak
do while $cnt
   $k = 0 RND 5
   loc 08, 5
   ifval $k = 1 then
   ts "U/"
   endif
   ifval $k = 2 then
   ts "U|"
   endif
   ifval $k = 3 then
   ts "U\"
   endif
   ifval $k = 4 then
   ts "U-"
   endif
   break ends
   $x = $sta UPPER 0
   read $b
   test $b = "!EOF!" ends
   loc 08, 3
   tr "7³"
   loc 08, 74
   tr "7³"
   $f = $b INSTR $x
   testval $f = 0 rpt
   $c = $b MID 4 LEFT 6 
   tr " 1"
    loc 08, 4
    tr $c
    loc 08, 74
    tr "7³"
    $n = $b MID 32 LEFT 32
    loc 08, 11
    tr $n 
    ifval $f <> 0 then
     $none = "1"
     tr
     getyn $dop "                1Is this the sub?"
     test $dop = "Y" ends
     tr $clear
   loc 07, 3
   tr "7ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´1Searching AREALIST 7ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
   loc 09, 3
   tr "7ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
     $none = "0"
     $calling = " "
    endif
   # rpt
loop
# pick
# ends
close
tr
if $none = "1" then
$tg2 = $c & " " & $n
open request.txt append
write $tg2
close
loc 11, 30
tr "9Search Complete"
$dd = 1
else
loc 8, 30
tr "7String not found."
$dd = 0
delay 3
endif
tr
getny $tg1 "1Were there any more you liked? "
test $tg1 = Y subscriber
test $tg1 = N exit

# EXIT
loc 15, 5
getyn $tg3 "9Do you wish to send the SysOp your sub requests?"
if $tg3 = Y then
call mailsub
endif
tr $clear
loc 10, 0
tr "  7ÚÄÂÄ¿"
tr "   9ÉÍÍÍ 1A"
tr "   9º7Á9Í»1unslinger"
tr "   9ÈÍͼ 1Original"
tr
tr "1If you enjoyed this script, have script ideas, need to chat, or are "
tr "9just bored, feel free to e-mail me!"
tr "119@11405201 7VirtualNET"
tr "917@91405001 1DamNeT!  7[9RC7]"
pause
exit 

# MAILSUB
$subj = "1Sub request!"
$ra = "1Hey, " & $SYSOP & "."
$rb = "9Could you please subscribe to these subs:"
$rc = "7Thanks a lot!"
$rd = 9 & $HANDLE
setemail
buffer clear
buffer append $ra
buffer append ""
buffer append $rb
# TG-X
$tg-cnt = 1
open request.txt input
do while $tg-cnt
read $tg2
test $tg2 = "!EOF!" mailsub2
buffer append $tg2
loop
# MAILSUB2
close
buffer append $rc
buffer append $rd
save 1 $node $subj 0 "" 1
buffer clear
ret
.