(set source-lha		        "Tools/LhA")
(set run-lhapatterns		"Tools/LhaPatterns")
(set run-lha			"RAM:LhA -a")
(set pix			"Plan_pix.lha")
;
;---------------------------------------------------------------------
;
; Installer-Script for Planetarium pictures
;

; strings

(set #install-hd-msg
(cat		"                                                     "
		"          Wo sollen die Bilder installiert werden?   "
		"                                                     "
		"          Where do you want to place the pictures?   "
		"                                                     "
		"          Ou voulez vous installer les tableau?      "
))

(set #install-hd-help
(cat	"\nHier entscheiden Sie, in welches Verzeichnis die "
		"Bilder für den Teleskopmodus kopiert werden sollen.\n\n"
		"Empfehlenswert ist auf der Festplatte das Verzeichnis  "
		"Planetarium/tele oder eine Diskette mit Namen 'Tele:'"
))


(set #epack_pix1
(cat	"                                                     "
	"            Entpacken der Bilder...                  "
	"            Decrunching main pics...                 "
))

;
; Procedures
;




(procedure do_hd 
	(set default-dest
		(askdir
			(prompt #install-hd-msg)
			(help #install-hd-help)
			(default @default-dest)
		)
	)
	

; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
; Probleme).
;--------------------------------------------------------------------------
		(set dst-dir default-dest)
		(if 
		 (and 
		  (> (strlen dst-dir) 0
		  ) 
		  (and 
		   (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":"
		   ) 
		   (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"
		   )
		  )
		 ) 
		(set dst-dir (cat dst-dir "/")))
;--------------------------------------------------------------------------

	(message #epack_pix1)
	(run (cat run-lha " x " pix " " dst-dir))
	(complete 100)

)


;
;
; GO!
;
;

(complete 0)
; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
; baut...

(run run-lhapatterns)

; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
; geladen werden muß.

(copyfiles
	(source source-lha)
	(dest "RAM:")
	(nogauge)
)
; Beispiel:
; (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))

(set olduserlevel (user 1) )
(do_hd)
(complete 100)
(delete "ram:lha")