home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / exclusive / peterelzner / prefs1.3 / installprefs next >
Text File  |  1995-12-13  |  3KB  |  110 lines
  1. ; $VER InstallPrefs 1.3i (14.12.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 0)
  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 (1)" "MagicWB (2)" "RareDiamond" "none")
  63.                 (help "Soory, no help-file.")
  64.                 (default 0)
  65.             )
  66.         )
  67.  
  68.         (if (= icons 0)
  69.             (set IconName "/Game2.3/Icons/normal")
  70.         )
  71.         (if (= icons 1)
  72.             (set IconName "/Game2.3/Icons/MagicWB1")
  73.         )
  74.         (if (= icons 2)
  75.             (set IconName "/Game2.3/Icons/MagicWB2")
  76.         )
  77.         (if (= icons 3)
  78.             (set IconName "/Game2.3/Icons/RareDiamond")
  79.         )
  80.  
  81.         (if (<> icons 4)
  82.             (
  83.                 (copyfiles
  84.                     (prompt "Copying necessary Icons to \"" DrawerName "\".")
  85.                     (help @copyfiles-help)
  86.                     (source IconName)
  87.                     (dest DrawerName)
  88.                     (pattern "DiamondPref#?")
  89.                     (infos)
  90.                 )
  91.             )
  92.         )
  93.  
  94.         (complete 30)
  95.         (copyfiles
  96.             (prompt "Copying necessary files to \"" DrawerName "\".")
  97.             (help @copyfiles-help)
  98.             (source "new")
  99.             (dest DrawerName)
  100.             (pattern "DiamondPrefs#?")
  101.             (infos)
  102.         )
  103.     )
  104. )
  105.  
  106. (complete 100)
  107. (message "\nDiamondPrefs V1.3 installation/update complete.\n\nHave fun!")
  108.  
  109. (exit (quiet))
  110.