home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SM2.DMS / in.adf / HD-Installation < prev    next >
Encoding:
Text File  |  1994-06-26  |  2.4 KB  |  122 lines
  1.  
  2. (set SourceDir "Schreibmaschine:")
  3. (set smsize "550")
  4.  
  5. (set osversion (/ (getversion) 65536))
  6. (if (>= osversion 36) (set kickflag 1) )
  7. (if (<= osversion 35) (set kickflag 0) )
  8.  
  9. (complete 0)
  10.  
  11. (set default-dest
  12.    (askdir
  13.        (prompt "In welchem Verzeichnis soll 'Schreibmaschine' "
  14.               "installiert werden?\n" )
  15.         (help
  16.            "Der Installer erstellt das Verzeichnis 'Schreibmaschine', "
  17.             "in dem das Programm und die Daten installiert werden.\n\n"
  18.          "Auf dem ausgewählten Laufwerk muß ausreichend "
  19.          "Speicherplatz zur Verfügung stehen, d.h. ca. "
  20.          smsize " KByte Freiraum." )
  21.       (default "Work:")
  22.    )
  23. )
  24.  
  25. (set realdest (tackon default-dest "Schreibmaschine"))
  26.  
  27. (if
  28.    (= (exists realdest) 0)
  29.        (makedir realdest (infos))
  30. )
  31.  
  32. (complete 4)
  33.  
  34. (set libsdir (tackon SourceDir "libs"))
  35.  
  36. (complete 5)
  37.  
  38. (copylib
  39.     (prompt "" )
  40.    (help "")
  41.     (source (tackon libsdir "medplayer.library"))
  42.     (dest "libs:")
  43. )
  44.  
  45. (complete 15)
  46.  
  47. (set n 0)
  48. (while (set thisfile
  49.  (select n 
  50.   "Schreibmaschine" "Schreibmaschine.info" "daten2"
  51.   "Icons.abk" "Klänge.abk" "Voreinstellungen" ""))
  52.    (
  53.       (if
  54.           (= 0 (exists (tackon SourceDir thisfile)))
  55.            (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon SourceDir thisfile)))
  56.       )
  57.  
  58.       (copyfiles
  59.          (prompt "" )
  60.          (help "")
  61.          (source (tackon SourceDir thisfile))
  62.          (dest realdest)
  63.       )
  64.  
  65.         (set n (+ n 1))
  66.     )
  67. )
  68.  
  69. (complete 55)
  70.  
  71. (set GfxSrcDir (tackon SourceDir "Grafik"))
  72. (set LekSrcDir (tackon SourceDir "Lektionen"))
  73. (set TabSrcDir (tackon SourceDir "Tabellen"))
  74.  
  75. (set GfxDstDir (tackon RealDest "Grafik"))
  76. (if (= (exists GfxDstDir) 0) (makedir GfxDstDir))
  77. (set LekDstDir (tackon RealDest "Lektionen"))
  78. (if (= (exists LekDstDir) 0) (makedir LekDstDir))
  79. (set TabDstDir (tackon RealDest "Tabellen"))
  80. (if (= (exists TabDstDir) 0) (makedir TabDstDir))
  81.  
  82. (complete 60)
  83.  
  84. (copyfiles
  85.     (prompt "Kopiere Grafiken..." )
  86.     (help "")
  87.     (source GfxSrcDir)
  88.     (dest GfxDstDir)
  89.    (all)
  90. )
  91.  
  92. (complete 75)
  93.  
  94. (copyfiles
  95.     (prompt "Kopiere Lektionen..." )
  96.     (help "")
  97.     (source LekSrcDir)
  98.     (dest LekDstDir)
  99.    (all)
  100. )
  101.  
  102. (complete 95)
  103.  
  104. (copyfiles
  105.     (prompt "Kopiere Tabellen..." )
  106.     (help "")
  107.     (source TabSrcDir)
  108.     (dest TabDstDir)
  109.    (all)
  110. )
  111.  
  112. (complete 98)
  113.  
  114. (set smassign ("Assign Schreibmaschine: \"%s\"\n" realdest))
  115. (startup "Schreibmaschine"
  116.     (prompt "Die Startup-Sequence wird um einen Assign-Befehl erweitert.")
  117.     (help "")
  118.     (command smassign)
  119. )
  120.  
  121. (complete 100)
  122.