home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 17 / amigaformatcd17.iso / -screenplay- / shareware / tossword / distribution / install_tossword < prev   
Text File  |  1997-06-29  |  22KB  |  458 lines
  1. ; $VER: Install_Tossword 1.19 (04.04.96)
  2. ;
  3. ; Distributed as a part of TossWord archive.
  4. ; TossWord is Copyright (C) 1995-96 by Dmitry Mikhilov, Saint-Petersburg, Russia.
  5. ;
  6. ; Feel free to add other language-specific strings to this installer script.
  7.  
  8. ; ******************* For each used language ***************************************
  9.                                                                                  ; *
  10. (set english 1) ; If you're adding other language(s), please, use shifted mask     *
  11. (set russian 2) ; for identifier, i.e. (set french 8) (set dansk 16) and so on...  *
  12. (set deutsch 4) ;                                                                  *
  13.                                                                                  ; *
  14. ; **********************************************************************************
  15.  
  16. (set #rusfontdir "SYS:Fonts_Rus") ; Russian fonts reside in a seperate directory
  17. (set #left  1)
  18. (set #right 2)
  19.  
  20. (complete 0)                           
  21. (set #settings_popup "POPUP_SETTINGS"                                         )
  22. (set #use_bobs       "USE_BOBS"                                               )
  23. (set #english-name  "english"                                                 )
  24. (set #russian-name  "russian"                                                 )
  25. (set #deutsch-name  "deutsch"                                                 )
  26. (set #english-name_ "english"                                                 )
  27. (set #russian-name_ "russian"                                                 )
  28. (set #deutsch-name_ "deutsch"                                                 )
  29. (set #check-system  "\n\nFirst of all, let me check your system..."           )
  30. (set #main          "Main"                                                    )
  31. (set #tossword      "TossWord"                                                )
  32. (set #bad-cpu       "\n\nCPU 68020+ needed."                                  )
  33. (set #no-mui        "\n\nMUI V3.1+ needed."                                   )
  34. (set #old-kickstart "\n\nKickstart 3.0+ (39.xx+) needed"                      )
  35. (set #old-reqtools  "\n\nReqtools V38+ needed"                                )
  36. (set #create-dir    "\n\nGoing to put TossWord in it's home drawer"           )
  37. (set #copy-main     "\n\nCopying the main program to it's home drawer"        )
  38. (set #select-lang   "Select which languages you are planning to use:"         )
  39. (set #copy-eng      "\n\nCopying English-related files"                       )
  40. (set #copy-deu      "\n\nCopying Deutsch-related files"                       )
  41. (set #copy-rus      "\n\nCopying Russian-related files"                       )
  42. (set #copy-ruscat   "\n\nCopying russian catalog to LOCALE:Catalogs/Russian"  )
  43. (set #copy-deucat   "\n\nCopying deutsch catalog to LOCALE:Catalogs/Deutsch"  )
  44. (set #select-help   "Which help files do you wish to install?"                )
  45. (set #copy-enghelp  "\n\nÐopying English documentation..."                    )
  46. (set #copy-deuhelp  "\n\nÐopying Deutsch documentation..."                    )
  47. (set #copy-rushelp  "\n\nÐopying Russian documentation..."                    )
  48. (set #yes           "Yes"                                                     )
  49. (set #no            "No"                                                      )
  50. (set #have_aga      "\n\nDo you have an AGA computer?"                        )
  51. (set #left-player   "\"Left\" player"                                         )
  52. (set #right-player  "\"Right\" player"                                        )
  53. (set #settings  (cat
  54.   "\n\nDo you want the settings window to pop up each time you start the "
  55.   "program? "
  56. ))
  57. (set #settings_help (cat
  58.   "In order to start playing, at least one name of human player must be specified "
  59.   "if you didn't explicitly do that via \"XXX_PLAYERS\" tooltype where XXX stays "
  60.   "for the name of your preferred language. You can enter this name (or names) in "
  61.   "settings window each time you launch the TossWord. "
  62. ))
  63. (set #welcome (cat
  64.   "Welcome to TossWord installation utility. Please, choose your user level "
  65.   "(based upon your knowledge of Amiga)"
  66. ))
  67. (set #have_aga_help (cat
  68.   "AGA machines are capable of displaying sprites wider than 16 bits. "
  69.   "In this case you'd better use sprites instead of bobs while playing TossWord. "
  70.   "If you do not have an AGA machine, then TossWord's icon must contatin tooltype "
  71.   "USE_BOBS, which will be put there by the installer."
  72. ))
  73. (set #copy-engfonthelp (cat
  74.   "This font is a standard Amiga font. It will be used to show player's letters. "
  75.   "By default, it's name is specified in TossWord's icon: FONT=TossWord.16 "
  76.   "It will be used, when you play NOT in Russian language. The height of font "
  77.   "may vary from 14 till 18 (inclusively). If you already have some (preferably "
  78.   "proportional) standard Amiga fonts with neccesary size(s) in your system, "
  79.   "then do not copy Tossword.font. Anyway, be sure, that the font, specified in "
  80.   "TossWord's icon, with exactly the same size exists in your system! Feel free "
  81.   "to change font's name and size in the icon, if neccessary."
  82. ))
  83. (set #copy-engfont (cat
  84.   "Do you wish to install TossWord font which may be used as default font "
  85.   "when using languages, supported as standard on Amiga? "
  86. ))
  87. (set #tell-dest "Would you tell me where can I create (find) the \"TossWord\" drawer?")
  88. (set #old-rusifier (cat
  89.   "It seems to me that you either do not have the Rusifier installed, or "
  90.   "it is an outdated version (minimum V6.00 required). Playing in Russian "
  91.   "language will not be available in this case! "
  92. ))
  93. (set #anyplayers "Don't you want to specify one or two names of \"default\" TossWord players for ")
  94. (set #anyplayers_help (cat
  95.   "After launching of the TossWord you may start the game immediately without specifying "
  96.   "the name(s) of the player(s) if one or two names are defined \"by default\""
  97. ))
  98. (set #lang " language?")                                                                  ; *
  99. (set #select-player "Which name(s) do you wish to define as default ones?")
  100. (set #select-player-help (cat
  101.   "The letter banks of human players in TossWord reside near rightmost and leftmost sides "
  102.   " of the playfield - that's why players are called the \"left\" and \"right\" one."
  103. ))
  104. (set #getname "Please, input first and last names of the player")
  105. (set #getnamehelp (cat
  106.   "Player's names may always travel around the world as a part of table of "
  107.   "highscores which is hidden inside TossWord's dictionary. That's why you have "
  108.   "to specify both first and last names of the player (first name is also shown during the "
  109.   "gameplay). "
  110. ))
  111.  
  112. ; ***************** For each other language **************************************************
  113.                                                                                            ; *
  114. (if (= @language "russian")                                                                ; *
  115.   (                                                                                        ; *
  116.     (set #english-name  "Aìâêçèðéçè"                                                     ) ; *
  117.     (set #russian-name  "Ïòððéçè"                                                        ) ; *
  118.     (set #deutsch-name  "Ìäëäõéçè"                                                       ) ; *
  119.     (set #english-name_ "aìâêçèðéíë"                                                     ) ; *
  120.     (set #russian-name_ "ïòððéíë"                                                        ) ; *
  121.     (set #deutsch-name_ "ìäëäõéíë"                                                       ) ; *
  122.     (set #check-system  "\n\nÎïäåãä áðäâí þ îïíáäïý áaøò ðçðñäëò..."                     ) ; *
  123.     (set #bad-cpu       "\n\nÑïäàòäñðþ îïíõäððíï 68020+"                                 ) ; *
  124.     (set #no-mui        "\n\nÑïäàòäñðþ MUI V3.1+"                                        ) ; *
  125.     (set #old-kickstart "\n\nÑïäàòäñðþ Kickstart 3.0+ (39.xx+)"                          ) ; *
  126.     (set #old-reqtools  "\n\nÑïäàòäñðþ Reqtools V38+"                                    ) ; *
  127.     (set #create-dir    "\n\nÎíãúðéçáaý éañaêíâ ãêþ ïaæëäùäìçþ îïíâïaëëìúô óaèêíá"       ) ; *
  128.     (set #copy-main     "\n\nÉíîçïòý íðìíáìòý îïíâïaëëò"                                 ) ; *
  129.     (set #select-lang   "Áúàäïçñä þæúéç, éíñíïúä àòãäñä çðîíêûæíáañû á çâïä:"            ) ; *
  130.     (set #copy-eng      "\n\nÉíîçïòý óaèêú ãêþ aìâêçèðéíâí þæúéa"                        ) ; *
  131.     (set #copy-rus      "\n\nÉíîçïòý óaèêú ãêþ ïòððéíâí þæúéa"                           ) ; *
  132.     (set #copy-deu      "\n\nÉíîçïòý óaèêú ãêþ ìäëäõéíâí þæúéa"                          ) ; *
  133.     (set #copy-ruscat   "\n\nÉíîçïòý ïòððéçè þæúéíáíè éañaêíâ á LOCALE:Catalogs/Russian" ) ; *
  134.     (set #copy-deucat   "\n\nÉíîçïòý ìäëäõéçè þæúéíáíè éañaêíâ á LOCALE:Catalogs/Deutsch") ; *
  135.     (set #select-help   "Ðîïaáíöìúä óaèêú ìa éaéçô þæúéaô îïäãðñaáêþýñ ãêþ áað çìñäïäð?" ) ; *
  136.     (set #copy-enghelp  "\n\nÉíîçïòý aìâêçèðéòý ãíéòëäìñaõçý..."                         ) ; *
  137.     (set #copy-rushelp  "\n\nÉíîçïòý ìäëäõéòý ãíéòëäìñaõçý..."                           ) ; *
  138.     (set #copy-rushelp  "\n\nÉíîçïòý ïòððéòý ãíéòëäìñaõçý..."                            ) ; *
  139.     (set #yes           "Ãa"                                                             ) ; *
  140.     (set #no            "Ìäñ"                                                            ) ; *
  141.     (set #have_aga      "\n\nÒ áað AGA éíëîûýñäï (ìaîïçëäï, A1200 çêç A4000)?"           ) ; *
  142.     (set #left-player   "\"Êäáúè\" çâïíé"                                                ) ; *
  143.     (set #right-player  "\"Îïaáúè\" çâïíé"                                               ) ; *
  144.     (set #welcome (cat                                                                     ; *
  145.       "Ãíàïí îíåaêíáañû á çìðñaêþñíï îïíâïaëëú \"Üïòãçñ\".\nÎíåaêòèðña, òéaåçñä ðñäîäìû "  ; *
  146.       "áaøäè îíãâíñíáêäììíðñç, éaé îíêûæíáañäêþ Aëçâç..."                                  ; *
  147.     ))                                                                                     ; *
  148.     (set #settings  (cat                                                                   ; *
  149.       "\n\nÌaãí êç ðãäêañû ñaé, öñíàú íéìí òðñaìíáíé \"Üïòãçña\" aáñíëañçöäðéç îíþáêþêíðû "; *
  150.       "îïç éaåãíë æaîòðéä îïíâïaëëú?"                                                      ; *
  151.     ))                                                                                     ; *
  152.     (set #settings_help (cat                                                               ; *
  153.       "Ìäíàôíãçëúë òðêíáçäë ãêþ ìaöaêa çâïú þáêþäñðþ ááíã çëäìç îí éïaèìäè ëäïä íãìíâí "   ; *
  154.       "çâïíéa-öäêíáäéa. Äðêç üñí çëþ (çëäìa) ìä íîïäãäêäìí (íîïäãäêäìú) á îaïaëäñïä "      ; *
  155.       " çéíìéç \"XXX_PLAYERS\" (âãä XXX ðííñáäñðñáòäñ ñäéòùäëò þæúéò áaøäè ðçðñäëú), "     ; *
  156.       "ñí áaë îïçã½ñðþ éaåãúè ïaæ áïòöìòý íñéïúáañû íéìí òðñaìíáíé ç ááíãçñû çëäìa "       ; *
  157.       "çâïíéíá. Äðêç áú æaôíñçñä, íéíøéí òðñaìíáíé ðñaìäñ aáñíëañçöäðéç íñéïúáañûðþ îïç "  ; *
  158.       "éaåãíë ðñaïñä îïíâïaëëú. "                                                          ; *
  159.     ))                                                                                     ; *
  160.     (set #have_aga_help (cat                                                               ; *
  161.       "AGA-éíëîûýñäïú ëíâòñ áíðîïíçæáíãçñû ðîïaèñú, öûþ øçïçìa îïäáúøaäñ 16 àçñ, öñí ç "   ; *
  162.       "ñïäàòäñðþ ãêþ \"Üïòãçña\". Äðêç ò áað ìä AGA-éíëîûýñäï, ñí çìðñaêþñíï îíëäðñçñ "    ; *
  163.       "á çìðñïòëäìñaïçè çéíìéç \"Üïòãçña\" ðñïíéò USE_BOBS ç áëäðñí ðîïaèñíá àòãòñ "       ; *
  164.       "çðîíêûæíáaìú \"àíàú\" (àêçññäïìúä íàÿäéñú)."                                        ; *
  165.     ))                                                                                     ; *
  166.     (set #copy-engfonthelp (cat                                                            ; *
  167.       "Üñí ðñaìãaïñìúè aëçâíáðéçè (ìä ïòðçóçõçïíáaììúè) øïçóñ, ðíãäïåaùçè áðþéçä "         ; *
  168.       "ðîäõçaêûìúä àòéáú ãêþ ìäëäõéí-óïaìõòæðéí-îíïñòâaêûðéí... äáïíîäèðéçô þæúéíá "       ; *
  169.       "Îíñïäàíáañûðþ íì ëíåäñ ñíêûéí á ñíë ðêòöaä, äðêç áú ìaëäïäìú çâïañû ìä "            ; *
  170.       "îí-aìâêçèðéç ç ìä îí-ïòððéç ç á áaøäè ðçðñäëä ìäñ îíãôíãþùçô ðñaìãaïñìúô "          ; *
  171.       "aëçâíáðéçô øïçóñíá áúðíñíè íñ 14 ãí 18 ñíöäé "                                      ; *
  172.     ))                                                                                     ; *
  173.     (set #copy-engfont (cat                                                                ; *
  174.       "Ìaãí êç éíîçïíáañû ìä ïòðçóçõçïíáaììúè øïçóñ TossWord.font, éíñíïúè ëíåäñ "         ; *
  175.       "îíñïäàíáañûðþ ñíêûéí ñíâãa, éíâãa áú ìaëäïäìú çâïañû ìä îí-ïòððéç ç ìä "            ; *
  176.       "îí-aìâêçèðéç? "                                                                     ; *
  177.     ))                                                                                     ; *
  178.     (set #tell-dest (cat                                                                   ; *
  179.        "Îíãðéaåçñä îíåaêòèðña, âãä þ ëíâò ðíæãañû (ìaèñç) éañaêíâ \"TossWord\""            ; *
  180.        "ãêþ ïaæëäùäìçþ çìðñaêçïòäëíè îïíâïaëëú? "                                          ; *
  181.     ))                                                                                     ; *
  182.     (set #old-rusifier (cat                                                                ; *
  183.       "Îíôíåä, öñí ò áað çêç áííàùä íñðòñðñáòäñ ïòðçóçéañíï, çêç òðñaìíáêäìa "             ; *
  184.       "äâí ðñaïaþ áäïðçþ (ñïäàòäñðþ ëçìçëòë V6.00). Çâïañû îí-ïòððéç ëíåìí "               ; *
  185.       "ñíêûéí îíðêä çìðñaêþõçç ðííñáäñðñáòýùäè áäïðçç ïòðçóçéañíïa!"                       ; *
  186.     ))                                                                                     ; *
  187.     (set #anyplayers (cat                                                                  ; *
  188.       "\n\nÌä åäêaäñä êç áú íîïäãäêçñû çëäìa íãìíâí çêç ãáòô çâïíéíá, éíñíïúä îí "         ; *
  189.       "òëíêöaìçý àòãòñ çðîíêûæíáaìú îïç çâïä ìa "                                          ; *
  190.     ))                                                                                     ; *
  191.     (set #anyplayers_help (cat                                                             ; *
  192.       "Îíðêä æaîòðéa îïíâïaëëú áú ðëíåäñä ìäëäãêäììí ìaöañû çâïò àäæ íîïäãäêäìçþ çë½ì "    ; *
  193.       "çâïíéíá á ñíë ðêòöaä, äðêç íãìí çêç ãáa çëäìç íîïäãäêäìú \"îí òëíêöaìçý\". "        ; *
  194.     ))                                                                                     ; *
  195.     (set #lang " þæúéä?")                                                                  ; *
  196.     (set #select-player "Çëäìa éaéçô çâïíéíá áú åäêaäñä íîïäãäêçñû îí òëíêöaìçý?")         ; *
  197.     (set #select-player-help (cat                                                          ; *
  198.       "Àaìéç çâïíéíá-êýãäè á \"Üïòãçñä\" êäåañ îí îïaáòý ç êäáòý ðñíïíìú íñ çâïíáíâí îíêþ "; *
  199.       " - íñðýãa ç ãäêäìçä çâïíéíá ìá \"îïaáúô\" ç \"êäáúô\"."                             ; *
  200.     ))                                                                                     ; *
  201.     (set #getname "Ááäãçñä çëþ ç óaëçêçý çâïíéa...")                                       ; *
  202.     (set #getnamehelp (cat                                                                 ; *
  203.       "Çëþ çâïíéa ëíåäñ îíîaðñû á ñaàêçõò ïäéíïãíá, éíñíïaþ îòñäøäðñáòäñ áëäðñä ðí "       ; *
  204.       "ðêíáaïþëç \"Üïòãçña\", îíüñíëò ìäíàôíãçëí ááíãçñû çëþ ç óaëçêçý (çëþ ãíêåìí "       ; *
  205.       "ðñíþñû îäïáúë). Ðñaïaèñäðû, öñíàú çëþ îí áíæëíåìíðñç àúêí ìä ðêçøéíë ãêçììúë, "     ; *
  206.       "îíðéíêûéò çëäìa, ðíðñíþùçä çæ àíêûøíâí éíêçöäðñáa àòéá ëíâòñ àúñû \"òïäæaìú\" "     ; *
  207.       "îïç áúáíãä ìa îíêä."                                                                ; *
  208.     ))                                                                                     ; *
  209.   )                                                                                        ; *
  210. )                                                                                          ; *
  211. ; ********************************************************************************************
  212.  
  213. (procedure GetPlayerName
  214.   (set player
  215.     (askstring
  216.       (prompt #getname)
  217.       (help #getnamehelp)
  218.       (default "")
  219.     )
  220.   )
  221. )
  222.  
  223. ; --------------------------------------------------------------------------------------------
  224.  
  225. (procedure AskPlayers
  226.   (if (askbool (prompt (cat #anyplayers deflang #lang)) (help #anyplayers_help))
  227.     (
  228.       (set player     "")
  229.       (set leftplayer "")
  230.       (set players
  231.         (askoptions
  232.           (help #select-player-help)
  233.           (prompt #select-player)
  234.           (choices #left-player #right-player)
  235.         )
  236.       )
  237.       (if (BITAND players #left)
  238.         (
  239.           (GetPlayerName)
  240.           (set leftplayer player)
  241.           (set player "")
  242.         )
  243.       )
  244.       (if (BITAND players #right)
  245.         (GetPlayerName)
  246.       )
  247.       (if (OR (NOT (= leftplayer "")) (NOT (= player "")))
  248.         (tooltype
  249.           (dest (tackon @default-dest #tossword))
  250.           (settooltype lang (cat leftplayer "," player))
  251.         )
  252.       )
  253.     )
  254.   )
  255. )
  256.  
  257. ; --------------------------------------------------------------------------------------------
  258.  
  259. (welcome #welcome)
  260. (message #check-system)
  261. (if (< (database "cpu") 68020)                                    (abort #bad-cpu      ))
  262. (if (< ( / (getversion "exec.library"      (resident)) 65536) 39) (abort #old-kickstart))
  263. (if (run "Version >NIL: reqtools.library 38" (safe))              (abort #old-reqtools ))
  264. (if (run "Version >NIL: muimaster.library 12" (safe))             (abort #no-mui       ))
  265.  
  266. (complete 10)
  267. (makedir
  268.   (set @default-dest
  269.     (tackon
  270.        (askdir (newpath) (disk)
  271.          (prompt #tell-dest)
  272.          (help @askdir-help)
  273.          (default "SYS:")
  274.        )
  275.        "TossWord"
  276.     )
  277.   )
  278.   (prompt (cat #create-dir @default-dest))
  279.   (help @makedir-help)
  280.   (confirm)
  281. )
  282.  
  283. (complete 20)
  284. (copyfiles
  285.   (prompt #copy-main)
  286.   (help @copyfiles-help)
  287.   (source "Main")
  288.   (dest @default-dest)
  289.   (all)
  290.   (files)
  291.   (infos)
  292. )
  293.  
  294. (complete 30)
  295. (if (askbool (prompt #have_aga) (help #have_aga_help))
  296.   (set ttype "NO")
  297.   (set ttype "YES")
  298. )
  299. (tooltype
  300.   (dest (tackon @default-dest #tossword))
  301.   (settooltype #use_bobs ttype)
  302. )
  303.  
  304. (complete 40)
  305. (if (askbool (prompt #settings) (help #settings_help))
  306.   (set ttype "YES")
  307.   (set ttype "NO")
  308. )
  309. (tooltype
  310.   (dest (tackon @default-dest #tossword))
  311.   (settooltype #settings_popup ttype)
  312. )
  313.  
  314. (complete 50)
  315. (set languages
  316.   (askoptions
  317.     (help @askoptions-help)
  318.     (prompt #select-lang)
  319.     (choices #english-name #russian-name #deutsch-name)   ; **** Add other languages here ***
  320.   )
  321. )
  322.  
  323. (complete 60)
  324. (set helpdir (tackon @default-dest "Help"))
  325. (if (= (exists helpdir) 0)
  326.   (makedir helpdir)
  327. )
  328. (if (BITAND languages 1)
  329.   (
  330.     (set lang "ENGLISH_PLAYERS")
  331.     (set deflang #english-name_)
  332.     (AskPlayers)
  333.     (if (exists (tackon @default-dest "Dictionary.english" ))
  334.       (set name "NewDictionary.english")
  335.       (set name "Dictionary.english")
  336.     )
  337.     (copyfiles
  338.       (prompt #copy-eng)
  339.       (source "English/Dictionary.english")
  340.       (dest @default-dest)
  341.       (newname name)
  342.       (infos)
  343.     )
  344.     (copyfiles
  345.       (prompt #copy-price)
  346.       (source "English/Prices.english")
  347.       (dest @default-dest)
  348.       (infos)
  349.     )
  350.     (copyfiles
  351.       (prompt #copy-enghelp)
  352.       (source "Help/English")
  353.       (dest (tackon helpdir "English"))
  354.       (all)
  355.       (infos)
  356.     )
  357.     (copyfiles
  358.       (prompt #copy-engfont)
  359.       (help   #copy-engfonthelp)
  360.       (source "Fonts")
  361.       (dest "FONTS:")
  362.       (fonts)
  363.       (all)
  364.       (confirm)
  365.     )
  366.   )
  367. )
  368.  
  369. (complete 70)
  370. (if (BITAND languages russian)
  371.   (
  372.     (if (exists #rusfontdir)
  373.       (
  374.         (set lang "RUSSIAN_PLAYERS")
  375.         (set deflang #russian-name_)
  376.         (AskPlayers)
  377.         (if (exists (tackon @default-dest "Dictionary.russian" ))
  378.           (set name "NewDictionary.russian")
  379.           (set name "Dictionary.russian")
  380.         )
  381.         (copyfiles
  382.           (prompt #copy-rus)
  383.           (source "Russian/Dictionary.russian")
  384.           (dest @default-dest)
  385.           (newname name)
  386.           (infos)
  387.         )
  388.         (copyfiles
  389.           (prompt #copy-price)
  390.           (source "Russian/Prices.russian")
  391.           (dest @default-dest)
  392.           (infos)
  393.         )
  394.         (copyfiles
  395.           (prompt #copy-rushelp)
  396.           (source "Help/Russian")
  397.           (dest (tackon helpdir "Russian"))
  398.           (all)
  399.           (infos)
  400.         )
  401.         (copyfiles
  402.           (prompt #copy-ruscat)
  403.           (source "Locale/Catalogs/Russian")
  404.           (dest "LOCALE:Catalogs/Russian")
  405.           (all)
  406.         )
  407.       )
  408.       (message #old-rusifier)
  409.     )
  410.   )
  411. )
  412. (complete 80)
  413. (if (BITAND languages deutsch)
  414.   (
  415.     (set lang "DEUTSCH_PLAYERS")
  416.     (set deflang #deutsch-name_)
  417.     (AskPlayers)
  418.     (if (exists (tackon @default-dest "Dictionary.deutsch" ))
  419.       (set name "NewDictionary.deutsch")
  420.       (set name "Dictionary.deutsch")
  421.     )
  422.     (copyfiles
  423.       (prompt #copy-deu)
  424.       (source "Deutsch/Dictionary.deutsch")
  425.       (dest @default-dest)
  426.       (newname name)
  427.       (infos)
  428.     )
  429.     (copyfiles
  430.       (prompt #copy-price)
  431.       (source "Deutsch/Prices.deutsch")
  432.       (dest @default-dest)
  433.       (infos)
  434.     )
  435.     (if (exists "Help/Deutsch")
  436.       (copyfiles
  437.         (prompt #copy-deuhelp)
  438.         (source "Help/Deutsch")
  439.         (dest (tackon helpdir "Deutsch"))
  440.         (all)
  441.         (infos)
  442.       )
  443.     )
  444.     (if (= (BITAND languages 1) 0)
  445.       (copyfiles
  446.         (prompt #copy-engfont)
  447.         (help   #copy-engfonthelp)
  448.         (source "Fonts")
  449.         (dest "FONTS:")
  450.         (fonts)
  451.         (all)
  452.         (confirm)
  453.       )
  454.     )
  455.   )
  456. )
  457. (complete 100)
  458.