home *** CD-ROM | disk | FTP | other *** search
/ Dream 41 / Amiga_Dream_41.iso / Amiga / Pro / musique / DeliTracker227.lha / DeliTracker_II / Install-DT_II < prev    next >
Text File  |  1996-09-15  |  36KB  |  1,212 lines
  1. ;=============================================================================;
  2. ;
  3. ; $VER: DT_Install 2.27 (15.09.1996)
  4. ;
  5. ; Installation script for DeliTracker II
  6. ; (c) Copyright 1994-96 by Frank Riffel and Peter Kunath
  7. ;
  8. ; French installation by Acechan of THE END  (10.05.95)
  9. ;
  10. ;=============================================================================;
  11. ;=============================================================================;
  12. ;=============================================================================;
  13. ;
  14. ; This is a quick description of how this script works:
  15. ;
  16. ; 1. INIT_STUFF
  17. ;
  18. ; 2. CHECK_INSTALLED_VERSION:
  19. ;    NO_VERSION  => CHOOSE_DESTINATION
  20. ;            (suggestion Work: or SYS:)
  21. ;    OLD_VERSION => UNINSTALL_OLD
  22. ;    NEW_VERSION => EXIT
  23. ;
  24. ; 3. MAIN                                                      ~  80 KB
  25. ;
  26. ; 4. PLAYERS (default players, ask further players to install) ~ 350 KB
  27. ; 
  28. ; 5. ASK PLAYSID                                               ~  20 KB
  29. ;
  30. ; 6. ASK DELIAY                                                ~  30 KB
  31. ;
  32. ; 7. GENIES (default genies, ask further genies to install)    ~ 250 KB
  33. ;
  34. ; 8. AREXX (ask user)                                          ~  15 KB
  35. ;
  36. ; 9. LIBS (ask user, suggested)                                ~  40 KB
  37. ;
  38. ; 10.DOCS (depending on language)                              ~ 110 KB
  39. ;                                                              
  40. ; 11.DEVELOPER_DOCS (ask only ADVANCED)                        ~ 160 KB
  41. ;                                                                ======
  42. ;                                                      TOTAL   ~   1 MB
  43. ;
  44. ;=============================================================================;
  45. ;=============================================================================;
  46. ;=============================================================================;
  47. ;
  48. ; Some initial stuff like kick version check, language selection, ...
  49.  
  50. (if (= @LANGUAGE "english")
  51.  (
  52.   (set def_pat "#?.eng#?")
  53.  
  54.   (set #bad-kick
  55.   (cat "DeliTracker 2.0 will only run under Kickstart 2.04 or above!"
  56.   ))
  57.  
  58.   (set #abort-t
  59.   (cat "Make sure that T: is large enough to hold 500KB."
  60.   ))
  61.  
  62.   (set #invalid-env
  63.   (cat "\nENV:DeliConfig doesn't point to a valid directory. It has been deleted.\n\n To install DeliTracker, run this script again."
  64.   ))
  65.  
  66.   (set #abort-no-space
  67.   (cat "You need at least 850.000 Bytes of free store to install DeliTracker II"
  68.   ))
  69.  
  70.   (set #choose-text
  71.   (cat "Please choose a directory where DeliTracker should be installed. A drawer will be created there."
  72.   ))
  73.  
  74.   (set #choose-help
  75.   (cat "In this location a drawer will be created. All files, except the libraries, will be installed inside this drawer. The complete installation will require about 1MB of free harddisk space."
  76.   ))
  77.  
  78.   (set #create-maindir
  79.   (cat "Creating DeliTracker directory"
  80.   ))
  81.  
  82.   (set #create-configdir
  83.   (cat "Creating Config directory"
  84.   ))
  85.  
  86.   (set #set-path
  87.   (cat "Setting up configuration path"
  88.   ))
  89.  
  90.   (set #inst-main
  91.   (cat "Installing main program."
  92.   ))
  93.  
  94.   (set #create-docsdir
  95.   (cat "Creating Docs dir"
  96.   ))
  97.  
  98.   (set #inst-docs
  99.   (cat "Installing program documentation"
  100.   ))
  101.  
  102.   (set #ask-xpk
  103.   (cat "Do you whish to install the decompression libraries?"
  104.   ))
  105.  
  106.   (set #xpk-help
  107.   (cat "It's suggested that you install the decompression libraries, even if you currently don't have packed modules!"
  108.   ))
  109.  
  110.   (set #create-comressorsdir
  111.   (cat "Creating Libs:Compressors dir"
  112.   ))
  113.  
  114.   (set #create-playerdir
  115.   (cat "Creating Player dir"
  116.   ))
  117.  
  118.   (set #create-playerstore
  119.   (cat "Creating PlayerStore"
  120.   ))
  121.  
  122.   (set #ask-players
  123.   (cat "Which Players should be activated?"
  124.   ))
  125.  
  126.   (set #ask-additional-players
  127.   (cat "Activate further players ? These players are not widespread. The average user won't need them to be activated. We suggest that you select 'NO'!"
  128.   ))
  129.  
  130.   (set #ask-players-2
  131.   (cat "Which additional Players should be activated? Think twice before selecting!"
  132.   ))
  133.  
  134.   (set #ask-playsid
  135.   (cat "Would you like to install the PlaySID deliplayer?\nNote: This deliplayer uses the playsid.library, which is SHAREWARE!. Please read the supplied documentation for further information."
  136.   ))
  137.  
  138.   (set #ask-deliay
  139.   (cat "Would you like to install the DeliAY deliplayer?\n(This player emulates the AY soundchip of the ZX Spectrum)"
  140.   ))
  141.  
  142.   (set #player-help
  143.   (cat "Select the players you want to be loaded at startup. Please choose only the ones you REALLY need and you have modules for. All other ones will be installed in the PlayerStore directory, so you may load them later."
  144.   ))
  145.  
  146.   (set #create-geniedir
  147.   (cat "Creating Genie dir"
  148.   ))
  149.  
  150.   (set #create-geniestore
  151.   (cat "Creating GenieStore"
  152.   ))
  153.  
  154.   (set #ask-genies
  155.   (cat "Which genies should be activated?"
  156.   ))
  157.  
  158.   (set #ask-xmas
  159.   (cat "Do you want to install the X-Mas '94 genie?"
  160.   ))
  161.  
  162.   (set #genie-help
  163.   (cat "All genies that are not activated will be installed in the GenieStore directory. For further informations about particular genies, please refer to Genies.eng."
  164.   ))
  165.  
  166.   (set #ask-arexx
  167.   (cat "Do you whish to install ARexx scripts?"
  168.   ))
  169.  
  170.   (set #help-arexx
  171.   (cat "Only choose this if you really use ARexx!"
  172.   ))
  173.  
  174.   (set #create-arexx
  175.   (cat "Creating ARexx dir"
  176.   ))
  177.  
  178.   (set #ask-pdocs
  179.   (cat "Do you whish to install Programming documentation?"
  180.   ))
  181.  
  182.   (set #help-pdocs
  183.   (cat "Only choose this if you plan to write your own players or genies."
  184.   ))
  185.  
  186.   (set #create-pdocs
  187.   (cat "Creating Developer dir"
  188.   ))
  189.  
  190.   (set #extract-players
  191.   (cat "Extracting Players"
  192.   ))
  193.  
  194.   (set #extract-genies
  195.   (cat "Extracting Genies"
  196.   ))
  197.  
  198.   (set #extract-arexx
  199.   (cat "Extracting and installing ARexx Scripts"
  200.   ))
  201.  
  202.   (set #extract-docs
  203.   (cat "Extracting and installing Docs"
  204.   ))
  205.  
  206.   (set #extract-libs
  207.   (cat "Extracting and installing Libs"
  208.   ))
  209.  
  210.   (set #extract-pdocs
  211.   (cat "Extracting and installing development stuff"
  212.   ))
  213.    
  214.   (set #final-msg
  215.   (cat "To configure the genies, repeat the following steps for each genie:\n\n1. Open the genie GUI with the 'Show' function.\n\n2. Activate the window and move it to the position where it should pop up.\n\n3. Set your defaults. You will find various op\
  216. tions in the 'Settings' Menu. In particular: If you want the window to be opened every time DeliTracker is started, turn 'Popup' on.\n\n4. Select 'Save Prefs' from the 'Project' Menu."
  217.   ))
  218.  
  219.   ; Update Strings
  220.  
  221.   (set #remove-old
  222.   (cat "All old files will be removed."
  223.   ))
  224.  
  225.   (set #proceed
  226.   (cat "Proceed"
  227.   ))
  228.  
  229.   (set #abort
  230.   (cat "Abort"
  231.   ))
  232.  
  233.   (set #remove-old-help
  234.   (cat "If you'd like to keep your current installation, you'll have to delete ENV:DELICONFIG and run this script again. Make sure that you select a different location for the new installation."
  235.   ))
  236.  
  237.   (set #removing-dt
  238.   (cat "Removing old files"
  239.   ))
  240.  
  241.   (set #already-newer-installed
  242.   (cat "The installation was aborted because this version or a newer one is already installed."
  243.   ))
  244.  
  245.   (set #update-msg
  246.   (cat "\n\nDeliTracker is SHAREWARE.\n\nIt seems that you use DeliTracker frequently. If you have not registered yet, please register now."
  247.   ))
  248.  )
  249. )
  250.  
  251. ; French string
  252.  
  253. (if (= @LANGUAGE "franτais")
  254.  (
  255.   (set def_pat "#?.fra#?")
  256.  
  257.   (set #bad-kick
  258.   (cat "DeliTracker 2.0 nΘcessite le systΦme 2.04 au minimum !"
  259.   ))
  260.  
  261.   (set #abort-t
  262.   (cat "Assurez-vous que le rΘpertoire T: peut contenir au moins 500 KB."
  263.   ))
  264.  
  265.   (set #invalid-env
  266.   (cat "\nLa variable contenue dans 'ENV:DeliConfig' est erronΘe. Le fichier a ΘtΘ effacΘ.\n\n Si vous voulez installer DeliTracker, relancez le script d'installation."
  267.   ))
  268.  
  269.   (set #abort-no-space
  270.   (cat "Vous avez besoin d'au-moins 850 KB de libre sur votre disque pour installer DeliTracker II"
  271.   ))
  272.  
  273.   (set #choose-text
  274.   (cat "Veuillez choisir le rΘpertoire dans lequel DeliTracker doit Ωtre installΘ. Un rΘpertoire y sera alors crΘΘ."
  275.   ))
  276.  
  277.   (set #choose-help
  278.   (cat "Un rΘpertoire sera crΘΘ ici. Tous les fichiers, α l'exception des bibliothΦques, seront installΘs dans ce rΘpertoire. L'installation complΦte nΘcessite environ 1 MB d'espace libre sur votre disque dur."
  279.   ))
  280.  
  281.   (set #create-maindir
  282.   (cat "CrΘation du rΘpertoire 'DeliTracker'"
  283.   ))
  284.  
  285.   (set #create-configdir
  286.   (cat "CrΘation du rΘertoire 'Config'"
  287.   ))
  288.  
  289.   (set #set-path
  290.   (cat "Choix du chemin pour la configuration"
  291.   ))
  292.  
  293.   (set #inst-main
  294.   (cat "Installation du programme principal"
  295.   ))
  296.  
  297.   (set #create-docsdir
  298.   (cat "CrΘation du rΘpertoire 'Docs'"
  299.   ))
  300.  
  301.   (set #inst-docs
  302.   (cat "Installation de la documentation"
  303.   ))
  304.  
  305.   (set #ask-xpk
  306.   (cat "Voulez-vous installer les bibliothΦques de dΘcompression XPK ?"
  307.   ))
  308.  
  309.   (set #xpk-help
  310.   (cat "Il est indiquΘ d'installer ces bibliothΦques, mΩme si vous n'en Θprouvez pas le besoin pour l'instant et que vous n'avez pas compressΘ de modules !"
  311.   ))
  312.  
  313.   (set #create-comressorsdir
  314.   (cat "CrΘation du rΘpertoire 'Compressors' dans Libs:"
  315.   ))
  316.  
  317.   (set #create-playerdir
  318.   (cat "CrΘation du rΘpertoire 'DeliPlayers'"
  319.   ))
  320.  
  321.   (set #create-playerstore
  322.   (cat "CrΘation du rΘpertoire 'DeliPlayers/PlayerStore'"
  323.   ))
  324.  
  325.   (set #ask-players
  326.   (cat "Quels sont les players que vous dΘsirez charger au dΘmarrage ?"
  327.   ))
  328.  
  329.   (set #ask-additional-players
  330.   (cat "DΘsirez-vous en installer d'autres ? Ces players ne sont que trΦs peu utilisΘs, nous vous suggΘrons donc de ne pas les sΘlectionner !"
  331.   ))
  332.  
  333.   (set #ask-players-2
  334.   (cat "Quels sont les players que vous dΘsirez ajouter encore ? RΘflΘchissez-y α deux fois avant d'en sΘlectionner !"
  335.   ))
  336.  
  337.   (set #ask-playsid
  338.   (cat "DΘsirez-vous installer le player PlaySID ?\nRemarque: Ce player a besoin de la 'playsid.library', qui est considΘrΘe comme SHAREWARE ! Veuillez vous rΘfΘrer α la documentation pour plus de dΘtails."
  339.   ))
  340.  
  341.   (set #ask-deliay
  342.   (cat "Voulez-vous installer le player DeliAY ?\n(Ce player sert α Θmuler les sons AY du ZX Spectrum)"
  343.   ))
  344.  
  345.   (set #player-help
  346.   (cat "Cochez les cases correspondant aux players que vous dΘsirez charger au dΘmarrage de DeliTracker. Ne choisissez que des players dont vous avez besoin ! Tous les autres seront installΘs dans le rΘpertoire PlayerStore et pourront par consΘquent Ωtre\
  347.  chargΘs plus tard. N'oubliez pas que chaque player a besoin de mΘmoire supplΘmentaire ! RΘfΘrez-vous α la documentation pour plus de renseignements au sujet des players (Players.fra)..."
  348.   ))
  349.  
  350.   (set #create-geniedir
  351.   (cat "CrΘation du rΘpertoire 'DeliGenies'"
  352.   ))
  353.  
  354.   (set #create-geniestore
  355.   (cat "CrΘation du rΘpertoire 'DeliGenies/GenieStore'"
  356.   ))
  357.  
  358.   (set #ask-genies
  359.   (cat "Quels sont les gΘnies que vous voulez activer lors du dΘmarrage de DeliTracker II ?"
  360.   ))
  361.  
  362.   (set #ask-xmas
  363.   (cat "Voulez-vous installer le gΘnie 'X-Mas '94' ?"
  364.   ))
  365.  
  366.   (set #genie-help
  367.   (cat "Tous les gΘnies que vous n'avez pas cochΘs seront copiΘs dans le rΘpertoire 'GenieStore' et pourront donc Ωtre appelΘs plus tard. Pour plus d'informations, rΘfΘrez-vous α la documentation correspondante (Genies.fra)..."
  368.   ))
  369.  
  370.   (set #ask-arexx
  371.   (cat "DΘsirez-vous installer les scripts ARexx ?"
  372.   ))
  373.  
  374.   (set #help-arexx
  375.   (cat "N'installez ces scripts que si vous en avez vraiment besoin et si vous utilisez rΘguliΦrement ARexx."
  376.   ))
  377.  
  378.   (set #create-arexx
  379.   (cat "CrΘation du rΘpertoire 'ARexx'"
  380.   ))
  381.  
  382.   (set #ask-pdocs
  383.   (cat "DΘsirez-vous installer la documentation pour programmeurs (en anglais) ?"
  384.   ))
  385.  
  386.   (set #help-pdocs
  387.   (cat "N'installez ces fichiers que si vous prΘvoyez d'Θcrire vos propres routines pour vos propres players !  (Connaissances sΘrieuses en anglais requises)"
  388.   ))
  389.  
  390.   (set #create-pdocs
  391.   (cat "CrΘation du rΘpertoire 'Developer'"
  392.   ))
  393.  
  394.   (set #extract-players
  395.   (cat "DΘcompression de l'archive contenant les players\n\nVeuillez patienter quelques instants..."
  396.   ))
  397.  
  398.   (set #extract-genies
  399.   (cat "DΘcompression de l'archive contenant les gΘnies\n\nVeuillez patienter quelques instants..."
  400.   ))
  401.  
  402.   (set #extract-arexx
  403.   (cat "DΘcompression et installation de l'archive contenant les scripts ARexx\n\nVeuillez patienter..."
  404.   ))
  405.  
  406.   (set #extract-docs
  407.   (cat "DΘcompression et installation de l'archive contenant la documentation\n\nVeuillez patienter..."
  408.   ))
  409.  
  410.   (set #extract-libs
  411.   (cat "DΘcompression et installation de l'archive contenant les bibliothΦques\n\nVeuillez patienter..."
  412.   ))
  413.  
  414.   (set #extract-pdocs
  415.   (cat "DΘcompression et installation de l'archive contenant les informations pour programmeurs\n\nVeuillez patienter..."
  416.   ))
  417.    
  418.   (set #final-msg
  419.   (cat "\nPour configurer les gΘnies, veuillez procΘder comme suit pour chacun d'eux :\n\n1. Ouvrez la fenΩtre de configuration α l'aide de l'option 'Show'.\n2. Activez la fenΩtre et dΘplacez-la ensuite o∙ vous voulez qu'elle apparaisse.\n3. Choisissez\
  420.  vos options par dΘfaut (gΘnΘralement dans le menu 'Settings', en particulier 'Popup', qui vous permet de choisir si vous dΘsirez que DeliTracker ouvre la fenΩtre lors du dΘmarrage).\n4. Concluez par 'Save Prefs' dans le menu 'Project'."
  421.   ))
  422.  
  423.   ; Update Strings
  424.  
  425.   (set #remove-old
  426.   (cat "Tous les anciens fichiers seront dΘtruits."
  427.   ))
  428.  
  429.   (set #proceed
  430.   (cat "Continuer"
  431.   ))
  432.  
  433.   (set #abort
  434.   (cat "ArrΩter"
  435.   ))
  436.  
  437.   (set #remove-old-help
  438.   (cat "Si vous dΘsirez garder votre installation de DeliTracker intacte, sans effacer les anciens fichiers, vous devez effacer 'ENV:DELICONFIG' et redΘmarrer le script d'installation. Assurez-vous que vous avez bien choisi un autre chemin pour effectuer\
  439.  l'installation."
  440.   ))
  441.  
  442.   (set #removing-dt
  443.   (cat "Efface les anciens fichiers."
  444.   ))
  445.  
  446.   (set #already-newer-installed
  447.   (cat "L'installation est impossible, car cette version (ou une version plus rΘcente) est dΘjα installΘe sur votre disque dur."
  448.   ))
  449.  
  450.   (set #update-msg
  451.   (cat "\n\nDeliTracker est un produit considΘrΘ comme SHAREWARE.\n\nApparemment, vous utilisez DeliTracker frΘquemment. Si vous n'Ωtes pas encore un utilisateur rΘfΘrenciΘ, nous vous prions de le devenir aussi t⌠t que possible !"
  452.   ))
  453.  )
  454. )
  455.  
  456. ; German strings
  457.  
  458. (if (= @LANGUAGE "deutsch")
  459.  (
  460.   (set def_pat "#?.deu#?")
  461.  
  462.   (set #bad-kick
  463.   (cat "DeliTracker 2.0 ben÷tigt mindenstens Kickstart 2.04!"
  464.   ))
  465.  
  466.   (set #abort-t
  467.   (cat "Das T: Verzeichnis mu▀ mindestens 500KB Platz zum Entpacken verschiedener Dateien bieten."
  468.   ))
  469.  
  470.   (set #invalid-env
  471.   (cat "\nENV:DeliConfig enthΣlt eine ungⁿltige Pfandangabe und wurde gel÷scht.\n\n Starten Sie dieses Skript nochmal, um DeliTracker neu zu installieren."
  472.   ))
  473.  
  474.   (set #abort-no-space
  475.   (cat "Sie ben÷tigen mindestens 850.000 Bytes freien Plattenplatz um DeliTracker zu installieren."
  476.   ))
  477.  
  478.   (set #choose-text
  479.   (cat "Bitte wΣhlen Sie das Verzeichniss wohin DeliTracker installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  480.   ))
  481.  
  482.   (set #choose-help
  483.   (cat "Bei der Installation werden alle Dateien, bis auf die Libraries, in dieses Verzeichniss installiert. Die vollstΣndige Installation von DeliTracker belegt auf der Festplatte etwa 1MB."
  484.   ))
  485.  
  486.   (set #create-maindir
  487.   (cat "Erstelle DeliTracker-Verzeichniss"
  488.   ))
  489.  
  490.   (set #create-configdir
  491.   (cat "Erstelle Konfigurations-Verzeichniss"
  492.   ))
  493.  
  494.   (set #set-path
  495.   (cat "Erstelle Pfad-Variable"
  496.   ))
  497.  
  498.   (set #inst-main
  499.   (cat "Installiere Hauptprogramm."
  500.   ))
  501.  
  502.   (set #create-docsdir
  503.   (cat "Erstelle Docs-Verzeichniss"
  504.   ))
  505.  
  506.   (set #inst-docs
  507.   (cat "Installiere Programm Dokumentation"
  508.   ))
  509.  
  510.   (set #ask-xpk
  511.   (cat "Wollen Sie die XPK Packer-Libraries installieren?"
  512.   ))
  513.  
  514.   (set #xpk-help
  515.   (cat "Sie sollenten die Packer-Libraries auch dann installieren, wenn Sie (noch) keine gepackten Module besitzen!"
  516.   ))
  517.  
  518.   (set #create-comressorsdir
  519.   (cat "Erstelle Libs:Compressors Unterverzeichniss"
  520.   ))
  521.  
  522.   (set #create-playerdir
  523.   (cat "Erstelle Player-Verzeichniss"
  524.   ))
  525.  
  526.   (set #create-playerstore
  527.   (cat "Erstelle PlayerStore"
  528.   ))
  529.  
  530.   (set #ask-players
  531.   (cat "Welche Player sollen aktiviert werden werden?"
  532.   ))
  533.  
  534.   (set #ask-additional-players
  535.   (cat "Sollen zusΣtzliche Player aktiviert werden? Hierbei handelt es sich um Player die nicht sehr Verbreitet sind. Der normale Benutzer wird diese Player nicht ben÷tigen. Wir schlagen deshalb vor, das Sie mit 'NEIN' fortfahren."
  536.   ))   
  537.  
  538.   (set #ask-players-2
  539.   (cat "Welche zusΣtzlichen Player sollen bei Programmstart geladen werden?"
  540.   ))
  541.  
  542.   (set #ask-playsid
  543.   (cat "Wollen sie den PlaySID Player fⁿr DeliTracker installieren ?\nHinweis: Dieser DeliPlayer benutzt die playsid.library. Diese Library ist SHAREWARE! Fⁿr weitere Informationen lesen sie bitte die zugeh÷rige Dokumentation."
  544.   ))
  545.  
  546.   (set #ask-deliay
  547.   (cat "Wollen Sie den DeliAY Player installieren?\n(Dieser Player emuliert den AY Soundchip des ZX Spectrum)"
  548.   ))
  549.  
  550.   (set #player-help
  551.   (cat "Bitte wΣhlen Sie nur Player fⁿr die Sie auch Module besitzen. Nicht angewΣhlete Player werden im Playerstore installiert. Sie k÷nnen diese Player bei Bedarf spΣter immer noch nachladen."
  552.   ))
  553.  
  554.   (set #create-geniedir
  555.   (cat "Erstelle Genie Verzeichniss"
  556.   ))
  557.  
  558.   (set #create-geniestore
  559.   (cat "Erstelle GenieStore"
  560.   ))
  561.  
  562.   (set #ask-genies
  563.   (cat "Welche zusΣtzlichen Genies sollen bei Programmstart geladen werden?"
  564.   ))
  565.  
  566.   (set #ask-xmas
  567.   (cat "Soll das '94 Weihnachts Genie installiert werden?"
  568.   ))
  569.  
  570.   (set #genie-help
  571.   (cat "Alle Genies die nicht aktiviert werden sind im GenieStore zu finden. Weitere Informationen finden Sie in Genies.deu."
  572.   ))
  573.  
  574.   (set #ask-arexx
  575.   (cat "Wollen Sie die ARexx scripts installieren?"
  576.   ))
  577.  
  578.   (set #help-arexx
  579.   (cat "WΣhlen Sie diese Option nur wenn Sie Arexx auch benutzen."
  580.   ))
  581.  
  582.   (set #create-arexx
  583.   (cat "Erstelle Arexx-Verzeichniss"
  584.   ))
  585.  
  586.   (set #ask-pdocs
  587.   (cat "Wollen Sie die Programmierdokumentation installieren?"
  588.   ))
  589.  
  590.   (set #help-pdocs
  591.   (cat "WΣhlen Sie diese Option nur, wenn Sie eigene Player oder Genies schreiben wollen. Hinweis: Die Entwicklerdokumentation ist fⁿr Assemblerprogramierer gedacht und ist nur in Englisch verfⁿgbar!"
  592.   ))
  593.  
  594.   (set #create-pdocs
  595.   (cat "Erstelle Developer-Verzeichniss"
  596.   ))
  597.  
  598.   (set #extract-players
  599.   (cat "Entpacke Player"
  600.   ))
  601.  
  602.   (set #extract-genies
  603.   (cat "Entpacke Genies"
  604.   ))
  605.  
  606.   (set #extract-arexx
  607.   (cat "Entpacke Arexx Scrips"
  608.   ))
  609.  
  610.   (set #extract-docs
  611.   (cat "Entpacke Dokumentation"
  612.   ))
  613.  
  614.   (set #extract-libs
  615.   (cat "Entpacke Libraries"
  616.   ))
  617.  
  618.   (set #extract-pdocs
  619.   (cat "Entpacke Entwicklungspaket"
  620.   ))
  621.  
  622.   (set #final-msg
  623.   (cat "Um die Genies zu konfigurieren, wiederholen Sie folgende Schritte fⁿr jedes Genie:\n\n1. ╓ffnen Sie die zugeh÷rige GUI mit der 'Show' Funktion.\n2. Aktivieren Sie das Fenster und positionieren Sie es an der gewⁿnschten Stelle.\n3. Stellen Sie die\
  624.  Optionen nach Bedarf ein. Sie finden die Einstellungen im 'Settings' Menⁿ. Wenn Sie wⁿnschen, da▀ dieses Fenster bei jedem Start von DeliTracker ge÷ffnet wird, schalten Sie 'Popup' an.\n\n4. WΣhlen Sie den Menⁿpunkt 'Save Prefs' aus dem 'Project' Menⁿ."
  625.   ))
  626.  
  627.   ; Update Strings
  628.  
  629.   (set #remove-old
  630.   (cat "Es werden jetzt alle alten Dateien gel÷scht."
  631.   ))
  632.   
  633.   (set #proceed
  634.   (cat "Weiter"
  635.   ))
  636.  
  637.   (set #abort
  638.   (cat "Abbrechen"
  639.   ))
  640.  
  641.   (set #remove-old-help
  642.   (cat "Wenn Sie Ihre alte Installation behalten wollen mⁿssen Sie ENV:DELICONFIG l÷schen und dieses Script erneut starten. Installieren Sie die neue Version unbedingt in einem anderen Directory."
  643.   ))
  644.  
  645.   (set #removing-dt
  646.   (cat "Entferne alte Dateien."
  647.   ))
  648.  
  649.   (set #already-newer-installed
  650.   (cat "Die Installation wurde abgebrochen, da bereits eine neuere Version installiert ist!"
  651.   ))
  652.  
  653.   (set #update-msg
  654.   (cat "\n\nDeliTracker ist SHAREWARE.\n\nDa Sie scheinbar DeliTracker ÷fter benutzen, sollten Sie sich, falls Sie das noch nicht getan haben, registrieren!"
  655.   ))
  656.  )
  657. )
  658.  
  659. ; check kick version
  660.  
  661. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  662.  
  663. ; say hi 
  664. (welcome)
  665. (complete 0)
  666.  
  667. ;=============================================================================;
  668. ; Choose directory where DeliTracker is/will be installed.
  669. ; (Check for enough room)
  670. ;
  671. (if (exists "ENVARC:DELICONFIG" (noreq))
  672.  (
  673.   ; for compatibility with AmiNET 8 CD
  674.   (copyfiles (source "ENVARC:DELICONFIG") (dest "ENV:"))
  675.  
  676.   (set @default-dest (getenv "DELICONFIG"))
  677.   (set @default-dest (substr @default-dest 0 (- (strlen @default-dest) 11)))
  678.  
  679.   ; check ENV Variable
  680.   (if (NOT (exists @default-dest (noreq)))
  681.    (
  682.     (delete "ENVARC:DELICONFIG")
  683.     (abort #invalid-env)
  684.    )
  685.   )
  686.  
  687.   ; check installed version
  688.   (if (> (BITAND 65535 (getversion ("DeliTracker2"))) (BITAND 65535 (getversion (tackon @default-dest "DeliTracker2"))))
  689.    (    
  690.     (if (= 1 (askbool (prompt #remove-old) (help #remove-old-help) (choices #proceed #abort)))
  691.      (
  692.       (working #removing-dt)
  693.       (if (= 2 (exists @default-dest))
  694.        (; delete all files in the DeliTracker2 drawer
  695.         (foreach (tackon @default-dest "DeliPlayers/PlayerStore") "#?" (delete (tackon (tackon @default-dest "DeliPlayers/PlayerStore") @each-name)))
  696.         (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon (tackon @default-dest "DeliPlayers") @each-name)))
  697.         (if (= 2 (exists (tackon @default-dest "AYPlayers")))
  698.          (
  699.            (foreach (tackon @default-dest "AYPlayers") "#?" (delete (tackon (tackon @default-dest "AYPlayers") @each-name)))
  700.            (delete (tackon @default-dest "AYPlayers.info"))
  701.            (delete (tackon @default-dest "AYPlayers"))
  702.          )
  703.         )
  704.         (foreach (tackon @default-dest "DeliGenies/GenieStore") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore") @each-name)))
  705.         (foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies") @each-name)))
  706.         (foreach (tackon @default-dest "Docs") "#?" (delete (tackon (tackon @default-dest "Docs") @each-name)))
  707.         (if (= 2 (exists (tackon @default-dest "Arexx")))
  708.          (
  709.           (foreach (tackon @default-dest "ARexx") "#?" (delete (tackon (tackon @default-dest "ARexx") @each-name)))
  710.           (delete (tackon @default-dest "ARexx.info"))
  711.           (delete (tackon @default-dest "ARexx"))
  712.          )
  713.         )
  714.         (if (= 2 (exists (tackon @default-dest "Developer")))
  715.          (
  716.           (foreach (tackon @default-dest "Developer/Include/Misc") "#?" (delete (tackon (tackon @default-dest "Developer/Include/Misc") @each-name)))
  717.           (foreach (tackon @default-dest "Developer/Include") "#?" (delete (tackon (tackon @default-dest "Developer/Include") @each-name)))
  718.           ; Custom dir has been removed
  719.           (if (= 2 (exists (tackon @default-dest "Developer/Examples/Custom")))
  720.            (
  721.             (foreach (tackon @default-dest "Developer/Examples/Custom") "#?" (delete (tackon (tackon @default-dest "Developer/Examples/Custom") @each-name)))
  722.            )
  723.           )
  724.           (foreach (tackon @default-dest "Developer/Examples") "#?" (delete (tackon (tackon @default-dest "Developer/Examples") @each-name)))
  725.           (foreach (tackon @default-dest "Developer") "#?" (delete (tackon (tackon @default-dest "Developer") @each-name)))
  726.           (delete (tackon @default-dest "Developer.info"))
  727.           (delete (tackon @default-dest "Developer"))
  728.          )
  729.         )
  730.        )
  731.       )
  732.  
  733.       ; for those who have moved DeliTracker into the WBStartUp drawer
  734.       (delete "SYS:WBStartUp/DeliTracker2")
  735.       (delete "SYS:WBStartUp/DeliTracker2.info")
  736.       ; remind shareware
  737.       (message #update-msg)
  738.      )
  739.      (exit "Bye Bye ...")
  740.     )
  741.    )
  742.    (abort #already-newer-installed)
  743.   )
  744.  )
  745.  
  746.  ; CHOOSE_DESTINATION
  747.  
  748.  (
  749.   (if (= "RAM" (getdevice "T:"))
  750.    (set freespace (+ (database "total-mem")))
  751.    (set freespace (getdiskspace ("%s:" (getdevice "T:"))))
  752.   )
  753.   (if (< freespace 500000)
  754.     (abort #abort-t))
  755.   
  756.   (set @default-dest (getassign "Work" "dva"))
  757.   (if (= @default-dest "")
  758.    (set @default-dest "SYS:"))
  759.   
  760.   (set @default-dest (askdir
  761.     (prompt #choose-text)
  762.     (help #choose-help)
  763.     (default @default-dest))
  764.   ) 
  765.   
  766.   (set @default-dest (tackon @default-dest "DeliTracker_II"))
  767.   
  768.   (if (NOT (= "RAM" (getdevice @default-dest)))
  769.    (if (> 850000 (getdiskspace ("%s:" (getdevice @default-dest))))
  770.     (abort #abort-no-space)
  771.    )
  772.   )
  773.  )
  774. )
  775.  
  776. (complete 5)
  777.  
  778. ;=============================================================================;
  779. ; Install procedure for DeliTracker itself
  780.  
  781. (copyfiles (source "c/UNLZX") (dest "T:") (newname "LZX"))
  782.  
  783. (makedir @default-dest (prompt #create-maindir)(infos))
  784. (makedir (tackon @default-dest "DELICONFIG") (prompt #create-configdir))
  785. (copyfiles (prompt #inst-main)
  786.  (source "DeliTracker2")
  787.  (dest @default-dest)
  788.  (optional "fail")
  789.  (infos)
  790. )
  791.  
  792. (complete 10)
  793.  
  794. ;=============================================================================;
  795. ; Installation procedure for players
  796. ; 
  797.  
  798. (makedir (tackon @default-dest "DeliPlayers")
  799.  (prompt #create-playerdir)
  800.  (infos)
  801. )
  802.  
  803. (makedir (tackon @default-dest "DeliPlayers/PlayerStore")
  804.  (prompt #create-playerstore)
  805.  (infos)
  806. )
  807.  
  808. (working #extract-players)
  809. (run "T:LZX -m -x x Files/players.lzx T:")
  810.  
  811. (
  812.  (copyfiles (prompt #ask-players)
  813.   (help #player-help)
  814.   (source "T:DeliPlayers/")
  815.   (dest (tackon @default-dest "DeliPlayers"))
  816.   (optional "nofail")
  817.   (confirm "average")
  818.   (files)
  819.   (all)
  820.  )
  821. )
  822.  
  823. (if (= 1 (askbool (prompt #ask-additional-players) (help @help-askbool)))
  824.  (
  825.   (
  826.    (copyfiles (prompt #ask-players-2)
  827.    (help #player-help)
  828.    (source "T:DeliPlayers/Playerstore")
  829.    (dest (tackon @default-dest "DeliPlayers"))
  830.    (optional "nofail")
  831.    (confirm "average")
  832.    (files)
  833.    (all)
  834.    )
  835.   )
  836.  )
  837. )
  838.  
  839. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  840. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  841. (copyfiles (source "T:DeliPlayers/Playerstore")
  842.       (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  843.       (files)
  844.       (all)
  845. )
  846. (foreach "T:DeliPlayers/Playerstore" "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  847. (delete "T:DeliPlayers/Playerstore")
  848. (copyfiles (source "T:DeliPlayers") 
  849.       (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  850.       (files)
  851.       (all)
  852. )
  853. (foreach "T:DeliPlayers" "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  854. (delete "T:DeliPlayers")
  855.  
  856. (complete 60)
  857.  
  858. ;=============================================================================;
  859. ; Installation procedure for PlaySID
  860. ; 
  861.  
  862. (if (= 1 (askbool (prompt #ask-playsid) (help @help-askbool)))
  863.  (
  864.   (
  865.    (working #extract-players)
  866.    (run "T:LZX -m x Bonus/DeliSID.lzx DeliSID T:")
  867.    (run "T:LZX -m x Bonus/playsid3.lzx PlaySID3.0/PlaySID.doc PlaySID3.0/PlaySID.doc.info PlaySID3.0/libs/playsid.library T:")
  868.  
  869.    (copyfiles (help #player-help)
  870.     (source "T:DeliSID")
  871.     (dest (tackon @default-dest "DeliPlayers"))
  872.    )
  873.  
  874.    (copyfiles (help #player-help)
  875.     (source "T:PlaySID3.0/PlaySID.doc.info")
  876.     (dest (tackon @default-dest "Docs"))
  877.    )
  878.  
  879.    (copyfiles (help #player-help)
  880.     (source "T:PlaySID3.0/PlaySID.doc")
  881.     (dest (tackon @default-dest "Docs"))
  882.    )
  883.  
  884.    (copylib (prompt "The playsid.library is required for DeliSID")
  885.     (source "T:PlaySID3.0/libs/playsid.library")
  886.     (dest "libs:")
  887.     (help @copylib-help)
  888.    )
  889.    (delete "T:DeliSID")
  890.    (delete "T:PlaySID3.0/PlaySID.doc.info")
  891.    (delete "T:PlaySID3.0/PlaySID.doc")
  892.    (delete "T:PlaySID3.0/libs/playsid.library")
  893.    (delete "T:PlaySID3.0/libs")
  894.    (delete "T:PlaySID3.0")
  895.   )
  896.  )
  897. )
  898.  
  899. (complete 65)
  900.  
  901. ;=============================================================================;
  902. ; Installation procedure for DeliAY
  903. ; 
  904.  
  905. (if (= 1 (askbool (prompt #ask-deliay) (help @help-askbool)))
  906.  ( 
  907.   (
  908.    (working #extract-players)
  909.    (run "T:LZX -m x Bonus/deliay.lzx DeliAY/#?readme#? DeliAY/AYPlayers/#? DeliAY/DeliPlayers/#? T:")
  910.  
  911.    ; copy docs 
  912.    (copyfiles (help #player-help)
  913.     (source "T:DeliAY/DeliAY.readme.info")
  914.     (dest (tackon @default-dest "Docs"))
  915.    )   
  916.    (copyfiles (help #player-help)
  917.     (source "T:DeliAY/DeliAY.readme")
  918.     (dest (tackon @default-dest "Docs"))
  919.     (files)
  920.    )
  921.  
  922.    ; copy DeliAY player
  923.    (copyfiles (help #player-help)
  924.     (source "T:DeliAY/DeliPlayers/DeliAY")
  925.     (dest (tackon @default-dest "DeliPlayers"))
  926.    )
  927.  
  928.    ; let's make a new sub-player directory
  929.    (makedir (tackon @default-dest "AYPlayers")
  930.    (prompt #create-playerdir)
  931.    )
  932.  
  933.    ; copy sub-players
  934.    (copyfiles (help #player-help)
  935.     (source "T:DeliAY/AYPlayers")
  936.     (dest (tackon @default-dest "AYPlayers"))
  937.     (files)
  938.     (all)
  939.    )
  940.  
  941.    ; delete temporary files 
  942.    (foreach "T:DeliAY/AYPlayers/" "#?" (delete (tackon "T:DeliAY/AYPlayers/" @each-name) (optional force)))
  943.    (foreach "T:DeliAY/DeliPlayers/" "#?" (delete (tackon "T:DeliAY/DeliPlayers/" @each-name) (optional force)))
  944.    (foreach "T:DeliAY/" "#?" (delete "T:DeliAY/" (tackon "T:DeliAY/" @each-name) (optional force)))
  945.    (delete "T:DeliAY")
  946.  
  947.   )
  948.  )
  949. )
  950.  
  951. (complete 66)
  952.  
  953. ;=============================================================================;
  954. ; Installation procedure for genies
  955. ; Install default genies
  956. ; Average, Expert: ask optional genies
  957.  
  958. (makedir (tackon @default-dest "DeliGenies")
  959.  (prompt #create-geniedir)
  960.  (infos)
  961. )
  962.  
  963. (makedir (tackon @default-dest "DeliGenies/GenieStore")
  964.  (prompt #create-geniestore)
  965.  (infos)
  966. )
  967.  
  968. (working #extract-genies)
  969. (run ("T:LZX -m -x x Files/genies.lzx \"%s/\"" @default-dest))
  970.  
  971. (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  972.  ; remove NotePlayers on 68000er Systems that require at least a '020
  973.  (
  974.   (delete (tackon @default-dest "DeliGenies/GenieStore/14Bit-NotePlayer"))
  975.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayer"))
  976.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayerPlus"))
  977.   (delete (tackon @default-dest "DeliGenies/GenieStore/ModSave-NotePlayer"))
  978.  )
  979.  ; remove obsolete NotePlayers for 68020+ Systems
  980.  (
  981.   (delete (tackon @default-dest "DeliGenies/8Voc-NotePlayer"))
  982.  )
  983. )
  984.  
  985. (
  986.  (copyfiles (prompt #ask-genies)
  987.   (help #genie-help)
  988.   (source (tackon @default-dest "DeliGenies/Geniestore"))
  989.   (dest (tackon @default-dest "DeliGenies"))
  990.   (optional "nofail")
  991.   (confirm "average")
  992.   (files)
  993.   (all)
  994.  )
  995. )
  996.  
  997. (foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore/") (fileonly @each-name))))
  998.  
  999. (complete 75)
  1000.  
  1001. ;=============================================================================;
  1002. ; Installation procedure for X-Mas Genie
  1003. ; 
  1004.  
  1005. (if (= 1 (askbool (prompt #ask-xmas) (help @help-askbool)))
  1006.  ( 
  1007.   (
  1008.    (working #extract-genies)
  1009.    (run "T:LZX -m x Bonus/X-Mas.lzx Xmas-Genie T:")
  1010.    
  1011.    (copyfiles (help #genies-help)
  1012.     (source "T:Xmas-Genie")
  1013.     (dest (tackon @default-dest "DeliGenies"))
  1014.    )
  1015.  
  1016.    (delete "T:Xmas-Genie")
  1017.   )
  1018.  )
  1019. )
  1020.  
  1021. (complete 76)
  1022.  
  1023. ;=============================================================================
  1024. ; Installation procedure for Arexx Scripts
  1025.  
  1026. (if (< 0 @user-level)
  1027.  (if (= 1 (askbool (prompt #ask-arexx) (help #help-arexx)))
  1028.   (
  1029.    (makedir (tackon @default-dest "Arexx")
  1030.     (prompt #create-arexx)
  1031.     (infos)
  1032.    )
  1033.    (working #extract-arexx)
  1034.    (run ("T:LZX -m -x x Files/arexx.lzx \"%s/\"" @default-dest))
  1035.   )
  1036.  )
  1037. )
  1038.  
  1039. (complete 80)
  1040.  
  1041. ;=============================================================================;
  1042. ; Install procedure for the decompression libraries
  1043.  
  1044. (if (OR (= 0 @user-level) (if (< 0 @user-level) (askbool (prompt #ask-xpk) (help #xpk-help))))
  1045.  (
  1046.   (makedir "Libs:Compressors" (prompt #create-comressorsdir))
  1047.   (working #extract-libs)
  1048.   (run "T:LZX -m -x x Files/libs.lzx >NIL: <NIL: T:")  
  1049.   (run "T:LZX -m x Files/xpkSMPL.lzx xpkSMPL.library >NIL: <NIL: T:libs/compressors/")
  1050.   (run "T:LZX -m x Files/xpkSHRI.lzx xpkSHRI.library >NIL: <NIL: T:libs/compressors/")
  1051.   (run "T:LZX -m x Files/xpkSQSH.lzx >NIL: <NIL: T:libs/")
  1052.  
  1053.   (copylib (prompt "Install xpkmaster.library")
  1054.   (source "T:libs/xpkmaster.library")
  1055.   (dest "libs:")
  1056.   (confirm)
  1057.   (optional nofail askuser)
  1058.   (help @copylib-help)
  1059.   )
  1060.  
  1061.   (copylib (prompt "Install powerpacker.library")
  1062.   (source "T:libs/powerpacker.library")
  1063.   (dest "libs:")
  1064.   (confirm)
  1065.   (optional nofail askuser)
  1066.   (help @copylib-help)
  1067.   )
  1068.  
  1069.   ; xpk sub lib's
  1070.   
  1071.   (copylib (prompt "Install compressors/xpkNUKE.library")
  1072.   (source "T:libs/compressors/xpkNUKE.library")
  1073.   (dest "libs:compressors/")
  1074.   (confirm)
  1075.   (optional nofail askuser)
  1076.   (help @copylib-help)
  1077.   )
  1078.  
  1079.   (copylib (prompt "Install compressors/xpkSMPL.library")
  1080.   (source "T:libs/compressors/xpkSMPL.library")
  1081.   (dest "libs:compressors/")
  1082.   (confirm)
  1083.   (optional nofail askuser)
  1084.   (help @copylib-help)
  1085.   )
  1086.  
  1087.   (copylib (prompt "Install compressors/xpkSHRI.library")
  1088.   (source "T:libs/compressors/xpkSHRI.library")
  1089.   (dest "libs:compressors/")
  1090.   (confirm)
  1091.   (optional nofail askuser)
  1092.   (help @copylib-help)
  1093.   )
  1094.  
  1095.   ; install right version for 680x0 cpu
  1096.   (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  1097.    (copylib (prompt "Install compressors/xpkSQSH.library")
  1098.     (source "T:libs/68000/xpkSQSH.library")
  1099.     (dest "libs:compressors/")
  1100.     (confirm)
  1101.     (optional nofail askuser)
  1102.     (help @copylib-help)
  1103.    )
  1104.    (copylib (prompt "Install compressors/xpkSQSH.library")
  1105.     (source "T:libs/68020/xpkSQSH.library")
  1106.     (dest "libs:compressors/")
  1107.     (confirm)
  1108.     (optional nofail askuser)
  1109.     (help @copylib-help)
  1110.    )
  1111.   )
  1112.  
  1113.   ; cleanup temp dir
  1114.  
  1115.   (foreach "T:libs/compressors" "#?" (delete (tackon "T:libs/compressors/" @each-name) (optional force)))
  1116.   (foreach "T:libs/" "#?" (delete (tackon "T:libs/" @each-name) (optional force)))
  1117.   (delete "T:libs/68000/xpkSQSH.library")
  1118.   (delete "T:libs/68020/xpkSQSH.library")
  1119.   (delete "T:libs/68000")
  1120.   (delete "T:libs/68020")
  1121.   (delete "T:libs")
  1122.  
  1123.  )
  1124. )
  1125.  
  1126. (complete 90)
  1127.  
  1128. ;=============================================================================;
  1129. ; Install procedure for the documentation files
  1130.  
  1131. (makedir (tackon @default-dest "Docs")
  1132.  (prompt #create-docsdir)
  1133.  (infos)
  1134. )
  1135.  
  1136. (working #extract-docs)
  1137. (run "T:LZX -m -x x Files/docs.lzx >NIL: <NIL: T:")
  1138.  
  1139. (copyfiles (prompt #inst-docs)
  1140.  (source "T:Docs/")
  1141.  (dest (tackon @default-dest "Docs"))
  1142.  (pattern def_pat)
  1143.  (optional "nofail")
  1144.  (infos)
  1145.  (files)
  1146. )
  1147.  
  1148. ; cleanup temp dir
  1149.  
  1150. (foreach "T:Docs/" "#?" (delete (tackon "T:Docs/" @each-name) (optional force)))
  1151. (delete "T:Docs" (optional force))
  1152.  
  1153. (complete 95)
  1154.  
  1155. ;=============================================================================;
  1156. ; Installation procedure for Development Documentation
  1157.  
  1158. (if (= 2 @user-level)
  1159.  (if (= 1 (askbool (prompt #ask-pdocs) (help #help-pdocs)))
  1160.   (
  1161.    (makedir (tackon @default-dest "Developer")
  1162.     (prompt #create-pdocs)
  1163.     (infos)
  1164.    )
  1165.    (makedir (tackon @default-dest "Developer/Examples")
  1166.     (prompt #create-pdocs)
  1167.     (infos)
  1168.    )
  1169.    (makedir (tackon @default-dest "Developer/Include")
  1170.     (prompt #create-pdocs)
  1171.     (infos)
  1172.    )
  1173.  
  1174.    (working #extract-pdocs)
  1175.    (run ("T:LZX -m -x x Files/developer.lzx \"%s/\"" @default-dest))
  1176.  
  1177.    (if (= @LANGUAGE "deutsch")
  1178.     (
  1179.     (delete (tackon @default-dest "Developer/Developer.eng"))
  1180.     (delete (tackon @default-dest "Developer/Developer.eng.info"))
  1181.     )
  1182.     (
  1183.     (delete (tackon @default-dest "Developer/Developer.deu"))
  1184.     (delete (tackon @default-dest "Developer/Developer.deu.info"))
  1185.     )
  1186.    )
  1187.   )
  1188.  )
  1189. )
  1190.  
  1191. ;=============================================================================;
  1192. ; Set environment variables for configuration path
  1193.  
  1194. (complete 98)
  1195.  
  1196. (textfile (prompt #set-path) (dest "ENV:DELICONFIG") (append (expandpath (tackon @default-dest "DELICONFIG")))) 
  1197.  
  1198. ; this makes testing easier...
  1199. (if (NOT (= "RAM" (getdevice @default-dest)))
  1200.  (textfile (prompt #set-path) (dest "ENVARC:DELICONFIG") (append (expandpath (tackon @default-dest "DELICONFIG")))) 
  1201. )
  1202.  
  1203. ;=============================================================================;
  1204. ; Cleanup & tell some important things!
  1205.  
  1206. (delete "T:LZX")
  1207. (complete 99)
  1208. (message #final-msg)
  1209. (complete 100)
  1210.  
  1211. ;=============================================================================;
  1212.