home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma82.dms
/
ma82.adf
/
instalator
< prev
next >
Wrap
Text File
|
1997-08-07
|
1KB
|
54 lines
; Amiga Shareware House
; Installer micro-script v0.2 (9.8.97)
;
(set #nazwa (fileonly @icon))
(set #Intro
(cat "Amiga Shareware House\n"
"------------------------\n\n"
"Uwaga!\n\n"
"Ten skrypt sîuûy jedynie do\n"
"rozpakowania archiwum zawierajâcego\n"
"program " #nazwa ".\n"
"Po rozpakowaniu, program zazwyczaj\n"
"wymaga zainstalowania go w systemie\n"
"za pomocâ doîâczonego instalatora.\n"
"Szczegóîy znajdziesz w instrukcji\n"
"programu " #nazwa"."
)
)
(set #Niepowodzenie
(cat "\n\nUWAGA! Podczas rozpakowywania archiwum\n"
#nazwa ".lha wystâpiî bîâd!"
)
)
(set #dirtext
(cat "Wybierz katalog, do którego rozpakujë\n"
"program " #nazwa":"
)
)
(message #Intro)
(welcome)
(set #KatDoc
(askdir (prompt #dirtext)
(help @askdir-help)
(default "SYS:")
(newpath)
)
)
(working "\n\n\n\nRozpakowujë archiwum...\n\n")
(if (NOT (= (substr #KatDoc (- (strlen #KatDoc) 1) 1) ":")) (set #KatDoc (cat #KatDoc "/")))
(set Archiwizer (cat "lha x -m -k -r -x \"" #nazwa "\" \"" #KatDoc "\""))
(if (> (run Archiwizer) 0) (abort #Niepowodzenie))
(message "\n\n\nArchiwum zostaîo rozpakowane.\n\n Program " #nazwa" (bâdú jego katalog)\nznajdziesz w katalogu\n" #KatDoc)
(exit (quiet))