home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 100 / af100b.adf / patches.lzx / SWOSEd / Install < prev    next >
Encoding:
Text File  |  1997-06-18  |  1.1 KB  |  46 lines
  1. ; $VER: SWOS Ed Install-Script v1.1 (3.04.96) by Piotr Bieniek
  2.  
  3.  
  4. ; przedstaw sië uûytkownikowi
  5. (message "SWOS Ed © 1997 Piotr Bieniek\n\n\n"
  6.          "This script will install SWOS Ed 1.6 "
  7.          "on your hard disk drive.")
  8. (welcome)
  9.  
  10. ; spytaj uûytkownika o miejsce instalacji
  11. (set default-dest
  12.      (tackon (askdir (prompt "Where would you like to install SWOS Ed?\n"
  13.                              "A drawer called 'SWOSEd' will be created there.")
  14.                      (help @askdir-help)
  15.                      (default @default-dest)
  16.              )
  17.      "SWOSEd"
  18.      )
  19. )
  20. (set @default-dest default-dest)
  21.  
  22. ; stworzenie potrzebnych katalogów
  23. (makedir @default-dest
  24.          (infos)
  25. )
  26.  
  27. (complete 20)
  28.  
  29. ; skopiuj odpowiednie pliki
  30. (copyfiles (source "SWOSEd")
  31.            (dest @default-dest)
  32.            (infos)
  33. )
  34. (copyfiles (source "Catalogs")
  35.            (dest (tackon @default-dest "Catalogs"))
  36.            (all)
  37. )
  38. (copyfiles (source "Help")
  39.            (dest (tackon @default-dest "Help"))
  40.            (all)
  41. )
  42. (copyfiles (source "Help.info")
  43.            (dest @default-dest)
  44. )
  45. (complete 100)
  46.