home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 3 / MA_Cover_3.iso / bazy / multiworks_install / installmultiworks < prev    next >
Encoding:
Text File  |  1996-06-23  |  6.3 KB  |  260 lines
  1. ; ******************************************************
  2. ; *********** Multiworks Installer *********************
  3. ; ****************** written by ************************
  4. ; *****************   Graffity (Thore K.) & Andorra  ***
  5. ; *************** Bremen 07/10/1995 ********************
  6. ; ******************************************************
  7.  
  8. (set @default-dest "T:")
  9.  
  10.  
  11. (transcript "Getting Location of MultiWorks Directory")
  12.  
  13. (set Multiworks_dir "SYS:")
  14.  
  15. (if (NOT (exists Multiworks_dir (noreq)))
  16.     (set Multiworks_dir "Sys:")
  17. )
  18.  
  19. (set Multiworks_dir
  20.     (askdir
  21.         (prompt
  22.         "Wo soll das MultiWorks's Verzeichniss erstellt werden?")
  23.         (help @askdir-help)
  24.         (default Multiworks_dir)
  25.     )
  26. )
  27.  
  28. (if (NOT (exists (tackon Multiworks_dir "MultiWorks")(noreq)))
  29.     (
  30.     (copyfiles
  31.         (source "C/MultiWorks.info")
  32.         (dest MultiWorks_dir))
  33.     (tooltype
  34.         (dest (tackon MultiWorks_dir "MultiWorks"))
  35.         (noposition))
  36.     (makedir (tackon MultiWorks_dir "MultiWorks"))
  37.     )
  38. )
  39.  
  40. (set MultiWorks_dir (tackon MultiWorks_dir "MultiWorks"))
  41.  
  42. (set @default-dest MultiWorks_dir)
  43.  
  44. ;--------------------------------------------------------------------------------------
  45. (set Multiworks_DBdir "SYS:")
  46.  
  47. (if (NOT (exists Multiworks_DBdir (noreq)))
  48.     (set Multiworks_DBdir "Sys:")
  49. )
  50.  
  51.         (message
  52.         "Die DataBase von MultiWorks benötigt ein Verzeichnis 'MWDataBase'. "
  53.         "Hier werden die Miniaturbilder abgespeichert.\nDer dafür vorgesehende Datenträger sollte einige Megabyte "
  54.         "freien Speicherplatz haben!\n "
  55.         "Sie werden gleich aufgefordert den Pfad für dieses Verzeichnis zu setzen."
  56.         )
  57. (set Multiworks_DBdir
  58.     (askdir
  59.         (prompt "Wo soll das 'DataBase' Verzeichniss erstellt werden?"
  60.         )
  61.         (help @askdir-help)
  62.         (default Multiworks_DBdir)
  63.     )
  64. )
  65.  
  66. (if (NOT (exists (tackon Multiworks_DBdir "MWDataBase")(noreq)))
  67.     (makedir (tackon MultiWorks_DBdir "MWDataBase"))
  68. )
  69.  
  70. (set MultiWorks_DBdir (tackon MultiWorks_DBdir "MWDataBase"))
  71.  
  72. ;(set @default-dest MultiWorks_DBdir)
  73. ;--------------------------------------------------------------------------------------
  74.  
  75. (transcript "Installing MultiWorks Program")
  76.  
  77.  
  78. (copyfiles
  79.     (prompt "Installiere MultiWorks Hauptprogram.")
  80.     (help @copyfiles-help)
  81.     (source "MultiWorks")
  82.         (infos)
  83.     (dest MultiWorks_dir)
  84. )
  85.  
  86. (copyfiles
  87.     (prompt "Installiere MultiWorks Hauptprogram.")
  88.     (help @copyfiles-help)
  89.     (source "MWDataBase")
  90.         (infos)
  91.     (dest MultiWorks_dir)
  92. )
  93.  
  94. ;****************
  95. ;**** libs ******
  96. ;****************
  97. (working "Installiere MultiWorks Libraries..." )
  98.  
  99.     (if (NOT (exists (tackon Multiworks_dir "libs") (noreq)))
  100.         (makedir (tackon Multiworks_dir "libs"))
  101.     )
  102.     (copyfiles
  103.         (prompt "Installiere Multiworks Libs...")
  104.         (help @copyfiles-help)
  105.         (source "libs")
  106.         (all)
  107.         (dest (tackon Multiworks_dir "libs"))
  108.     )
  109.  
  110. ;*********************
  111. ;**** operators ******
  112. ;*********************
  113. (transcript "Installiere MultiWorks Operators...")
  114. (working "Installiere MultiWorks Operators..." )
  115.  
  116.     (transcript "Installiere MultiWorks Operators...")
  117.  
  118.     (if (NOT (exists (tackon Multiworks_dir "operators") (noreq)))
  119.         (
  120.         (makedir (tackon Multiworks_dir "operators"))
  121.         )
  122.     )
  123. (copyfiles
  124.         (prompt "Installiere MultiWorks Operators...")
  125.         (help @copyfiles-help)
  126.         (source "operators")
  127.         (all)
  128.         (dest (tackon Multiworks_dir "operators"))
  129.     )
  130.  
  131. ;*********************
  132. ;**** Savers ******
  133. ;*********************
  134. (transcript "Installiere MultiWorks Savers...")
  135. (working "Installiere MultiWorks Savers..." )
  136.  
  137.     (transcript "Installiere MultiWorks Savers...")
  138.  
  139.     (if (NOT (exists (tackon Multiworks_dir "savers") (noreq)))
  140.         (
  141.         (makedir (tackon Multiworks_dir "savers"))
  142.         )
  143.     )
  144. (copyfiles
  145.         (prompt "Installiere MultiWorks Savers...")
  146.         (help @copyfiles-help)
  147.         (source "savers")
  148.         (all)
  149.         (dest (tackon Multiworks_dir "savers"))
  150.     )
  151.  
  152. ;*********************
  153. ;**** Rexx ******
  154. ;*********************
  155. (working "Installiere MultiWorks Rexx..." )
  156.  
  157.     (if (NOT (exists (tackon Multiworks_dir "rexx") (noreq)))
  158.         (
  159.         (makedir (tackon Multiworks_dir "rexx"))
  160.         )
  161.     )
  162. (copyfiles
  163.         (prompt "Installiere MultiWorks Rexx...")
  164.         (help @copyfiles-help)
  165.         (source "rexx")
  166.         (all)
  167.         (dest (tackon Multiworks_dir "rexx"))
  168.     )
  169.  
  170. ;**** Dir prefs machen ******
  171.     (if (NOT (exists (tackon Multiworks_dir "prefs") (noreq)))
  172.         (makedir (tackon Multiworks_dir "prefs"))
  173.     )
  174.  
  175. ;*****************
  176. ;**** Loaders ****
  177. ;*****************
  178.     (if (NOT (exists (tackon Multiworks_dir "loaders") (noreq)))
  179.         (makedir (tackon Multiworks_dir "loaders"))
  180.     )
  181.  
  182.     (copyfiles
  183.         (prompt "Installing Multiworks Loaders.")
  184.         (help @copyfiles-help)
  185.         (source "loaders")
  186.         (pattern "#?.mwloader")
  187.         (dest (tackon Multiworks_dir "loaders"))
  188.     )
  189.  
  190.  
  191. ;******** Directory "Displays" wird installiert **********
  192.     (transcript "Installing MultiWorks Displays.")
  193.  
  194.     (if (NOT (exists (tackon Multiworks_dir "displays") (noreq)))
  195.         (makedir (tackon Multiworks_dir "displays"))
  196.     )
  197.  
  198.     (copyfiles
  199.     (prompt "Installing MultiWorks Displays.")
  200.     (help @copyfiles-help)
  201.     (source "Displays")
  202.     (all)
  203.     (dest (tackon MultiWorks_dir "Displays"))
  204.     )
  205.  
  206. ;******** Directory "Samplays" wird installiert **********
  207.     (transcript "Installing MultiWorks Samplays.")
  208.  
  209.     (if (NOT (exists (tackon Multiworks_dir "samplays") (noreq)))
  210.         (
  211.         (makedir (tackon Multiworks_dir "samplays"))
  212.         )
  213.     )
  214.  
  215.     (copyfiles
  216.     (prompt "Installing MultiWorks Samplays.")
  217.     (help @copyfiles-help)
  218.     (source "samplays")
  219.     (all)
  220.     (dest (tackon MultiWorks_dir "samplays"))
  221.     )
  222.  
  223. ;******** Directory "pref_icons" wird installiert **********
  224.     (transcript "Installing MultiWorks pref_icons.")
  225.  
  226.     (if (NOT (exists (tackon Multiworks_dir "pref_icons") (noreq)))
  227.         (makedir (tackon Multiworks_dir "pref_icons"))
  228.     )
  229.  
  230.     (copyfiles
  231.     (prompt "Installing MultiWorks icons.")
  232.     (help @copyfiles-help)
  233.     (source "pref_icons")
  234.     (all)
  235.     (dest (tackon MultiWorks_dir "pref_icons"))
  236.     )
  237.  
  238. ;    (copyfiles
  239. ;    (prompt "Installing MultiWorks icons.")
  240. ;    (help @copyfiles-help)
  241. ;    (source "")
  242. ;    (choices "asl.library")
  243. ;    (dest (tackon MultiWorks_dir ""))
  244. ;    )
  245.  
  246. ; Hier die assigns, damit mw sofort aktiv ist.
  247. ;---------------------------------------------
  248.     (makeassign "MultiWorks" Multiworks_dir)
  249.     (makeassign "MWDataBase" Multiworks_DBdir)
  250.  
  251.  (startup "Multiworks"
  252.     (prompt
  253.         "Damit Multiworks immer richtig läuft müssen noch zwei Einträge in die \"S:user-startup\" gepatcht werden.")
  254.     (help "Keine Hilfe für diese funktion")
  255.  (command "assign MultiWorks: "Multiworks_dir"\n")
  256.     (command "assign MWDataBase: "Multiworks_DBdir"\n")
  257. )
  258.  
  259. (exit "Multiworks ist nun fertig installiert.\n\nFrohes Schaffen und allzeit gute Laune wünscht Ihnen ihr\n\nSynetic Software Team")
  260.