home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / DCN-MM31.DMS / in.adf / Install-MM-HD < prev    next >
Encoding:
Text File  |  1996-02-16  |  8.6 KB  |  365 lines
  1. ; $VER: MaxonMAGIC 3 Install Version 1.0 (16.02.96)
  2. ; Script zum Installieren von MaxonMAGIC 3
  3. ;
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMAGIC 3\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 MaxonMAGIC 3 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.      "MaxonMAGIC 3-Dateien zu kopieren\n\n"
  39.      "!!! Die Installation wird abgebrochen !!!"))
  40.  
  41.  
  42. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonMAGIC 3\nangelegt werden?"
  43.                           "\nDas Verzeichnis \"MaxonMAGIC 3\" 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 "MaxonMAGIC_3"))
  95. (set @default-src "MaxonMAGIC_3:")
  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 1/4 ein!")
  107.         (help #askdir-help)
  108.         (dest "MaxonMAGIC_3")
  109.     )
  110.  
  111.  
  112.  
  113. (complete 1)
  114.  
  115.  
  116. (
  117.     (set @Source (tackon @default-src "c"))
  118.     (set @Dest "RAM:")
  119.        (set @FName "LHX")
  120.     (Inst_NormFiles)
  121. )
  122.  
  123. (
  124.     (set @Source @default-src)
  125.     (set @Dest @default-dest)
  126.        (set @Pattern "MaxonMAGIC_3")
  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 "MM_Effekte")
  138.     (Inst_PatternFiles)
  139. )
  140.  
  141. (
  142.     (set @Source @default-src)
  143.     (set @Dest @default-dest)
  144.        (set @Pattern "MM_Sounds")
  145.     (Inst_PatternFiles)
  146. )
  147.  
  148. (
  149.     (set @Source @default-src)
  150.     (set @Dest @default-dest)
  151.      (set @Pattern "Inhalt")
  152.     (Inst_PatternFiles)
  153. )
  154.  
  155. (
  156.     (set @Source @default-src)
  157.     (set @Dest @default-dest)
  158.        (set @Pattern "Bitte_lesen!")
  159.     (Inst_PatternFiles)
  160. )
  161.  
  162. (
  163.     (set @Source @default-src)
  164.     (set @Dest @default-dest)
  165.        (set @Pattern "MM_Prefs-HD")
  166.     (Inst_PatternFiles)
  167. )
  168.     (rename (tackon @default-dest "MM_Prefs-HD") (tackon @default-dest "MM_Prefs"))
  169.  
  170.     (set @Working "Entpacke Samples")
  171.     (set @Source "MaxonMAGIC_3:samples2.lha")
  172.     (set @Dest @default-dest)
  173.     (Inst_LhaFiles)
  174.  
  175.  
  176.     (askdisk
  177.         (prompt "\n\n\nBitte legen Sie die Diskette 2/4 ein!")
  178.         (help #askdir-help)
  179.         (dest "MM3_Disk2")
  180.     )
  181.  
  182. (complete 25)
  183.  
  184.     (set @Working "Entpacke Samples")
  185.     (set @Source "MM3_Disk2:samples1.lha")
  186.     (set @Dest @default-dest)
  187.     (Inst_LhaFiles)
  188.  
  189. (complete 40)
  190.  
  191.     (set @Working "Entpacke Songs")
  192.     (set @Source "MM3_Disk2:smod.lha")
  193.     (set @Dest @default-dest)
  194.     (Inst_LhaFiles)
  195.  
  196.  
  197. (complete 50)
  198.  
  199.     (askdisk
  200.         (prompt "\n\n\nBitte legen Sie die Diskette 3/4 ein!")
  201.         (help #askdir-help)
  202.         (dest "MM3_Disk3")
  203.     )
  204.  
  205.  
  206.     (set @Working "Entpacke Grafiken")
  207.     (set @Source "MM3_Disk3:gfx.lha")
  208.     (set @Dest @default-dest)
  209.     (Inst_LhaFiles)
  210.  
  211.  
  212.     (set @Working "Entpacke Uhrzeitansagen")
  213.     (set @Source "MM3_Disk3:TC_Boris.lha")
  214.     (set @Dest (tackon @default-dest "MM_Sounds"))
  215.     (Inst_LhaFiles)
  216.  
  217.     (set @Working "Entpacke Uhrzeitansagen")
  218.     (set @Source "MM3_Disk3:TC_Schweizerisch.lha")
  219.     (set @Dest (tackon @default-dest "MM_Sounds"))
  220.     (Inst_LhaFiles)
  221.  
  222.     (set @Working "Entpacke Uhrzeitansagen")
  223.     (set @Source "MM3_Disk3:TC_Schwäbisch.lha")
  224.     (set @Dest (tackon @default-dest "MM_Sounds"))
  225.     (Inst_LhaFiles)
  226.  
  227.     (set @Working "Entpacke Uhrzeitansagen")
  228.     (set @Source "MM3_Disk:TC_Sächsisch.lha")
  229.     (set @Dest (tackon @default-dest "MM_Sounds"))
  230.     (Inst_LhaFiles)
  231.  
  232.  
  233.     (askdisk
  234.         (prompt "\n\n\nBitte legen Sie die Diskette 4/4 ein!")
  235.         (help #askdir-help)
  236.         (dest "MM3_Disk4")
  237.     )
  238.  
  239. (complete 75)
  240.  
  241.     (set @Working "Entpacke Uhrzeitansagen")
  242.     (set @Source "MM3_Disk4:TC_Bayrisch.lha")
  243.     (set @Dest (tackon @default-dest "MM_Sounds"))
  244.     (Inst_LhaFiles)
  245.  
  246.  
  247.     (set @Working "Entpacke Uhrzeitansagen")
  248.     (set @Source "MM3_Disk4:TC_Helmut.lha")
  249.     (set @Dest (tackon @default-dest "MM_Sounds"))
  250.     (Inst_LhaFiles)
  251.  
  252.  
  253.     (set @Working "Entpacke Samples")
  254.     (set @Source "MM3_Disk4:samples3.lha")
  255.     (set @Dest @default-dest)
  256.     (Inst_LhaFiles)
  257.  
  258.     (set @Working "Entpacke Effekte")
  259.     (set @Source "MM3_Disk4:effekte.lha")
  260.     (set @Dest @default-dest)
  261.     (Inst_LhaFiles)
  262.  
  263.     (set @Working "Entpacke Effekte")
  264.     (set @Source "MM3_Disk4:mod.lha")
  265.     (set @Dest (tackon @default-dest "mm_effekte"))
  266.     (Inst_LhaFiles)
  267.  
  268. (complete 85)
  269.  
  270.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Flederfanten.mod")))
  271.  
  272.     (set @Working "Entpacke Effekte")
  273.     (set @Source "MM3_Disk4:mod.lha")
  274.     (set @Dest (tackon @default-dest "mm_effekte"))
  275.     (Inst_LhaFiles)
  276.  
  277.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Flugmaschinen.mod")))
  278.  
  279.     (set @Working "Entpacke Effekte")
  280.     (set @Source "MM3_Disk4:mod.lha")
  281.     (set @Dest (tackon @default-dest "mm_effekte"))
  282.     (Inst_LhaFiles)
  283.  
  284.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Maxon.mod")))
  285.     (set @Working "Entpacke Effekte")
  286.     (set @Source "MM3_Disk4:mod.lha")
  287.     (set @Dest (tackon @default-dest "mm_effekte"))
  288.     (Inst_LhaFiles)
  289.  
  290.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Pinguin_Party.mod")))
  291.  
  292.     (set @Working "Entpacke Effekte")
  293.     (set @Source "MM3_Disk4:mod.lha")
  294.     (set @Dest (tackon @default-dest "mm_effekte"))
  295.     (Inst_LhaFiles)
  296.  
  297.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Schmetterlinge.mod")))
  298.  
  299.     (set @Working "Entpacke Effekte")
  300.     (set @Source "MM3_Disk4:mod.lha")
  301.     (set @Dest (tackon @default-dest "mm_effekte"))
  302.     (Inst_LhaFiles)
  303.  
  304.     (rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Viecher.mod")))
  305.  
  306.  
  307.  
  308.  
  309.     (set @Working "Entpacke Samples")
  310.     (set @Source "MM3_Disk4:pingusnd.lha")
  311.     (set @Dest (tackon @default-dest "MM_Sounds"))
  312.     (Inst_LhaFiles)
  313.  
  314.  
  315. (complete 95)
  316.  
  317. (set changechoice 1)
  318.  
  319. (set changechoice
  320.     (askchoice
  321.         (prompt "\nMöchten Sie MaxonMagic automatisch\nbeim Starten aktivieren?\n\nDabei wird die User-Startup verändert!")
  322.         (help @askchoice-help)
  323.         (choices "Ja" "Nein")
  324.         (default 0)
  325.     )
  326. )
  327.  
  328.  
  329. (set command1 "MaxonMAGIC_3")
  330.  
  331. (if (not changechoice)
  332.     (
  333.     ; ------- STARTUP ÄNDERN
  334.  
  335.  
  336.     (set command1 (tackon @default-dest "MaxonMAGIC_3"))
  337.  
  338.     (set command1.txt
  339.         (cat
  340.              "\n\n\nDamit MaxonMAGIC nach jedem Neustart aktiv ist"
  341.           "muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  342.              command1
  343.         )
  344.     )
  345.  
  346.     (startup "MaxonMAGIC.app"
  347.         (prompt command1.txt)
  348.         (help #help-startup)
  349.         (command command1)
  350.     )))
  351.  
  352.  
  353.  
  354.  
  355. (run "C:DELETE RAM:LHX")                                    ; aufräumen ...
  356.  
  357. (complete 100)
  358.  
  359. ; ------- FERTIG
  360.  
  361. (exit)
  362.  
  363. ;=============================================================================
  364.  
  365.