home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Console / MST-UF12.LHA / UniFIX / Install-UniFIX < prev    next >
Encoding:
Text File  |  1994-12-29  |  3.0 KB  |  138 lines
  1. ; $VER: UniFIX Install Script 1.0
  2. ; Written by EMPiRE/MYSTiC
  3. ; BBS   : +31-72-157682 / +31-72-201182
  4.  
  5. (set UF_Version "v1.2")
  6.  
  7. (set @default-dest "SYS:")
  8.  
  9. (set PkgOpts 63)     ; All files
  10.  
  11. (procedure setPkgOpts
  12.   (
  13.     (set PkgOpts
  14.       (askoptions
  15.         (prompt "Select the parts of the UniFIX package you want to install at this time.")
  16.         (help
  17.           "This part of the installation procedure lets you select the "
  18.           "parts of the UniFIX package you want to install at this time.\n\n"
  19.           @askoptions-help
  20.         )
  21.         (choices
  22.           ; bit 0
  23.           "UniFIX     - Main File & Manual"
  24.           ; bit 1
  25.           "Send Tools - DX-Send/WildSend/SMDplay/MegaLoad"
  26.           ; bit 2
  27.           "Tools      - Hex"
  28.           ; bit 3
  29.           "Ced Font   - Ced Font"
  30.           ; bit 4
  31.           "UF.CFG     - Default UniFIX Configuration"
  32.         )
  33.       )
  34.     )
  35.   )
  36. )
  37.  
  38. (procedure setDirPath
  39. ;
  40. ; ****************************
  41. ; * Ask the user for a directory name.
  42. ; ****************************
  43. ;
  44. ; these variables must be defined before calling this procedure:
  45. ;    setDirPathWhy
  46. ;    setDirPathHelp
  47. ;    DirPath
  48. ;
  49. ; this procedure returns the selected directory in DirPath
  50. ;
  51.   (
  52.     (set FALSE  0)
  53.     (set TRUE   1)
  54.     (set moveon FALSE)
  55.     (while (NOT moveon)
  56.       (
  57.         (set DirPath
  58.           (askdir (prompt ("Please select the directory %s" setDirPathWhy))
  59.             (help setDirPathHelp "\n" @askdir-help)
  60.             (default DirPath)
  61.           )
  62.         )
  63.  
  64.         (if (= (exists DirPath) 0)
  65.           (makedir DirPath (confirm "EXPERT"))
  66.           (set moveon TRUE)
  67.         )
  68.       )
  69.     )
  70.   )
  71. )
  72.  
  73.  
  74. (SetPkgOpts)
  75.  
  76. (if (OR (IN PkgOpts 0) (IN PkgOpts 1) (IN PkgOpts 2) (IN PkgOpts 3) )
  77.   (
  78.     (set setDirPathWhy "where the UniFIX directory should be created.\n")
  79.     (set setDirPathHelp "This part of the installation is asking you where you would like to place the UniFIX directory.\n")
  80.     (set DirPath @default-dest)
  81.     (setDirPath)
  82.  
  83.     (set @default-dest (tackon DirPath "UniFIX"))
  84.     (makedir (tackon DirPath "UniFIX")
  85.              (prompt "\nCreating Directory\n\n " @default-dest)
  86.              (help)
  87.              (confirm "EXPERT")
  88.     )
  89.  
  90.     (if (IN PkgOpts 0)
  91.       (
  92.         (copyfiles
  93.           (source "UniFIX")
  94.           (dest @default-dest)
  95.           (infos)
  96.         )
  97.         (copyfiles
  98.           (source "UniFIX.DOC")
  99.           (dest @default-dest)
  100.         )
  101.       )
  102.     )
  103.     (if (IN PkgOpts 1)
  104.       (copyfiles
  105.         (source "SendTools")
  106.         (dest @default-dest)
  107.         (all)
  108.       )
  109.     )
  110.     (if (IN PkgOpts 2)
  111.       (copyfiles
  112.         (source "Tools")
  113.         (dest "C:")
  114.         (all)
  115.       )
  116.     )
  117.     (if (IN PkgOpts 3)
  118.       (copyfiles
  119.         (source "FONTS")
  120.         (dest "FONTS:")
  121.         (all)
  122.       )
  123.     )
  124.     (if (IN PkgOpts 4)
  125.       (copyfiles
  126.         (source "S")
  127.         (dest "S:")
  128.         (all)
  129.       )
  130.     )
  131.   )
  132. )
  133.  
  134. (exit (cat "Please read the Manual for more information on UniFIX.\n\n"
  135.            "For BugReports, Suggestions or ALL Copiers call\n\n LAST OUTPOST\n\n+31-72-157682 / +31-72-201182\n\n"
  136.       )
  137. )
  138.