home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / CRX-VA12.LHA / VideoArchiv_v1.2 / HD-Install < prev    next >
Encoding:
Text File  |  1980-02-28  |  3.1 KB  |  130 lines
  1.  
  2. (set progname    "VideoArchiv")
  3. (set progversion "1.2")
  4. (set progdir     "VideoArchiv_v1.2")
  5. (set diskname    "")
  6. (set user-level @user-level)
  7. (user 2)
  8.  
  9. (message (cat "\nWillkommen zum Installationsprogramm von\n" progname
  10.               " " progversion " !\n\n"
  11.               "Dieses Programm installiert " progname
  12.               "\nvollständig auf Ihrer Harddisk.\n")
  13. )
  14.  
  15. (user user-level)
  16. (welcome)
  17.  
  18. (set progpath "WORK:")
  19. (set ok 0)
  20.  
  21.  
  22. (set user-level @user-level)
  23. (user 2)
  24.  
  25. (while (not ok)
  26.   (set progpath (askdir
  27.                 (prompt (cat "Wo soll " progname " installiert werden?\n"
  28.                              "(Neues Verzeichnis wird im angegebenen Pfad erstellt.)"))
  29.                 (help @askdir-help)
  30.                 (default progpath)
  31.                 (disk)
  32.                 )
  33.   )
  34.   (If (= (Exists progpath (noreq)) 0)
  35.     (
  36.     (message (cat "\nAngegebener Pfad existiert nicht!\n"
  37.                   progname " konnte daher nicht installiert werden.\n\n"
  38.                   "Bitte wählen Sie ein gültiges Verzeichnis."))
  39.     )
  40.     (
  41.     (If (= (Exists (tackon progpath progdir)) 0)
  42.       (
  43.       (set ok 1)
  44.       )
  45.       (
  46.       (message (cat "\nEin Verzeichnis namens " progdir " existiert \n"
  47.                     "bereits im angegebenen Pfad!\n"
  48.                     progname " konnte daher nicht installiert werden.\n\n"
  49.                     "Bitte wählen Sie ein anderes Verzeichnis oder\n"
  50.                     "löschen Sie das " progdir "-Verzeichnis aus\n"
  51.                     "dem gewählten Pfad."))
  52.       )
  53.     )
  54.     )
  55.   )
  56. )
  57.  
  58. (set progpath  (tackon progpath progdir))
  59. (set device    (getdevice progpath))
  60. (set devicec   (cat device ":C"))
  61. (set devicelib (cat device ":Libs"))
  62.  
  63.  
  64. (copyfiles (prompt "\nKopiere Dateien... bitte warten.")
  65.            (help @copyfiles-help)
  66.            (source "")
  67.            (dest progpath)
  68.            (all)
  69.            (infos)
  70. )
  71.  
  72. (If (< (Exists devicec) 2)
  73.   (makedir devicec
  74.            (prompt "\nCreating C-Directory")
  75.   )
  76. )
  77. (If (= (Exists (tackon devicec "Amigaguide")) 0)
  78.   (copyfiles (prompt "\nKopiere Dateien in C-Verzeichnis...")
  79.              (help @copyfiles-help)
  80.              (source (cat progpath "/C"))
  81.              (dest devicec)
  82.              (all)
  83.   )
  84. )
  85.  
  86. (If (< (Exists devicelib) 2)
  87.   (makedir devicelib
  88.            (prompt "\nCreating Libs-Directory")
  89.   )
  90. )
  91. (If (= (Exists (tackon devicelib "Amigaguide.library")) 0)
  92.   (copyfiles (prompt "\nKopiere Dateien in Libs-Verzeichnis...")
  93.              (help @copyfiles-help)
  94.              (source (cat progpath "/Libs"))
  95.              (dest devicelib)
  96.              (all)
  97.   )
  98. )
  99.  
  100.  
  101. (delete (tackon progpath "HD-Install")
  102.         (prompt "")
  103.         (optional force)
  104. )
  105. (delete (tackon progpath "HD-Install.info")
  106.         (prompt "")
  107.         (optional force)
  108. )
  109. (delete (tackon progpath "Installer")
  110.         (prompt "")
  111.         (optional force) 
  112. )
  113. (delete (cat progpath "/C/AmigaGuide")
  114.         (prompt "")
  115.         (optional force) 
  116. ) 
  117. (delete (cat progpath "/Libs/AmigaGuide.library")
  118.         (prompt "")
  119.         (optional force) 
  120. ) 
  121. (delete (cat progpath "/C")
  122.         (prompt "")
  123.         (optional force) 
  124. ) 
  125. (delete (cat progpath "/Libs")
  126.         (prompt "")
  127.         (optional force) 
  128. ) 
  129.  
  130.