;$VER: TrashManager Install 1.01 (24.1.95)
;© 1995 Thomas Kessler

(set #install-version "1.01")
(set old-level @user-level)

; *** english (default) ***
(set #na "\n Read the documentation for help.")
(set #superior "A superior App-Icon Trashcan program.\n\n")
(set #rights "All rights reserved.\n")
(set #install "Install/Update TrashManager")
(set #remove "Remove TrashManager")
(set #is-installed
	(cat "is now installed.\n\n"
		"Please reboot now or double-click the\n"
		"TrashManager-icon in \"SYS:WBStartup\"\n"
		"to start the program."
	)
)
(set #is-removed
	(cat "is now removed.\n\n"
		"Please reboot now or select \"Quit\"\n"
		"in the TrashManager-menu to stop the program."
	)
)

; *** german ***
(if (= "deutsch" @language)
	(
		(set #na "\n Lesen Sie bitte die Anleitung.")
		(set #superior "Das bessere App-Icon Trashcan Programm.\n\n")
		(set #rights "Alle Rechte vorbehalten.\n")
		(set #install "Installieren/Aktualisieren")
		(set #remove "Entfernen")
		(set #is-installed
			(cat "wurde installiert.\n\n"
				"Bitte machen Sie jetzt einen Reset oder starten\n"
				"Sie das Programm über das TrashManager-Icon im\n"
				"Verzeichnis \"SYS:WBStartup\".\n"
			)
		)
		(set #is-removed
			(cat "wurde entfernt.\n\n"
				"Bitte machen Sie jetzt einen Reset oder\n"
				"wählen Sie \"Beenden\" im TrashManager-Menü\n"
				"um das Programm zu stoppen."
			)
		)
	)
)
; *** other language ***
(if (= "français" @language)
  (
    (set #na "\n Lisez les documentations pour de l'aide.")
    (set #superior "Une programme poubelle App-Icòne supérieur.\n\n")
    (set #rights "Toutes droits réservés.\n")
    (set #install "Installer/Placer à neieau supérieur TrashManager")
    (set #remove "Enlever TrashManager")
    (set #is-installed
      (cat "est maintenant installer.\n\n"
        "S'il vous plait, fait repartir l'ordinateur or double-click the\n"
        "ou TrashManager-icon in \"SYS:WBStartup\"\n"
        "to start the program."
      )
    )
    (set #is-removed
      (cat "is now removed.\n\n"
        "Please reboot now or select \"Quit\"\n"
        "in the TrashManager-menu to stop the program."
      )
    )
  )
)
; *** finnish (suomi)
(if (= "suomi" @language)
  (
    (set #na "\n Lue dokumentaatio!")
    (set #superior "Ylivoimainen roskakori-ohjelma.\n\n")
    (set #rights "Kaikki oikeudet pidätetään.\n")
    (set #install "Asenna/Päivitä TrashManager.")
    (set #remove "Poista TrashManager")
    (set #is-installed
      (cat "on nyt asennettu.\n\n"
        "Käynnistä kone uudelleen tai kaksois-\n"
        "näpäytä TrashManager-ikonia \"SYS:WBStartup\"\n"
        "hakemistossa käynnistääksesi ohjelman."
      )
    )
    (set #is-removed
      (cat "on nyt poistettu.\n\n"
        "Käynnistä kone uudelleen tai valitse \"Lopeta\"\n"
        "TrashManagerin valikosta sammuttaaksesi ohjelman."
      )
    )
  )
)
(if (= "italiano" @language)
  (
    (set #na "\n Leggi la documentazione per l'aiuto.")
    (set #superior "Un superbo programma (App-Icon) per la gestione del Trashcan.\n\n")
    (set #rights "Tutti i diritti riservati.\n")
    (set #install "Installa/Aggiorna TrashManager")
    (set #remove "Rimuovi TrashManager")
    (set #is-installed
      (cat "h stato installato.\n\n"
         "Resetta ora o fai doppio click sull'\n"
         "icona di TrashManager in \"SYS:WBStartup\"\n"
         "per far partire il programma."
      )
    )
    (set #is-removed
      (cat "h stato rimosso.\n\n"
        "Resetta ora o seleziona \"Quit\"\n"
        "dal menu di TrashManager per uscire dal programma."
      )
    )
  )
)

; *** main ***
(run (prompt "Version") (help	#na) "C:Version /TrashManager FULL >ENV:TrashManager.Version")
(set #TrashManager-version-full (getenv "TrashManager.Version"))
(delete (prompt "Cleanup") (help	#na) "ENV:TrashManager.Version"	(optional force))

(user 2)
(set action
	(askchoice
		(prompt "\n"#TrashManager-version-full
			#superior
			"TrashManager © Copyright 1995 John Muir\n"
			#rights"\n"
			"Install-Script "#install-version" © 1995 Thomas Kessler\n"
			#rights)
		(help #na)
		(choices #install #remove)
	)
)
(complete 10)
(user old-level)
(if (= action 0)
	(
		(copylib
			(prompt "Install")
			(help #na)
			(source "/TrashManager")
			(dest "SYS:WBStartup")
		)
		(complete 40)
		(copyfiles
			(prompt "Install")
			(help #na)
			(source "/TrashManager.info")
			(dest "SYS:WBStartup")
		)
		(complete 60)

		; *** here they go, the catalogs ***

		; *** french ***
		(if (exists "LOCALE:catalogs/français")
			(copylib
				(prompt "Install")
				(help #na)
				(source "/Catalogs/français/TrashManager.catalog")
				(dest "LOCALE:catalogs/français")
			)
		)
		; *** german ***
		(if (exists "LOCALE:catalogs/deutsch")
			(copylib
				(prompt "Install")
				(help #na)
				(source "/Catalogs/deutsch/TrashManager.catalog")
				(dest "LOCALE:catalogs/deutsch")
			)
		)
		; add other catalogs exactly like this:
		; *** suomi *** Finnish
		(if (exists "LOCALE:catalogs/suomi")
			(copylib
				(prompt "Install")
				(help #na)
				(source "/Catalogs/suomi/TrashManager.catalog")
				(dest "LOCALE:catalogs/suomi")
			)
		)
		; *** italian ***
		(if (exists "LOCALE:catalogs/italiano")
			(copylib
				(prompt "Install")
				(help #na)
				(source "/Catalogs/italiano/TrashManager.catalog")
				(dest "LOCALE:catalogs/italiano")
			)
		)

;		; add other catalogs exactly like this:
;		; *** xxx ***
;		(if (exists "LOCALE:catalogs/xxx")
;			(copylib
;				(prompt "Install")
;				(help #na)
;				(source "/Catalogs/xxx/TrashManager.catalog")
;				(dest "LOCALE:catalogs/xxx")
;			)
;		)

		(complete 90)     ;this was (complete 100) in old skript
		(user 2)
		(protect "L:WBStart-Handler" "+wd")    ; deprotect...
		(copylib
			(prompt "\nWBStart-Handler ) Stefan Becker\n")
			(help #na)
			(source "/L/WBStart-Handler")
			(dest "L:")
			(confirm)
		)

		(complete 100)
		(message	"\n\n\n"#TrashManager-version-full #is-installed)
		(user old-level)
	)
	(
		(delete
			(prompt "Remove")
			(help	#na)
			"SYS:WBStartup/TrashManager"
			(optional force)
		)
		(complete 40)
		(delete
			(prompt "Remove")
			(help	#na)
			"SYS:WBStartup/TrashManager.info"
			(optional force)
		)
		(complete 60)
		(run
			(prompt "Remove")
			(help	#na)
			"C:Delete >NIL: LOCALE:catalogs/#?/TrashManager.catalog FORCE"
		)
		(complete 100)
		(user 2)
		(message	"\n\n\n"#TrashManager-version-full #is-removed)
		(user old-level)
	)
)
(exit (quiet))
(welcome "")