home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / game / misc / diamondprefs / installprefs < prev    next >
Encoding:
Text File  |  1995-07-07  |  3.0 KB  |  109 lines
  1. ; $VER InstallPrefs 1.3 (08.07.95)
  2.  
  3. (set Update 0)
  4. (set version 0)
  5. (set DrawerName "DC:")
  6.  
  7. (complete 0)
  8. (if (exists "DC:" (NOREQ))
  9.     (
  10.  
  11.         (if (exists "DC:DiamondPrefs" (NOREQ))
  12.             (
  13.                 (set vernum (getversion "DC:DiamondPrefs"))
  14.  
  15.                 (set ver (/ vernum 65536))
  16.                 (set rev (- vernum (* ver 65536)))
  17.  
  18.                 (set version (+ (* 100 ver) rev))
  19.  
  20.                 (if (> version 102)
  21.                     (
  22.                         (message "You have already installed a version greater or equal 1.3!\n")
  23.                         (exit (quiet))
  24.                     )
  25.                 )
  26.  
  27.                 (set Update
  28.                     (askchoice
  29.                         (prompt "Diamond Prefs V" ver "." rev " already installed.\nDo you want to update or install completely new?")
  30.                         (choices "Install new" "Update")
  31.                         (help "Sorry, no help-file.")
  32.                         (default 1)
  33.                     )
  34.                 )
  35.             )
  36.         )
  37.     )
  38.     (
  39.         (message "Directory "DC:" not found!\nYou need an installed Version of Diamond Caves to run Diamond Prefs.")
  40.         (exit (quiet))
  41.     )
  42. )
  43.  
  44. (if (= Update 1)                  ; only Update according to present Version
  45.     (
  46.         (complete 30)
  47.         (copyfiles
  48.             (prompt "Copying necessary files to \"" DrawerName "\".")
  49.             (help @copyfiles-help)
  50.             (source "new")
  51.             (dest DrawerName)
  52.             (all)
  53.             (infos)
  54.         )
  55.     )
  56.  
  57.     (                             ; new install: copy everything to "DrawerName" (should be "DC:" !)
  58.         (complete 10)
  59.         (set icons
  60.             (askchoice
  61.                 (prompt "What kind of Icons do you want?\n")
  62.                 (choices "normal" "MagicWB" "none")
  63.                 (help "Soory, no help-file.")
  64.                 (default 0)
  65.             )
  66.         )
  67.  
  68.         (if (= icons 0)
  69.             (
  70.                 (copyfiles
  71.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  72.                     (help @copyfiles-help)
  73.                     (source "Icons/normal")
  74.                     (dest DrawerName)
  75.                     (all)
  76.                     (infos)
  77.                 )
  78.             )
  79.         )
  80.         (if (= icons 1)
  81.             (
  82.                 (copyfiles
  83.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  84.                     (help @copyfiles-help)
  85.                     (source "Icons/MagicWB")
  86.                     (dest DrawerName)
  87.                     (all)
  88.                     (infos)
  89.                 )
  90.             )
  91.         )
  92.  
  93.         (complete 30)
  94.         (copyfiles
  95.             (prompt "Copying necessary files to \"" DrawerName "\".")
  96.             (help @copyfiles-help)
  97.             (source "new")
  98.             (dest DrawerName)
  99.             (all)
  100.             (infos)
  101.         )
  102.     )
  103. )
  104.  
  105. (complete 100)
  106. (message "\nDiamondPrefs V1.3 installation/update complete.\n\nHave fun!")
  107.  
  108. (exit (quiet))
  109.