home *** CD-ROM | disk | FTP | other *** search
- (delopts "force") ;Unprotect destination files automatically
- (set dice_dest (
- (askdir
- (prompt "Please select where you want Commercial Dice V3 "
- "Tutorial to be installed. A drawer called \"DCC\" will "
- "be made in the selected directory. You will need about "
- "1.8MB of free space on your Hard Disk partition."
- )
- (help @askdir-help)
- (default "work:")
- )
- )
- )
-
- (complete 0)
- (set dice_dest (tackon dice_dest "DCC"))
- (makedir dice_dest)
- (set @default-dest dice_dest)
- (makedir (tackon dice_dest "DTMP"))
-
- (askdisk (prompt "Please Insert Dice Disk 1")
- (dest "Dice1")
- (help "Please Insert Your Dice Disk 1 In Any Floppy Drive")
- )
- (copyfiles (source "dice1:")
- (dest dice_dest)
- (prompt "Copying Disk1")
- (infos)
- (choices "CONFIG" "BIN" "REXX" "HELLO" "VMake" "VOpts")
- )
- (copyfiles (source "dice1:s")
- (dest "s:")
- (choices ".EDRC")
- (prompt "Copying DME Config")
- )
-
- (complete 30)
- (askdisk (prompt "Please Insert Dice Disk 2")
- (dest "Dice2")
- (help "Please Insert Your Dice Disk 2 In Any floppy Drive")
- )
- (copyfiles (source "dice2:")
- (dest dice_dest)
- (prompt "Copying Disk2")
- (infos)
- (choices "DLIB" "INCLUDE")
- )
-
- (complete 60)
- (askdisk (prompt "Please Insert Dice Disk 3")
- (dest "Dice3")
- (help "Please Insert Your Dice Disk 3 In Any Floppy Drive")
- )
- (copyfiles (source "dice3:")
- (dest dice_dest)
- (prompt "Copying Disk3")
- (infos)
- (choices "DOC" "EXAMPLES" "Readme" "Upgrade" "more")
- )
-
- (complete 90)
-
- (startup "--Commercial Dice C Tutorial--"
- (command "assign dcc: \"" dice_dest "\"\n"
- "assign dlib: dcc:dlib\n"
- "assign dinclude: dcc:include\n"
- "assign ddoc: dcc:doc\n"
- "assign dtmp: dcc:dtmp\n"
- "setenv dccopts=\"-2.0 -// -f -R\"\n"
- "path dcc:bin add\n"
- )
- (prompt "Some commands need to be added to your "
- "user-startup."
- )
- (help "Dice C needs some assigns and a path to be "
- "added to the /"s:user-startup/" file. If you "
- "do not do this then Dice will not run correctly "
- "from your hard drive."
- )
- )
- (complete 100)
- (askbool
- (prompt "All the required Assigns have been set for you to run DICE. "
- "Your startup script automatically adds DICE to the path. "
- "Until you reboot, you need to issue the command: PATH ADD DCC:BIN "
- "in any shell you wish to run DICE from.\n\n"
- )
- (help "You may wish to check the s:User-Startup file to be sure "
- "everything is in the proper place.")
- (choices "Thank You" "")
- (default 0)
- )
-