home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 July / AMIGA_1996_7.BIN / grafik / amiga-cd_vol.3 / animationen / 308-kopieren < prev    next >
AmigaDOS Script File  |  1996-05-17  |  911b  |  33 lines
  1. .key copytarget
  2. .bra {
  3. .ket }
  4. ; Kopierscript für SSA-Animationen des AMIGA-Magazins
  5. ; © MagnaMedia Verlag AG, AMIGA-Magazin
  6. cd >env:ssa-org{$$}
  7. assign >nil: ssa-org: `getenv ssa-org{$$}`
  8. if "{copytarget}" EQ ""
  9.     unset bla
  10.     :c/Requestfile20 RAM: TITLE "Benötige 3784474 Bytes im Zielverzeichnis" DRAWERSONLY >env:bla
  11.     if warn
  12.        quit 0
  13.     endif
  14. .def copytarget $bla
  15. endif
  16. :c/checkdevavail {copytarget} 3784474
  17. if warn
  18.     :c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" OK
  19. else
  20.     copy >nil: ssa-org:308_UFO#? {copytarget}
  21.     copy >nil: ssa-org:mod.test {copytarget}
  22.     cd {copytarget}
  23.     if not exists SSAMultiplay
  24.         copy >nil: ssa-org:SSAMultiplay/#? all SSAMultiPlay
  25.     endif
  26.     cd ssa-org:
  27.     if `getenv request` EQ "YES"
  28.         :c/requestchoice20 >nil: Information "Kopiervorgang beendet!" OK
  29.     endif
  30. endif
  31. assign >nil: ssa-org: remove
  32. unsetenv ssa-org{$$}
  33.