home *** CD-ROM | disk | FTP | other *** search
Wrap
; * $VER: Install Adventureshop 2.15 Demo ; * Script written by Eckhard Ludwig ;***************************************************************************** (set current_version "2.15") (set lng @language) (complete 0) ;**************************************************************************** (set #intro1 (cat "\n\Adventureshop " current_version "\n************************\n© 1997, APC&TCP Computerclub")) ;**************************************************************************** ; german (if (= lng "deutsch") ( (set Opt 1) (set #intro2 (cat "Willkommen zu dem Adventureshop Installations Utility.\n\n" "Dieses Programm installiert Adventureshop 2.15 Demoversion auf Ihrem Amiga." )) (set #choose-text (cat "Bitte wählen Sie das Verzeichniss wohin Adventureshop installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade namens 'Adventureshop' an. " "Der Platzbedarf beträgt etwa 1800KB. Siehe Hilfe." )) (set #choose-help (cat "Bei der Installation werden alle erforderlichen Programmdateien in dieses Verzeichniss kopiert.\n\n" "Grafik- und Sounddateien werden nicht installiert. Sie können diese direkt von CDROM nutzen, oder eigene Dateien in die leeren Verzeichnisse 'GRAFIK' und 'SOUND' installieren." )) (set #Div-help (cat "Librarys und Fonts müssen zusätzlich im Programmverzeichniss installiert sein!\n\n" "Adventureshop benötigt diese Dateien bei der Erstellung eines Endprojektes." )) (set #create-maindir (cat "Erstelle Adventureshop-Verzeichniss" )) (set #inst-main (cat "Installiere Adventureshop ..." )) (set #inst-Lokale (cat "Installiere Lokale.exe ..." )) (set #create-bindir (cat "Erstelle Bin Unterverzeichniss" )) (set #create-Fontsdir (cat "Erstelle Fonts Unterverzeichniss" )) (set #create-Datdir (cat "Erstelle Unterverzeichniss" )) (set #create-Libsdir (cat "Erstelle Libs Unterverzeichniss" )) (set #create-docsdir (cat "Erstelle Doks-Verzeichniss" )) (set #inst-bin (cat "Installiere Binarys ..." )) (set #inst-docs (cat "Installiere Programm Dokumentation ..." )) (set #inst-fonts (cat "Installiere Fonts ..." )) (set #inst-Libs (cat "Installiere " )) (set #Install-prompt (cat "Bitte wählen Sie für das Programm die bevorzugte(n) Sprachversion(en).\nMit n/a gekennzeichnete Sprachen sind momentan nicht verfügbar." )) (set #Locale-Copy "Kopiere Cataloge ...") (SET #exit-Msg (CAT "\n\nViel Spaß mit den Programmen\n wünscht\n\n" "Eckhard Ludwig" )) ) ;****************************************************************************************************** ; english ( (set Opt 2) (set #intro2 (cat "Welcome to the Adventureshop installation utility.\n\n" "This program lets you install Adventureshop 2.0 on your Amiga." )) (set #choose-text (cat "Please choose a directory where Adventureshop should be installed. A drawer will be created there. " "The minimum space required is about 1800KB." )) (set #choose-help (cat "In this location a drawer called "Adventureshop" will be created. All programm files will be installed inside this drawer." )) (set #Div-help (cat "Librarys und Fonts müssen zusätzlich im Programmverzeichniss installiert sein!\n\n" "Adventureshop benötigt diese Dateien bei der Erstellung eines Endprojektes." )) (set #inst-main (cat "Installing Adventureshop ..." )) (set #inst-Lokale (cat "Installing Lokale.exe ..." )) (set #create-maindir (cat "Creating Adventureshop Directory" )) (set #create-bindir (cat "Creating dir" )) (set #create-Datdir (cat "Creating dir" )) (set #create-Fontsdir (cat "Creating Fonts dir" )) (set #create-Libsdir (cat "Creating Libs dir" )) (set #create-docsdir (cat "Creating Docs dir" )) (set #inst-bin (cat "Installing Binarys ..." )) (set #inst-docs (cat "Installing program documentation ..." )) (set #inst-fonts (cat "Installing Fonts ..." )) (set #inst-Libs (cat "Installing " )) (set #Install-Prompt (cat "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !" )) (set #Locale-Copy "Copy cataloges ...") (SET #exit-Msg (CAT "\n\nMuch fun with Programmes\n wish you\n\n" "Eckhard Ludwig" )) )) ;********************************************* ; Greetings & Path ... (set @default-dest (getassign "Work" "dva")) (if (= @default-dest "") (set @default-dest "SYS:")) (message #intro1 "\n\n" #intro2) (set @default-dest (askdir (prompt #choose-text) (help #choose-help) (default @default-dest)) ) (set @default-dest (tackon @default-dest "Adventureshop")) (makedir @default-dest (prompt #create-maindir)(infos)) ;********************************************* ; Installation procedure ; (copyfiles (prompt #inst-main) (help @copyfiles-help) (source "Adventureshop") (dest @default-dest) (confirm "EXPERT") (optional "force" "askuser") (infos) ) (complete 10) (copyfiles (prompt #inst-main) (help @copyfiles-help) (source "ADVPlayer") (dest @default-dest) (confirm "EXPERT") (optional "force" "askuser") (infos) ) (makedir (tackon @default-dest "GRAFIK") (prompt #create-Datdir) (infos) ) (makedir (tackon @default-dest "SOUND") (prompt #create-Datdir) (Infos) ) (makedir (tackon @default-dest "C") (prompt #create-bindir) ) (complete 15) (copyfiles (prompt #inst-bin) (help #Div-help) (source "C/jbplay") (dest (tackon @default-dest "C")) (confirm "EXPERT") (optional "force" "askuser") ) (copyfiles (prompt #inst-bin) (help #Div-help) (source "C/PatchPointer") (dest (tackon @default-dest "C")) (confirm "EXPERT") (optional "force" "askuser") ) (complete 30) (makedir (tackon @default-dest "Fonts") (prompt #create-Fontsdir) ) (copyfiles (prompt #inst-Fonts) (help #Div-help) (source "Fonts") (dest (tackon @default-dest "Fonts")) (optional "force" "askuser") (confirm "EXPERT") (all) ) (makedir (tackon @default-dest "Libs") (prompt #create-Libsdir) ) (copyfiles (prompt #inst-Libs) (help #Div-help) (source "Libs") (dest (tackon @default-dest "Libs")) (pattern "#?") (optional "force" "askuser") (confirm "EXPERT") (files) ) (complete 40) (makedir (tackon @default-dest "Docs") (prompt #create-docsdir) (infos) ) (copyfiles (prompt #inst-docs) (help @copyfiles-help) (source "Docs") (dest (tackon @default-dest "Docs")) (pattern "#?") (optional "force" "askuser") (confirm "EXPERT") (files) (infos) ) (complete 50) (copyfiles (prompt #inst-fonts) (help @copyfiles-help) (source "Fonts") (dest "SYS:Fonts") (optional "force" "askuser") (confirm "EXPERT") (all) ) (copylib (prompt (cat #inst-Libs "asyncio.library")) (help @copylib-help) (source "Libs/asyncio.library") (dest "SYS:Libs") (optional "force" "askuser") (confirm "EXPERT") ) (copylib (prompt (cat #inst-Libs "graficfx.library")) (help @copylib-help) (source "Libs/CanDoGfx.library") (dest "SYS:Libs") (optional "force" "askuser") (confirm "EXPERT") ) (copylib (prompt (cat #inst-Libs "inovamusic.library")) (help @copylib-help) (source "Libs/inovamusic.library") (dest "SYS:Libs") (optional "force" "askuser") (confirm "EXPERT") ) (copylib (prompt (cat #inst-Libs "lowlevel.library")) (help @copylib-help) (source "Libs/lowlevel.library") (dest "SYS:Libs") (optional "force" "askuser") (confirm "EXPERT") ) (complete 70) ;********************************************* ; copy the locales (set installchoice (askoptions (prompt #Install-Prompt) (help @askoptions-help) (choices "Deutsch" "English n/a" "dansk n/a" "français n/a" "italiano n/a" "nederlands n/a" "norsk n/a" "suomi n/a" "svenska n/a") (default Opt) )) (IF (BITAND installchoice 2) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/english") (dest "SYS:Locale/Catalogs/english") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 4) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/dansk") (dest "SYS:Locale/Catalogs/dansk") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 8) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/français") (dest "SYS:Locale/Catalogs/français") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 16) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/italiano") (dest "SYS:Locale/Catalogs/italiano") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 32) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/nederlands") (dest "SYS:Locale/Catalogs/nederlands") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 64) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/norsk") (dest "SYS:Locale/Catalogs/norsk") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 128) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/suomi") (dest "SYS:Locale/Catalogs/suomi") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (IF (BITAND installchoice 256) (copyfiles (prompt #Locale-Copy) (help @copyfiles-help) (source "Locale/Catalogs/svenska") (dest "SYS:Locale/Catalogs/svenska") (pattern "#?.catalog") (confirm "EXPERT") (optional "force" "askuser" "nofail") )) (complete 90) ;********************************************* (complete 100) (EXIT #exit-Msg )