home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -screenplay- / shareware / boulderdaesh / install / boulderdäsh.install next >
Text File  |  1998-04-23  |  23KB  |  603 lines
  1. ; $VER: BoulderDäsh.install 4.20 (08.04.98)
  2. ; Install script for BoulderDäsh (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. ;(DEBUG)
  7. (SET #ApplicationName "BoulderDäsh")
  8. (SET #ApplicationDir "sys:")
  9. (SET #ApplicationDir1 "work:")
  10. (SET #ApplicationDir2 "games:")
  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. (IF (= @language "deutsch")
  22. (
  23. (SET default_lang 2)
  24.  
  25. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  26. (SET #bad-installer
  27. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  28.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  29.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  30. ))
  31.  
  32. (SET #App-InstallMsg
  33. (CAT "\n%s Installationsskript.\n\n"
  34.         "Dieses Skript installiert oder deinstalliert\n"
  35.         "%s auf Ihrem Amiga.\n\n"
  36.         "Lesen Sie die Anleitungsdatei für weitere Informationen\n"
  37.         " über den Vertrieb von %s.\n\n"
  38.         "%s © 1995-98 Guido Mersmann\n"
  39.         "Alle Rechte reserviert."
  40. ))
  41. (SET #App-MainMode "Wählen Sie den gewüschten Vorgang!")
  42.  
  43. (SET #App-Where
  44. (CAT "Wo möchten Sie %s installieren ?\n"
  45.         "(Ein Verzeichnis wird angelegt)"
  46. ))
  47.  
  48. (SET #App-Update
  49. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  50.         " Verzeichnis.\n\n Wenn Sie fortfahren,"
  51.         " bestätigen Sie, daß Sie die alte %s-Installation"
  52.         " mit der neuesten Version überschreiben wollen.\n\n"
  53.         "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!"
  54. ))
  55.  
  56. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  57. (SET #App-Main-help
  58. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  59.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  60.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  61.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  62.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  63.      " weiteren Speicher sparen."
  64. ))
  65.  
  66. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  67.  
  68. (SET #App-Language-help
  69. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  70.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  71.          " nur die Sprachen anwählen, die sie benötigen"
  72.          " Haken Sie also einfach die Sprachen ab, die Sie"
  73.          " Ihrem System zugänglich machen wollen."
  74.           @askoptions-help
  75. ))
  76.  
  77. (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  78.  
  79. (SET #startup-prompt    "\n\nJetzt werden für %s folgende Eintragungen in die S:User-Startup gemacht:\n\n%s")
  80.  
  81. (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"")
  82. ;------- DEINSTALL STRINGS
  83. (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n")
  84. (SET #App-Install "%s Installieren")
  85. (SET #App-DeInstall "%s Deinstallieren")
  86. (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position")
  87. (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!")))
  88. (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!")
  89. ;=============================================================================
  90. ; English strings
  91.  
  92. (IF (<> @language "deutsch")
  93. (
  94. (SET default_lang 4)
  95.  
  96. (SET #bad-kick "You must have at least Workbench 2.0+")
  97. (SET #bad-installer
  98. (CAT "You have an old version of the program 'Installer' "
  99.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  100.      "Please check your configuration!\n"
  101. ))
  102.  
  103. (SET #App-InstallMsg
  104. (CAT "\n\n%s Installation Script.\n\n"
  105.         "This script installs %s on your Amiga.\n\n"
  106.         "Read the guide file for more information\n"
  107.         " on the distribution of %s.\n\n"
  108.         "%s © 1995-98 Guido Mersmann\n"
  109.         "All rights reserved."
  110. ))
  111. (SET #App-MainMode "Please choose mode:")
  112.  
  113. (SET #App-Where
  114. (CAT "Where would you like to install %s ?\n"
  115.         "(A drawer will be created)"
  116. ))
  117.  
  118. (SET #App-Update
  119. (CAT "\n\nA %s drawer does already exist in the selected "
  120.         " directory.\n\n By selecting \"Proceed\", you"
  121.         " indicate that you want to update the %s"
  122.         " installation with the most recent version.\n\n"
  123.         "Several %s specific files will be overwritten!"
  124. ))
  125.  
  126. (SET #App-Main "Which %s version should be installed ?")
  127. (SET #App-Main-help
  128. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  129.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  130.      " Special OS3.0+ functions are used to save more memory."
  131. ))
  132.  
  133. (SET #App-Language "Which languages should be installed ?")
  134. (SET #App-Language-help
  135. (CAT "\nThe Amiga can be operated in many different"
  136.           " languages."
  137.           "To reduce the amount of space consumed by the"
  138.           " language files, you can select to have only the"
  139.           " files of specific languages copied.\n\n"
  140.           "Simply check the boxes of the languages you wish"
  141.           " to have available on your system.\n\n"
  142.           @askoptions-help
  143. ))
  144.  
  145. (SET #App-Docs "Which Amiga-guide files should be installed ?")
  146.  
  147. (SET #startup-prompt    "\n\nSome lines need to be added to S:User-Startup for %s\n\n%s")
  148.  
  149. (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).")
  150. ;--------- DEINSTALLATION STRINGS
  151. (SET #App-DeInstallWhere "Where is the location of %s ?\n")
  152. (SET #App-Install "Install")
  153. (SET #App-DeInstall "Deinstall")
  154. (SET #bad-DeInstall "There is no %s installation at the specified position!")
  155. (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?")
  156. (SET #Deinstall-Done "\n%s is now deinstalled.")
  157. ;---------
  158. ))
  159. ;----------------------------------------------------------------------------
  160. ;----------------------------------------------------------------------------
  161. ;       P_Requirements
  162. ;----------------------------------------------------------------------------
  163. ;----------------------------------------------------------------------------
  164. (PROCEDURE P_Requirements
  165. ; Workbench 37 or better required
  166. (IF (< (/ (getversion) 65536) 37)
  167. (
  168.   (abort #bad-kick)
  169. )
  170. )
  171. ; Installer 42.9 or better required
  172. (if (< @installer-version 2752521)
  173. (
  174. (abort #bad-installer)
  175. )
  176. ) ;if
  177. ) ;PROCDURE
  178. ;----------------------------------------------------------------------------
  179. ;----------------------------------------------------------------------------
  180. ;       P_DeInstall
  181. ;----------------------------------------------------------------------------
  182. ;----------------------------------------------------------------------------
  183. (PROCEDURE P_DeInstall #InstallerMode
  184.  
  185. (SET #Dummy             (ASKCHOICE
  186.                         (PROMPT #App-MainMode)
  187.                         (HELP @askchoice-help)
  188.                         (CHOICES
  189.                                 (#App-Install #ApplicationName)
  190.                                 (#App-Deinstall #ApplicationName)
  191.                         )
  192.                         ;(DEFAULT #Documents)
  193.                         )
  194. )
  195. ) ;PROCDURE
  196. ;----------------------------------------------------------------------------
  197. ;----------------------------------------------------------------------------
  198. ;       GetApplicationDir
  199. ;----------------------------------------------------------------------------
  200. ;----------------------------------------------------------------------------
  201. (PROCEDURE P_GetApplicationDir #Dummy
  202. (SET #Dummy #ApplicationDir)
  203. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  204. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  205. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  206. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  207.  
  208. (SET #ApplicationDir
  209.         (TACKON
  210.                 (ASKDIR
  211.                         (PROMPT (#App-Where #ApplicationName))
  212.                         (HELP @askdir-help)
  213.                         (Default #Dummy)
  214.                 )
  215.                 #ApplicationName
  216.         )
  217. )
  218. (SET @default-dest #ApplicationDir)
  219. ) ;PROCEDURE
  220. ;----------------------------------------------------------------------------
  221. ;----------------------------------------------------------------------------
  222. ;       GetDeinstallDir
  223. ;----------------------------------------------------------------------------
  224. ;----------------------------------------------------------------------------
  225. (PROCEDURE P_GetDeInstallDir
  226. (SET #Dummy #ApplicationDir)
  227. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  228. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  229. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  230. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  231.  
  232. (SET #ApplicationDir
  233.                 (ASKDIR
  234.                         (PROMPT (#App-DeInstallWhere #ApplicationName))
  235.                         (HELP @askdir-help)
  236.                         (default #Dummy)
  237.                 )
  238. )
  239.          (SET #Dummy (EXISTS (TACKON #Applicationdir #ApplicationName)))
  240.  
  241.         (Select #Dummy
  242.          (abort (#bad-DeInstall #ApplicationName))
  243.          (SET #Applicationdir #Applicationdir)
  244.          (SET #Applicationdir (TACKON #Applicationdir #ApplicationName))
  245.         ) ;Select
  246. (SET @default-dest #ApplicationDir)
  247.  
  248. ) ;PROCEDURE
  249. ;----------------------------------------------------------------------------
  250. ;----------------------------------------------------------------------------
  251. ;       Ask for Catalogs
  252. ;----------------------------------------------------------------------------
  253. ;----------------------------------------------------------------------------
  254. (PROCEDURE P_AskCatalogs #Language
  255.  
  256. (SET #Dummy     (ASKOPTIONS
  257.                 (PROMPT #App-Language)
  258.                 (HELP #App-Language-help)
  259.                 (CHOICES
  260.                         "English"
  261.                         "Deutsch"
  262.                         "Français")
  263.                 (DEFAULT #Language)
  264.         )
  265. )
  266. ) ;PROCEDURE
  267. ;----------------------------------------------------------------------------
  268. ;----------------------------------------------------------------------------
  269. ;       Copy Selected Catalogs
  270. ;----------------------------------------------------------------------------
  271. ;----------------------------------------------------------------------------
  272. (PROCEDURE P_CopyCatalogs #Language
  273. (SET n 0)
  274. (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs"))
  275. (SET #SourceRoot (TACKON #ArchiveDir "Catalogs"))
  276. (MAKEDIR #DestinationRoot)
  277.  
  278. (while (< n 3)
  279.         (SET #Dummy (SELECT n "english" "deutsch" "français"))
  280.         (
  281.                 (IF (IN #Language n)
  282.                 (
  283.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  284.                         (COPYFILES
  285.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  286.                                 (DEST (TACKON #DestinationRoot #Dummy))
  287.                                 (HELP @copyfiles-help)
  288.                                 (ALL)
  289.                         )
  290.                 )
  291.                 )
  292.         )
  293. (SET n (+ n 1))
  294. )
  295. ) ;PROCEDURE
  296. ;----------------------------------------------------------------------------
  297. ;----------------------------------------------------------------------------
  298. ;       Ask for docs
  299. ;----------------------------------------------------------------------------
  300. ;----------------------------------------------------------------------------
  301. (PROCEDURE P_AskDocs #Documents
  302. (SET #Dummy             (ASKOPTIONS
  303.                         (PROMPT #App-Docs)
  304.                         (HELP @askoptions-help)
  305.                         (CHOICES
  306.                                 "english"
  307.                                 "deutsch"
  308.                         )
  309.                         (DEFAULT #Documents)
  310.                   )
  311. )
  312. ) ;PROCEDURE
  313. ;----------------------------------------------------------------------------
  314. ;----------------------------------------------------------------------------
  315. ;       Copy docs
  316. ;----------------------------------------------------------------------------
  317. ;----------------------------------------------------------------------------
  318. (PROCEDURE P_CopyDocs #Documents
  319. (SET n 0)
  320. (SET #DestinationRoot (TACKON #ApplicationDir "Docs"))
  321. (SET #SourceRoot (TACKON #ArchiveDir "Docs"))
  322. (MAKEDIR #DestinationRoot)
  323.  
  324. (while (< n 2)
  325.         (SET #Dummy (SELECT n
  326.                 "english"
  327.                 "deutsch"
  328.         )
  329.         )
  330.         (
  331.                 (IF (IN #Documents n)
  332.                 (
  333.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  334.                         (COPYFILES
  335.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  336.                                 (DEST (TACKON #DestinationRoot #Dummy))
  337.                                 (HELP @copyfiles-help)
  338.                                 (INFOS)
  339.                                 (ALL)
  340.                         )
  341.                 )
  342.                 )
  343.         )
  344. (SET n (+ n 1))
  345. )
  346. ) ;PROCEDURE
  347. ;----------------------------------------------------------------------------
  348. ;----------------------------------------------------------------------------
  349. ;       Copy_Dir (Dir)
  350. ;----------------------------------------------------------------------------
  351. ;----------------------------------------------------------------------------
  352. (PROCEDURE P_CopyDir #Dummy
  353.  
  354. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy))
  355. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  356. (MAKEDIR #DestinationRoot)
  357.  
  358.                    (COPYFILES
  359.         (SOURCE #SourceRoot)
  360.         (DEST #DestinationRoot)
  361.         (HELP @copyfiles-help)
  362.         (OPTIONAL <force>)
  363.         (ALL)
  364.         (INFOS)
  365.                    )
  366. ) ;PROCEDURE
  367. ;----------------------------------------------------------------------------
  368. ;----------------------------------------------------------------------------
  369. ;       Copy_File (Name)
  370. ;----------------------------------------------------------------------------
  371. ;----------------------------------------------------------------------------
  372. (PROCEDURE P_CopyFile #Dummy
  373.  
  374. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0)
  375. (
  376.                    (COPYFILES
  377.         (SOURCE (TACKON #ArchiveDir #Dummy))
  378.         (DEST #ApplicationDir)
  379.         (HELP @copyfiles-help)
  380.         (OPTIONAL <force>)
  381.         (ALL)
  382.         (INFOS)
  383.                    )
  384. )
  385. ) ;If
  386. ) ;PROCEDURE
  387. ;----------------------------------------------------------------------------
  388. ;----------------------------------------------------------------------------
  389. ;       P_Update
  390. ;----------------------------------------------------------------------------
  391. ;----------------------------------------------------------------------------
  392. (PROCEDURE P_Update
  393. (if (= (exists #ApplicationDir) 2)
  394.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  395. )
  396. ) ;PROCEDURE
  397. ;----------------------------------------------------------------------------
  398. ;----------------------------------------------------------------------------
  399. ;       P_AskBinary
  400. ;----------------------------------------------------------------------------
  401. ;----------------------------------------------------------------------------
  402. (PROCEDURE P_AskBinary
  403. (set #Dummy (/ (getversion) 65536))
  404.  
  405. (if (= #Dummy 37) (set #Binary 0))
  406. (if (= #Dummy 38) (set #Binary 1))
  407. (if (>= #Dummy 39) (set #Binary 2))
  408.  
  409. (set #Binary (askchoice
  410.         (prompt (#App-Main #ApplicationName))
  411.         (help (#App-Main-help #ApplicationName))
  412.         (choices
  413.         "OS2.0+"
  414.                         "OS2.1+"
  415.                         "OS3.0+"
  416.                         )
  417.         (default #Binary)
  418.             )
  419. )
  420. ) ;PROCEDURE
  421. ;----------------------------------------------------------------------------
  422. ;----------------------------------------------------------------------------
  423. ;       P_CopyBinary
  424. ;----------------------------------------------------------------------------
  425. ;----------------------------------------------------------------------------
  426. (PROCEDURE P_CopyBinary #Dummy
  427.  
  428. (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30")))
  429. (copyfiles
  430.         (source (tackon #ArchiveDir #BinaryName) (infos))
  431.         (dest #ApplicationDir)
  432.         (newname #Dummy)
  433.         (help @copyfiles-help)
  434.         (optional <force>)
  435. )
  436. ) ;PROCEDURE
  437. ;----------------------------------------------------------------------------
  438. ;----------------------------------------------------------------------------
  439. ;       P_KeyFile
  440. ;----------------------------------------------------------------------------
  441. ;----------------------------------------------------------------------------
  442. (PROCEDURE P_KeyFile
  443.  
  444. (SET #Dummy (tackon (tackon #ArchiveDir "Keyfile") #ApplicationKeyfile))
  445.  
  446. (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile"))
  447. )
  448. ) ;PROCEDURE
  449. ;----------------------------------------------------------------------------
  450. ;----------------------------------------------------------------------------
  451. ;       P_CopyArchiveIcon
  452. ;----------------------------------------------------------------------------
  453. ;----------------------------------------------------------------------------
  454. (PROCEDURE P_CopyArchiveIcon
  455.                    (COPYFILES
  456.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  457.         (DEST (TACKON #ApplicationDir "/"))
  458.         (HELP @copyfiles-help)
  459.                    )
  460. ) ;PROCEDURE
  461. ;----------------------------------------------------------------------------
  462. ;----------------------------------------------------------------------------
  463. ;       P_AskBool
  464. ;----------------------------------------------------------------------------
  465. ;----------------------------------------------------------------------------
  466. (PROCEDURE P_AskBool #dummy
  467.  (SET #dummy (ASKBOOL      (prompt #dummy)
  468.            (help @askbool-help)
  469.            (default 1)
  470.              )
  471.  )
  472. ) ;PROCEDURE
  473. ;----------------------------------------------------------------------------
  474. ;----------------------------------------------------------------------------
  475. ;       P_Rename
  476. ;----------------------------------------------------------------------------
  477. ;----------------------------------------------------------------------------
  478. (PROCEDURE P_Rename #Dummy #Dummy2
  479. (if (= (exists (TACKON #ApplicationDir #Dummy)) 2)
  480.         (rename (TACKON #ApplicationDir #Dummy) (TACKON #ApplicationDir #Dummy2))
  481. )
  482. ) ;PROCEDURE
  483. ;----------------------------------------------------------------------------
  484. ;----------------------------------------------------------------------------
  485. ;       P_RealRename
  486. ;----------------------------------------------------------------------------
  487. ;----------------------------------------------------------------------------
  488. (PROCEDURE P_RealRename #Dummy #Dummy2
  489.    (Set #Dummy (TACKON #ApplicationDir #Dummy))
  490.    (Set #Dummy2 (TACKON #ApplicationDir #Dummy2))
  491.    (set #Dummy (CAT "rename " #Dummy " " #Dummy2))
  492.         (run #Dummy)
  493. ) ;PROCEDURE
  494. ;----------------------------------------------------------------------------
  495. ;----------------------------------------------------------------------------
  496. ;       MAIN
  497. ;----------------------------------------------------------------------------
  498. ;----------------------------------------------------------------------------
  499. (P_Requirements)
  500. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  501. (SET #InstallerMode (P_DeInstall #ApplicationName))
  502. (welcome)
  503. ;-----------------------------------------------
  504. (IF (= #InstallerMode "0")
  505. (
  506. ;-----------------------------------------------
  507.  (SET #ApplicationDir (P_GetApplicationDir))
  508.  
  509. (COMPLETE 1)
  510.  (P_Update)
  511.  (SET #Binary (P_AskBinary))
  512. (COMPLETE 2)
  513.  (SET #Language (P_AskCatalogs #Language))
  514. (COMPLETE 3)
  515.  (SET #Documents (P_AskDocs #Documents))
  516. (COMPLETE 4)
  517.  
  518. ;***** Delete old Data and Prefs
  519. (DELETE (TACKON #ApplicationDir "ColorSets") (ALL))
  520. (DELETE (TACKON #ApplicationDir "ColorSets.info"))
  521. (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers"))
  522. (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers.info"))
  523. (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers64"))
  524. (DELETE (TACKON #ApplicationDir "GraphicSets/TimoHegemann/Diggers64.info"))
  525.  
  526. (MAKEDIR #ApplicationDir (INFOS))
  527. (MAKEDIR (TACKON #ApplicationDir "Prefs") (INFOS))
  528. (MAKEDIR (TACKON #ApplicationDir "GraphicSets/User") (INFOS))
  529. (MAKEDIR (TACKON #ApplicationDir "SampleSets/User") (INFOS))
  530. (MAKEDIR (TACKON #ApplicationDir "CharacterSets/User") (INFOS))
  531. (MAKEDIR (TACKON #ApplicationDir "MusicSets/User") (INFOS))
  532. (MAKEDIR (TACKON #ApplicationDir "Games/User") (INFOS))
  533. (MAKEDIR (TACKON #ApplicationDir "Caves/User") (INFOS))
  534.  
  535. (COMPLETE 10)
  536.  (P_CopyDir "Games")
  537. (COMPLETE 20)
  538.  (P_CopyDir "Caves")
  539. (COMPLETE 35)
  540.  (P_CopyDir "Title")
  541.  (P_CopyDir "Solves")
  542. (COMPLETE 45)
  543.  (P_CopyDir "Scores")
  544. (COMPLETE 55)
  545.  (P_CopyDir "SampleSets")
  546. (COMPLETE 65)
  547.  (P_CopyDir "MusicSets")
  548. (COMPLETE 75)
  549.  (P_CopyDir "GraphicSets")
  550. (COMPLETE 85)
  551.  (P_CopyDir "CharacterSets")
  552. (COMPLETE 97)
  553.  (P_CopyBinary #ApplicationName)
  554.  (P_CopyFile (CAT #ApplicationName ".info"))
  555.  (P_CopyCatalogs #Language)
  556.  (P_CopyDocs #Documents)
  557.  
  558.  (P_CopyArchiveIcon)
  559.  (P_CopyFile "Docs.info")
  560.  (P_CopyFile "GraphicSets.info")
  561.  (P_CopyFile "CharacterSets.info")
  562.  (P_CopyFile "SampleSets.info")
  563.  (P_CopyFile "MusicSets.info")
  564.  (P_CopyFile "WARNING!!!")
  565.  (P_CopyFile "WARNUNG!!!")
  566. (COMPLETE 99)
  567.  (P_CopyDir "RegTool")
  568.  (P_CopyFile "RegTool.info")
  569.  (P_Keyfile)
  570. ;--- CleanUp
  571. (DELETE (TACKON #ApplicationDir "Title.info"))
  572. (DELETE (TACKON #ApplicationDir "Prefs.info"))
  573. (DELETE (TACKON #ApplicationDir "Games.info"))
  574. (DELETE (TACKON #ApplicationDir "Caves.info"))
  575. (DELETE (TACKON #ApplicationDir "Solves.info"))
  576. (DELETE (TACKON #ApplicationDir "Scores.info"))
  577. (DELETE (TACKON #ApplicationDir "KeyFile.info"))
  578. (DELETE (TACKON #ApplicationDir "Install.info"))
  579. (DELETE (TACKON #ApplicationDir "Catalogs.info"))
  580. (run "avail Flush")
  581. (COMPLETE 100)
  582. (message (#App-exit #ApplicationName #ApplicationName #ApplicationDir))
  583. (exit (QUIET))
  584. ;-----------------------------------------------
  585. )) ;IF #InstallerMode = 0
  586. ;-----------  Deinstallation -------------------
  587. (IF (= #InstallerMode "1") (
  588.  
  589. (SET #ApplicationDir (P_GetDeInstallDir))
  590.  
  591. (COMPLETE 30)
  592. (COMPLETE 80)
  593. (DELETE #ApplicationDir (optional FORCE) (ALL))
  594. (DELETE (Cat #ApplicationDir ".info"))
  595. (COMPLETE 100)
  596.  
  597. (Message (#Deinstall-Done #ApplicationName))
  598. (exit (QUIET))
  599. ;-----------------------------------------------
  600. )) ;IF #InstallerMode = 1
  601. ;-----------------------------------------------
  602.  
  603.