!-==----------------------------==[FX-BSLST.V]==---------------------------==- != Script Name: FX-BSLST.V By: BuLLwiNKle (FiXx ProGraMmeR) = !- Files Modified: None Vnet 2@1512006 (Falcon BBS) - != Files Created: BBSLOCAL.TXT/BBSLONGD.TXT = !- Release Date: 12-14-94 - !- Difficulty: Medium Hard (see notes below) - != = !- Description: This program allows your users to view and add BBS's to your - != listings. It keeps seperate files for Local and Toll Call = !- (Long Distance) BBS's and it will NOT allow duplicate BBS - != phone #'s - even in different listings (ie no putting 1 BBS = !- in Local AND Toll lists). It includes premade menus for the - != most common modem speeds and BBS softwares currently around. = !- - != Misc. Notes: The two files BBSTYPES.TXT and MODEMLST.TXT contain the = !- actual output strings for the software and modem types. You - != can freely change the color codes but do NOT in alter the = !- spacing in any way! Also, if you wish to add more BBS or - != modems, you will have to edit the code, or email me and I = !- will add it into the next release. - != = !- - != Special Thanks To: Lord Doomslayer for the script routines originally = !- written for VBBS v5.52 - != - !- IMPORTANT NOTE: Make absolutely SURE that you have the 4 paths at the - != top of the script set correctly AND that the 2 files = !- included are placed there as well. You do NOT need to - != create the BBSLO???.TXT files, the script will do it for = !- you automatically. - != = !-==-----------------------------------------------------------------------==- # begin action "[FiXx] BBS Listings" $bbs1 = "c:\vbbs\txt\bbslocal.txt" $bbs2 = "c:\vbbs\txt\bbslongd.txt" $modems = "c:\vbbs\txt\modemlst.txt" $bbtype = "c:\vbbs\txt\bbstypes.txt" tr $clear newpage $opt = 123Q? tr "" tr " UBuLLwiNKle Band UFiXx BScripts Proudly Presents0" tr "" tr " -ÜÜŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪÜÜ 0" tr " -²-Ūßß 3 ÜÜÜÜś ÜÜÜÜś .ÜÜ ś ÜÜŻ ž .ÜÜ ś ÜÜÜÜÜ - ßßŪ²0" tr " -²² B ŽŪ ßŪž ŽŪ ßŪž ŽŪ ß. ŪŪł ŪŪ ŽŪ ß. łŪŪ - ²²0" tr " -±² 0 ŽŪßßŪÜ ŽŪßßŪÜ ßßßŪÜ ŪŪž ŽŪś ßßßŪÜ ŽŪ.ž - ²±0" tr " -°± B ŪŪÜžŽŪ ŪŪÜžŽŪ ŽŪÜžŽŪ ŽŪŻŽŻ ŽŪŻ ŽŪÜžŽŪ ŽŪŻś - ±°0" tr " -° 3 śßßßß śßßßß ßßßß .ßßß ßßß ßßßß ßßß - ° 0" tr "" tr " -[B1-] ULocal BBS Listing " tr " -[B2-] ULong Distance BBS List " if $security > 250 sysopt # sysopt tr " -° -[BE-] UEdit Local BBS List -°0" tr " -±° -[BD-] UEdit Long Distance List -°±0" $opt = 123EDQ? endif tr " -° -[B3-] UAdd A BBS To The List - °0" tr " -²° -[BQ-] UQuit BBS Listing -°²0" tr " -Ū-² -²Ū0" tr " -ŪŪŪÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŪŪŪ " tr " -ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß 0" tr "" rr $choice $opt " BYour Choice " $handle " -=> " test $choice = "3" write test $choice = "Q" done test $choice = "E" editit test $choice = "D" editit # read tr if $choice = 1 then tr $clear $bbslist = $bbs1 else tr $clear $bbslist = $bbs2 endif tr test $bbslist = 0 nolist call titler ef $bbslist tr pause go begin # nolist tr $clear tr "" tr "" tr "" tr "" tr " -ŚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄæ0" tr " -³ B There have been no entries made to the BBS listings here. You can -³0" tr " -³ B either enter your favorite BBS to the list now, or check back later to -³0" tr " -³ B see if there are any new entries. -³0" tr " -ĄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŁ0" tr "" tr "" tr "" pause go begin endif # write tr $clear tr "" tr "" tr tr "UPlease enter in the phone number, be sure to include the area code 0" tr "UHit -<BBacKspacE-> Uor -<BR-> Uat any time to re-enter the entire number.0" tr " -<3(xxx)xxx-xxxx->0" DELAY 2 tr "" # redo $xyz = 0 $tempp = "" $rcl0 = $bs & R0123456789 $phone = "MNumber- : 5(" ts $cr $phone " " $cr do $xyz = 1 3 rr $tempp $rcl0 $phone test $tempp = $bs redo test $tempp = R redo $phone = $phone & $tempp ts $cr loop $phone = $phone & ")" do $xyz = 1 3 rr $tempp $rcl0 $phone test $tempp = $bs redo test $tempp = R redo $phone = $phone & $tempp ts $cr loop $phone = $phone & "-" do $xyz = 1 4 rr $tempp $rcl0 $phone test $tempp = $bs redo test $tempp = R redo $phone = $phone & $tempp ts $cr loop $phone = $phone MID 16 tr "" tr "" $phpro = "UIs {" & $phone & "} what you want? -(BY-)es/(BN-)o -Æ " rr $corph YN $phpro tr "" tr "" test $corph = N write getny $longdist "UIs it long distance from here? -Æ 0 " if $longdist = N then $bbslist1 = $bbs1 $bbslist = $bbs2 else $bbslist1 = $bbs2 $bbslist = $bbs1 endif tr $bbcount = 0 # checknum if $bbcount = 1 then $bbslist = $bbslist1 endif open $bbslist input $cnt = 1 do while $cnt read $line test $line = "" closeit break closeit test $line = !EOF! closeit $test1 = $line LEFT 15 $test2 = $test1 MID 3 test $test2 = $phone inuse loop # closeit close if $bbcount = 0 then $bbcount = 1 go checknum endif go chk2 # inuse close tr $clear tr "" tr "" tr "" tr "" tr "-ŚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄæ0" tr "-³ 6That number is already listed for an entry in the BBS List. If you need -³0" tr "-³ 6to make changes, leave the SysOp email. The entry can either be deleted -³0" tr "-³ 6and you can reenter it, or the SysOp can make the appropriate changes. -³0" tr "-ĄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŁ0" tr "" tr "" tr "" pause go begin # chk2 tr tr " B>3ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄB<0" rs $bbsn " UBBS Name -(336 characters max-)Æ0 " tr # listopts tr $clear tr "" tr " -ÜÜŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪÜÜ0" tr " -²Ūßß ßßŪ²0" tr " -²² 1 ł Ż Ü ś. śÜÜÜÜ ÜÜÜ . ł Ż Ü ś. .ÜÜ ś -²²" tr " -±² 1 śŪŪ ŽŪŪŪž ž ŪŪž ŪŪ ßÜ.ßś śŪŪ ŽŪŪŪž ŽŪ ß. -²±" tr " -°± 1 ŽŪ ŻŽŻŽŪś ÜŪßÜ ŽŪś ŽŪŻ ŽßßžÜ ŽŪ ŻŽŻŽŪś ßßßŪÜ -±°" tr " - ° 1 ŪŪ ŪŪŻŽŪŻ ŽŪŻ.ŽŻ ŪŪ. ŪŪ ŽŪÜÜŻ ŪŪ ŪŪŻŽŪŻ ŽŪÜžŽŪ -° " tr " - 1 ßß Ūžßßß ßŪÜßž ßßßßßł ßßß ßß Ūžßßß ßßßß 0" tr " - 0" tr " -° -[11-] U2400 bps -[12-] U9600 v.32 -°0" tr " -±° -[13-] U14.4 v.42bis -[14-] U14.4 HST -°±0" tr " -²± -[15-] U14.4 HST/DS -[16-] U16.8 HST -±²0" tr " -²² -[17-] U16.8 HST/DS -[18-] UVFAST -²²0" tr " -Ū² -[19-] U28.8 v.34bis -[1U-] UUnlisted -²Ū0" tr " - ŪŪŪÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŪŪŪ0" tr " - ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß 0" tr " -[1R-]Ue-write BBS Information.0" tr "" rl $maxb "UR" 9 "1 BBS Modem Speed -Æ0" test $maxb = "R" WRITE if $maxb = "U" then $maxb = 10 endif open $modems input do $xxx = 1 $maxb read $max1 loop close tr $clear tr "" tr " -ÜÜŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪŪÜÜ0" tr " -²Ūßß5 ÜÜÜÜś ÜÜÜÜś .ÜÜ ś ÜÜÜÜÜ Üś ÜŻ ÜÜÜś ÜÜÜ . .ÜÜ ś -ßßŪ²0" tr " -²² 5 ŽŪ ßŪž ŽŪ ßŪž ŽŪ ß. łŪŪ ŽŪžŪŪŻ ŽŪ ÜŪ ßÜ.ßś ŽŪ ß. -²²0" tr " -±² 5 ŽŪßßŪÜ ŽŪßßŪÜ ÜßßßŪÜ ŽŪ.ž ŽŪŻŽŪž ŪŪßś ŽßßžÜ ÜßßßŪÜ -²±0" tr " -°± 5 ŪŪÜžŽŪ ŪŪÜžŽŪ ŽŪÜžŽŪ ŽŪŻś ŽŪßś. ŽŪžśł ŽŪÜÜŻ ŽŪÜžŽŪ -±°0" tr " - ° 5 śßßßß śßßßß ßßßß ßßß Ū ł .ß ßßß ßßßß -° 0" tr " 0" tr " -[51-] UVirtual BBS -[52-] UWWIV " tr " -[53-] UWildCat! -[54-] UTelegard " tr " -° -[55-] UMajor BBS -[56-] URenegade - °0" tr " -±° -[57-] UQuick BBS -[58-] URmoteAccess -°±0" tr " -²± -[59-] USpitfire -[510-] UHermes -±²0" tr " -²² -[511-] UPC Board -[512-] URBBS -²²0" tr " -Ū² -[513-] UMaximus -[5U-] UUnlisted -²Ū0" tr " - ŪŪŪÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŪŪŪ" tr " - ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß" tr " -[5R-]0e-write BBS Information.0" tr "" rl $bbst "UR" 13 " 5BBS Software3 Æ9 " tr "0" test $bbst = "R" write if $bbst = "U" then $bbst = 13 endif open $bbtype input do $xxx = 1 $bbst read $bbs2 loop close tr $ph1 = "0" & $phone $bbsn = $bbsn LEFT 36 jl $bbsn 38 $bbs1 = " 7" & $bbsn call titler tr $ph1 $bbs1 $bbs2 $max1 tr rr $key9 YN "5Is this what you want? -(5Y-/5N-)0" tr $key = $key9 UPPER 0 test $key = "N" begin $logtext = $handle & " wrote bbslist entry for " & $bbsn log $logtext open $bbslist append $list1 = $ph1 & $bbs1 & $bbs2 $list2 = $list1 & $max1 write $list2 close go begin # done tr tr " -FiXx ScRipTs '940" delay 3 EXIT START # titler $bbstitle = "4 " & $bbsname & " Listing 0" jc $bbstitle 78 tr $bbstitle tr "" tr "1Phone Number BBS Name BBS Type Modem Type " tr "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄ" ret # editit if $choice = E then $bbslist = $bbs1 & $cr else $bbslist = $bbs2 & $cr endif stack $bbslist editfile go begin