home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / kolekcje / stanislaw_weslawski / garshnee / snowplants / install < prev    next >
Text File  |  1997-04-07  |  33KB  |  567 lines
  1. ;; -*- lisp -*-
  2. ;; SnowPlants Installation Script $VER:SnowPlants 1.2 (06-Mar-97)
  3. ;;
  4.  
  5. ;-------------------------- get correct language ----------------------------
  6. (if (= @language "deutsch")
  7.     (
  8.         ;use german texts
  9.         (set #choice_install            "Installieren")
  10.         (set #choice_cancel             "Abbruch")
  11.         (set #choice_68000              "68000 (und besser)")
  12.         (set #choice_68020              "68020 (und besser)")
  13.         (set #choice_68030              "68030 (und besser)")
  14.         (set #txt_welcome1              "Willkommen zum SnowPlants ")
  15.         (set #txt_welcome2              (cat " Installationsskript. "
  16.                                            "\nWie Sie ja wahrscheinlich schon wissen, ist SnowPlants ein Modul "
  17.                                              "für den Garshneblanker Bildschirmschoner. Wenn Sie Garshneblanker "
  18.                                              "nicht besitzen, ist das Modul für Sie vollkommen nutzlos."
  19.                                            "\nBefolgen Sie einfach die Anweisungen des Installationsskripts "
  20.                                              "um dieses Modul auf Ihrem System zu installieren. "
  21.                                         ))
  22.         (set #prompt_modulelocation     "Wo haben Sie Ihre Garshneblanker Module installiert?")
  23.         (set #help_modulelocation       (cat "Garshneblanker installiert seine Module normalerweise "
  24.                                              "im Verzeichnis \"SYS:WBStartUp/Blankers\". "
  25.                                            "\nWenn Sie jetzt nicht wissen, wo die Module versteckt "
  26.                                              "sind, sollten Sie sie sofort suchen. "
  27.                                            "\n(Suchen Sie nach dem Verzeichnis, in dem die Datei "
  28.                                              "\"PrefInterP\" zu finden ist.) "
  29.                                            "\nSnowPlants wird direkt in das von Ihnen ausgewählte "
  30.                                              "Verzeichnis kopiert."
  31.                                            "\n\n"
  32.                                            @askdir-help
  33.                                         ))
  34.         (set #stat_checkversion         "Suche eine eventuell vorhandene Version SnowPlants.")
  35.         (set #abort_moddirnotexisting   (cat "Fehler!! "
  36.                                            "\nSie sollten ein existierendes Verzeichnis angeben. "
  37.                                              "Es muß das Verzeichnis sein, in dem Garshneblanker "
  38.                                              "seine Module installiert hat. "
  39.                                            "\nFinden Sie es, und starten Sie die Installation neu. "
  40.                                              "Wenn Sie nicht wissen, wo diese Module zu finden sind, "
  41.                                              "suchen Sie nach einem Verzeichnis, das die Datei "
  42.                                              "\"PrefInterP\" enthält. Dorthin muß auch dieses Modul."
  43.                                         ))
  44.         (set #prompt_foundnewerversion1 "Version ")
  45.         (set #prompt_foundnewerversion2 " SnowPlants ist bereits installiert. Installiere ältere (oder gleichalte) Version ")
  46.         (set #prompt_foundnewerversion3 " ?")
  47.         (set #help_foundnewerversion    (cat "Die aktuelle oder eine neuere Version SnowPlants ist "
  48.                                              "bereits installiert. Möchten Sie SnowPlants trotzdem "
  49.                                              "installieren, klicken Sie bitte \"Installieren\". Wenn Sie die "
  50.                                              "veraltete Version nicht installieren möchten, klicken "
  51.                                              "Sie \"Abbruch\". "
  52.                                         ))
  53.         (set #abort_foundnewerversion   (cat "Die aktuelle oder eine neuere Version SnowPlants ist "
  54.                                              "bereits installiert. "
  55.                                            "\nDiese wird nicht überschrieben. "
  56.                                            "\nMöchten Sie das unbedingt tun, starten Sie das Skript "
  57.                                              "im \"Expert\" Modus nocheinmal."
  58.                                         ))
  59.         (set #prompt_foundoldversion    "Eine ältere Version ")
  60.         (set #prompt_foundoldversion    " SnowPlants ist bereits installiert. Installiere neuere Version ")
  61.         (set #prompt_foundoldversion    "?")
  62.         (set #help_foundoldversion      (cat "Eine ältere Version SnowPlants ist bereits installiert. "
  63.                                              "Wenn Sie nun die neuere Version von SnowPlants "
  64.                                              "installieren möchten klicken Sie bitte \"Installieren\". "
  65.                                              "Wenn Sie lieber die veraltete Version behalten möchten, "
  66.                                              "klicken Sie bitte auf \"Abbruch\"."
  67.                                              "\n\n"
  68.                                              @askbool-help
  69.                                         ))
  70.         (set #abort_foundoldversion     (cat "Ältere Version SnowPlants bereits installiert. "
  71.                                            "\nSie entschieden sich, diese zu behalten. "
  72.                                            "\nWarum?? (Nun gut, Sie haben das Sagen ;-) "
  73.                                         ))
  74.         (set #prompt_cpuchoice          "Für welche cpu möchten Sie das Modul installieren?")
  75.         (set #help_cpuchoice            (cat "Sie werden gefragt, welche Version des Modules installiert "
  76.                                              "werden soll. Normalerweise sollten Sie einfach auf \"OK\" "
  77.                                              "klicken, da der Installer bereits Ihren Amiga nach der "
  78.                                              "CPU gefragt hat und die korrekte Auswahl vorselektiert hat. "
  79.                                              "Wenn Sie aber diese Entscheidung ändern möchten, wählen Sie "
  80.                                              "nur eine Version aus, die über der Angebotenen steht. "
  81.                                              "Wenn Sie z.B. einen 68020 Prozessor haben, sollten Sie nur "
  82.                                              "zwischen der 68020 oder der 68000 Version wählen. Die 68030 "
  83.                                              "Version verursachte höchstwahrscheinlich Programmabstürze."
  84.                                            "\nVermissen Sie eine Version für einen neueren Prozessor, "
  85.                                              "dann schicken Sie bitte eine email an: "
  86.                                            "\nschmiegel@cip.rog.rwth-aachen.de "
  87.                                              "\n\n"
  88.                                              @askchoice-help
  89.                                         ))
  90.         (set #stat_copynewversion       "Kopiere neue Version...")
  91.         (set #prompt_copymodexe         "Kopiere das Modul nach ")
  92.         (set #prompt_copymodexerenaming "\n(Es wird in \"SnowPlants\" umbenannt werden.)")
  93.         (set #help_copymodexe1          " ist das ausführbare Modul für den ")
  94.         (set #help_copymodexe2          (cat " und alle nachfolgenden Prozessoren. "
  95.                                              "\n\n"
  96.                                              @copyfiles-help
  97.                                         ))
  98.         (set #prompt_copyneeded         "Kopiere die Dateien, die das Modul benötigt nach ")
  99.         (set #help_copyneeded           (cat "SnowPlants.ifc   ist unbedingt nötig,"
  100.                                            "\nSnowPlants.prefs sind die Standardeinstellungen,"
  101.                                            "\nSnowPlants.txt   ist benötigte Kurzbeschreibung"
  102.                                            "\n\n"
  103.                                         ))
  104.         (set #prompt_askifcopydoc       "Möchten Sie auch die Dokumentation installieren?")
  105.         (set #help_askifcopydoc         (cat "Die Installation der Dokumentation kann ich nur "
  106.                                              "empfehlen. Sie enthält z.B. eine komplette "
  107.                                              "Beschreibung aller Parameter des Moduls. "
  108.                                            "\nSie werden gefragt werden, wo Sie sie "
  109.                                              "ablegen wollen. "
  110.                                            "\nKlicken Sie auf \"Ja\" wenn Sie sie wollen, ansonsten "
  111.                                              "auf \"Nein\". "
  112.                                            "\n\n"
  113.                                         ))
  114.         (set #stat_copydocumentation    "Kopiere Dokumentation...")
  115.         (set #prompt_copydocumentation  "Wohin möchten Sie gerne die Dokumentation kopieren? (Es wird kein Unterverzeichnis erzeugt.)")
  116.         (set #help_copydocumentation    (cat "Sie können die Dokumentation ablegen, wo Sie "
  117.                                              "wollen :) "
  118.                                            "\nWenn Sie auch die Entwicklerdateien installieren, "
  119.                                              "werden Sie noch einmal gefragt, ob Sie diese "
  120.                                              "Dokumentation kopieren möchten. Sie können in "
  121.                                              "diesem Falle also diesen Teil überspringen. "
  122.                                              "\n\n"
  123.                                         ))
  124.         (set #prompt_actualdoccopy      "Kopiere Modul Dokumentation nach ")
  125.         (set #help_actualdoccopy        "SnowPlants.guide ist die Dokumentation\n\n")
  126.         (set #stat_copydev              "Kopiere Entwicklerdateien...")
  127.         (set #prompt_askifcopydev       "Möchten Sie die Dateien für Entwickler auch kopieren?")
  128.         (set #help_askifcopydev         (cat "Diese Dateien benötigen Sie nur dann, wenn Sie "
  129.                                              "vorhaben ein Modul selbst zu verbessern. Bevor "
  130.                                              "Sie aber damit anfangen, empfehle ich Ihnen erst "
  131.                                              "einmal mit mir via email in Kontakt zu treten. Vielleicht "
  132.                                              "hat ja schon irgendjemand genau die Veränderungen "
  133.                                              "vorgenommen, die Sie programmieren wollen. "
  134.                                              "Sie könnten eine Menge Zeit sparen ;-) "
  135.                                            "\nDer Sourcecode wurde in C programmiert. "
  136.                                            "\nSie werden gefragt werden, wo Sie die Dateien "
  137.                                              "ablegen wollen. Das Entwicklerpaket umfasst den "
  138.                                              "Sourcecode, die Dokumentation und die üblichen anderen "
  139.                                              "Modul Dateien. "
  140.                                            "\nKlicken Sie auf \"Ja\" wenn Sie sie wollen, ansonsten "
  141.                                              "auf \"Nein\". "
  142.                                            "\n\n"
  143.                                         ))
  144.         (set #prompt_devdestination     "Wo möchten Sie die Entwicklerdateien ablegen? (Ein Unterverzeichnis \"SnowPlants\" wird dort erzeugt.) ")
  145.         (set #help_devdestination       (cat "Sie sollten das Verzeichnis anwählen, wo auch die "
  146.                                              "anderen Modul-Entwicklerdateien abgelegt sind. "
  147.                                              "Jeder andere Ort ist zwar auch möglich, bereitet "
  148.                                              "Ihnen aber nur mehr Arbeit. "
  149.                                            "\nNormalerweise lautet der Pfad ungefähr so: "
  150.                                            "\nDEV:Garshneblanker/Blankers "
  151.                                            "\n\n"
  152.                                         ))
  153.         (set #prompt_copydev            "Kopiere Entwickler Dateien nach ")
  154.         (set #help_copydev              (cat "blank.c             C Sourcecode,"
  155.                                            "\nSnowPlants.ifc   Voreinstellerbeschreibung,"
  156.                                            "\nSnowPlants.txt   Kurzbeschreibung,"
  157.                                            "\nSnowPlants_rev.h Versionen header,"
  158.                                            "\nLOCAL_SCOPTIONS     sind die Compiler"
  159.                                            "\nSCOPTIONS           Optionen des Moduls"
  160.                                            "\n\n"
  161.                                         ))
  162.         (set #prompt_copydevdoc         "Kopiere Dokumentation nach ")
  163.         (set #help_copydevdoc           (cat "SnowPlants.guide ist die Dokumentation (Die "
  164.                                            "\n                    standart Moduldokumentation) "
  165.                                            "\n\n"
  166.                                         ))
  167.         (set #exit_byebyetxt            (cat "Installation erfolgreich beendet! "
  168.                                            "\nSollte Garshneblanker im Moment aktiv sein, können "
  169.                                              "Sie dieses Modul direkt in seine Modulliste aufnehmen, "
  170.                                              "indem Sie in Garshneblankers Hauptfenster \"Settings\" "
  171.                                              "und dann - im Icon-Fenster - \"Cancel\" anklicken. "
  172.                                              "\"SnowPlants\" sollte dann in der Liste auftauchen."
  173.                                            "\nHilfe zu den Parametern finden Sie in der Dokumentation "
  174.                                              "unter \"Parameter\"."
  175.                                         ))
  176.     )
  177.     (
  178.         ;use english texts
  179.         (set #choice_install            "install")
  180.         (set #choice_cancel             "cancel")
  181.         (set #choice_68000              "68000 (and above)")
  182.         (set #choice_68020              "68020 (and above)")
  183.         (set #choice_68030              "68030 (and above)")
  184.         (set #txt_welcome1              "Welcome to the SnowPlants ")
  185.         (set #txt_welcome2              (cat " installer script. "
  186.                                          "\n\nAs you'll probably know, this is a module for the "
  187.                                              "Garshneblanker screensaver. If you don't have Garshneblanker, this "
  188.                                              "module is completely useless."
  189.                                            "\nFollow the installer script's instructions to install "
  190.                                              "this screen blanking module on your system. "
  191.                                         ))
  192.         (set #prompt_modulelocation     "Where have you installed your Garshneblanker modules?")
  193.         (set #help_modulelocation       (cat "Garshneblanker installs its blankers normally in the "
  194.                                              "directory \"SYS:WBStartUp/Blankers\". "
  195.                                            "\nIf you don't know "
  196.                                              "where your modules are look for them now! "
  197.                                            "\n(Search for the directory containing the file \"PrefInterP\".) "
  198.                                            "\nSnowPlants will be directly put in the directory you choose."
  199.                                            "\n\n"
  200.                                            @askdir-help
  201.                                         ))
  202.         (set #stat_checkversion         "Checking for previously installed version of SnowPlants.")
  203.         (set #abort_moddirnotexisting   (cat "Error!! "
  204.                                            "\nYou should have specified an existing directory. "
  205.                                              "This must be the directory where Garshneblanker "
  206.                                              "has installed its screen blanking modules. "
  207.                                            "\nFind it, and start this script again. "
  208.                                              "If you don't know where your modules are "
  209.                                              "search for the directory containing the file \"PrefInterP\"."
  210.                                         ))
  211.         (set #prompt_foundnewerversion1 "Newer or equal version ")
  212.         (set #prompt_foundnewerversion2 " of SnowPlants already installed. Install version ")
  213.         (set #prompt_foundnewerversion3 " anyway?")
  214.         (set #help_foundnewerversion    (cat "An equal or newer version of SnowPlants is already "
  215.                                              "installed. If you would like to install SnowPlants "
  216.                                              "anyway, click 'Install'. If you don't want to install "
  217.                                              "the older SnowPlants, click 'Cancel'. "
  218.                                         ))
  219.         (set #abort_foundnewerversion   (cat "Equal or newer version of SnowPlants already installed. "
  220.                                            "\nThat version won't be overwritten. "
  221.                                            "\n(If you wanted to do exactly that please start this script "
  222.                                              "again and use the \"Expert\" mode.) "
  223.                                         ))
  224.         (set #prompt_foundoldversion    "Old version ")
  225.         (set #prompt_foundoldversion    " of SnowPlants already installed. Install newer version ")
  226.         (set #prompt_foundoldversion    "?")
  227.         (set #help_foundoldversion      (cat "An older version of SnowPlants is already "
  228.                                              "installed. If you would like to install the newer SnowPlants, "
  229.                                              "click 'Install'. If you don't want to install "
  230.                                              "SnowPlants, click 'Cancel'."
  231.                                              "\n\n"
  232.                                              @askbool-help
  233.                                         ))
  234.         (set #abort_foundoldversion     (cat "Older version of SnowPlants already installed. "
  235.                                            "\nYou denied overwriting that obsolete version. "
  236.                                            "\nWhy?? (But ok, you're the boss.) "
  237.                                         ))
  238.         (set #prompt_cpuchoice          "For which cpu do you want to install the module?")
  239.         (set #help_cpuchoice            (cat "You are asked which version of the module executable "
  240.                                              "should be installed. Normally you should simply click "
  241.                                              "on \"OK\" because this installer script checked your "
  242.                                              "Amiga for its CPU and selected already the appropriate "
  243.                                              "choice. If you really want to change this decision, only "
  244.                                              "select a choice above the proposed one. Say you've got "
  245.                                              "a 68020. Then you should only install the 68020 or the "
  246.                                              "68000 version of this file. The 68030 version would "
  247.                                              "most probably lead to system failures."
  248.                                            "\nIf you miss a version for a newer processor contact the "
  249.                                              "author at: "
  250.                                            "\nschmiegel@cip.rog.rwth-aachen.de "
  251.                                              "\n\n"
  252.                                              @askchoice-help
  253.                                         ))
  254.         (set #stat_copynewversion       "Copying new version...")
  255.         (set #prompt_copymodexe         "Copying the module executable to ")
  256.         (set #prompt_copymodexerenaming "\n(It will be renamed as \"SnowPlants\")")
  257.         (set #help_copymodexe1          " is the executable for the ")
  258.         (set #help_copymodexe2          (cat " and all succeeding processors. "
  259.                                              "\n\n"
  260.                                              @copyfiles-help
  261.                                         ))
  262.         (set #prompt_copyneeded         "Copying the module's needed files to ")
  263.         (set #help_copyneeded           (cat "SnowPlants.ifc   is the prefs description,     "
  264.                                            "\nSnowPlants.prefs are the default module prefs, "
  265.                                            "\nSnowPlants.txt   is the short module info file "
  266.                                            "\n\n"
  267.                                         ))
  268.         (set #prompt_askifcopydoc       "Do you want to install the documentation?")
  269.         (set #help_askifcopydoc         (cat "I strongly recommend to install it. "
  270.                                              "It contains for example a complete "
  271.                                              "description of all parameters of the module. "
  272.                                            "\nYou will be asked where to put the file. "
  273.                                            "\nClick on \"Yes\" if you like explanative texts else "
  274.                                              "click \"No\". "
  275.                                            "\n\n"
  276.                                         ))
  277.         (set #stat_copydocumentation    "Copying documentation...")
  278.         (set #prompt_copydocumentation  "Where would you like to install the documentation? (No subdirectory is created.)")
  279.         (set #help_copydocumentation    (cat "You can put the docs anywhere you like :) "
  280.                                            "\nIf you're also going to install the developer files, "
  281.                                              "you can safely skip this part. The developer "
  282.                                              "files contain this documentation, too. "
  283.                                              "\n\n"
  284.                                         ))
  285.         (set #prompt_actualdoccopy      "Copying module documentation to ")
  286.         (set #help_actualdoccopy        "SnowPlants.guide is the documentation\n\n")
  287.         (set #stat_copydev              "Copying developer files...")
  288.         (set #prompt_askifcopydev       "Would you like to install the source code, too?")
  289.         (set #help_askifcopydev         (cat "You need the source code only, if you want to "
  290.                                              "improve a module by yourself. Before you do that "
  291.                                              "I recommend that you contact me first via email. "
  292.                                              "Perhaps someone is already working on your idea "
  293.                                              "and you can save your time :) "
  294.                                            "\nThe source is written in C. "
  295.                                            "\nYou will be asked where you want to place it and "
  296.                                              "the accompanying documentation. "
  297.                                            "\nClick \"Yes\" if you want them, else \"No\" "
  298.                                            "\n\n"
  299.                                         ))
  300.         (set #prompt_devdestination     "Where would you like to install the module sources? (A subdirectory \"SnowPlants\" is created there.) ")
  301.         (set #help_devdestination       (cat "You should put these developer files where the other "
  302.                                              "Module source directories are, for your own convenience. "
  303.                                            "\nNormally this is somewhere like: "
  304.                                            "\nDEV:Garshneblanker/Blankers "
  305.                                            "\n\n"
  306.                                         ))
  307.         (set #prompt_copydev            "Copying developer files to ")
  308.         (set #help_copydev              (cat "blank.c             is the C source code, "
  309.                                            "\nSnowPlants.ifc   is the prefs description, "
  310.                                            "\nSnowPlants.txt   is the short module info file, "
  311.                                            "\nSnowPlants_rev.h is the version header, "
  312.                                            "\nLOCAL_SCOPTIONS     are the module's "
  313.                                            "\nSCOPTIONS           compiling options "
  314.                                            "\n\n"
  315.                                         ))
  316.         (set #prompt_copydevdoc         "Copying documentation to ")
  317.         (set #help_copydevdoc           (cat "SnowPlants.guide is the documentation (the "
  318.                                            "\n                    standard module documentation) "
  319.                                            "\n\n"
  320.                                         ))
  321.         (set #exit_byebyetxt            (cat "Installation succeeded! "
  322.                                            "\nIf Garshneblanker is running right now, you can "
  323.                                              "immediately add this module to its modulelist by "
  324.                                              "clicking in Garshneblanker's main window on \"Settings\" "
  325.                                              "and then - in the icon-window - on \"Cancel\". "
  326.                                              "\"SnowPlants\" should then appear in the list."
  327.                                            "\nDetailed help to the parameters can be found in the documentation "
  328.                                              "at \"Parameter\"."
  329.                                         ))
  330.     )
  331. )
  332.  
  333.  
  334. ;-------------------------- Get installer's version ------------------------
  335. (set #installerVer (/ @installer-version 65536))
  336. (set #installerRev (- @installer-version (* #installerVer 65536)))
  337.  
  338. ;-------------------------- Get new version number -------------------------
  339. (set #newModuleVersion (getversion "SnowPlants"))
  340. (set #newVer (/ #newModuleVersion 65536))
  341. (set #newRev (- #newModuleVersion (* #newVer 65536)))
  342.  
  343.  
  344. ;----------------------------- welcome the user -----------------------------
  345. (welcome)
  346.  
  347. (message #txt_welcome1 ("%ld.%ld" #newVer #newRev) #txt_welcome2)
  348.  
  349. ;--------------------------  Select modules directory  ------------------------
  350. (set #module-dest "SYS:WBStartup/Blankers")
  351. (set #module-dest
  352.     (askdir
  353.         (prompt #prompt_modulelocation)
  354.         (help #help_modulelocation)
  355.         (default #module-dest)
  356.     )
  357. )
  358. ;--------------------------- Check old version ------------------------------
  359. (working #stat_checkversion)
  360. (set #newModule "SnowPlants")
  361. (if (exists #module-dest)
  362.     (set #oldModule (tackon #module-dest "SnowPlants"))
  363.     (abort #abort_moddirnotexisting)
  364. )
  365. (if (exists #oldModule)
  366.     (
  367.         (set #oldModuleVersion (getversion #oldModule))
  368.         (set #oldVer (/ #oldModuleVersion 65536))
  369.         (set #oldRev (- #oldModuleVersion (* #oldVer 65536)))
  370.         (if (<= #newModuleVersion #oldModuleVersion)
  371.             (
  372.                 (if (> @user-level 1)   ;the new version should be saved
  373.                     (if (not (askbool
  374.                                   (prompt #prompt_foundnewerversion1
  375.                                           ("%ld.%ld" #oldVer #oldRev)
  376.                                           #prompt_foundnewerversion2
  377.                                           ("%ld.%ld" #newVer #newRev)
  378.                                           #prompt_foundnewerversion3)
  379.                                   (default 0)
  380.                                   (choices #choice_install #choice_cancel)
  381.                                   (help #help_foundnewerversion)
  382.                         ))
  383.                         (exit #abort_foundnewerversion (quiet))
  384.                     )
  385.                     (exit #abort_foundnewerversion (quiet))
  386.                 )
  387.             )
  388.             (
  389.                 (if (> @user-level 1)   ;the old version should be replaced
  390.                     (if (not (askbool
  391.                                   (prompt #prompt_foundoldversion1
  392.                                           ("%ld.%ld" #oldVer #oldRev)
  393.                                           #prompt_foundoldversion2
  394.                                           ("%ld.%ld" #newVer #newRev)
  395.                                           #prompt_foundoldversion3)
  396.                                  (default 1)
  397.                                  (choices #choice_install #choice_cancel)
  398.                                  (help #help_foundoldversion)
  399.                         ))
  400.                         (exit #abort_foundoldversion (quiet))
  401.                     )
  402.                 )
  403.             )
  404.         )
  405.     )
  406.     (   ;no SnowPlants installed so far
  407.         (set #oldModuleVersion (+ (* 65536 1) 0))
  408.     )
  409. )
  410.  
  411. (complete 20)
  412.  
  413. ;--------------------------------- check cpu of amiga -----------------------
  414. (set #cpu   (database "cpu"))
  415. (set #cpudefault
  416.     (if (patmatch "68000|68010" #cpu)
  417.         0
  418.         (if (= "68020" #cpu)
  419.             1
  420.             (if (= "68030" #cpu)
  421.                 2
  422.                 2         ;as long as I haven't got a higher cpu
  423.             )
  424.         )
  425.     )
  426. )
  427. (if (> @user-level 1)   ;only ask user this question if he's an expert
  428.     (
  429.         ;ask user, if that's ok
  430.         (set #cpuno
  431.             (askchoice
  432.                 (prompt #prompt_cpuchoice)
  433.                 (help #help_cpuchoice)
  434.                 (choices #choice_68000 #choice_68020 #choice_68030)
  435.                 (default #cpudefault)
  436.             )
  437.         )
  438.     )
  439.     (set #cpuno #cpudefault)
  440. )
  441. (set #cpufile
  442.     (if (= #cpuno 0)
  443.         ("SnowPlants")
  444.         (if (= #cpuno 1)
  445.             ("SnowPlants020")
  446.             (if (= #cpuno 2)
  447.                 ("SnowPlants030")
  448.                 ;next would be number 4, then 8, ..., so no select here!
  449.             )
  450.         )
  451.     )
  452. )
  453. ;------------------------------------ copy module ---------------------------
  454. (working #stat_copynewversion)
  455. (copyfiles
  456.     (prompt #prompt_copymodexe
  457.             #module-dest
  458.             (if (= #cpuno 0) "" #prompt_copymodexerename)
  459.     )
  460.     (help #cpufile #help_copymodexe1 #cpu #help_copymodexe2 @copyfiles-help)
  461.     (source #cpufile)
  462.     (dest #module-dest)
  463.     (newname "SnowPlants")
  464.     (confirm)
  465.     (files)                    ;no subdirs
  466.     (infos)                    ;take icons, too
  467.     (noposition)
  468. )
  469. ;--------------------------------- copy *.(ifc|prefs|txt) -------------------
  470. (copyfiles
  471.     (prompt #prompt_copyneeded #module-dest)
  472.     (help #help_copyneeded @copyfiles-help)
  473.     (source "")
  474.     (choices "SnowPlants.ifc"
  475.              "SnowPlants.prefs"
  476.              "SnowPlants.txt")
  477.     (dest #module-dest)
  478.     (confirm)
  479.     (files)                    ;no subdirs
  480.     (infos)                    ;take icons, too
  481.     (noposition)
  482. )
  483.  
  484. (complete 40)
  485.  
  486. ;------------------------------------- documentation ------------------------
  487. (working #stat_copydocumentation)
  488. (if (askbool
  489.       (prompt #prompt_askifcopydoc)
  490.       (default 1)
  491.       (help #help_askifcopydoc)
  492.     )
  493.     (
  494.         (set #doc-dest "Docs:")
  495.         (set #doc-dest
  496.             (askdir
  497.                 (prompt #prompt_copydocumentation)
  498.                 (help #help_copydocumentation @askdir-help)
  499.                 (default #doc-dest)
  500.             )
  501.         )
  502.         (copyfiles
  503.             (prompt #prompt_actualdoccopy #doc-dest)
  504.             (help #help_actualdoccopy @copyfiles-help)
  505.             (source "")
  506.             (choices "SnowPlants.guide")
  507.             (dest #doc-dest)
  508.             (confirm)
  509.             (infos)                    ;icons, too
  510.             (noposition)
  511.         )
  512.     )
  513. )
  514.  
  515. (complete 60)
  516.  
  517. ;------------------------------------- source code --------------------------
  518. (working #stat_copydev)
  519. (if (askbool
  520.       (prompt #prompt_askifcopydev)
  521.       (default 1)
  522.       (help #help_askifcopydev)
  523.     )
  524.     (
  525.         (set #dev-dest "Dev:Garshneblanker/Blankers")
  526.         (set #dev-dest
  527.             (askdir
  528.                 (prompt #prompt_devdestination)
  529.                 (help #help_devdestination @askdir-help)
  530.                 (default #dev-dest)
  531.             )
  532.         )
  533.         (set #dev-dest (tackon #dev-dest "SnowPlants"))
  534.         (copyfiles
  535.             (prompt #prompt_copydev #dev-dest)
  536.             (help #help_copydev @copyfiles-help)
  537.             (source "Dev/")
  538.             (choices "blank.c"
  539.                      "SnowPlants.ifc"
  540.                      "SnowPlants.txt"
  541.                      "SnowPlants_rev.h"
  542.                      "LOCAL_SCOPTIONS"
  543.                      "SCOPTIONS")
  544.             (dest #dev-dest)
  545.             (if (> @user-level 1) (confirm))
  546.             (infos)                    ;icons, too
  547.             (noposition)
  548.         )
  549.         (copyfiles
  550.             (prompt #prompt_copydevdoc #dev-dest)
  551.             (help #help_copydevdoc @copyfiles-help)
  552.             (source "")
  553.             (choices "SnowPlants.guide")
  554.             (dest #dev-dest)
  555.             (if (> @user-level 1) (confirm))
  556.             (infos)                    ;icons, too
  557.             (noposition)
  558.         )
  559.     )
  560. )
  561.  
  562.  
  563. ;------------------------------------ end -----------------------------------
  564. (complete 100)
  565. (exit #exit_byebyetxt)
  566.  
  567.