!***** Virtual Scripting Contest Entry *****
! QUICK DOWNLOAD MENU
! By PsYcHo KiLLER 1@1216003 VNET
!
! Setup: You can place this in your START.V or from an option in your
! files menu. This is similar to the one used on The Business Board,
! except I think it looks a lot better and it is probably easier to
! configure. (No script editing)
!
! If the sysop runs this script without having a QUICKDL.TXT, it will
! let him create one. It may be easier to create one yourself using
! EDIT. The format for QUICKDL.TXT is as follows:
! **START QUICKDL.TXT
! Description for file #1
! Filename #1
! Path (no trailing backslash) #1
! Description for file #2
! Filename #2
! Path (no trailing backslash) #2
! **END QUICKDL.TXT
! Et Cetera.
! 
! This script will allow up to 15 quickdownload files.

SUSPENDPAGEBREAK
checkfile $youneedme "QUICKDL.TXT"
testval $youneedme <> 0 ready
ifval $security < 255
    tr "Please alert the SysOp that he/she needs to create a QUICKDL.TXT in
    tr "the main VBBS directory."
    go fine
endif
TR $CLEAR
tr "UCreating QUICKDL.TXT"
tr "UIf you need to edit this file (or if you make a mistake), just use dos's"
tr "UEDIT command."
open QUICKDL.TXT OUTPUT
# making
$o = 1 + $o
testval $o = 16 ttyl
tr
tr "BEntering file number " $o
rs $desc "3File Description (ENTER to quit)    : "
test $desc = "" ttyl
rs $file "3Filename (no path)                  : "
rs $path "3Path to file (no trailing backslash): "
write $desc
write $file
write $path
go making

# ttyl
close
# ready
open "QUICKDL.TXT" input
read $desc1
read $file1
read $path1
$fn = $path1 & "\" & $file1
checkfile $size1 $fn
read $desc2
if $desc2 = "!EOF!"
    $number = 1
    go finished
endif
read $file2
read $path2
$fn = $path2 & "\" & $file2
checkfile $size2 $fn
read $desc3
if $desc3 = "!EOF!"
    $number = 2
    go finished
endif
read $file3
read $path3
$fn = $path3 & "\" & $file3
checkfile $size3 $fn
read $desc4
if $desc4 = "!EOF!"
    $number = 3
    go finished
endif
read $file4
read $path4
$fn = $path4 & "\" & $file4
checkfile $size4 $fn
read $desc5
if $desc5 = "!EOF!"
    $number = 4 
    go finished
endif
read $file5
read $path5
$fn = $path5 & "\" & $file5
checkfile $size5 $fn
read $desc6
if $desc6 = "!EOF!"
    $number = 5
    go finished
endif
read $file6
read $path6
$fn = $path6 & "\" & $file6
checkfile $size6 $fn
read $desc7
if $desc7 = "!EOF!"
    $number = 6 
    go finished
endif
read $file7
read $path7
$fn = $path7 & "\" & $file7
checkfile $size7 $fn
read $desc8
if $desc8 = "!EOF!"
    $number = 7
    go finished
endif
read $file8
read $path8
$fn = $path8 & "\" & $file8
checkfile $size8 $fn
read $desc9
if $desc9 = "!EOF!"
    $number = 8
    go finished
endif
read $file9
read $path9
$fn = $path9 & "\" & $file9
checkfile $size9 $fn
read $desc10
if $desc10 = "!EOF!"
    $number = 9
    go finished
endif
read $file10
read $path10
$fn = $path10 & "\" & $file10
checkfile $size10 $fn
read $desc11
if $desc11 = "!EOF!"
    $number = 10
    go finished
endif
read $file11
read $path11
$fn = $path11 & "\" & $file11
checkfile $size11 $fn
read $desc12
if $desc12 = "!EOF!"
    $number = 11
    go finished
endif
read $file12
read $path12
$fn = $path12 & "\" & $file12
checkfile $size12 $fn
read $desc13
if $desc13 = "!EOF!"
    $number = 12
    go finished
endif
read $file13
read $path13
$fn = $path13 & "\" & $file13
checkfile $size13 $fn
read $desc14
if $desc14 = "!EOF!"
    $number = 13
    go finished
endif
read $file14
read $path14
$fn = $path14 & "\" & $file14
checkfile $size14 $fn
read $desc15
if $desc15 = "!EOF!"
    $number = 14
    go finished
endif
read $file15
read $path15
$fn = $path15 & "\" & $file15
checkfile $size15 $fn
$number = 15
# finished
close
# notagain
$n = 0
tr $clear
tr "     UÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸"
tr "     U³     UQ1u9ick Download menu by PsYcHo KiLLER 1@1216003 VirtualN1EUT    U ³"
tr "     U³úú##úúFilenameúúúúúSizeúúúúúDescriptionúúúúúúúúúúúúúúúúúúúúúúúúúúúú³"
tr "     U³                                                                  U ³"
tr "     1³                                                                  U ³"
tr "     U³                                                                  U ³"
tr "     1³                                                                   1³"
tr "     1³                                                                   1³"
tr "     1³                                                                   1³"
tr "     9³                                                                   1³"
tr "     1³                                                                   9³"
tr "     1³                                                                   9³"
tr "     9³                                                                   1³"
tr "     9³                                                                   9³"
tr "     9³                                                                   9³"
tr "     9|                                                                   9³"
tr "     -|                                                                   -:"
tr "     -:                                                                   -ù"
tr "     9.
tr "     -ù                                                                   -ú"
tr "
tr "     -ú                                                                   -ú"

