home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / AmigaWorld / InstallHD < prev    next >
Encoding:
Text File  |  1998-10-06  |  30.6 KB  |  790 lines
  1. ;Polyglotte AmigaWorld-Installation
  2. ;für Installer 1.24 oder besser
  3.  
  4. (complete 0)
  5.  
  6. (set §AWlng0
  7.      (askchoice
  8.           (prompt "Please choose a language for the installation")
  9.           (help @askchoice-help)
  10.           (choices "Deutsch"
  11.                    "English"
  12.                    "Français"
  13.                    "Svenska")
  14.           (default 1)
  15.      )
  16. )
  17.  
  18. (if (= §AWlng0 0) (set #language "deutsch") )
  19. (if (= §AWlng0 1) (set #language "english") )
  20. (if (= §AWlng0 2) (set #language "français") )
  21. (if (= §AWlng0 3) (set #language "svenska") )
  22.  
  23. (set #yes "Yes")
  24. (set #no "No")
  25. (set #hallokey "Welcome registered user!")
  26. (set #askupdate "Do you already have an older version of AmigaWorld installed?")
  27. (set #askold (cat "In which drawer is your \"AmigaWorld\" software located?\n"
  28.                     "Example:  Specify \"WORK:\" if your AmigaWorld program"
  29.                     " resides in \"WORK:AmigaWorld\"."))
  30. (set #askdel "Is it OK to delete some old files that are not needed anymore?")
  31. (set #askwhere (cat "Where do you want the \"AmigaWorld\" drawer to be created?\n"
  32.                     "Example:  Specify \"WORK:\" if you want the AmigaWorld program"
  33.                     " to reside in \"WORK:AmigaWorld\"."))
  34. (set #confirmDir "Is it ok to create the drawer right now and start copying files?")
  35. (set #asklha (cat "\"lha\" will be used do extract some compressed files. "
  36.                  "Is it ok to copy this program to the AmigaWorld drawer "
  37.                  "for speedup?"))
  38. (set #unpackmain "Extracting main program.")
  39. (set #copymain "Copying main program.")
  40. (set #asklng1 "Which language are you going to use most of the time?")
  41. (set #askcont (cat "The descriptions about continents are not available in "
  42.                   "that language.  Please choose another language for theses "
  43.                   "texts. "))
  44. (set #asklng2a "Which other languages beside ")
  45. (set #asklng2b " would you like to be available?")
  46. (set #copydata "Copying country and output data.")
  47. (set #unpackdata "Extracting country and output data.")
  48. (set #askdesc (cat "Would you like to install Bo Arnholm's text descriptions about "
  49.                    "history, economy, nature and people for each country?\n"))
  50. (set #unpackdesc "Extracting country descriptions.")
  51. (set #copydesc "Copying country descriptions.")
  52. (set #askflags "Would you like to install flags?")
  53. (set #unpackflags "Extracting flags.")
  54. (set #copyflags "Copying flags.")
  55. (set #askmaps "Would you like to install maps?")
  56. (set #unpackmaps "Extracting maps.")
  57. (set #copymaps "Copying maps.")
  58. (set #askdox "Which documentation(s) would you like to install?")
  59. (set #askdvi (cat "Would you like a DVI version of the documentation to be"
  60.             " installed (for users of TeX only)?"))
  61. (set #copydox (cat "You can exclude some files from being installed, "
  62.                   "if you like to:"))
  63. (set #unpackdox "Extracting documentation files.")
  64. (set #askfont (cat "\"FarawayEyes\" font was designed for displaying the special "
  65.                   "letters of West European, Slavonic, Romanian and Turkish languages. "
  66.                   "Would you like to install this font in your FONTS: drawer?"))
  67. (set #askdelete (cat "Do you agree to remove \"lha\" from "
  68.                     "the AmigaWorld drawer now?"))
  69. (set #askmagic "Which set of icons would you like to install?")
  70. (set #icons4 "4-colour (standard)")
  71. (set #icons8 "8-colour (Magic-WB)")
  72. (set @special-msg "Trouble! Panic! Desaster!  Installation aborted.")
  73. (set §defLng 1)
  74. (set §defDox 2)
  75.  
  76.  
  77. (if (= #language "deutsch")
  78.  (  (set #yes "Ja")
  79.     (set #no "Nein")
  80.     (set #hallokey "Willkommen, registrierter Benutzer!")
  81.     (set #askupdate "Haben Sie bereits eine ältere Version von AmigaWorld installiert?")
  82.     (set #askold (cat "In welcher Schublade befindet sich Ihr AmigaWorld-Programm?\n"
  83.                         "Beispiel:  Geben Sie \"WORK:\" an, wenn das AmigaWorld-Programm "
  84.                         "in der Schublade \"WORK:AmigaWorld\" ist."))
  85.     (set #askdel "Ist es OK, wenn einige Dateien gelöscht werden, die nun nicht mehr gebracht werden?")
  86.     (set #askwhere (cat "Wo soll das Verzeichnis \"AmigaWorld\" angelegt werden?\n"
  87.                         "Beispiel:  Geben Sie \"WORK:\" an, wenn das AmigaWorld-Programm "
  88.                         "in die Schublade \"WORK:AmigaWorld\" soll."))
  89.     (set #confirmDir (cat "Einverstanden, dass das Verzeichnis jetzt erstellt "
  90.                          "und mit dem Kopieren von Dateien begonnen wird?"))
  91.     (set #asklha (cat "Zum Dekomprimieren diverser Daten wird \"lha\" benötigt. "
  92.                      "Darf dieses Programm zur Beschleunigung der Installation "
  93.                      "in das AmigaWorld-Verzeichnis kopiert werden?"))
  94.     (set #unpackmain "Das Hauptprogramm wird entpackt.")
  95.     (set #copymain "Copying main program.")
  96.     (set #asklng1 "Welche Sprache werden Sie hauptsächlich verwenden?")
  97.     (set #askcont (cat "Die Beschreibungen der Kontinente sind leider nicht in "
  98.                       "dieser Sprache verfügbar.  Bitte wählen Sie die Sprache, "
  99.                       "in der diese Texte installiert werden sollen. "))
  100.     (set #asklng2a "Welche Sprachen möchten Sie außer ")
  101.     (set #asklng2b " zur Verfügung haben?")
  102.     (set #copydata "Länderdaten und Ausgabetexte werden kopiert.")
  103.     (set #unpackdata "Länderdaten und Ausgabetexte werden entpackt.")
  104.     (set #askdesc (cat "Möchten Sie Bo Arnholm's Länderbeschreibungen zu Natur, "
  105.                        "Bevölkerung, Wirtschaft und Geschichte installieren?\n"
  106.                        "Diese Texte sind nur auf Englisch verfügbar."))
  107.     (set #unpackdesc "Die Länderbeschreibungen werden entpackt.")
  108.     (set #copydesc "Copying country descriptions.")
  109.     (set #askflags "Möchten Sie die Flaggen installieren?")
  110.     (set #unpackflags "Die Flaggen werden entpackt.")
  111.     (set #copyflags "Copying flags.")
  112.     (set #askmaps "Möchten Sie die Landkarten installieren?")
  113.     (set #unpackmaps "Die Landkarten werden entpackt.")
  114.     (set #copymaps "Copying maps.")
  115.     (set #askdox "Welche Dokumentation(en) möchten Sie installieren?")
  116.     (set #askdvi (cat "Möchten Sie die Dokumentation auch im DVI-Format installieren"
  117.                     " (nur für Benutzer von TeX sinnvoll)?"))
  118.     (set #copydox (cat "Wenn Sie möchten, können Sie einzelne Dateien "
  119.                       "von der Installation ausschließen:"))
  120.     (set #unpackdox "Dokumenationsdateien werden entpackt.")
  121.     (set #askfont (cat "Die mitgelieferte \"FarawayEyes\"-Schrift ist gut für die Darstellung "
  122.                       "der westeuropäischen, slawischen, rumänischen und türkischen "
  123.                       "Sonderzeichen geeignet. "
  124.                       "Möchten Sie diese Schrift in das Verzeichnis FONTS: kopieren?"))
  125.     (set #askdelete (cat "Sind Sie einverstanden damit, dass \"lha\" nun wieder "
  126.                         "aus dem AmigaWorld-Verzeichnis entfernt wird?"))
  127.     (set #errormsg "Die Installation muss abgebrochen werden!")
  128.     (set #askmagic "Welche Piktogramme möchten Sie installieren?")
  129.     (set #icons4 "4-farbig (Standard)")
  130.     (set #icons8 "8-farbig (Magic-WB)")
  131.     (set @special-msg "Chaos!  Desaster!  Panik!  Installation abgebrochen...")
  132.     (set §defLng 0)
  133.     (set §defDox 1)
  134. ))
  135.  
  136.  
  137. (if (= #language "français")
  138.  (  (set #yes "Oui")
  139.     (set #no "Non")
  140.     (set #hallokey "Bienvenue utilisateur enregistré!")
  141.     (set #tellkey "Votre fichier-clé est maintenant dans le tiroir \"s:\"!")
  142.     (set #askupdate "Avez vous déjà une ancienne version d'AmigaWorld installée?")
  143.     (set #askold (cat "Dans quel tiroir est situé votre programme \"AmigaWorld\"?\n"
  144.                     "Example:  Specify \"WORK:\" if your AmigaWorld program"
  145.                     " resides in \"WORK:AmigaWorld\"."))
  146.     (set #askdel "Etes vous d'accord pour effacer des anciens fichiers inutiles?")
  147.     (set #askwhere (cat "Où voulez vous créer le tiroir \"AmigaWorld\"?\n"
  148.                     "Example:  Specify \"WORK:\" if you want the AmigaWorld program"
  149.                     " to reside in \"WORK:AmigaWorld\"."))
  150.     (set #confirmDir "D'accord pour créer le tiroir de suite et commencer l'installation?")
  151.     (set #asklha (cat "\"lha\" sera utilisé pour extraire les fichiers compressés. "
  152.                      "Etes vous d'accord pour copier ce programme dans le tiroir "
  153.                      "AmigaWorld pour accélérer ?"))
  154.     (set #unpackmain "Extraction du program.");???
  155.     (set #copymain "Copie du programme principal.")
  156.     (set #asklng1 "Quelle langue utiliserez-vous la plupart du temps?")
  157.     (set #askcont (cat "Les descriptions de continents ne sont pas disponibles dans "
  158.                       "cette langue. Veuillez choisir une autre langue pour ces "
  159.                       "textes. "))
  160.     (set #asklng2a "Quelles autres langues autre que ")
  161.     (set #asklng2b " désirez-vous pouvoir utiliser?")
  162.     (set #copydata "Copie des données des pays et de l'interface.")
  163.     (set #unpackdata "Décompactage des données des pays et de l'interface.")
  164.     (set #askdesc (cat "Voulez vous installer les textes de Bo Arnolm concernant"
  165.                    "l'histoire, l'économie et la géographie des différents pays?\n"
  166.                    "Ces textes sont en anglais."))
  167.     (set #unpackdesc "Décompactages des descriptions des pays.")
  168.     (set #copydesc "Copie des descriptions des pays.")
  169.     (set #askflags "Voulez-vous installer les drapeaux?")
  170.     (set #unpackflags "Décompactage des drapeaux.")
  171.     (set #copyflags "Copie des drapeaux.")
  172.     (set #askmaps "Voulez-vous installer les cartes?")
  173.     (set #unpackmaps "Décompactage des cartes.")
  174.     (set #copymaps "Copie des cartes.")
  175.     (set #askdox "Quelle(s) documentation(s) désirez-vous installer?")
  176.     (set #askdvi (cat "Voulez-vous que soit installée une version DVI de la "
  177.                 " documentation (pour utilisateurs de TeX )?"))
  178.     (set #copydox (cat "Vous pouvez exclure quelques fichiers de l'installation, "
  179.                       "si vous voulez:"))
  180.     (set #unpackdox "Décompactage des fichiers de documentation.")
  181.     (set #askfont (cat "Voulez vous copier la police \"FarawayEyes\" dans votre "
  182.                        " tiroir FONTS: ?"))
  183.     (set #askdelete (cat "Etes vous d'accord pour enlever \"lha\" du "
  184.                         "tiroir AmigaWorld maintenant?"))
  185.     (set #askmagic "Quel jeu d'icônes voulez vous installer?")
  186.     (set #icons4 "4-couleurs (standard)")
  187.     (set #icons8 "8-couleurs (Magic-WB)")
  188.     (set @special-msg "Au secours! Grosse Panique!  Installation stoppée.")
  189.     (set §defLng 2)
  190.     (set §defDox 4)
  191. ) )
  192.  
  193.  
  194. (if (= #language "svenska")
  195.  (  (set #yes "Ja")
  196.     (set #no "Nej")
  197.     (set #hallokey "Välkommen registrerade användare!")
  198.     (set #tellkey "Din nyckelfil finns nu i \"s:\" katalogen!")
  199.     (set #askupdate "Har du en äldre version av AmigaWorld installerad?")
  200.     (set #askold (cat "I vilken katalog har du \"AmigaWorld\" programmet?\n"
  201.                     "Example:  Specify \"WORK:\" if your AmigaWorld program"
  202.                     " resides in \"WORK:AmigaWorld\"."))
  203.     (set #askdel "Är det OK att ta bort några filer som inte behövs längre?")
  204.     (set #askwhere (cat "Var vill du att \"AmigaWorld\" katalogen skall tillverkas?\n"
  205.                     "Example:  Specify \"WORK:\" if you want the AmigaWorld program"
  206.                     " to reside in \"WORK:AmigaWorld\"."))
  207.     (set #confirmDir "Är det okey att tillverka katalogen nu och börja kopiera filer?")
  208.     (set #asklha (cat "Programmet \"lha\" används för att packa upp en del filer. "
  209.                      "Är det okey att kopiera det programmet till AmigaWorld-katalogen "
  210.                      "för att snabba upp installationen?"))
  211.     (set #unpackmain "Packar upp huvudprogrammet.")
  212.     (set #copymain "Kopierar huvudprogrammet.")
  213.     (set #asklng1 "Vilket språk vill ni normalt använda?")
  214.     (set #askcont (cat "Beskrivningen om kontinenter är tyvärr ej tillgängligt "
  215.                       "med det språket. Var vänlig välj ett annat språk, "
  216.                       "för dessa texter. "))
  217.     (set #asklng2a "Vilka andra språk utöver ")
  218.     (set #asklng2b " vill ni också ha tillgängliga?")
  219.     (set #copydata "Kopierar länder och data.")
  220.     (set #unpackdata "Packar upp länder och data.")
  221.     (set #askdesc (cat "Vill du installera Bo Arnholm's texter "
  222.                    "om natur, befolkning, historia och ekonomi för alla länderna?\n"
  223.                    "Dessa finns ännu så länge endast på engelska."))
  224.     (set #unpackdesc "Installerar beskrivning för länder.")
  225.     (set #copydesc "Kopierar texterna.")
  226.     (set #askflags "Vill ni installera flaggor?")
  227.     (set #unpackflags "Installerar flaggor.")
  228.     (set #copyflags "Kopierar flaggor.")
  229.     (set #askmaps "Vill ni installera kartor?")
  230.     (set #unpackmaps "Installerar kartor.")
  231.     (set #copymaps "Kopierar kartor.")
  232.     (set #askdox "Vilken dokumentation vill ni installera?")
  233.     (set #askdvi (cat "Vill ni installera dokumentation i DVI-Format"
  234.                     " (endast för användare av TeX)?"))
  235.     (set #copydox (cat "Ni kan exkludera en del filer från att bli installerade "
  236.                       "om ni vill:"))
  237.     (set #unpackdox "Installerar dokumentationsfiler.")
  238.     (set #askfont (cat "\"FarawayEyes\" font är designad för att visa speciella "
  239.                       "tecken i Västeuropeiska, slaviska, rumänska och turkiska "
  240.                       "språk. "
  241.                       "Vill ni installera denna font i FONTS: katalogen?"))
  242.     (set #askdelete (cat "Delar du min uppfattning att ta bort \"lha\" ur "
  243.                         "AmigaWorld-katalogen nu?"))
  244.     (set #askmagic "Vilken uppsättning ikoner vill du installera?")
  245.     (set #icons4 "4-färg (standard)")
  246.     (set #icons8 "8-färg (Magic-WB)")
  247.     (set @special-msg "Tyvärr, lite problem! Installationen avbryten!")
  248.     (set §defLng 6)
  249.     (set §defDox 8)
  250. ))
  251.  
  252.  
  253. (if (= (exists "s:aw.key") 1)
  254.     (message #hallokey)
  255. )
  256.  
  257.  
  258. (set §update
  259.      (askbool (prompt #askupdate)
  260.               (help @askbool-help)))
  261.  
  262. (if (= §update 1) (
  263.     (set §AWmother (askdir (prompt #askold)
  264.                            (default "WORK:")
  265.                            (help @askdir-help)))
  266. ))
  267.  
  268. (if (<> §update 1) (
  269.     (set §AWmother (askdir (prompt #askwhere)
  270.                            (default "WORK:")
  271.                            (help @askdir-help)))
  272.                   ))
  273.  
  274. (set §AWdir (tackon §AWmother "AmigaWorld"))
  275.  
  276.  
  277. (set @default-dest §AWdir)
  278. (set @execute-dir §AWdir)
  279. (complete 1)
  280.  
  281. (set §dodel §update)
  282. (if (> @user-level 1) (
  283.     (if (= §update 1) (
  284.         (set §dodel (askbool (prompt #askdel) (help @askbool-help)))
  285. )   )                 ))
  286.  
  287. (if (= §dodel 1)
  288.         (
  289.          (run "delete aw.coord")
  290.          (run "delete aw.cfg")
  291.          (run "delete maps/?.iff")
  292.          (run "delete flags/???")
  293.         )
  294. )
  295.  
  296. (set §iconType
  297.      (askchoice
  298.           (prompt #askmagic)
  299.           (help @askchoice-help)
  300.           (choices #icons4
  301.                    #icons8)
  302.           (default 0)
  303.      )
  304. )
  305.  
  306.  
  307. (if (<> §update 1)
  308.     (makedir §AWdir (infos) (prompt #confirmDir) (help @makedir-help) (confirm))
  309. )
  310.  
  311.  
  312. (copyfiles (source "")
  313.            (choices "AmigaWorld" "AmigaWorld.info")
  314.            (prompt #copymain)
  315.            (help @copyfiles-help)
  316.            (dest §AWdir)
  317. )
  318. (complete 3)
  319.  
  320. (copyfiles (source "selections")
  321.            (pattern "#?.awsel")
  322.            (prompt #copydata)
  323.            (help @copyfiles-help)
  324.            (dest (tackon §AWdir "selections"))
  325. )
  326.  
  327.  
  328. (if (= §iconType 1) (
  329.     (copyfiles (source "MWB-Icons/AmigaWorld.info")
  330.                (prompt #copymain)
  331.                (help @copyfiles-help)
  332.                (dest §AWdir)
  333.     )
  334.     (if (<> §update 1)
  335.        (copyfiles (source "MWB-Icons/drawer.info")
  336.                   (prompt #copymain)
  337.                   (help @copyfiles-help)
  338.                   (dest §AWmother)
  339.                   (newname "AmigaWorld.info"))
  340.     )
  341.                    )
  342. )
  343. (complete 5)
  344.  
  345.  
  346. (set §AWlng1
  347.      (askchoice
  348.           (prompt #asklng1)
  349.           (help @askchoice-help)
  350.           (choices
  351.                    "Deutsch"
  352.                    "English"
  353.                    "Français"
  354.                    "Italiano"
  355.                    "Nederlands"
  356.                    "Norsk"
  357.                    "Svenska"
  358.                    "Suomi" )
  359.           (default §defLng)
  360.      )
  361. )
  362.  
  363. (if (= §AWlng1 0) (set §name "Deutsch") )
  364. (if (= §AWlng1 1) (set §name "English") )
  365. (if (= §AWlng1 2) (set §name "Français") )
  366. (if (= §AWlng1 3) (set §name "Italiano") )
  367. (if (= §AWlng1 4) (set §name "Nederlands") )
  368. (if (= §AWlng1 5) (set §name "Norsk") )
  369. (if (= §AWlng1 6) (set §name "Svenska") )
  370. (if (= §AWlng1 7) (set §name "Suomi") )
  371.  
  372. (set §AWlng (tackon §AWdir "aw.lng"))
  373. (if (= @pretend 1) (set §AWlng "aw.lng"))
  374.  
  375. (textfile (dest §AWlng) (append "AW-Languages\n"))
  376. (textfile (dest §AWlng) (include §AWlng) (append (cat §name "\n")))
  377.  
  378.  
  379. (makedir (tackon §AWdir §name) (infos))
  380. (if (= §iconType 1)
  381.     (copyfiles (source (cat "MWB-Icons/" §name ".info"))
  382.                (dest §AWdir)
  383.     )
  384. )
  385.  
  386. (copyfiles (source §name)
  387.            (pattern "(aw.#?|#?.iff)")
  388.            (prompt #copydata)
  389.            (help @copyfiles-help)
  390.            (dest (tackon §AWdir §name))
  391. )
  392. (complete 20)
  393.  
  394.  
  395. (if (= §name "Suomi")
  396.     ((set §AWlng1cont
  397.           (askchoice
  398.                (prompt #askcont)
  399.                (help @askchoice-help)
  400.                (choices "Deutsch"
  401.                         "English"
  402.                         "Français"
  403.                         "Italiano"
  404.                         "Nederlands"
  405.                         "Norsk"
  406.                         "Svenska" )
  407.                (default 6) ))
  408.  
  409.      (set §findir (tackon §AWdir §name))
  410.  
  411.      (if (= §AWlng1cont 0) (copyfiles (source "Deutsch") (choices "aw.cont")
  412.                                      (prompt #copydata) (help @copyfiles-help)
  413.                                      (dest §findir) ) )
  414.      (if (= §AWlng1cont 1) (copyfiles (source "English") (choices "aw.cont")
  415.                                      (prompt #copydata) (help @copyfiles-help)
  416.                                      (dest §findir) ) )
  417.      (if (= §AWlng1cont 2) (copyfiles (source "Français") (choices "aw.cont")
  418.                                      (prompt #copydata) (help @copyfiles-help)
  419.                                      (dest §findir) ) )
  420.      (if (= §AWlng1cont 3) (copyfiles (source "Italiano") (choices "aw.cont")
  421.                                      (prompt #copydata) (help @copyfiles-help)
  422.                                      (dest §findir) ) )
  423.      (if (= §AWlng1cont 4) (copyfiles (source "Nederlands") (choices "aw.cont")
  424.                                      (prompt #copydata) (help @copyfiles-help)
  425.                                      (dest §findir) ) )
  426.      (if (= §AWlng1cont 5) (copyfiles (source "Norsk") (choices "aw.cont")
  427.                                      (prompt #copydata) (help @copyfiles-help)
  428.                                      (dest §findir) ) )
  429.      (if (= §AWlng1cont 6) (copyfiles (source "Svenska") (choices "aw.cont")
  430.                                      (prompt #copydata) (help @copyfiles-help)
  431.                                      (dest §findir) ) )
  432.  
  433. ))
  434. (complete 25)
  435.  
  436. (set §AWlng2
  437.      (askoptions
  438.           (prompt (cat #asklng2a §name #asklng2b))
  439.           (help @askoptions-help)
  440.           (choices
  441.                    "Deutsch"
  442.                    "English"
  443.                    "Français"
  444.                    "Italiano"
  445.                    "Nederlands"
  446.                    "Norsk"
  447.                    "Svenska"
  448.                    "Suomi" )
  449.           (default 0)
  450.      )
  451. )
  452.  
  453. (if (AND (IN §Awlng2 0) (NOT (= §AWlng1 0)))
  454.      ((set §subdir (tackon §AWdir "Deutsch"))
  455.       (makedir §subdir (infos))
  456.       (if (= §iconType 1)
  457.           (copyfiles (source "MWB-Icons/Deutsch.info")
  458.                      (dest §AWdir)))
  459.       (copyfiles (source "Deutsch") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  460.                  (help @copyfiles-help) (dest §subdir))
  461.       (textfile (dest §AWlng) (include §AWlng) (append "Deutsch\n")))
  462. )
  463.  
  464. (if (AND (IN §AWlng2 1) (NOT (= §AWlng1 1)))
  465.      ((set §subdir (tackon §AWdir "English"))
  466.       (makedir §subdir (infos))
  467.       (if (= §iconType 1)
  468.           (copyfiles (source "MWB-Icons/English.info")
  469.                      (dest §AWdir)))
  470.       (copyfiles (source "English") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  471.                  (help @copyfiles-help) (dest §subdir))
  472.       (textfile (dest §AWlng) (include §AWlng) (append "English\n")))
  473. )
  474.  
  475. (if (AND (IN §AWlng2 2) (NOT (= §AWlng1 2)))
  476.      ((set §subdir (tackon §AWdir "Français"))
  477.       (makedir §subdir (infos))
  478.       (if (= §iconType 1)
  479.           (copyfiles (source "MWB-Icons/Français.info")
  480.                      (dest §AWdir)))
  481.       (copyfiles (source "Français") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  482.                  (help @copyfiles-help) (dest §subdir))
  483.       (textfile (dest §AWlng) (include §AWlng) (append "Français\n")))
  484. )
  485.  
  486. (if (AND (IN §AWlng2 3) (NOT (= §AWlng1 3)))
  487.      ((set §subdir (tackon §AWdir "Italiano"))
  488.       (makedir §subdir (infos))
  489.       (if (= §iconType 1)
  490.           (copyfiles (source "MWB-Icons/Italiano.info")
  491.                      (dest §AWdir)))
  492.       (copyfiles (source "Italiano") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  493.                  (help @copyfiles-help) (dest §subdir))
  494.       (textfile (dest §AWlng) (include §AWlng) (append "Italiano\n")))
  495. )
  496.  
  497. (if (AND (IN §AWlng2 4) (NOT (= §AWlng1 4)))
  498.      ((set §subdir (tackon §AWdir "Nederlands"))
  499.       (makedir §subdir (infos))
  500.       (if (= §iconType 1)
  501.           (copyfiles (source "MWB-Icons/Nederlands.info")
  502.                      (dest §AWdir)))
  503.       (copyfiles (source "Nederlands") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  504.                  (help @copyfiles-help) (dest §subdir))
  505.       (textfile (dest §AWlng) (include §AWlng) (append "Nederlands\n")))
  506. )
  507.  
  508. (if (AND (IN §AWlng2 5) (NOT (= §AWlng1 5)))
  509.      ((set §subdir (tackon §AWdir "Norsk"))
  510.       (makedir §subdir (infos))
  511.       (if (= §iconType 1)
  512.           (copyfiles (source "MWB-Icons/Norsk.info")
  513.                      (dest §AWdir)))
  514.       (copyfiles (source "Norsk") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  515.                  (help @copyfiles-help) (dest §subdir))
  516.       (textfile (dest §AWlng) (include §AWlng) (append "Norsk\n")))
  517. )
  518.  
  519. (if (AND (IN §AWlng2 6) (NOT (= §AWlng1 6)))
  520.      ((set §subdir (tackon §AWdir "Svenska"))
  521.       (makedir §subdir (infos))
  522.       (if (= §iconType 1)
  523.           (copyfiles (source "MWB-Icons/Svenska.info")
  524.                      (dest §AWdir)))
  525.       (copyfiles (source "Svenska") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  526.                  (help @copyfiles-help) (dest §subdir))
  527.       (textfile (dest §AWlng) (include §AWlng) (append "Svenska\n")))
  528. )
  529.  
  530. (if (AND (IN §AWlng2 7) (NOT (= §AWlng1 7)))
  531.      ((set §subdir (tackon §AWdir "Suomi"))
  532.       (makedir §subdir (infos))
  533.       (if (= §iconType 1)
  534.           (copyfiles (source "MWB-Icons/Suomi.info")
  535.                      (dest §AWdir)))
  536.       (copyfiles (source "Suomi") (pattern "(aw.#?|#?.iff)") (prompt #copydata)
  537.                  (help @copyfiles-help) (dest §subdir))
  538.       (textfile (dest §AWlng) (include §AWlng) (append "Suomi\n")))
  539. )
  540.  
  541. (textfile (dest §AWlng) (include §AWlng) (append "#\n"))
  542. (complete 50)
  543.  
  544.  
  545. (set §doFlags 1)
  546. (if (> @user-level 1)
  547.     (set §doFlags (askbool (prompt #askflags)
  548.                            (help @askbool-help)
  549.                            (default 1)))
  550. )
  551.  
  552. (if (= §doFlags 1)
  553.    ((set §subdir (tackon §AWdir "flags"))
  554.     (makedir §subdir)
  555.     (copyfiles (source "flags") (pattern "???.ilbm") (prompt #copyflags)
  556.                (help @copyfiles-help) (dest §subdir))
  557. ))
  558. (complete 60)
  559.  
  560. (set §doMaps 1)
  561. (if (> @user-level 1)
  562.     (set §doMaps (askbool (prompt #askmaps)
  563.                           (help @askbool-help)
  564.                           (default 1)))
  565. )
  566.  
  567. (if (= §doMaps 1)
  568.    ((set §subdir (tackon §AWdir "maps"))
  569.     (makedir §subdir)
  570.     (copyfiles (source "maps") (pattern "?.ilbm") (prompt #copymaps)
  571.                (help @copyfiles-help) (dest §subdir))
  572.     (copyfiles (source "maps") (pattern "aw.coord") (prompt #copymaps)
  573.                (help @copyfiles-help) (dest §subdir))
  574. ))
  575. (complete 67)
  576.  
  577.  
  578. (if (askbool (prompt #askdesc)
  579.              (help @askbool-help)
  580.              (default 1))
  581.    ((set §subdir (tackon §AWdir "text"))
  582.     (makedir §subdir)
  583.     (copyfiles (source "text") (pattern "???") (prompt #copydesc)
  584.                (help @copyfiles-help) (dest §subdir))
  585. ))
  586. (complete 80)
  587.  
  588.  
  589. (set §AWdoc
  590.      (askoptions
  591.           (prompt #askdox)
  592.           (help @askchoice-help)
  593.           (choices "Deutsch (v 5.20)"
  594.                    "English (v 5.20)"
  595.                    "Français (v 5.19)"
  596.                    "Svenska (v 5.16)")
  597.           (default §defDox)
  598.      )
  599. )
  600.  
  601. (set dvi "false")
  602. (if (OR (IN §AWdoc 0) (IN §AWdoc 1))
  603.     (if (askbool (prompt #askdvi)
  604.                  (help @askbool-help)
  605.                  (default 0))
  606.         (set dvi "true"))
  607. )
  608.  
  609.  
  610. (if (IN §AWdoc 0)
  611.    ((set §docdir (tackon §AWdir "Deutsch"))
  612.     (makedir §docdir (infos))
  613.     (if (= §iconType 1)
  614.         (copyfiles (source "MWB-Icons/Deutsch.info")
  615.                    (dest §AWdir)))
  616.     (copyfiles (source "Deutsch")
  617.                (prompt #copydox)
  618.                (help @copyfiles-help)
  619.                (confirm)
  620.                (choices "Dokumentation"
  621.                         "Dokumentation.asc"
  622.                         "BriefVonBo.asc"
  623.                         "Entwicklung"
  624.                         "Registration.asc") (infos)
  625.                (dest §docdir))
  626.      (if (= §iconType 1)
  627.         ((copyfiles (source "MWB-Icons/.asc.info")
  628.                     (dest §docdir)
  629.                     (newname "Dokumentation.asc.info"))
  630.          (copyfiles (source "MWB-Icons/.asc.info")
  631.                     (dest §docdir)
  632.                     (newname "BriefVonBo.asc.info"))
  633.          (copyfiles (source "MWB-Icons/.asc.info")
  634.                     (dest §docdir)
  635.                     (newname "Entwicklung.info"))
  636.          (copyfiles (source "MWB-Icons/.asc.info")
  637.                     (dest §docdir)
  638.                     (newname "Registration.asc.info"))
  639.          (copyfiles (source "MWB-Icons/.guide.info")
  640.                     (dest §docdir)
  641.                     (newname "Dokumentation.info"))))
  642.      (if (= dvi "true")
  643.         ((copyfiles (source "Deutsch/Dokumentation.dvi")
  644.                     (infos)
  645.                     (prompt #copydox)
  646.                     (help @copyfiles-help)
  647.                     (confirm)
  648.                     (dest §docdir))
  649.          (if (= §iconType 1)
  650.              (copyfiles (source "MWB-Icons/.dvi.info")
  651.                         (dest §docdir)
  652.                         (newname "Dokumentation.dvi.info")))))
  653.      )
  654. )
  655. (complete 85)
  656.  
  657. (if (IN §AWdoc 1)
  658.    ((set §docdir (tackon §AWdir "English"))
  659.     (makedir §docdir (infos))
  660.     (if (= §iconType 1)
  661.         (copyfiles (source "MWB-Icons/English.info")
  662.                    (dest §AWdir)))
  663.     (copyfiles (source "English")
  664.               (prompt #copydox)
  665.               (help @copyfiles-help)
  666.               (confirm)
  667.               (choices "Documentation"
  668.                        "Documentation.asc"
  669.                        "LetterFromBo.asc"
  670.                        "History"
  671.                        "Registration.asc") (infos)
  672.                (dest §docdir))
  673.      (if (= §iconType 1)
  674.         ((copyfiles (source "MWB-Icons/.asc.info")
  675.                     (dest §docdir)
  676.                     (newname "Documentation.asc.info"))
  677.          (copyfiles (source "MWB-Icons/.asc.info")
  678.                     (dest §docdir)
  679.                     (newname "LetterFromBo.asc.info"))
  680.          (copyfiles (source "MWB-Icons/.asc.info")
  681.                     (dest §docdir)
  682.                     (newname "History.info"))
  683.          (copyfiles (source "MWB-Icons/.asc.info")
  684.                     (dest §docdir)
  685.                     (newname "Registration.asc.info"))
  686.          (copyfiles (source "MWB-Icons/.guide.info")
  687.                     (dest §docdir)
  688.                     (newname "Documentation.info"))))
  689.      (if (= dvi "true")
  690.         ((copyfiles (source "English/Documentation.dvi")
  691.                     (infos)
  692.                     (prompt #copydox)
  693.                     (help @copyfiles-help)
  694.                     (confirm)
  695.                     (dest §docdir))
  696.          (if (= §iconType 1)
  697.              (copyfiles (source "MWB-Icons/.dvi.info")
  698.                         (dest §docdir)
  699.                         (newname "Documentation.dvi.info")))))
  700.      )
  701. )
  702. (complete 90)
  703.  
  704. (if (IN §AWdoc 2)
  705.    ((set §docdir (tackon §AWdir "Français"))
  706.     (makedir §docdir (infos))
  707.     (if (= §iconType 1)
  708.         (copyfiles (source "MWB-Icons/Français.info")
  709.                    (dest §AWdir)))
  710.     (copyfiles (source "Français")
  711.                (choices "Documentation"
  712.                         "Documentation.asc"
  713.                         "Historique"
  714.                         "Limitations.asc") (infos)
  715.                (prompt #copydox)
  716.                (help @copyfiles-help)
  717.                (confirm)
  718.                (dest §docdir))
  719.     (if (= §iconType 1)
  720.         ((copyfiles (source "MWB-Icons/.asc.info")
  721.                     (dest §docdir)
  722.                     (newname "Documentation.asc.info"))
  723.          (copyfiles (source "MWB-Icons/.asc.info")
  724.                     (dest §docdir)
  725.                     (newname "Historique.info"))
  726.          (copyfiles (source "MWB-Icons/.asc.info")
  727.                     (dest §docdir)
  728.                     (newname "Limitations.asc.info"))
  729.          (copyfiles (source "MWB-Icons/.guide.info")
  730.                     (dest §docdir)
  731.                     (newname "Documentation.info"))))
  732.     )
  733. )
  734. (complete 93)
  735.  
  736. (if (IN §AWdoc 3)
  737.    ((set §docdir (tackon §AWdir "Svenska"))
  738.     (makedir §docdir (infos))
  739.     (if (= §iconType 1)
  740.         (copyfiles (source "MWB-Icons/Svenska.info")
  741.                    (dest §AWdir)))
  742.     (copyfiles (source "Svenska")
  743.                (choices "Dokumentation.asc"
  744.                         "Historia"
  745.                         "Registration.asc"
  746.                         "BrevFrånBo.asc") (infos)
  747.                (prompt #copydox)
  748.                (help @copyfiles-help)
  749.                (confirm)
  750.                (dest §docdir))
  751.      (if (= §iconType 1)
  752.         ((copyfiles (source "MWB-Icons/.asc.info")
  753.                     (dest §docdir)
  754.                     (newname "Dokumentation.asc.info"))
  755.          (copyfiles (source "MWB-Icons/.asc.info")
  756.                     (dest §docdir)
  757.                     (newname "BrevFrånBo.asc.info"))
  758.          (copyfiles (source "MWB-Icons/.asc.info")
  759.                     (dest §docdir)
  760.                     (newname "Historia.info"))
  761.          (copyfiles (source "MWB-Icons/.asc.info")
  762.                     (dest §docdir)
  763.                     (newname "Registration.asc.info"))))
  764.     )
  765. )
  766. (complete 95)
  767.  
  768. (if (askbool (prompt #askfont)
  769.              (help @askbool-help)
  770.              (default 1))
  771.      (copyfiles (source "Fonts") (all)
  772.                 (dest "Fonts:"))
  773. )
  774. (complete 99)
  775.  
  776.  
  777. (if (= §iconType 1) (
  778.     (if (= (exists (tackon §AWdir "Suomi") (noreq)) 2)
  779.         (copyfiles (source "MWB-Icons/.iff.info")
  780.                    (dest (tackon §AWdir "Suomi"))
  781.                    (newname "Mika.iff.info")))
  782.     (if (= (exists (tackon §AWdir "Italiano") (noreq)) 2)
  783.         (copyfiles (source "MWB-Icons/.iff.info")
  784.                    (dest (tackon §AWdir "Italiano"))
  785.                    (newname "Guido.iff.info")))
  786.                    )
  787. )
  788.  
  789. (complete 100)
  790.