home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / DP / 3D / Raystorm_881 / Install_RayStorm < prev    next >
Text File  |  1999-08-03  |  5KB  |  163 lines
  1. ;**************************************************************************
  2. ; Install_RayStorm - RayStorm installation script for Installer
  3. ;
  4. ; Copyright © 1995-97 Andreas Heumann
  5. ;
  6. ; $Id: Install_RayStorm,v 2.3 05/09/1999
  7. ;
  8. ;     Installer and Installer project icon
  9. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  10. ;     Reproduced and distributed under license from Commodore.
  11. ;
  12. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  13. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  14. ;     OR RESPONSIBILITY IS ASSUMED.
  15. ;
  16. ;**************************************************************************
  17. (welcome "Welcome to the " @app-name " installation.\n")
  18.  
  19. ; "Needs"
  20. (set need-version 37)  ; version of operating system need by RayStorm
  21.  
  22. ; The source directory name
  23. (set #source-dir
  24.  (if (= 1 (exists @icon))
  25.   (pathonly (expandpath @icon))
  26.   (expandpath @icon)
  27.  )
  28. )
  29.  
  30. (set #pref-file "prefs/scenario.prf")
  31.  
  32. ;**************************************************************************
  33. ; Select destination directory for the installation. We suggest the user
  34. ; to install to the place from where the installer was started. This is
  35. ; since normally this software will be unarchived to its proper location
  36. ; and the files don't have to be copied any more.
  37. ;**************************************************************************
  38. (procedure P_select-destination-directory
  39.  (transcript "Selecting destination directory for the installation.")
  40.  (while
  41.   (
  42.    (set @default-dest
  43.     (askdir
  44.      (prompt "Select directory where to install " @app-name ".\n"
  45.              "You have to create a directory for " @app-name " yourself."
  46.      )
  47.      (help "Here you can specify location where to install " @app-name ".\n"
  48.      )
  49.      (newpath)
  50.      (default #source-dir)
  51.     )
  52.    )
  53.    (if (= 2 (exists @default-dest))
  54.     0
  55.     (makedir @default-dest
  56.      (infos)
  57.     )
  58.    )
  59.   )
  60.  )
  61. )
  62.  
  63. ;**************************************************************************
  64. ; ask if scenario.prf should be copied
  65. ;**************************************************************************
  66. (procedure P_copy-prefs
  67.  (if (= 1 (exists (tackon @default-dest "prefs/scenario.prf")))
  68.    (if(askbool
  69.          (prompt "You already have a preferences file ('prefs/scenario.prf').\n"
  70.                  "Should I overwrite it?\n")
  71.          (help "The file 'prefs/scenario.prf' contains the preferences of Scenario.")
  72.          (default 0)
  73.       )
  74.       (copyfiles
  75.          (source #pref-file)
  76.          (dest (tackon @default-dest "prefs"))
  77.          (newname "scenario.prf")
  78.       )
  79.    )
  80.    (copyfiles
  81.       (source #pref-file)
  82.       (dest (tackon @default-dest "prefs"))
  83.       (newname "scenario.prf")
  84.    )
  85.  )
  86. )
  87.  
  88. ;**************************************************************************
  89. ; Installatation sequence
  90. ;**************************************************************************
  91. (message "This installation script will overwrite an older installed version "
  92.    "of " @app-name ". Please make a backup of any files you have changed.\n\n"
  93.    "Please remember during this installation:\n"
  94.    "Read the instructions provided behind the \"Help\" "
  95.    "buttons, if you are not absolutely sure what you are doing.\n"
  96. )
  97.  
  98. (complete 00)
  99. (transcript "On making " @app-name " 2.3.")
  100. (P_select-destination-directory)
  101.  
  102. (complete 10)
  103. (working "Uncompressing common files")
  104. (run (cat "lha x common.lha \"" @default-dest "/\" #?"))
  105.  
  106. (complete 50)
  107. (working "Uncompressing executable files")
  108. (run (cat "lha x exe.lha \"" @default-dest "/\" #?"))
  109.  
  110. (complete 80)
  111. (if (= 1 (exists (tackon @default-dest "prefs/res.dat")))
  112.    (if(askbool
  113.          (prompt "You already have a file with predefined resolutions ('prefs/res.dat').\n"
  114.                  "Should I overwrite it?\n")
  115.          (help "The file 'prefs/res.dat' is an ASCII-file with predefined resolutions.")
  116.          (default 0)
  117.       )
  118.       (copyfiles
  119.          (source "prefs/res.dat")
  120.          (dest (tackon @default-dest "prefs"))
  121.       )
  122.    )
  123.    (copyfiles
  124.       (source "prefs/res.dat")
  125.       (dest (tackon @default-dest "prefs"))
  126.    )
  127. )
  128.  
  129. (complete 85)
  130. (select
  131.    (askchoice
  132.       (prompt "Which settings will you use?\n")
  133.       (help "The preferneces file 'prefs/scenario.prf' is copied.\n"
  134.          "You can change the settings in Scenario whenever you want.")
  135.       (default 1)
  136.       (choices "16 colors" "256+ color" "don't copy")
  137.    )
  138.    (
  139.       (set #pref-file "prefs/scenario_16.prf")
  140.       (P_copy-prefs)
  141.    )
  142.    (
  143.       (set #pref-file "prefs/scenario_256.prf")
  144.       (P_copy-prefs)
  145.    )
  146. )
  147.  
  148. (complete 90)
  149. (startup @app-name
  150.    (prompt "An assign need to be added to the \"S:user-startup\" so that " @app-name " will find it's libraries.\n"
  151.            "Should I add this assign for you?")
  152.    (help "If you skip this you have to copy \"" (tackon @default-dest "libs/raystorm.library")
  153.       "\" to \"libs:\" or execute this command: \"assign libs: " (tackon @default-dest "libs") " add\".")
  154.    (command "assign libs: " (tackon @default-dest "libs ") " add\n")
  155. )
  156. (message "Installation of " @app-name " done.\n")
  157.  
  158. (complete 100)
  159.  
  160. ;;; All done!
  161.  
  162. ; EOF
  163.