; $VER: BoulderDäsh.install 4.29 (02.04.00) ; Install script for BoulderDäsh (Workbench 2.0 or higher) ; (COMPLETE 0) ;(USER 2) ;(DEBUG) (SET #ApplicationName "BoulderDäsh") (SET #ApplicationDir "sys:") (SET #ApplicationDir1 "work:") (SET #ApplicationDir2 "games:") (SET #ApplicationDir3 "game:") (SET #ApplicationDir4 "work:games") (SET #ArchiveDir "/") (SET #Language -1) (SET #Documents -1) (SET #ApplicationKeyfile (CAT #ApplicationName ".key")) (SET #CDMode "0") ;"1" if used on BoulderDäshCD: ;============================================================================= ; English strings ;============================================================================= (SET default_lang 4) (SET #bad-kick "You must have at least Workbench 2.0+") (SET #bad-installer (CAT "You have an old version of the program 'Installer' " "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n" "Please check your configuration!\n" )) (SET #App-InstallMsg (CAT "\n\n%s Installation Script.\n\n" "This script installs %s on your Amiga.\n\n" "Read the guide file for more information\n" " on the distribution of %s.\n\n" "%s © 1995-2000 Guido Mersmann\n" "All rights reserved." )) (SET #App-MainMode "Please choose mode:") (SET #App-InstallMode "Please choose the type of installation:") (SET #App-Where (CAT "Where would you like to install %s ?\n" "(A drawer will be created)" )) (SET #App-Update (CAT "\n\nA %s drawer does already exist in the selected " " directory.\n\n By selecting \"Proceed\", you" " indicate that you want to update the %s" " installation with the most recent version.\n\n" "Several %s specific files will be overwritten!" )) (SET #App-Main "Which %s version should be installed ?") (SET #App-Main-help (CAT "The OS2.0+ version should only be used on Systems with OS2." " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!" " Special OS3.0+ functions are used to save more memory." )) (SET #App-Language "Which languages should be installed ?") (SET #App-Language-help (CAT "\nThe Amiga can be operated in many different" " languages." "To reduce the amount of space consumed by the" " language files, you can select to have only the" " files of specific languages copied.\n\n" "Simply check the boxes of the languages you wish" " to have available on your system.\n\n" @askoptions-help )) (SET #App-Docs "Which Amiga-guide files should be installed ?") (SET #startup-prompt "\n\nSome lines need to be added to S:User-Startup for %s\n\n%s") (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Where is the location of %s ?\n") (SET #App-Install "Install") (SET #App-DeInstall "Deinstall") (SET #bad-DeInstall "There is no %s installation at the specified position!") (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?") (SET #Deinstall-Done "\n%s is now deinstalled.") ;--------- MINIMUM INSTALLATION STRINGS (SET #App-InstMinimum "Minimum Installation") (SET #App-InstMaximum "Maximum Installation") (SET #App-InstMaximumHelp (CAT "\nThe minimum installation requires around 3KB on your hard disk!" " It is creating an script file, an icon and some drawers to save" " BoulderDäsh specific data like settings, scores, your own levels," " etc." "\n\nThe maximum installation requires around 7MB on your hard disk!" " A complete installation will speed up the game loading! That`s all." " The game play is absolute the same, even when using an 1x CDROM!" "\n\nThe CD is required for copyright protection, exept you own an " " BoulderDäsh keyfile." )) ;============================================================================= ; German strings ;============================================================================= (IF (= @language "deutsch") ( (SET default_lang 2) (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer") (SET #bad-installer (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' " "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n" "Bitte überprüfen Sie Ihre Konfiguration!\n" )) (SET #App-InstallMsg (CAT "\n%s Installationsskript.\n\n" "Dieses Skript installiert oder deinstalliert\n" "%s auf Ihrem Amiga.\n\n" "Lesen Sie die Anleitungsdatei für weitere Informationen\n" " über den Vertrieb von %s.\n\n" "%s © 1995-2000 Guido Mersmann\n" "Alle Rechte reserviert." )) (SET #App-MainMode "Wählen Sie den gewüschten Vorgang:") (SET #App-InstallMode "Wählen Sie die Art der Installation:") (SET #App-Where (CAT "Wo möchten Sie %s installieren ?\n" "(Ein Verzeichnis wird angelegt)" )) (SET #App-Update (CAT "\nEin %s-Verzeichnis existiert im ausgewählen" " Verzeichnis.\n\n Wenn Sie fortfahren," " bestätigen Sie, daß Sie die alte %s-Installation" " mit der neuesten Version überschreiben wollen.\n\n" "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!" )) (SET #App-Main "Welche Version von %s möchten Sie installieren?") (SET #App-Main-help (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0." " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen" " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß" " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe" " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die" " weiteren Speicher sparen." )) (SET #App-Language "Welche Sprachen sollen installiert werden ?") (SET #App-Language-help (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen" " arbeiten. Um Plattenkapazität zu sparen können Sie" " nur die Sprachen anwählen, die sie benötigen" " Haken Sie also einfach die Sprachen ab, die Sie" " Ihrem System zugänglich machen wollen." @askoptions-help )) (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?") (SET #startup-prompt "\n\nJetzt werden für %s folgende Eintragungen in die S:User-Startup gemacht:\n\n%s") (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"") ;------- DEINSTALL STRINGS (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n") (SET #App-Install "%s Installieren") (SET #App-DeInstall "%s Deinstallieren") (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position") (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!") (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!") ;--------- MINIMUM INSTALLATION STRINGS (SET #App-InstMinimum "Minimale Installation") (SET #App-InstMaximum "Maximale Installation") (SET #App-InstMaximumHelp (CAT "\nDie minimale Installation benötigt ca 3KB auf Ihrer Festplatte!" " Es werden nur eine Skriptdatei, einige Piktogramme und ein paar" " Verzeichnisse erstellt, die BoulderDäsh braucht um Voreinstellungen," " Hiscores und z.B Ihre eigenen Level und Spiele zu speichern." "\n\nDie maximale Installation benötigt ca 7MB auf Ihrer Festplatte!" " Der Vorteil liegt hier eigentlich nur im schnelleren Zugriff bei" " einem langsammen CDROM-Laufwerk. Auf das Spiel selber hat das aber" " keinerlei Auswirkungen, da alle Daten vor Spielbeginn geladen werden." "\n\nDie CD wird auch bei einer Komplettinstallation immer noch" " als Kopierschutz benötigt, es sei den Sie besitzen Ihr persönliches" " BoulderDäsh keyfile" )) )) ;IF Language ;============================================================================= ; français strings ;============================================================================= (IF (= @language "français") ( (SET default_lang 1) (SET #bad-kick "Il vous faut le Workbench 2.0+") (SET #bad-installer (CAT "Vous avez une vieille version du programme 'Installer' " "sur votre Amiga!\n\nLa procédure d'installation nécessite au moins Installer 42.9.\n\n" "Vérifiez votre configuration!\n" )) (SET #App-InstallMsg (CAT "\n\n%s Scénario d'installation.\n\n" "Ce scénario installe %s sur votre Amiga.\n\n" "Lisez le fichier guide pour des informations\n" "sur la distribution de of %s.\n\n" "%s © 1995-2000 Guido Mersmann\n" "Tous droits réservés.\n\n" "Traduction française: Frédéric Delacroix" )) (SET #App-MainMode "Choisissez le mode:") (SET #App-InstallMode "Choisissez le type d'installation:") (SET #App-Where (CAT "Où voulez-vous installer %s ?\n" "(Un tiroir sera créé)" )) (SET #App-Update (CAT "\n\nUn tiroir %s existe déja dans le répertoire sélectionné\n\n" "En cliquant sur \"Continuer\", vous indiquez que vous voulez " "mettre votre installation de %s à jour, avec la version la " "plus récente. Plusieurs fichiers spécifiques à %s seront " "ecrasés!" )) (SET #App-Main "Quelle version de %s doit-elle être installée ?") (SET #App-Main-help (CAT "La version OS2.0+ ne devrait être utilisée que sur les systèmes équipés de l'OS2." " Les versions OS2.1+ et OS3.0+ nécessitent moins de mémoire. La locale est requise!" " Les fonctions spécifiques à l'OS3.0+ sont utilisées pour économiser davantage de mémoire." )) (SET #App-Language "Quelles langues sont à installer ?") (SET #App-Language-help (CAT "\nL'Amiga peut fonctionner dans beaucoup de langues différentes." "Pour réduire la quantité d'espace utilisé par les fichiers de langue, vous " "pouvez choisir de n'en installer que certains.\n\n" "Cochez simplement les cases des langues que vous voulez utiliser sur votre " "système.\n\n" @askoptions-help )) (SET #App-Docs "Quels fichiers AmigaGuide voulez-vous installer ?") (SET #startup-prompt "\n\nDes lignes doivent être ajoutées à votre S:User-Startup pour %s\n\n%s") (SET #App-Exit "\n\n%s installé !!\n\n%s se trouve dans votre tiroir (ou partition) \"%s\".") ;--------- DEINSTALLATION STRINGS (SET #App-DeInstallWhere "Où se trouve %s ?\n") (SET #App-Install "Installer") (SET #App-DeInstall "Désinstaller") (SET #bad-DeInstall "Il n'y a pas d'installation de %s à l'endroit indiqué!") (SET #StartupRemove-prompt "\nRetirer les lignes de %s de votre user-startup?") (SET #Deinstall-Done "\n%s a été désinstallé.") ;--------- MINIMUM INSTALLATION STRINGS (SET #App-InstMinimum "Installation minimale") (SET #App-InstMaximum "Installation maximale") (SET #App-InstMaximumHelp (CAT "\nL'installation minimale requiert environ 3Ko sur votre disque dur!" " Elle crée un scénario, une icône et quelques tiroirs pour sauvegarder" " les données spécifiques à BoulderDäsh comme les réglages, les records," " vos niveaux, etc." "\n\nL'installation maximale requiert environ 7Mo sur votre disque dur!" " Une installation complète accélère le chargement du jeu! C'est tout." " Le jeu lui-même est strictement identique, même avec un CD-ROM 1x!" "\n\nLe CD est nécessaire pour la protection du copyright, sauf si vous" " possédez un fichier-clé pour BoulderDäsh." )) )) ;IF Language ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_Requirements ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_Requirements ; Workbench 37 or better required (IF (< (/ (getversion) 65536) 37) ( (abort #bad-kick) ) ) ; Installer 42.9 or better required (if (< @installer-version 2752521) ( (abort #bad-installer) ) ) ;if ) ;PROCDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_DeInstall ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_DeInstall #InstallerMode (SET #Dummy (ASKCHOICE (PROMPT #App-MainMode) (HELP @askchoice-help) (CHOICES (#App-Install #ApplicationName) (#App-Deinstall #ApplicationName) ) ;(DEFAULT #Documents) ) ) ) ;PROCDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_MinimumInstall ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_MinimumInstall #MinimumMode (IF (= #CDMode "1") ( (SET #Dummy (ASKCHOICE (PROMPT #App-MinimumMode) (HELP #App-InstMaximumHelp) (CHOICES (#App-InstMinimum #ApplicationName) (#App-InstMaximum #ApplicationName) ) ;(DEFAULT #Documents) ) ) ;SET )) (IF (= #CDMode "0") ( (SET #Dummy "1") )) ) ;PROCDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; GetApplicationDir ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_GetApplicationDir #Dummy (SET #Dummy #ApplicationDir) (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1)) (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2)) (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3)) (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4)) (SET #ApplicationDir (TACKON (ASKDIR (PROMPT (#App-Where #ApplicationName)) (HELP @askdir-help) (Default #Dummy) ) #ApplicationName ) ) (SET @default-dest #ApplicationDir) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; GetDeinstallDir ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_GetDeInstallDir (SET #Dummy #ApplicationDir) (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1)) (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2)) (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3)) (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4)) (SET #ApplicationDir (ASKDIR (PROMPT (#App-DeInstallWhere #ApplicationName)) (HELP @askdir-help) (default #Dummy) ) ) (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName))) (Select #Dummy (abort (#bad-DeInstall #ApplicationName)) (SET #Applicationdir #Applicationdir) (SET #Applicationdir (TACKON #Applicationdir #ApplicationName)) ) ;Select (SET @default-dest #ApplicationDir) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Ask for Catalogs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskCatalogs #Language (SET #Dummy (ASKOPTIONS (PROMPT #App-Language) (HELP #App-Language-help) (CHOICES "English" "Deutsch" "Français") (DEFAULT default_lang) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy Selected Catalogs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyCatalogs #Language (SET n 0) (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs")) (SET #SourceRoot (TACKON #ArchiveDir "Catalogs")) (MAKEDIR #DestinationRoot) (while (< n 3) (SET #Dummy (SELECT n "english" "deutsch" "français")) ( (IF (IN #Language n) ( (MAKEDIR (TACKON #DestinationRoot #Dummy)) (COPYFILES (SOURCE (TACKON #SourceRoot #Dummy)) (DEST (TACKON #DestinationRoot #Dummy)) (HELP @copyfiles-help) (ALL) ) ) ) ) (SET n (+ n 1)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Ask for docs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskDocs #Documents (SET #Dummy (ASKOPTIONS (PROMPT #App-Docs) (HELP @askoptions-help) (CHOICES "english" "deutsch" "français" ) (DEFAULT default_lang) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy docs ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyDocs #Documents (SET n 0) (SET #DestinationRoot (TACKON #ApplicationDir "Help")) (SET #SourceRoot (TACKON #ArchiveDir "Help")) (MAKEDIR #DestinationRoot) (while (< n 3) (SET #Dummy (SELECT n "english" "deutsch" "français" ) ) ( (IF (IN #Documents n) ( (MAKEDIR (TACKON #DestinationRoot #Dummy)) (COPYFILES (SOURCE (TACKON #SourceRoot #Dummy)) (DEST (TACKON #DestinationRoot #Dummy)) (HELP @copyfiles-help) (INFOS) (ALL) ) ) ) ) (SET n (+ n 1)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy_Dir (Dir) ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyDir #Dummy (SET #DestinationRoot (TACKON #ApplicationDir #Dummy)) (SET #SourceRoot (TACKON #ArchiveDir #Dummy)) (MAKEDIR #DestinationRoot) (COPYFILES (SOURCE #SourceRoot) (DEST #DestinationRoot) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; Copy_File (Name) ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyFile #Dummy (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) ( (COPYFILES (SOURCE (TACKON #ArchiveDir #Dummy)) (DEST #ApplicationDir) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) ) ) ;If ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_Update ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_Update (if (= (exists #ApplicationDir) 2) (message (#App-Update #ApplicationName #ApplicationName #ApplicationName)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_AskBinary ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskBinary (set #Dummy (/ (getversion) 65536)) (if (= #Dummy 37) (set #Binary 0)) (if (= #Dummy 38) (set #Binary 1)) (if (>= #Dummy 39) (set #Binary 2)) (set #Binary (askchoice (prompt (#App-Main #ApplicationName)) (help (#App-Main-help #ApplicationName)) (choices "OS2.0+" "OS2.1+" "OS3.0+" ) (default #Binary) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_CopyBinary ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyBinary #Dummy (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30"))) (copyfiles (source (tackon #ArchiveDir #BinaryName) (infos)) (dest #ApplicationDir) (newname #Dummy) (help @copyfiles-help) (optional ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_KeyFile ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_KeyFile (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile)) (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile")) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_CopyArchiveIcon ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_CopyArchiveIcon (SET #Dummy (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info")) (if (<> (exists #Dummy (noreq)) 0) ( (COPYFILES (SOURCE #Dummy) (DEST (TACKON #ApplicationDir "/")) (HELP @copyfiles-help) ) )) ;IF ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_AskBool ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_AskBool #dummy (SET #dummy (ASKBOOL (prompt #dummy) (help @askbool-help) (default 1) ) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_Rename ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_Rename #Dummy #Dummy2 (if (= (exists (TACKON #ApplicationDir #Dummy)) 1) (rename (TACKON #ApplicationDir #Dummy) (TACKON #ApplicationDir #Dummy2)) ) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; P_RealRename ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (PROCEDURE P_RealRename #Dummy #Dummy2 (Set #Dummy (TACKON #ApplicationDir #Dummy)) (Set #Dummy2 (TACKON #ApplicationDir #Dummy2)) (set #Dummy (CAT "rename " #Dummy " " #Dummy2)) (run #Dummy) ) ;PROCEDURE ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ; MAIN ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- ;---------------------------------------------------------------------------- (P_Requirements) (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName)) (SET #InstallerMode (P_DeInstall #ApplicationName)) (welcome) ;----------------------------------------------- (IF (= #InstallerMode "0") ( ;----------------------------------------------- (SET #ApplicationDir (P_GetApplicationDir)) (COMPLETE 1) (P_Update) ;--- **** MINIMUM INSTALLATION CHECK **** (SET #MinimumMode (P_MinimumInstall #ApplicationName)) ;----------------------------------------------- (IF (= #MinimumMode "1") ( ;***************************************************************************** ;--- Normal Installation --- (SET #Binary (P_AskBinary)) (COMPLETE 2) (SET #Language (P_AskCatalogs #Language)) (COMPLETE 3) (SET #Documents (P_AskDocs #Documents)) (COMPLETE 4) ;***** Delete old Data and Prefs (DELETE (TACKON #ApplicationDir "ColorSets") (ALL)) (DELETE (TACKON #ApplicationDir "ColorSets.info")) (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers")) (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers.info")) (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers64")) (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers64.info")) (DELETE (TACKON #ApplicationDir "Docs") (ALL)) (DELETE (TACKON #ApplicationDir "Docs.info") (ALL)) ;***** (MAKEDIR #ApplicationDir (INFOS)) (MAKEDIR (TACKON #ApplicationDir "Prefs") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "GraphicSets/User") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "SampleSets/User") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "CharacterSets/User") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "MusicSets/User") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "Games/User") (INFOS)) (MAKEDIR (TACKON #ApplicationDir "Caves/User") (INFOS)) (COMPLETE 10) (P_CopyDir "Games") (COMPLETE 20) (P_CopyDir "Caves") (COMPLETE 35) (P_CopyDir "Title") (P_CopyDir "Solves") (P_CopyDir "Tools") (COMPLETE 45) (P_CopyDir "Scores") (COMPLETE 55) (P_CopyDir "SampleSets") (COMPLETE 65) (P_CopyDir "MusicSets") (COMPLETE 75) (P_CopyDir "GraphicSets") (COMPLETE 85) (P_CopyDir "CharacterSets") (COMPLETE 97) (P_CopyBinary #ApplicationName) (P_CopyFile (CAT #ApplicationName ".info")) (P_CopyCatalogs #Language) (P_CopyDocs #Documents) (P_CopyArchiveIcon) (P_CopyFile "Help.info") (P_CopyFile "GraphicSets.info") (P_CopyFile "CharacterSets.info") (P_CopyFile "SampleSets.info") (P_CopyFile "MusicSets.info") (P_CopyFile "WARNING!!!") (P_CopyFile "WARNUNG!!!") (P_CopyFile "AVERTISSEMENT!!!") (COMPLETE 99) (P_Keyfile) ;--- CleanUp (DELETE (TACKON #ApplicationDir "Title.info")) (DELETE (TACKON #ApplicationDir "Tools.info")) (DELETE (TACKON #ApplicationDir "Prefs.info")) (DELETE (TACKON #ApplicationDir "Games.info")) (DELETE (TACKON #ApplicationDir "Caves.info")) (DELETE (TACKON #ApplicationDir "Solves.info")) (DELETE (TACKON #ApplicationDir "Scores.info")) (DELETE (TACKON #ApplicationDir "KeyFile.info")) (DELETE (TACKON #ApplicationDir "Install.info")) (DELETE (TACKON #ApplicationDir "Catalogs.info")) (run "avail Flush") (COMPLETE 100) (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir)) (exit (QUIET)) )) ;IF #MinimumMode = 1 ;***************************************************************************** (IF (= #MinimumMode "0") ( (MAKEDIR #ApplicationDir (INFOS)) (MAKEDIR (TACKON #ApplicationDir "Prefs")) (MAKEDIR (TACKON #ApplicationDir "GraphicSets/User")) (MAKEDIR (TACKON #ApplicationDir "SampleSets/User")) (MAKEDIR (TACKON #ApplicationDir "CharacterSets/User")) (MAKEDIR (TACKON #ApplicationDir "MusicSets/User")) (MAKEDIR (TACKON #ApplicationDir "Games/User")) (MAKEDIR (TACKON #ApplicationDir "Caves/User")) (MAKEDIR (TACKON #ApplicationDir "Scores")) (MAKEDIR (TACKON #ApplicationDir "Solves")) (P_CopyFile "GraphicSets.info") (P_CopyFile "CharacterSets.info") (P_CopyFile "SampleSets.info") (P_CopyFile "MusicSets.info") (COPYFILES (SOURCE (TACKON #ArchiveDir "s/Data/BoulderDäsh")) (DEST #ApplicationDir) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) (COPYFILES (SOURCE (TACKON #ArchiveDir "s/Data/DrawerIcon")) (DEST (TACKON #ApplicationDir "/")) (NEWNAME ("BoulderDäsh.info")) (HELP @copyfiles-help) (OPTIONAL ) (ALL) (INFOS) ) )) ;IF #MinimumMode = 1 ;***************************************************************************** ;----------------------------------------------- )) ;IF #InstallerMode = 0 ;----------- Deinstallation ------------------- (IF (= #InstallerMode "1") ( (SET #ApplicationDir (P_GetDeInstallDir)) (COMPLETE 30) (COMPLETE 80) (DELETE #ApplicationDir (optional FORCE) (ALL)) (DELETE (Cat #ApplicationDir ".info")) (COMPLETE 100) (Message (#Deinstall-Done #ApplicationName)) (exit (QUIET)) ;----------------------------------------------- )) ;IF #InstallerMode = 1 ;-----------------------------------------------