home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma81.dms / ma81.adf / instalator < prev    next >
Encoding:
Text File  |  1997-08-08  |  1.2 KB  |  54 lines
  1. ; Amiga Shareware House
  2. ; Installer micro-script v0.2 (9.8.97)
  3. ;
  4.  
  5. (set #nazwa (fileonly @icon))
  6.  
  7. (set    #Intro
  8.     (cat    "Amiga Shareware House\n"
  9.         "------------------------\n\n"
  10.         "Uwaga!\n\n"
  11.         "Ten skrypt sîuûy jedynie do\n"
  12.         "rozpakowania archiwum zawierajâcego\n"
  13.         "program " #nazwa ".\n"
  14.         "Po rozpakowaniu, program zazwyczaj\n"
  15.         "wymaga zainstalowania go w systemie\n"
  16.         "za pomocâ doîâczonego instalatora.\n"
  17.         "Szczegóîy znajdziesz w instrukcji\n"
  18.         "programu " #nazwa"."
  19.     )
  20. )
  21.  
  22. (set    #Niepowodzenie
  23.     (cat    "\n\nUWAGA! Podczas rozpakowywania archiwum\n"
  24.         #nazwa ".lha wystâpiî bîâd!"
  25.     )
  26. )
  27.  
  28. (set    #dirtext
  29.     (cat    "Wybierz katalog, do którego rozpakujë\n"
  30.         "program " #nazwa":"
  31.     )
  32. )
  33.  
  34. (message    #Intro)
  35. (welcome)
  36.  
  37. (set #KatDoc
  38.     (askdir    (prompt    #dirtext)
  39.         (help    @askdir-help)
  40.         (default    "SYS:")
  41.         (newpath)
  42.     )
  43. )
  44.  
  45. (working    "\n\n\n\nRozpakowujë archiwum...\n\n")
  46.  
  47. (if (NOT (= (substr #KatDoc (- (strlen #KatDoc) 1) 1) ":")) (set #KatDoc (cat #KatDoc "/")))
  48. (set Archiwizer (cat "lha x -m -k -r -x \"" #nazwa "\" \"" #KatDoc "\""))
  49.  
  50. (if    (> (run Archiwizer) 0) (abort #Niepowodzenie))
  51.  
  52. (message    "\n\n\nArchiwum zostaîo rozpakowane.\n\n Program " #nazwa" (bâdú jego katalog)\nznajdziesz w katalogu\n" #KatDoc)
  53. (exit    (quiet))
  54.