home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / Normale-Installer / SiedlerBoot / Install / SiedlerBoot.install < prev   
Text File  |  1977-12-31  |  6KB  |  165 lines
  1. ; $VER: SiedlerBoot.install 3.56 (24.03.97)
  2. ; Install script for SiedlerBoot (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. ;(DEBUG)
  7. (SET #ApplicationName "SiedlerBoot")
  8. (SET #ApplicationDir "sys:")
  9. (SET #ApplicationDir1 "work:")
  10. (SET #ApplicationDir2 "t:")
  11. (SET #ApplicationDir3 "game:")
  12. (SET #ApplicationDir4 "work:games")
  13. (SET #ArchiveDir "/")
  14. (SET #Language -1)
  15. (SET #Documents -1)
  16. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  17.  
  18. ;=============================================================================
  19. ; German strings
  20.  
  21.  
  22. (SET #App-InstallMsg
  23. (CAT "\n\%s Installationsskript.\n"
  24.         "Dieses Skript installiert %s auf Ihrem Amiga.\n\n"
  25.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  26.         " über den Vertrieb von %s.\n\n"
  27.         "%s © 1997 Guido Mersmann\n"
  28.         "All Rechte reserviert."
  29. ))
  30.  
  31. (SET #App-Where
  32. (CAT "Wo möchten Sie %s installieren ?\n"
  33.         "(Ein Verzeichnis wird angelegt)"
  34. ))
  35.  
  36. (SET #App-Update
  37. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  38.         " Verzeichnis. Wenn Sie fortfahren,"
  39.         " bestätigen Sie, daß Sie die alte %s-Installation"
  40.         " mit der neuesten Version updaten wollen.\n"
  41. ))
  42.  
  43. (SET #App-Exit "\n%s installiert !!")
  44.  
  45.  
  46.  
  47.  
  48. ;=============================================================================
  49. ; English strings
  50.  
  51. (IF (<> @language "deutsch")
  52. (
  53. (SET default_lang 4)
  54.  
  55.  
  56. (SET #App-InstallMsg
  57. (CAT "\n\%s installation script.\n"
  58.         "This script installs %s on your Amiga.\n\n"
  59.         "Read the DOK-file for more information\n"
  60.         " on the distribution of %s.\n\n"
  61.         "%s © 1997 Guido Mersmann\n"
  62.         "All rights reserved."
  63. ))
  64.  
  65. (SET #App-Where
  66. (CAT "Where would you like to install %s ?\n"
  67.         "(A drawer will be created)"
  68. ))
  69.  
  70. (SET #App-Update
  71. (CAT "\nA %s drawer does already exist in the selected "
  72.         " directory. By selecting \"Proceed\", you"
  73.         " indicate that you want to update the %s"
  74.         " installation with the most recent version.\n"
  75. ))
  76.  
  77. (SET #App-Exit "\n%s installed !!")
  78.  
  79.  
  80. ))
  81. ;----------------------------------------------------------------------------
  82. ;----------------------------------------------------------------------------
  83. ;       Copy_File (Name)
  84. ;----------------------------------------------------------------------------
  85. ;----------------------------------------------------------------------------
  86. (PROCEDURE P_CopyFile #Dummy
  87.                    (COPYFILES
  88.         (SOURCE (TACKON #ArchiveDir #Dummy))
  89.         (DEST #ApplicationDir)
  90.         (HELP @copyfiles-help)
  91.         (OPTIONAL <force>)
  92.         (ALL)
  93.         (INFOS)
  94.                    )
  95. ) ;PROCEDURE
  96. ;----------------------------------------------------------------------------
  97. ;----------------------------------------------------------------------------
  98. ;       GetApplicationDir
  99. ;----------------------------------------------------------------------------
  100. ;----------------------------------------------------------------------------
  101. (PROCEDURE P_GetApplicationDir
  102. (SET #Dummy #ApplicationDir)
  103. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  104. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  105. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  106. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  107.  
  108. (SET #ApplicationDir
  109.         (TACKON
  110.                 (ASKDIR
  111.                         (PROMPT (#App-Where #ApplicationName))
  112.                         (HELP @askdir-help)
  113.                         (default #Dummy)
  114.                 )
  115.                 #ApplicationName
  116.         )
  117. )
  118. (SET @default-dest #ApplicationDir)
  119. ) ;PROCEDURE
  120. ;----------------------------------------------------------------------------
  121. ;----------------------------------------------------------------------------
  122. ;       P_Update
  123. ;----------------------------------------------------------------------------
  124. ;----------------------------------------------------------------------------
  125. (PROCEDURE P_Update
  126. (if (= (exists #ApplicationDir) 2)
  127.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  128. )
  129. ) ;PROCEDURE
  130. ;----------------------------------------------------------------------------
  131. ;----------------------------------------------------------------------------
  132. ;       P_CopyArchiveIcon
  133. ;----------------------------------------------------------------------------
  134. ;----------------------------------------------------------------------------
  135. (PROCEDURE P_CopyArchiveIcon
  136.                    (COPYFILES
  137.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  138.         (DEST (TACKON #ApplicationDir "/"))
  139.         (HELP @copyfiles-help)
  140.                    )
  141. ) ;PROCEDURE
  142. ;----------------------------------------------------------------------------
  143. ;----------------------------------------------------------------------------
  144. ;       MAIN
  145. ;----------------------------------------------------------------------------
  146. ;----------------------------------------------------------------------------
  147. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  148. (welcome)
  149.  
  150.  (SET #ApplicationDir (P_GetApplicationDir))
  151.  
  152. (COMPLETE 1)
  153.  (P_Update)
  154.  
  155. ;***** Delete old Data and Prefs
  156. (MAKEDIR #ApplicationDir (INFOS))
  157.  
  158.  (P_CopyFile #ApplicationName)
  159.  (P_CopyFile "Siedler")
  160.  (P_CopyFile "Readme")
  161.  (P_CopyArchiveIcon)
  162.  
  163.  (COMPLETE 100)
  164. ;(exit #App-exit)
  165.