home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Meeting Pearls 3
/
Meeting_Pearls_III.iso
/
Pearls
/
game
/
LazyMines3.0
/
installationscript
< prev
next >
Wrap
Text File
|
1995-05-25
|
10KB
|
322 lines
; $VER: installationscript 3.0 (25.5.95)
; Script to install LazyMines 3.0
;=============================================================================
;English strings
(if (= @language "english")
(
(set default_lang 0)
(set default_doc 0)
(set #bad-kick
"You need at least version 37 of AmigaOS to run LazyMines.")
(set #how-install
(cat "Do you want to install the whole program or just update the "
"language catalogs?"))
(set #how-install-help
(cat "Choose \"Install whole program\" if you are installing from "
"scratch or if you are updating an old version.\n"
"\nChoose \"Update languages\" if you want to install or remove "
"language catalogs."))
(set #how-install-1 "Install whole program")
(set #how-install-2 "Update languages")
(set #where-install
"Choose location where you want to install LazyMines.")
(set #which-documentation
"Which documentation do you want to install with LazyMines?")
(set #which-documentation-help
"Check the language you want to install with LazyMines.")
(set #which-icons
"Which icons do you want to install with LazyMines?")
(set #which-icons-help
(cat "Choose \"MagicWB icons\" if you have MagicWB installed, "
"otherwise choose \"Standard icons\"."))
(set #which-icons-1 "MagicWB icons")
(set #which-icons-2 "Standard icons")
(set #no-languages
(cat "You need at least version 38 of AmigaOS to have any use for the "
"language catalogs."))
(set #where-languages
"Where do you want to install the language catalogs?")
(set #where-languages-help
(cat "This lets you choose if you want the language catalogs to be "
"copied to the same location as the rest of the program, or if "
"you want to have them in the global Catalog dir."))
(set #which-languages
"Which language catalogs do you want to install with LazyMines?")
(set #which-languages-help
(cat "Check all languages you want to install with LazyMines.\n"
"\nIf a language already installed is not checked, "
"it will be removed."))
))
;=============================================================================
;Norwegian strings
(if (= @language "norsk")
(
(set default_lang 1)
(set default_doc 1)
(set #bad-kick
"Du trenger minst versjon 37 av AmigaOS for å kjøre LazyMines.")
(set #how-install
(cat "Ønsker du å installere hele programmet eller kun oppdatere "
"språkkatalogene?"))
(set #how-install-help
(cat "Velg \"Installér hele programmet\" hvis du installerer fra"
"grunnen eller hvis du oppdaterer en eldre versjon.\n"
"\nVelg \"Oppdatér språk\" hvis du ønsker å installere eller"
"fjerne språkkataloger."))
(set #how-install-1 "Installér hele programmet")
(set #how-install-2 "Oppdatér språk")
(set #where-install
"Velg hvor du ønsker å installere LazyMines.")
(set #which-documentation
"Hvilken dokumentasjon ønsker du å installere med LazyMines?")
(set #which-documentation-help
"Merk av språkene du ønsker å installere med LazyMines.")
(set #which-icons
"Hvilke ikoner ønsker du å installere med LazyMines?")
(set #which-icons-help
(cat "Velg \"MagicWB ikoner\" hvis du har MagicWB installert, "
"velg ellers \"Standard ikoner\"."))
(set #which-icons-1 "MagicWB ikoner")
(set #which-icons-2 "Standard ikoner")
(set #no-languages
(cat "Du trenger minst versjon 38 av AmigaOS for å kunne benytte "
"språkkatalogene."))
(set #where-languages
"Hvor ønsker du å installere språkkatalogene?")
(set #where-languages-help
(cat "Dette lar deg velge om du ønsker å kopiere språkkatalogene "
"til den samme skuffen som resten av programmet, eller om du "
"ønsker å ha dem i den globale Catalog-skuffen."))
(set #which-languages
"Hvilke språkkataloger ønsker du å installere med LazyMines?")
(set #which-languages-help
(cat "Merk alle språk du ønsker å installere med LazyMines.\n"
"\nHvis allerede installerte språk ikke merkes, vil "
"disse fjernes."))
))
;=============================================================================
; Swedish strings
(if (= @language "svenska")
(
(set default_lang 4)
(set default_doc 2)
(set #bad-kick
"Du behöver minst version 37 av AmigaOS för att kunna köra LazyMines.")
(set #how-install
(cat "Vill du installera hela programmet eller bara uppdatera "
"översättningsfilerna?"))
(set #how-install-help
(cat "Välj \"Installera allt\" om du inte har en tidigare "
"version installerad eller om du skall uppdatera en gammal "
"version.\n"
"\nVälj \"Uppdatera översättningar\" om du vill installera eller "
"ta bort översättningsfiler."))
(set #how-install-1 "Installera allt")
(set #how-install-2 "Uppdatera översättningar")
(set #where-install
"Välj position där du vill installera LazyMines.")
(set #which-documentation
"Vilken dokumentation vill du installera med LazyMines?")
(set #which-documentation-help
"Markera den dokumentation du vill installera med LazyMines.")
(set #which-icons
"Vilka ikoner vill du installera med LazyMines?")
(set #which-icons-help
(cat "Välj \"MagicWB-ikoner\" om du har MagicWB installerat, "
"välj annars \"Standardikoner\"."))
(set #which-icons-1 "MagicWB-ikoner")
(set #which-icons-2 "Standardikoner")
(set #no-languages
(cat "Du behöver minst version 38 av AmigaOS för att ha någon "
"användning av översättningsfilerna."))
(set #where-languages
"Var vill du installera översättningsfilerna?")
(set #where-languages-help
(cat "Detta låter dig välja om du vill att översättningsfilerna skall "
"kopieras till samma position som resten av programmet, eller om "
"du vill spara dem globalt."))
(set #which-languages
"Vilka översättningsfiler vill du installera?")
(set #which-languages-help
(cat "Markera alla översättningar som du vill installera.\n"
"\nOm ett språk som redan blivit installerat inte markeras kommer "
"det att raderas."))
))
;=============================================================================
;Procedures
(procedure install-program
(set @default-dest prog-dest)
(copylib (source (tackon sourcedir "LazyMines"))
(dest prog-dest)))
(procedure install-documentation
(set which-documentation (askchoice (prompt #which-documentation)
(help #which-documentation-help)
(choices "English"
"Norsk"
"Svenska")
(default default_doc)))
(set doc "English.guide")
(if (= which-documentation 0)
(install-doc))
(set doc "Norsk.guide")
(if (= which-documentation 1)
(install-doc))
(set doc "Svenska.guide")
(if (= which-documentation 2)
(install-doc)))
(procedure install-doc
(copyfiles (source (tackon doc-srcdir doc))
(dest prog-dest)
(newname "LazyMines.guide")))
(procedure install-icons
(set which-icons (askchoice (prompt #which-icons)
(help #which-icons-help)
(choices #which-icons-1 #which-icons-2)))
(if (= which-icons 0)
((set icon-srcdir (tackon icon-srcdir "misc"))
(set docicon-src (tackon icon-srcdir "LazyMines.guide.info"))))
(copyfiles (source icon-srcdir)
(dest prog-dest)
(choices "LazyMines.info"))
(copyfiles (source docicon-src)
(dest prog-dest)
(newname "LazyMines.guide.info"))
(tooltype (dest (tackon prog-dest "LazyMines"))
(noposition))
(tooltype (dest (tackon prog-dest "LazyMines.guide"))
(noposition)))
(procedure install-locales
(set where-languages (askchoice (prompt #where-languages)
(help #where-languages-help)
(choices locale-dest
locale-sysdest)))
(if (= where-languages 1)
(set locale-dest locale-sysdest))
(set which-languages (askoptions (prompt #which-languages)
(help #which-languages-help)
(choices "Norsk"
"Polski"
"Svenska")
(default default_lang)))
(set locale "norsk")
(if (IN which-languages 0)
(install-locale)
(remove-locale))
(set locale "polski")
(if (IN which-languages 1)
(install-locale)
(remove-locale))
(set locale "svenska")
(if (IN which-languages 2)
(install-locale)
(remove-locale)))
(procedure install-locale
(makedir locale-dest)
(makedir (tackon locale-dest locale))
(copylib (source (tackon (tackon locale-srcdir locale) "lazymines.catalog"))
(dest (tackon locale-dest locale))))
(procedure remove-locale
(delete (tackon (tackon locale-dest locale) "lazymines.catalog"))
(if (NOT (= locale-dest locale-sysdest))
((delete (tackon locale-dest locale))
(delete locale-dest))))
;=============================================================================
; Main program
(if (< (/ (getversion) 65536) 37)
(abort #bad-kick))
(welcome)
(set sourcedir (tackon (pathonly @icon) "/"))
(set doc-srcdir (tackon sourcedir "Docs"))
(set icon-srcdir sourcedir)
(set docicon-src (tackon doc-srcdir "English.guide.info"))
(set locale-srcdir (tackon sourcedir "Catalogs"))
(set locale-sysdest "LOCALE:Catalogs")
(set prog-dest (askdir (prompt #where-install)
(help @askdir-help)
(default @default-dest)))
(set how-install (askchoice (prompt #how-install)
(help #how-install-help)
(choices #how-install-1 #how-install-2)))
(if (= how-install 0)
((install-program)
(install-documentation)
(install-icons)
(run (cat "convscorefile \"" prog-dest "\"")))
(set @default-dest ""))
(if (< (/ (getversion) 65536) 38)
(exit #no-languages))
(set locale-dest (tackon prog-dest "Catalogs"))
(install-locales)