home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / REAL3D1.DMS / in.adf / install < prev    next >
Encoding:
Text File  |  1994-01-21  |  7.7 KB  |  316 lines
  1.  
  2. ; Real 3D Installer Script V 2.42
  3. ; -------------------------------
  4.  
  5. ; Real 3D Volumes
  6. ; ---------------
  7.  
  8. (set r3disk1 "Real3D_V2.4_Disk1:")
  9. (set r3disk2 "Real3D_V2.4_Disk2:")
  10. (set r3disk3 "Real3D_V2.4_Disk3:")
  11. (set r3disk4 "Real3D_V2.4_Disk4:")
  12. (set r3drawer "Real3DV2")
  13.  
  14.  
  15. ; Program used for compression/decompression
  16. ; ------------------------------------------
  17.  
  18. (set r3comp "lharc")
  19. (set r3pfix ".lzh")
  20.  
  21.  
  22. ; Procedure used for uncompression
  23. ; --------------------------------
  24.  
  25. (procedure r3uncomp
  26.     (set r3lha ("ram:%s -m -x x %s" r3comp r3disk))
  27.     (set r3ci (cat r3curritem r3pfix))
  28.     (working "Installing " r3curritem)
  29.     (if (<> (run (cat r3lha r3ci)) 0)
  30.         (message "Error while decompressing " r3ci)
  31.     )
  32. )
  33.  
  34. ; Ask Disk procedure
  35. ; ------------------
  36.  
  37. (procedure r3askdisk
  38.     (askdisk
  39.         (prompt "Please insert " r3disk " in any drive...")
  40.         (dest (substr r3disk 0 (- (strlen r3disk) 1)))
  41.         (help @askdisk-help)
  42.     )
  43. )
  44.  
  45.  
  46. ; Fetch System Configuration
  47. ; --------------------------
  48.  
  49. ; (set r3cpu        (database "cpu"))
  50. ; (set r3video      (database "vblank"))
  51. (set r3version    (/ (getversion) 65536))
  52.  
  53.  
  54. ; Must be 68020/30/40 machine 
  55. ; ---------------------------
  56.  
  57. (if (OR (= r3cpu "68000") (= r3cpu "68010"))
  58.     (if (= 0 
  59.         (askbool
  60.             (prompt "Real 3D V2 can be run only on 68020/30/40 based systems\nDo you really want to install Real3D to your " r3cpu " based system?")
  61.             (help "You can use many of the Real 3D utilities in all Amiga models")
  62.             (default 1)
  63.         ))
  64.         (abort "Real 3D V2 Cannot be run on\n" r3cpu " based machines")
  65.     )
  66. )
  67.  
  68.  
  69. ; Ask the destination directory
  70. ; -----------------------------
  71.  
  72. (set @default-dest "Work:")
  73. (set version (/ (getversion) 65536))
  74. (set r3dest   
  75.     (askdir (prompt "Select the location to install the Real 3D directory")
  76.         (default @default-dest)
  77.         (help "Choose a destination partition or directory to contain "
  78.               "Real 3D. A directory called 'Real3DV2' will be created "
  79.               "and program files copied in the location you choose."
  80.         )
  81.     )
  82. )
  83.  
  84. (set r3dest1 (tackon r3dest r3drawer))
  85. (set @default-dest r3dest1)
  86. (message "Real 3D will be installed in " r3dest1 )
  87.  
  88.  
  89. ; Copy r3comp to ram:
  90. ; -------------------
  91.  
  92. (set error (trap 4 
  93.     (copyfiles 
  94.         (source (tackon r3disk1 r3comp) 
  95.         (dest   "ram:")))
  96.     )
  97. )
  98. (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  99.  
  100.  
  101. ; Create Real 3D directory 
  102. ; ------------------------
  103.  
  104. (set error (trap 4 (makedir r3dest1 (infos))))
  105. (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  106. (set @execute-dir r3dest1)
  107.  
  108.  
  109. ; Ask languages to install
  110. ; ------------------------
  111.  
  112. ; (set r3locale
  113. ;    (askoptions 
  114. ;        (prompt  "Choose languages you would like to install")
  115. ;        (choices "English"
  116. ;                 "Deutch"
  117. ;                 "Italiano"
  118. ;                 "Francais"
  119. ;                 "Espanol"
  120. ;                 "Netherlands"
  121. ;                 "Svenska"
  122. ;                 "Suomi"
  123. ;        )
  124. ;        (help   "By installing only one language you can save some disk space\n"
  125. ;        )
  126. ;    )
  127. ; )
  128.  
  129.  
  130. ; Ask items to install
  131. ; --------------------
  132.  
  133. (set r3items
  134.     (askoptions 
  135.         (prompt  "Choose parts you would like to install")
  136.         (choices "Real 3D V 2.4"
  137.                  "Utilities"
  138.                  "Support Material"
  139.                  "Examples"
  140.                  "Accessories"
  141.                  "Online Help"
  142.          "Demos"
  143.         )
  144.         (help   "Real 3D V.2.4 - \nInstalls Real 3D main program\n\n "
  145.     
  146.             "Utilities - \n"
  147.             "Installs Real 3D utilities such as Display, "
  148.             "Delta Converter/Player, DXF Converter etc.\n\n"
  149.             
  150.             "Support Material - \nThis installs support material "
  151.             "such as objects, material libraries, bitmap textures etc.\n\n"
  152.             
  153.             "Accessories -\nThis installs graphic board drivers\n\n"
  154.  
  155.             "Examples -\nAnimation and other tutorial examples presented "
  156.             "in the manual\n\n"
  157.             
  158.             "Online Help -\nInstalls Commodore shared library 'AmigaGuide.library' "
  159.             "to LIBS: drawer, 'AmigaGuide' hypertext browser and Real 3D "
  160.             "help documents.\n\n"
  161.  
  162.         "Demos -\nIFF and JPEG images and delta animations "
  163.             "created with Real 3D\n\n"
  164.         )
  165.     )
  166. )
  167.  
  168.  
  169. ; Install Disk 1
  170. ; --------------
  171.  
  172. (set r3disk r3disk1) (r3askdisk)
  173.  
  174. (if (IN r3items 5) ; Online help
  175. (   
  176.     (copylib
  177.         (source (cat r3disk1, "sysfiles/amigaguide.library"))
  178.         (dest "libs:")
  179.     )
  180.     (copylib 
  181.     (source (cat r3disk1, "sysfiles/amigaguide"))
  182.     (dest "sys:utilities")
  183.     )
  184. ))
  185.  
  186. (if (> r3version 37)
  187. (   (copylib
  188.             (source (cat r3disk "sysfiles/gradientslider.gadget"))
  189.             (dest "sys:classes/gadgets")
  190.     )
  191.     (copylib
  192.             (source (cat r3disk "sysfiles/colorwheel.gadget"))
  193.             (dest "sys:classes/gadgets")
  194.     )
  195. ))
  196.  
  197. (if (IN r3items 0) ; Real 3D V2
  198. (   (set r3curritem "Real") (r3uncomp)
  199.     (set r3curritem "libs") (r3uncomp)
  200. ))
  201.  
  202.  
  203.  
  204. ; Install Disk2
  205. ; -------------
  206.  
  207. (set r3disk r3disk2) (r3askdisk)
  208.  
  209. (if (IN r3items 1) ; Utilities
  210.     (   (set r3curritem "DeltaConvert") (r3uncomp)
  211.         (set r3curritem "DeltaPlay") (r3uncomp)
  212.         (set r3curritem "DeltaToIFF") (r3uncomp)
  213.         (set r3curritem "Display") (r3uncomp)
  214.         (set r3curritem "DXFtoRPL") (r3uncomp)
  215.         (set r3curritem "RealConvert") (r3uncomp)
  216.     )
  217. )
  218.  
  219. (if (IN r3items 2) ; support material
  220. (   (makedir (tackon r3dest1 "classes")) ; Empty drawers need this
  221.     (set r3curritem "classes") (r3uncomp)
  222.     (makedir (tackon r3dest1 "catalogs"))
  223.     (set r3curritem "catalogs") (r3uncomp)
  224.     (makedir (tackon r3dest1 "storage"))
  225.     (set r3curritem "storage")  (r3uncomp)
  226.  
  227.     (set r3curritem "s") (r3uncomp)
  228.     (set r3curritem "environments") (r3uncomp)
  229.     (set r3curritem "rexx") (r3uncomp)
  230.     (set r3curritem "macros") (r3uncomp)
  231.     (set r3curritem "materials") (r3uncomp)
  232.     (set r3curritem "RPL") (r3uncomp)
  233.     (set r3curritem "objects")  (r3uncomp)
  234. ))
  235.  
  236. (if (IN r3items 4)
  237. (   (set r3curritem "Accessories") (r3uncomp)
  238. ))
  239.  
  240. (if (IN r3items 5) 
  241. (   (set r3curritem "help") (r3uncomp)
  242. ))
  243.  
  244.  
  245. ; Install Disk3
  246. ; -------------
  247.  
  248. (set r3disk r3disk3) (r3askdisk)
  249.  
  250. (if (IN r3items 2) ; the rest of support material
  251. (   (set r3curritem "bumpmaps") (r3uncomp)
  252.     (set r3curritem "textures") (r3uncomp)
  253. ))
  254.  
  255. (if (IN r3items 3)
  256. (   (set r3curritem "examples") (r3uncomp)
  257. ))
  258.  
  259.  
  260. ; Install Disk4
  261. ; -------------
  262.  
  263. (set r3disk r3disk4) (r3askdisk)
  264.  
  265. (if (IN r3items 2) ; the rest of support material
  266. (   (set r3curritem "projects") (r3uncomp)
  267. ))
  268.  
  269. (if (IN r3items 6) ; Demo stuff 
  270. (   (set r3curritem "Deltas") (r3uncomp)
  271.     (set r3curritem "Images") (r3uncomp)
  272. ))
  273.  
  274.  
  275. ; Cleanup 
  276. ; -------
  277.  
  278. (delete ("RAM:%s" r3comp))
  279.  
  280.  
  281. ; Modify Startup-sequence
  282. ;------------------------
  283.  
  284. (set error 1)
  285. (until (= error 0)
  286.    (
  287.       (set error (trap 4
  288.          (startup "Real3D_V2.4"
  289.             (prompt ("The assign R3D2 has been created"))
  290.             (command ("assign R3D2: %s" r3dest1))
  291.             (help   "Real 3D uses one logical assign R3D2 to find its files."
  292.                     "Installer will add this assign to your user-startup script\n"
  293.             )
  294.          )
  295.       ))
  296.       (if (> error 0)
  297.          (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  298.             (message "Startup file is write protected. Use protect "
  299.                     "to write enable the file, and select Proceed" )
  300.             ;else other type of error
  301.             (
  302.                 (message "Non-Standard startup sequence detected. You must add "
  303.                      "the following line by hand.\n\n"
  304.                      "    assign R3D2: " r3dest1 "\n"
  305.                 )
  306.                 (set error 0)
  307.             )                
  308.          )         
  309.       )   
  310.    )
  311. )
  312.  
  313. (makeassign "R3D2" r3dest1)
  314.  
  315. (complete 100)
  316.