# again
testval $n = $number alldone
$n = 1 + $n

$loo = 4 + $n
ifval $n < 10
    loc $loo 8
    ts "U(7 " $n "U)"
endif
ifval $n > 9
    loc $loo 8
    ts "U(7" $n "U)"
endif

ifval $n = 1
    $fil = $file1
    $siz = $size1
    $des = $desc1
endif
ifval $n = 2
    $fil = $file2
    $siz = $size2
    $des = $desc2
endif
ifval $n = 3
    $fil = $file3
    $siz = $size3
    $des = $desc3
endif
ifval $n = 4
    $fil = $file4
    $siz = $size4
    $des = $desc4
endif
ifval $n = 5
    $fil = $file5 
    $siz = $size5
    $des = $desc5
endif
ifval $n = 6
    $fil = $file6
    $siz = $size6
    $des = $desc6
endif
ifval $n = 7
    $fil = $file7
    $siz = $size7
    $des = $desc7
endif
ifval $n = 8
    $fil = $file8
    $siz = $size8
    $des = $desc8
endif
ifval $n = 9
    $fil = $file9
    $siz = $size9
    $des = $desc9
endif
ifval $n = 10
    $fil = $file10
    $siz = $size10
    $des = $desc10
endif
ifval $n = 11
    $fil = $file11
    $siz = $size11
    $des = $desc11
endif
ifval $n = 12
    $fil = $file12
    $siz = $size12
    $des = $desc12
endif
ifval $n = 13
    $fil = $file13
    $siz = $size13
    $des = $desc13
endif
ifval $n = 14
    $fil = $file14
    $siz = $size14
    $des = $desc14
endif
ifval $n = 15
    $fil = $file15
    $siz = $size15
    $des = $desc15
endif

loc $loo 13
ts "U" $fil
loc $loo 25
ts "B" $siz
loc $loo 35
ts "3" $des
go again
# alldone
loc 23 1
rn $dwf "5                     Download which file? U(AENTER To QuiTU)"
testval $dwf = 0 fine
ifval $dwf > $number
    pause "3You chose a number that was too high. Press any key to try again."
    go notagain
endif
ifval $dwf < 0
    pause "3You chose a number that was too high. Press any key to try again."
    go notagain
endif

! These lines are part 1 of 2 that will give the user's their time back.
! Just delete these lines if you don't want any time to be granted.
! (Make sure you also delete the block near the end of the script)

$hour = $time left 2
$min = $time mid 4 left 2
$mins = $hour * 60
$start = $mins + $min

! End of time block part 1

ifval $dwf = 1
    $fn = $path1 & "\" & $file1
    $sz = $size1
    download $fn
    go calctime
endif
ifval $dwf = 2
    $fn = $path2 & "\" & $file2
    $sz = $size2
    download $fn
    go calctime
endif
ifval $dwf = 3
    $fn = $path3 & "\" & $file3
    download $fn
    $sz = $size3
    go calctime
endif
ifval $dwf = 4
    $fn = $path4 & "\" & $file4
    download $fn
    $sz = $size4
    go calctime
endif
ifval $dwf = 5
    $fn = $path5 & "\" & $file5
    download $fn
    $sz = $size5
    go calctime
endif
ifval $dwf = 6
    $fn = $path6 & "\" & $file6
    download $fn
    $sz = $size6
    go calctime
endif
ifval $dwf = 7 
    $fn = $path7 & "\" & $file7
    download $fn
    $sz = $size7
    go calctime
endif
ifval $dwf = 8
    $fn = $path8 & "\" & $file8
    download $fn
    $sz = $size8
    go calctime
endif
ifval $dwf = 9
    $fn = $path9 & "\" & $file9
    download $fn
    $sz = $size9
    go calctime
endif
ifval $dwf = 10
    $fn = $path10 & "\" & $file10
    download $fn
    $sz = $size10
    go calctime
endif
ifval $dwf = 11
    $fn = $path11 & "\" & $file11
    download $fn
    $sz = $size11
    go calctime
endif
ifval $dwf = 12
    $fn = $path12 & "\" & $file12
    download $fn
    $sz = $size12
    go calctime
endif
ifval $dwf = 13
    $fn = $path13 & "\" & $file13
    download $fn
    $sz = $size13
    go calctime
endif
ifval $dwf = 14
    $fn = $path14 & "\" & $file14
    download $fn
    $sz = $size14
    go calctime
endif
ifval $dwf = 15
    $fn = $path15 & "\" & $file15
    download $fn
    $sz = $size15
    go calctime
endif
# calctime

! The following block returns credits to the user.
! It is set to award the user 1 credit for every k they downloaded.
! Delete this block if you do not want it to give the user's credits
! back or if you do not use the credits system.
! Keep in mind it will still reward the user credits even if he aborts
! the download.

$divide = $sz / 1024
$cdt = $divide INT 0
addcredits $cdt
tr "3Granting B" $cdt "B credits."

!End of credit return block

!Part 2/2 of the return time routine.

$hour = $time left 2
$min = $time mid 4 left 2
$mins = $hour * 60
$done = $mins + $min
$addback = $done - $start
addtime $addback
tr "3GrantingB " $addback  " 3minutes."
pause

! End of time block part 2

go notagain
# fine
resumepagebreak
tr $clear