home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / demo / comicdemo.install < prev    next >
Text File  |  1995-04-14  |  9KB  |  288 lines

  1. ;
  2. ;    Installationsskript zum Comicverwaltung-Demo
  3. ;
  4. ;        Andreas Zottmann, 10.7.94
  5. ;
  6. ;       14.4.95 : makedir comdat eingefügt
  7. ;
  8. (welcome "Comic-Verwaltung-Demo Installation")
  9.  
  10. (if
  11.     (=
  12.         (askchoice
  13.             (prompt "\n What language do you want to use ?\n\n"
  14.                     "Welche Sprache wünschen Sie ?\n")
  15.         (help "\n Select the language you want to use in the program.\n\n"
  16.               "Wählen Sie die Sprache, die sie im Programm verwenden "
  17.               "wollen.")
  18.         (choices "english" "deutsch")
  19.         (default 1)
  20.     )
  21.     1
  22.     )
  23.     (set @language "deutsch")
  24. )
  25.  
  26. (set englisch ( = @language "english") )
  27.  
  28. (if englisch
  29.     (
  30.         ; Betriebsystemversion testen
  31.  
  32.         (set OS (/ (getversion ) 65536 ) )
  33.         (if  (< OS 36)
  34.              (
  35.                (set Antwort
  36.                   (askbool
  37.                       (prompt "OS 2.0 or more is needed.\n"
  38.                               "Do you want to install the program inspite\n"
  39.                               "of that ?\n"
  40.                       )
  41.                       (choices "Yes" "No")
  42.                       (default 1)
  43.                       (help
  44.                          "The program needs OS 2.0 or higher, but the number\n"
  45.                          "of your operating system is too small, so you\n"
  46.                          "can't use the program.\n"
  47.                          "You should abort the installation.\n"
  48.                       )
  49.                   )
  50.                )
  51.                (if (= 0 Antwort)
  52.                  (   ; abbrechen
  53.                    (abort    "Installation aborted because OS 2.0 needed.")
  54.                  )
  55.                )
  56.              )
  57.         )
  58.         (set dir
  59.             (askdir
  60.                 (prompt "Select a directory for the program.")
  61.                 (help   "Select a directory / drawer in which the program\n"
  62.                         "and the documentation shall be installed.\n"
  63.                 )
  64.                 (default "work:")
  65.             )
  66.         )
  67.         (set dir (tackon dir "comic"))
  68.         (set @default-dir dir)
  69.         (set @default-dest dir)
  70.  
  71.         (copyfiles
  72.             (prompt "copy directory 'english'")
  73.             (source "english")
  74.             (dest   dir)
  75.             (infos)
  76.             (all)
  77.         )
  78.         ; falls dir/comdat nicht existiert : anlegen
  79.         (if (NOT (exists (tackon dir "comdat")))
  80.             (makedir (tackon dir "comdat")
  81.                      (prompt "making directory comdat")
  82.             )
  83.         )
  84.         (set screen
  85.              (askchoice
  86.                  (prompt "What screenmode do you want to use ?")
  87.                  (choices "PAL" "NTSC")
  88.                  (help    "The selected mode will be the default mode "
  89.                           " for the program and can be changed later.\n"
  90.                           "PAL is recommended.\n"
  91.                           "(If the selected mode is not available on "
  92.                           "your system, the default screen will be "
  93.                           "used.)"
  94.                  )
  95.                  (default  0)
  96.              )
  97.         )
  98.         ; Tooltype setzen
  99.         (if ( = screen 1)
  100.             (
  101.                 (set DateiName (tackon dir "comicDemo"))
  102.                 (tooltype
  103.                     (dest DateiName)
  104.                     (settooltype "NTSC" "")
  105.                 )
  106.             )
  107.         )
  108.  
  109.         ; alle fonts kopieren, wenn sie noch nicht vorhanden waren
  110.         (if (NOT (exists "fonts:opal.font"))
  111.           (
  112.            (copyfiles
  113.                 (source "fonts/opal.font")
  114.                 (dest   "fonts:")
  115.            )
  116.           )
  117.         )
  118.         (copylib
  119.             (prompt "copy Opal fonts")
  120.             (source "fonts/Opal/12")
  121.             (dest   "fonts:Opal")
  122.         )
  123.         (copylib
  124.             (source "fonts/Opal/9")
  125.             (dest   "fonts:Opal")
  126.         )
  127.         (if (NOT (exists "fonts:CGTimes.font"))
  128.             (copyfiles
  129.                 (source "fonts/CGTimes.font")
  130.                 (dest   "fonts:")
  131.             )
  132.         )
  133.         (if (NOT (exists "fonts:CGTimes/30"))
  134.             (copyfiles
  135.                 (prompt "copy CGTimes fonts")
  136.                 (source "fonts/CGTimes/30")
  137.                 (dest   "fonts:CGTimes")
  138.             )
  139.         )
  140.         (if (NOT (exists "fonts:CGTimes/23"))
  141.             (copyfiles
  142.                 (source "fonts/CGTimes/23")
  143.                 (dest   "fonts:CGTimes")
  144.             )
  145.         )
  146.  
  147.     )
  148.  
  149.     (
  150.         ; Betriebsystemversion testen
  151.  
  152.         (set OS (/ (getversion ) 65536 ) )
  153.         (if  (< OS 36)
  154.              (
  155.                (set Antwort
  156.                   (askbool
  157.                       (prompt "Es wird mindestens OS 2.0 benötigt\n"
  158.                               "Wollen Sie das Programm trotzdem installieren ?"
  159.                       )
  160.                       (choices "Ja" "Nein")
  161.                       (default 1)
  162.                       (help
  163.                           "Das Programm benötigt OS 2.0 oder höher.\n"
  164.                           "Ihre Betriebssystemversion ist zu gering, so daß\n"
  165.                           "Sie das Programm nicht verwenden können.\n"
  166.                           "Sie sollten es also nicht installieren.\n"
  167.                       )
  168.                   )
  169.                )
  170.                (if (= 0 Antwort)
  171.                    (   ; abbrechen
  172.                        (abort   "Installation wurde abgebrochen wegen\n"
  173.                                 "zu niedriger Betriegssystemversion.\n"
  174.                        )
  175.                    )
  176.                )
  177.              )
  178.         )
  179.         (set dir
  180.             (askdir
  181.                 (prompt "Verzeichnis für das Programm wählen")
  182.                 (help   "\n Wählen Sie bitte ein Verzeichnis, in dem "
  183.                         "das Programm und die Dokumentation "
  184.                         "installiert werden sollen. "
  185.                 )
  186.                 (default "work:")
  187.             )
  188.         )
  189.         (set dir (tackon dir "comic"))
  190.         (set @default-dir dir)
  191.         (set @default-dest dir)
  192.  
  193.         (copyfiles
  194.             (prompt "kopiere das Verzeichnis 'deutsch'")
  195.             (source "deutsch")
  196.             (dest   dir)
  197.             (infos)
  198.             (all)
  199.         )
  200.         ; falls dir/comdat nicht existiert : anlegen
  201.         (if (NOT (exists (tackon dir "comdat")))
  202.             (makedir (tackon dir "comdat")
  203.                      (prompt "Erzeuge Verzeichnis comdat")
  204.             )
  205.         )
  206.         (set screen
  207.              (askchoice
  208.                  (prompt "\nWelchen Bildschirmmodus möchten Sie verwenden ?\n")
  209.                  (choices "PAL" "NTSC")
  210.                  (help    "Der hier gewählte Bildschirmmodus wird als "
  211.                           "Vorgabe für das Programm verwendet und kann "
  212.                           "später jederzeit geändert werden.\n"
  213.                           "Empfohlen wird PAL.\n"
  214.                           "(Falls der hier gewählte Modus auf Ihrem "
  215.                           "System nicht verfügbar ist, so wird der "
  216.                           "Standardbildschirm verwendet.)"
  217.                  )
  218.                  (default  0)
  219.              )
  220.         )
  221.         ; Tooltype setzen
  222.  
  223.         (if ( = screen 1)
  224.             (
  225.                 (set DateiName (tackon dir "comicDemo"))
  226.                 (tooltype
  227.                     (dest DateiName)
  228.                     (settooltype "NTSC" "")
  229.                 )
  230.             )
  231.         )
  232.  
  233.         ; alle fonts kopieren, wenn sie noch nicht vorhanden waren
  234.         (if (NOT (exists "fonts:opal.font"))
  235.           (
  236.            (copyfiles
  237.                 (source "fonts/opal.font")
  238.                 (dest   "fonts:")
  239.            )
  240.           )
  241.         )
  242.         (copylib
  243.             (prompt "kopiere Opal Fonts")
  244.             (source "fonts/Opal/12")
  245.             (dest   "fonts:Opal")
  246.         )
  247.         (copylib
  248.             (source "fonts/Opal/9")
  249.             (dest   "fonts:Opal")
  250.         )
  251.         (if (NOT (exists "fonts:CGTimes.font"))
  252.             (copyfiles
  253.                 (source "fonts/CGTimes.font")
  254.                 (dest   "fonts:")
  255.             )
  256.         )
  257.         (if (NOT (exists "fonts:CGTimes/30"))
  258.             (copyfiles
  259.                 (prompt "kopiere CGTimes Fonts")
  260.                 (source "fonts/CGTimes/30")
  261.                 (dest   "fonts:CGTimes")
  262.             )
  263.         )
  264.         (if (NOT (exists "fonts:CGTimes/23"))
  265.             (copyfiles
  266.                 (source "fonts/CGTimes/23")
  267.                 (dest   "fonts:CGTimes")
  268.             )
  269.         )
  270.  
  271.     )
  272. )
  273.  
  274.  
  275. (if (= @user-level 0)
  276.     (set Meldung
  277.         (cat
  278.            "Das Demo von Comic-Verwaltung wurde auf work: installiert.\n\n"
  279.            "The demo of Comic-Verwaltung (german) is installed to "
  280.            "work: . If you want the englisch version don't use 'novice' "
  281.            "for installation."
  282.         )
  283.     )
  284.     (set Meldung "")
  285. )
  286.  
  287. (exit Meldung)
  288.