home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / MM-4.1.DMS / in.adf / INSTALL-MaxonMM < prev    next >
Encoding:
Text File  |  1995-07-17  |  6.3 KB  |  296 lines
  1. ; $VER: MaxonMULTIMEDIA Install Version 1.0 (05.05.95)
  2. ; Script zum Installieren von MaxonMULTIMEDIA
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMULTIMEDIA\n\n auf einer "
  9.      "Festplatte installieren bzw. eine vorhandene Version updaten."
  10.      "Die komplette Installation läuft "
  11.      "automatisch ab. "
  12.      "Auf Ihrer Festplatte muß mindestens 5 MB Platz frei sein!\n\n"))
  13.  
  14. (set #askdir-help
  15. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  16.      "Sie gerne MaxonMULTIMEDIA installieren möchten. Sie müssen KEIN Verzeichnis "
  17.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  18.  
  19.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  20.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  21.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  22.       "gekennzeichneten Einträge auswählen.\n"
  23.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  24.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  25.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  26.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  27.       "\n\n"
  28.       ))
  29.  
  30. (set #help-startup
  31. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  32.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  33.      "bereits beim Systemstart ausführen.\n\n"))
  34.  
  35.  
  36. (set #no-inst
  37. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  38.      "MaxonMULTIMEDIA-Dateien zu kopieren\n\n"
  39.      "!!! Die Installation wird abgebrochen !!!"))
  40.  
  41.  
  42. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonMULTIMEDIA\nangelegt werden?"
  43.                           "\nDas Verzeichnis \"MaxonMULTIMEDIA\" wird automatisch erzeugt!"
  44. ))
  45.  
  46. (set #SIZE 1)
  47.  
  48. (set @language "Deutsch")
  49.  
  50. (set os-version (/ (getversion) 65536))
  51. (set os-13 (< os-version 36))
  52. (set os-20 (>= os-version 36))
  53. (set os-21 (>= os-version 38))
  54.  
  55.  
  56. (Procedure Inst_LhaFiles
  57.     (working @Working)
  58.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @Source @Dest))
  59. )
  60.  
  61. (Procedure Inst_NormFiles
  62.     (if (< (getdiskspace @Dest) @Size)
  63.         (abort #no-inst))
  64.  
  65.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  66.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  67. )
  68.  
  69. (Procedure Inst_PatternFiles
  70.     (if (< (getdiskspace @Dest) @Size)
  71.         (abort #no-inst))
  72.  
  73.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  74.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  75. )
  76.  
  77.  
  78.  
  79. (message #introduction)
  80. (welcome)
  81. (set old_level @user-level)
  82.  
  83. (complete 0)
  84.  
  85.  
  86. (set @default-dest                           ; Verzeichnis aussuchen 
  87.     (askdir
  88.         (prompt #COPVERZ)
  89.         (help    #askdir-help)
  90.         (default "WORK:")
  91.     )
  92. )
  93.  
  94. (set @default-dest (tackon @default-dest "MaxonMULTIMEDIA"))
  95. (set @default-src "MaxonMULTIMEDIA:")
  96.  
  97.  
  98.  
  99. (if                                          ; Verzeichnis erzeugen
  100.     (= (exists @default-dest) 0)
  101.     (makedir @default-dest)
  102. )
  103.  
  104.  
  105.     (askdisk
  106.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonMULTIMEDIA\" ein!")
  107.         (help #askdir-help)
  108.         (dest "MaxonMULTIMEDIA")
  109.     )
  110.  
  111.  
  112.  
  113. (complete 1)
  114.  
  115.  
  116. (
  117.     (set @Source @default-src)
  118.     (set @Dest "RAM:")
  119.    (set @Pattern "LHX")
  120.     (Inst_PatternFiles)
  121. )
  122.  
  123. (
  124.     (set @Source @default-src)
  125.     (set @Dest @default-dest)
  126.    (set @Pattern "MMM")
  127.     (set @Size #SIZE)
  128.     (Inst_PatternFiles)
  129. )
  130.  
  131. (complete 10)
  132.  
  133.  
  134. (
  135.     (set @Source @default-src)
  136.     (set @Dest @default-dest)
  137.    (set @Pattern "Pictures")
  138.     (Inst_PatternFiles)
  139. )
  140.  
  141. (
  142.     (set @Source @default-src)
  143.     (set @Dest @default-dest)
  144.    (set @Pattern "Animations")
  145.     (Inst_PatternFiles)
  146. )
  147.  
  148. (
  149.     (set @Source @default-src)
  150.     (set @Dest @default-dest)
  151.    (set @Pattern "Brushes")
  152.     (Inst_PatternFiles)
  153. )
  154.  
  155. (
  156.     (set @Source @default-src)
  157.     (set @Dest @default-dest)
  158.    (set @Pattern "Sounds")
  159.     (Inst_PatternFiles)
  160. )
  161.  
  162. (
  163.     (set @Source @default-src)
  164.     (set @Dest @default-dest)
  165.    (set @Pattern "Music")
  166.     (Inst_PatternFiles)
  167. )
  168.  
  169. (
  170.     (set @Source @default-src)
  171.     (set @Dest @default-dest)
  172.    (set @Pattern "Texts")
  173.     (Inst_PatternFiles)
  174. )
  175.  
  176. (
  177.     (set @Source @default-src)
  178.     (set @Dest @default-dest)
  179.    (set @Pattern "Scripts")
  180.     (Inst_PatternFiles)
  181. )
  182.  
  183. (complete 15)
  184.  
  185. (
  186.     (set @Source @default-src)
  187.     (set @Dest @default-dest)
  188.    (set @FName "Inhalt")
  189.     (Inst_NormFiles)
  190. )
  191.  
  192. (
  193.     (set @Source @default-src)
  194.     (set @Dest @default-dest)
  195.    (set @FName "Bitte_lesen!")
  196.     (Inst_NormFiles)
  197. )
  198.  
  199. (
  200.     (set @Source @default-src)
  201.     (set @Dest @default-dest)
  202.    (set @FName "mmmlibs")
  203.     (Inst_NormFiles)
  204.  
  205. )
  206.  
  207. (complete 20)
  208.  
  209.     (set @Working "Entpacke Daten")
  210.     (set @Source "MaxonMULTIMEDIA:music.lha")
  211.     (set @Dest @default-dest)
  212.     (Inst_LhaFiles)
  213.  
  214.     (set @Working "Entpacke Daten")
  215.     (set @Source "MaxonMULTIMEDIA:scripts.lha")
  216.     (set @Dest @default-dest)
  217.     (Inst_LhaFiles)
  218.  
  219.     (makedir (tackon @default-dest "Pictures/Textures"))
  220.  
  221. (complete 25)
  222.  
  223.     (askdisk
  224.         (prompt "\n\n\nBitte legen Sie die Diskette 2/4 ein!")
  225.         (help #askdir-help)
  226.         (dest "MMM_Disk2")
  227.     )
  228.  
  229.  
  230.     (set @Working "Entpacke Bilder")
  231.     (set @Source "MMM_Disk2:pictures.lha")
  232.     (set @Dest (tackon @default-dest "Pictures"))
  233.     (Inst_LhaFiles)
  234.  
  235.     (set @Working "Entpacke MMM-Player")
  236.     (set @Source "MMM_Disk2:MMMPlayer.lha")
  237.     (set @Dest @default-dest)
  238.     (Inst_LhaFiles)
  239.  
  240.     (set @Working "Entpacke Animationen")
  241.     (set @Source "MMM_Disk2:animations.lha")
  242.     (set @Dest @default-dest)
  243.     (Inst_LhaFiles)
  244.  
  245.     (set @Working "Entpacke Texturen")
  246.     (set @Source "MMM_Disk2:textures1.lha")
  247.     (set @Dest (tackon @default-dest "Pictures/Textures"))
  248.     (Inst_LhaFiles)
  249.  
  250.  
  251. (complete 50)
  252.  
  253.     (askdisk
  254.         (prompt "\n\n\nBitte legen Sie die Diskette 3/4 ein!")
  255.         (help #askdir-help)
  256.         (dest "MMM_Disk3")
  257.     )
  258.  
  259.  
  260. (
  261.     (set @Source "MMM_Disk3:")
  262.     (set @Dest @default-dest)
  263.    (set @Pattern "Brushes")
  264.     (Inst_PatternFiles)
  265. )
  266.  
  267.     (set @Working "Entpacke Texturen")
  268.     (set @Source "MMM_Disk3:textures2.lha")
  269.     (set @Dest (tackon @default-dest "Pictures/Textures"))
  270.     (Inst_LhaFiles)
  271.  
  272. (complete 75)
  273.  
  274.     (askdisk
  275.         (prompt "\n\n\nBitte legen Sie die Diskette 4/4 ein!")
  276.         (help #askdir-help)
  277.         (dest "MMM_Disk4")
  278.     )
  279.  
  280.     (set @Working "Entpacke Texturen")
  281.     (set @Source "MMM_Disk4:textures3.lha")
  282.     (set @Dest (tackon @default-dest "Pictures/Textures"))
  283.     (Inst_LhaFiles)
  284.  
  285.  
  286. (run "C:DELETE RAM:LHX")                                    ; aufräumen ...
  287.  
  288. (complete 100)
  289.  
  290. ; ------- FERTIG
  291.  
  292. (exit)
  293.  
  294. ;=============================================================================
  295.  
  296.