home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0951.lha / MaxonMAGIC / Install-MM-HD.english < prev    next >
Text File  |  1993-12-17  |  4KB  |  204 lines
  1. ; $VER: MaxonMAGIC Install Version 1.1 (1.12.93)
  2. ; 
  3. (set #introduction
  4. (cat "\nThis script will install \n\nMaxonMAGIC\n\n on your harddisk. "
  5.      "The installation will work almost automatically. "))
  6. (set #askdir-help
  7. (cat "\nChoose a directory on your harddisk partition in which you want "
  8.      "to install MaxonMAGIC. This script will NOT create a drawer! "
  9.      "Click on \"MAKE NEW DRAWER\" and type in the name of the  drawer "
  10.      "(e.g. WORK:MMAGIC). "))
  11. (set #help-startup
  12. (cat "MaxonMAGIC will do some changes to the file \"s:user-startup\". "
  13.      "to be started directly after system startup. "
  14.      "Click on \"Proceed\" to let the changes take effect. "))
  15. (set #no-inst
  16. (cat "\nThere is not enough disk space to install MaxonMAGIC! "))
  17.  
  18.  
  19.  
  20. (set #MAGICSIZE    1)
  21. (set #MaxonMSIZE  1)
  22.  
  23.  
  24. (Procedure Inst_NormFiles
  25.     (if (< (getdiskspace @Dest) @Size)
  26.         (abort #no-inst))
  27.  
  28.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  29.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  30. )
  31.  
  32. (Procedure Inst_PatternFiles
  33.     (if (< (getdiskspace @Dest) @Size)
  34.         (abort #no-inst))
  35.  
  36.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  37.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  38. )
  39.  
  40.  
  41.  
  42. (message #introduction)
  43. (welcome)
  44. (set old_level @user-level)
  45.  
  46. (complete 0)
  47.  
  48. (set @default-dest                           ; Verzeichnis aussuchen 
  49.     (askdir
  50.         (prompt #COPVERZ)
  51.         (help    #askdir-help)
  52.         (default "WORK:MMAGIC")
  53.     )
  54. )
  55.  
  56. (if                                          ; Verzeichnis erzeugen
  57.     (= (exists @default-dest) 0)
  58.     (makedir @default-dest)
  59. )
  60.  
  61.  
  62.  
  63.  
  64. (if
  65.    (= (exists "C:MuchMore") 0)
  66.     (copyfiles                                        ; MuchMore kopieren
  67.         (help @copyfiles-help)
  68.         (source "C")
  69.         (dest "C:")
  70.        (choices "MuchMore")
  71.     )
  72. )
  73.  
  74. (complete 10)
  75.  
  76. (
  77.     (set @Source "")
  78.     (set @Dest @default-dest)
  79.    (set @Pattern "MM_Sounds")
  80.     (set @Size #MaxonMSIZE)
  81.     (Inst_PatternFiles)
  82. )
  83.  
  84. (complete 20)
  85.  
  86. (
  87.     (set @Source "")
  88.     (set @Dest @default-dest)
  89.    (set @Pattern "MM_SModule")
  90.     (set @Size #MAGICSIZE)
  91.     (Inst_PatternFiles)
  92. )
  93.  
  94. (
  95.     (set @Source "")
  96.     (set @Dest @default-dest)
  97.    (set @Pattern "MM_Effekte")
  98.     (set @Size #MAGICSIZE)
  99.     (Inst_PatternFiles)
  100. )
  101.  
  102. (
  103.     (set @Source "")
  104.     (set @Dest @default-dest)
  105.    (set @FName "Manual")
  106.     (set @Size #MAGICSIZE)
  107.     (Inst_NormFiles)
  108.  
  109. )
  110.  
  111.  
  112. (complete 40)
  113.  
  114. (
  115.     (set @Source "")
  116.     (set @Dest @default-dest)
  117.    (set @FName "MaxonMAGIC_Demo_Eng")
  118.     (set @Size #MAGICSIZE)
  119.     (Inst_NormFiles)
  120. )
  121.  
  122.  
  123.  
  124. (complete 60)
  125.  
  126. (
  127.     (set @Source "")
  128.     (set @Dest @default-dest)
  129.    (set @FName "MM_Prefs")
  130.     (set @Size #MAGICSIZE)
  131.     (Inst_NormFiles)
  132.  
  133. )
  134.  
  135.  
  136.  
  137. (complete 70)
  138.  
  139. (copylib                                            ; RCT-LIB kopieren
  140.     (prompt "Copying RCT-LIBRARY ...")
  141.     (help
  142.         "The RCT-Library is used because of its powerful filerequester. "
  143.       "If you already have a version installed then this is a newer "
  144.       "one.\n\n"
  145.         @copyfiles-help
  146.     )
  147.     (source "libs/rct.library")
  148.     (dest "Libs:")
  149.     (confirm)
  150. )
  151.  
  152. (complete 90)
  153.  
  154.  
  155.  
  156. (set changechoice 1)
  157.  
  158. (set changechoice
  159.     (askchoice
  160.         (prompt "\nDo you want to have MaxonMAGIC activated after system startup? "
  161.               "This will change your file s:user-startup.")
  162.         (help @askchoice-help)
  163.         (choices "Yes" "No")
  164.         (default 0)
  165.     )
  166. )
  167.  
  168.  
  169. (set command1 "MaxonMAGIC_Demo_Eng")
  170.     
  171. (if (not changechoice)
  172.     (
  173.     ; ------- STARTUP ─NDERN
  174.     
  175.     
  176.     (set command1 (tackon @default-dest "MaxonMAGIC_Demo_Eng"))
  177.     
  178.     (set command1.txt
  179.         (cat 
  180.              "\n\n\nYour user-startup has to be changed.\n\n"
  181.              command1
  182.         )
  183.     )
  184.     
  185.     (startup "MaxonMAGIC_Demo.app"
  186.         (prompt command1.txt)
  187.         (help #help-startup)
  188.         (command command1)
  189.     )))
  190.  
  191. (complete 100)
  192.  
  193. ; ------- FERTIG
  194.  
  195. (message (cat 
  196.     "Installation complete.\n"
  197.    "Now remove disk and reboot your computer. "))
  198.  
  199.  
  200. (exit)
  201.  
  202. ;=============================================================================
  203.  
  204.