! NiFDL.V þ Version 2.00 þ 10.13.94 þ By Captain Neon @1503035 VirtualNET ! I believe I've done enuff work to this to call it my own, but this ! script is based on the work of two different scripts, NiFT.V and ! DLFILE.V þ Version 2.80 þ 10.02.94 þ By Black Knight @1512046 VirtualNET ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! DLFILE.V þ REVISION HISTORY {Starting with version 2.00/1} ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! 2.00/1 . Fixed the incorrect LOGOFF bug... nappy bug.. ewww... ! Changed colors... 2.10+ Should allow CONFIGURABLE colors ! Without the heart codes {Hopefully} ! 2.05 ... Few Cosmetic changes... Added single file batch option. ! 2.16 ... Didn't figure out the colors yet :(... ! Now allows Autodownloading of ANY batch capable protocol. ! Whoops! Area 2 should have said 5 :) -=- tis corrected. ! 2.73 ... Fixed exit bug if no files were found to put in batch. ! Added SysOp Download option (9).. ! 2.80 ... Added Password protection for option 9 -- Added a log ! if incorrect password was given. ! 3.00! ... Will be the FINAL release, and the BEST of them all!!!!!! ! Unless another SysOp gives me more ideas ;) ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! þþ SYSOPS: Use 0(UX0)Utract text to get this script, so you have full useage ! þþ of the colors :) ! þþ Disclaimer: Hopefully you know it already.....:) ! þþ Another Change -In your text directory, make a file called DLFILE.TXT ! That will show the users your protocol listing. ! Included in the DLFILE.ZIP, there is a sample. ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! þþ Mods By Captain Neon ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! First off what I did was take the heartcodes out of the revision history ! of DLFILE.V. I dunno bout you, but I use a regular ol dos text edit, ! and I wanna be able to READ this stuff... ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! Second, I combined the whole darn thing with the Amazing NiFT.V script ! to allow for this whole thing to be done via an up and down arrow control ! menu. So there. ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! Thirdly, I think I cancelled out part of what the Black Knight called ! Color Configurability, but, hey, you can change the box color, the ! menu choices color, and the menu bar color... heck, if that ain't ! configurable, nothin is... ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! Fourth, I added in a little thingie so that when the sysop didn't ! specify a file to d/l, it will skip the password request. Seemed kinda ! redundant to me. ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! If I added in all the itsy changes I had to do to make the scripts work ! together, I'd go crazy, cause I just went and did em... not record em. ! I've bored you enuff with my ramblings... ! -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ! ** Start Info ! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ ! System Variable Initialization - **YOU** Configure these ! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ ! $boxcolor = "-" ! Color of Da Box $barcolor = "J" ! Color of Menu Bars $backcolor = "2" ! Color of Menu Background $password = "PASSWORD" ! Password to set for SysOp download ANY file. $dlf = "C:\VBBS\TXT\DLFILE.TXT" ! Path/File to DLFILE.TXT $tofilefb = files ! The .FB you want the program to exit to. $p2 = " --0=U> " ! Prompt for protocol selection input. ! ** NOTE: Make sure these are BATCH capable ! ** Protocols. I.e. Some Y Modems are, ! ** Some are NOT. $keys = "ZQ" ! Here are the KEYS needed to change protocols. ** Make ! sure the Q is there so the user can Quit, and make ! sure the protocols match what the DLFILE.TXT file says, ! AND your protocol selections in VCONFIG! ! ! ! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ ! NiFDL Variable Initialization ! Don't mess with anything below this unless you know what you're doing. ! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ $startx = 10 ! Starting x Position for window $starty = 4 ! Starting y Position for window $barwidth = 50 ! Width of Lightbar $numoptions = 6 ! Number of Options $option1 = "ÄÍGo to Batch File Xfer MenuÍÄ" $option2 = "ÄÍDownload a Single FileÍÄ" $option3 = "ÄÍAutomatic Download with NO Logoff AfterÍÄ" $option4 = "ÄÍAutomatic Download WITH Logoff AfterÍÄ" $option5 = "ÄÍSearch For Single File, and Put in BatchÍÄ" $option6 = "ÄÍQuit back to File MenuÍÄ" $option7 = "ÄÍSysOp Only : Download Any File off HDÍÄ" ! þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ jc $option1 $barwidth jc $option2 $barwidth jc $option3 $barwidth jc $option4 $barwidth jc $option5 $barwidth jc $option6 $barwidth jc $option7 $barwidth ifval $security > 254 then $numoptions = $numoptions + 1 endif ! $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 $barpos = 1 $hidden = $startx + $barwidth - 2 $winbottomy = $starty + $bottom + 2 $winbottomx = $startx + $barwidth -1 $sver = "2.00" $tail = " --ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" $head = " --ÄÄÄ0} UNiFDL.V -þ0 Version 7" & $sver & " 0{-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ # beginme # 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 call dnln tr $backcolor $option5 call dnln tr $backcolor $option6 if $numoptions = 7 then call dnln tr $backcolor $option7 endif # 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 ! Now go to the Neat Stuff if $key = $cr test $barpos = 1 batch test $barpos = 2 singlefile test $barpos = 3 singlefile2 test $barpos = 4 fastbatchno test $barpos = 5 fastbatchyes test $barpos = 6 exits test $barpos = 7 yeppers endif go getkey ! Here are the Neat Stuff Routines: # batch tr $clear tr $head tr " 0You are currently using the- þ UBatch Download 0option" tr $tail batchdl go beginme # singlefile tr $clear tr $head tr " 0You are currently using the- þ UDownload A Single File 0option" tr $tail tr " 0What is the filename you wish to download? Use a ? if you do not know" tr " 0the whole file name. For example, if you wanted to download a file named" tr " 2VBBS614A.ZIP0, you could type:" tr " UVB??6?4A.?I? tr " 0and it will prompt you for EVERY file with a VB 6 4A. I structure. tr $tail rs $filenym " UFile To Scan For and Download -(U?-=2Wild-/UEnter-=2Abort-) 0> " if $filenym = "" then go beginme else tr $tail tr "UBe sure to press `D' to Download the file!!" stack $filenym + $crlf downloadfile go beginme # singlefile2 tr $clear tr $head tr " 0You are using the- þ USearch For Single File and Put in Batch 0option" tr $tail tr " 0What is the filename you wish to search for? Please leave an exact filename tr " 0as the first file that matches your specifications is automatically picked tr " 0and put in your batch queue. tr $tail rs $filenym " UFile To Scan For and Tag in Batch -(U?-=2Wild-/UEnter-=2Abort-) 0> " if $filenym = "" then go beginme else tr $tail stack $filenym + $crlf + "BQ" downloadfile go beginme # fastbatchno tr $clear tr $head tr " 0You are using the- þ UAutomatic Download with NO Logoff After 0option" tr $tail ef $dlf rr $runz $keys $p2 if $runz = "Q" go beginme else suspendpagebreak stack "DN" + $runz tr tr " 0File Xfer Started:U " $time "- þ U" $date batchdl resumepagebreak go beginme # fastbatchyes tr $clear tr $head tr " 0You are using the- þ UAutomatic Download WITH Logoff After 0option" tr $tail tr rs $check2 " UYou will be logged off right after Xfer -- 2ARE YOU SURE? -(UY-/UN-) > " if $check2 = Y then tr $clear go startseq else go beginme # startseq tr $head tr " 0You are using the- þ UAutomatic Download WITH Logoff After 0option" tr $tail ef $dlf rr $runz $keys $p2 if $runz = "Q" go beginme else suspendpagebreak stack "DY" + $runz tr tr " 0File Xfer Started:U " $time "- þ U" $date batchdl resumepagebreak go beginme # yeppers tr $clear tr "2This option is availiable to SysOp only!" delay 1 if $handle <> $sysop then log "UDLFILE -þ 2 User " $user " had access to option 9!!!" endif tr $clear tr $head tr " 0You are using the 2SYSOP ONLY - þ UDownload Any File 0option" tr $tail tr rs $dafile "--0=U> 2File to download : " if $dafile = "" then getyn $bang "Try another file?" else go p-word endif if $bang = y then go yeppers else go beginme endif # p-word rx $pwfile "--0=U> 2Password : " if $pwfile = $password then tr tr "PW Accepted!" tr download $dafile go beginme else tr tr "UPW Incorrect!" log "UDLFILE -þ 6Incorrect Password For Option 9!" log "UDLFILE -þ 6Tried U" $pwfile "6!" tr delay 1 delay 1 go beginme # exits tr $clear tr " -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" tr " UNiFDL.V -þ 0Version7 2.0 -þ 9By Captain Neon U@1503035 7VirtualNET" tr " -ÄÄ0} U10-.U13-.U13- 0{-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" tr " -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ " tr " UNiFDL.V -is based on " tr " UDLFILE.V -þ 0Version7 2.80 -þ 9By Black Knight U@1512046 7VirtualNET" tr " -ÄÄ0} U10-.U06-.U94- 0{-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ " tr tr " -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" tr " 0This copy of UNiFDL.V0 is 2REGISTERED0 to 1" $sysop "0 of 1" $bbsname "0." tr " -ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" tr exit $tofilefb ! Draw the Box Around your Stuff # box tr $clear suspendpagebreak $tmpy = $starty $tmpx = $startx - 2 loc $tmpy $tmpx $box1 = $boxcolor & "ÉÍ͵6 Kargo D/L Options " $box2 = $box1 & $boxcolor $boxtop = $box2 & "ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" tr $boxtop call dnln $borderbar = "º º" $botmbar = "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" # border tr $boxcolor $borderbar call dnln tr $boxcolor $borderbar call dnln tr $boxcolor $borderbar call dnln tr $boxcolor $borderbar call dnln tr $boxcolor $borderbar call dnln tr $boxcolor $borderbar call dnln IF $numoptions = 7 then tr $boxcolor $borderbar call dnln ENDIF tr $boxcolor $botmbar call dnln 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 if $barpos = 5 tr $clr $option5 endif if $barpos = 6 tr $clr $option6 endif if $barpos = 7 tr $clr $option7 endif loc $winbottomy $winbottomx ret # end loc 23 4 tr $clear