home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / BK-ADPR1.DMS / in.adf / Install < prev   
Encoding:
Text File  |  1996-04-05  |  11.2 KB  |  469 lines
  1. ; $VER: ADPro 2.5.1 iNSTaLLeR SCRiPT By MaLC0MN FRoM BaD KaRMa
  2. ; This script will install ADPro 2.5.1 --released by Bad Karma-- on your harddrive
  3.  
  4. (complete 0)
  5.  
  6. (message "\n_|__  ___  __|_ |__/_ ___ ____ __ __ ___  2F\n"
  7.          "|___)(___|(___/ |   /(___||   '| | /(___| -.\n"
  8.          ".------------------------------------------'\n"
  9.          "|              P R e S e N T S              \n"
  10.          "`------------------------------------------.\n"
  11.          "       · ADPro 2.5.1 FULL VERSION ·        |\n"
  12.          "                                           |\n"
  13.          "          sUPPLIER  : BK BeLGiuM           |\n"
  14.          "          cRACKER   : N/A                  |\n"
  15.          "          iNSTALLER : MaLC0MN              |\n"
  16.          "       rEQUIRED hD sPACE: 6.406.897        |\n"
  17.          "-  -   -- - -- - ----- --------------------'\n"
  18. )
  19.  
  20. (if (NOT (askbool (prompt "\nDo you really wish to install ADPro 2.5.1 onto your harddrive?")
  21.                   (help @askchoice-help)
  22.                   (default 0)
  23.                   (choices "Yes" "No")
  24.          )
  25.     )
  26.    (abort "\nWell, see you later then!")
  27. )
  28.  
  29. (set destination
  30.      (askdir (prompt "Please select where you want to install ADPro 2.5.1. A drawer will be created there.")
  31.              (help @askdir-help)
  32.              (disk)
  33.              (default "")
  34.      )
  35. )
  36.  
  37. (if (<= (getdiskspace (destination)) 6406897)
  38.     (abort "\nYou don't seem to have enough space left on your chosen harddisk! Free some more and try again.")
  39. )
  40.  
  41. (set destination (tackon destination "ADPro"))
  42. (set @default-dest destination)
  43. (if (<> (exists destination) 2) (makedir destination
  44.                                          (infos)
  45.                                          (safe)
  46.     )
  47. )
  48.  
  49. (makedir "Ram:ADWork"
  50.          (safe)
  51. )
  52.  
  53. (if (= serverMode FALSE)
  54. (
  55.     (askdisk (prompt "\nPlease insert the first disk in any drive. The install procedure is about to begin.")
  56.              (help @askdisk-help)
  57.              (dest "ADPro1")
  58.     )
  59. ))
  60.  
  61. (working "Copying archiver to workdirectory...")
  62. (copyfiles (source "ADPro1:C")
  63.            (dest "Ram:ADWork")
  64.            (pattern "Lzx")
  65.            (nogauge)
  66.            (optional "force")
  67.            (safe)
  68. )
  69.  
  70. (complete 1)
  71.  
  72. (working "Copying `ADPro' archive to workdirectory for faster extraction.")
  73. (copyfiles (source "ADPro1:InstallData")
  74.            (dest "Ram:ADWork")
  75.            (pattern "ADPro.lzx")
  76.            (nogauge)
  77.            (optional "force")
  78.            (safe)
  79. )
  80.  
  81. (complete 2)
  82.  
  83. (working "Unpacking `ADPro main files' to " destination"...")
  84. (set @execute-dir destination)
  85. (run ("Ram:ADWork/Lzx x Ram:ADWork/ADPro.lzx")
  86.      (safe)
  87. )
  88.  
  89. (complete 10)
  90.  
  91. (working "Deleting `ADPro' archive from work directory...")
  92. (delete "Ram:ADWork/ADPro.lzx"
  93.         (optional "force")
  94.         (safe)
  95. )
  96.  
  97. (complete 11)
  98.  
  99. (working "Copying `AppScripts' archive to workdirectory for faster extraction.")
  100. (copyfiles (source "ADPro1:InstallData")
  101.            (dest "Ram:ADWork")
  102.            (pattern "AppScripts.lzx")
  103.            (nogauge)
  104.            (optional "force")
  105.            (safe)
  106. )
  107.  
  108. (complete 12)
  109.  
  110. (working "Unpacking `Application Scripts' to " destination"...")
  111. (set @execute-dir destination)
  112. (run ("Ram:ADWork/Lzx x Ram:ADWork/AppScripts.lzx")
  113.      (safe)
  114. )
  115.  
  116. (complete 20)
  117.  
  118. (working "Deleting `AppScripts' archive from work directory...")
  119. (delete "Ram:ADWork/AppScripts.lzx"
  120.         (optional "force")
  121.         (safe)
  122. )
  123.  
  124. (complete 21)
  125.  
  126. (working "Copying `Commands' archive to workdirectory for faster extraction.")
  127. (copyfiles (source "ADPro1:InstallData")
  128.            (dest "Ram:ADWork")
  129.            (pattern "Commands.lzx")
  130.            (nogauge)
  131.            (optional "force")
  132.            (safe)
  133. )
  134.  
  135. (complete 22)
  136.  
  137. (working "Unpacking `Command files' to " destination"...")
  138. (set @execute-dir destination)
  139. (run ("Ram:ADWork/Lzx x Ram:ADWork/Commands.lzx")
  140.      (safe)
  141. )
  142.  
  143. (complete 30)
  144.  
  145. (working "Deleting `Commands' archive from work directory...")
  146. (delete "Ram:ADWork/Commands.lzx"
  147.         (optional "force")
  148.         (safe)
  149. )
  150.  
  151. (complete 31)
  152.  
  153. (working "Copying `Convolutions' archive to workdirectory for faster extraction.")
  154. (copyfiles (source "ADPro1:InstallData")
  155.            (dest "Ram:ADWork")
  156.            (pattern "Convolutions.lzx")
  157.            (nogauge)
  158.            (optional "force")
  159.            (safe)
  160. )
  161.  
  162. (complete 32)
  163.  
  164. (working "Unpacking `Convolution files' to " destination"...")
  165. (set @execute-dir destination)
  166. (run ("Ram:ADWork/Lzx x Ram:ADWork/Convolutions.lzx")
  167.      (safe)
  168. )
  169.  
  170. (complete 40)
  171.  
  172. (working "Deleting `Convolutions' archive from work directory...")
  173. (delete "Ram:ADWork/Convolutions.lzx"
  174.         (optional "force")
  175.         (safe)
  176. )
  177.  
  178. (complete 41)
  179.  
  180. (working "Copying `Displays' archive to workdirectory for faster extraction.")
  181. (copyfiles (source "ADPro1:InstallData")
  182.            (dest "Ram:ADWork")
  183.            (pattern "Displays.lzx")
  184.            (nogauge)
  185.            (optional "force")
  186.            (safe)
  187. )
  188.  
  189. (complete 42)
  190.  
  191. (working "Unpacking `Display files' to " destination"...")
  192. (set @execute-dir destination)
  193. (run ("Ram:ADWork/Lzx x Ram:ADWork/Displays.lzx")
  194.      (safe)
  195. )
  196.  
  197. (complete 50)
  198.  
  199. (working "Deleting `Displays' archive from work directory...")
  200. (delete "Ram:ADWork/Displays.lzx"
  201.         (optional "force")
  202.         (safe)
  203. )
  204.  
  205. (complete 51)
  206.  
  207. (working "Copying `Library' archive to workdirectory for faster extraction.")
  208. (copyfiles (source "ADPro1:InstallData")
  209.            (dest "Ram:ADWork")
  210.            (pattern "Library.lzx")
  211.            (nogauge)
  212.            (optional "force")
  213.            (safe)
  214. )
  215.  
  216. (complete 52)
  217.  
  218. (working "Unpacking `ADPro.library' to LIBS:...")
  219. (set @execute-dir "LIBS:")
  220. (run ("Ram:ADWork/Lzx x Ram:ADWork/Library.lzx")
  221.      (safe)
  222. )
  223.  
  224. (complete 60)
  225.  
  226. (working "Deleting `Library' archive from work directory...")
  227. (delete "Ram:ADWork/Library.lzx"
  228.         (optional "force")
  229.         (safe)
  230. )
  231.  
  232. (complete 61)
  233.  
  234. (working "Copying `PCFiles' archive to workdirectory for faster extraction.")
  235. (copyfiles (source "ADPro1:InstallData")
  236.            (dest "Ram:ADWork")
  237.            (pattern "PCFiles.lzx")
  238.            (nogauge)
  239.            (optional "force")
  240.            (safe)
  241. )
  242.  
  243. (complete 62)
  244.  
  245. (working "Unpacking `PC files' to " destination"...")
  246. (set @execute-dir destination)
  247. (run ("Ram:ADWork/Lzx x Ram:ADWork/PCFiles.lzx")
  248.      (safe)
  249. )
  250.  
  251. (complete 70)
  252.  
  253. (working "Deleting `PCFiles' archive from work directory...")
  254. (delete "Ram:ADWork/PCFiles.lzx"
  255.         (optional "force")
  256.         (safe)
  257. )
  258.  
  259. (complete 71)
  260.  
  261. (working "Copying `Savers' archive to workdirectory for faster extraction.")
  262. (copyfiles (source "ADPro1:")
  263.            (dest "Ram:ADWork")
  264.            (pattern "Savers.lzx")
  265.            (nogauge)
  266.            (optional "force")
  267.            (safe)
  268. )
  269.  
  270. (complete 72)
  271.  
  272. (working "Unpacking `Saver files' to " destination"...")
  273. (set @execute-dir destination)
  274. (run ("Ram:ADWork/Lzx x Ram:ADWork/Savers.lzx")
  275.      (safe)
  276. )
  277.  
  278. (complete 80)
  279.  
  280. (working "Deleting `Savers' archive from work directory...")
  281. (delete "Ram:ADWork/Savers.lzx"
  282.         (optional "force")
  283.         (safe)
  284. )
  285.  
  286. (complete 81)
  287.  
  288. (if (= serverMode FALSE)
  289. (
  290.     (askdisk (prompt "\nPlease insert the second disk in any drive.")
  291.              (help @askdisk-help)
  292.              (dest "ADPro2")
  293.     )
  294. ))
  295.  
  296. (working "Copying `Operators' archive to workdirectory for faster extraction.")
  297. (copyfiles (source "ADPro2:")
  298.            (dest "Ram:ADWork")
  299.            (pattern "Operators.lzx")
  300.            (nogauge)
  301.            (optional "force")
  302.            (safe)
  303. )
  304.  
  305. (complete 72)
  306.  
  307. (working "Unpacking `Operator files' to " destination"...")
  308. (set @execute-dir destination)
  309. (run ("Ram:ADWork/Lzx x Ram:ADWork/Operators.lzx")
  310.      (safe)
  311. )
  312.  
  313. (complete 80)
  314.  
  315. (working "Deleting `Operators' archive from work directory...")
  316. (delete "Ram:ADWork/Operators.lzx"
  317.         (optional "force")
  318.         (safe)
  319. )
  320.  
  321. (complete 81)
  322.  
  323. (working "Copying `ScanSoft' archive to workdirectory for faster extraction.")
  324. (copyfiles (source "ADPro2:")
  325.            (dest "Ram:ADWork")
  326.            (pattern "ScanSoft.lzx")
  327.            (nogauge)
  328.            (optional "force")
  329.            (safe)
  330. )
  331.  
  332. (complete 72)
  333.  
  334. (working "Unpacking `Scanning software' to " destination"...")
  335. (set @execute-dir destination)
  336. (run ("Ram:ADWork/Lzx x Ram:ADWork/ScanSoft.lzx")
  337.      (safe)
  338. )
  339.  
  340. (complete 80)
  341.  
  342. (working "Deleting `ScanSoft' archive from work directory...")
  343. (delete "Ram:ADWork/ScanSoft.lzx"
  344.         (optional "force")
  345.         (safe)
  346. )
  347.  
  348. (complete 81)
  349.  
  350. (if (= serverMode FALSE)
  351. (
  352.     (askdisk (prompt "\nPlease insert the third disk in any drive.")
  353.              (help @askdisk-help)
  354.              (dest "ADPro3")
  355.     )
  356. ))
  357.  
  358. (working "Copying `Loaders' archive to workdirectory for faster extraction.")
  359. (copyfiles (source "ADPro3:")
  360.            (dest "Ram:ADWork")
  361.            (pattern "Loaders.lzx")
  362.            (nogauge)
  363.            (optional "force")
  364.            (safe)
  365. )
  366.  
  367. (complete 72)
  368.  
  369. (working "Unpacking `Loader files' to " destination"...")
  370. (set @execute-dir destination)
  371. (run ("Ram:ADWork/Lzx x Ram:ADWork/Loaders.lzx")
  372.      (safe)
  373. )
  374.  
  375. (complete 80)
  376.  
  377. (working "Deleting `Loaders' archive from work directory...")
  378. (delete "Ram:ADWork/Loaders.lzx"
  379.         (optional "force")
  380.         (safe)
  381. )
  382.  
  383. (complete 81)
  384.  
  385. (working "Copying `Utilities' archive to workdirectory for faster extraction.")
  386. (copyfiles (source "ADPro3:")
  387.            (dest "Ram:ADWork")
  388.            (pattern "Utilities.lzx")
  389.            (nogauge)
  390.            (optional "force")
  391.            (safe)
  392. )
  393.  
  394. (complete 72)
  395.  
  396. (working "Unpacking `Utilities' to " destination"...")
  397. (set @execute-dir destination)
  398. (run ("Ram:ADWork/Lzx x Ram:ADWork/Utilities.lzx")
  399.      (safe)
  400. )
  401.  
  402. (complete 80)
  403.  
  404. (working "Deleting `Utilities' archive from work directory...")
  405. (delete "Ram:ADWork/Utilities.lzx"
  406.         (optional "force")
  407.         (safe)
  408. )
  409.  
  410. (complete 81)
  411.  
  412. (if (= serverMode FALSE)
  413. (
  414.     (askdisk (prompt "\nPlease insert the fourth disk in any drive.")
  415.              (help @askdisk-help)
  416.              (dest "ADPro4")
  417.     )
  418. ))
  419.  
  420. (working "Copying `Pictures' archive to workdirectory for faster extraction.")
  421. (copyfiles (source "ADPro4:")
  422.            (dest "Ram:ADWork")
  423.            (pattern "Pictures.lzx")
  424.            (nogauge)
  425.            (optional "force")
  426.            (safe)
  427. )
  428.  
  429. (complete 72)
  430.  
  431. (working "Unpacking `Pictures' to " destination"...")
  432. (set @execute-dir destination)
  433. (run ("Ram:ADWork/Lzx x Ram:ADWork/Pictures.lzx")
  434.      (safe)
  435. )
  436.  
  437. (complete 80)
  438.  
  439. (working "Deleting `Pictures' archive from work directory...")
  440. (delete "Ram:ADWork/Pictures.lzx"
  441.         (optional "force")
  442.         (safe)
  443. )
  444.  
  445. (working "Adding assigns to `User-Startup'...")
  446. (startup "ADPro 2.5.1" (prompt "\nDo you wish to add the necessary assigns to your `User-Startup'?")
  447.                        (help @startup-help)
  448.                        (command (cat "Assign >NIL: ADPRO: " destination"\n"))
  449.                        (command (cat "assign >NIL: ADPROSCRIPTS: " destination"/Commands2\n"))
  450.                        (command (cat "assign >NIL: ADP_FRED: " destination"/Utilities/FRED\n"))
  451.                        (command (cat "assign >NIL: FREDSCRIPTS: " destination"/Utilities/FRED/FREDScripts\n"))
  452. )
  453.  
  454. (working "Deleting work directory.")
  455. (run ("C:Delete Ram:ADWork ALL")
  456.      (safe)
  457. )
  458.  
  459. (complete 100)
  460.  
  461. (exit "     Don't forget to call our boards:\n\n"
  462.       "mETAL iMPACT  [WHQ] [3 NDS]: +32-15-210089\n"
  463.       "sKY tOWER     [EHQ] [6 NDS]: +45-748-33886\n"
  464.       "cBER gARDEN   [BHQ] [2 NDS]: +32-11-333703\n"
  465.       "dOXOLOGY      [BHQ] [1 ND!]: +32-16-235962\n"
  466.       "bROOKLYN zOO  [GHQ] [6 NDS]: +49-HD-CRASH!\n"
  467.       "zILLION hOURS [FHQ] [3 NDS]: +35831-3713472\n"
  468. )
  469.