home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / sci / Pl_2_51.lha / Install-Planetarium < prev    next >
Text File  |  1995-12-03  |  9KB  |  354 lines
  1. (set source-lha                "Tools/LhA")
  2. (set run-lhapatterns        "Tools/LhaPatterns")
  3. (set run-lha            "RAM:LhA -a")
  4. (set Planprog           "plan.lha")
  5. (set Pix1            "tele1.lha")
  6. (set pix2            "tele2.lha")
  7. ;
  8. ;---------------------------------------------------------------------
  9. ;
  10. ; Installer-Script for Planetarium
  11. ;
  12.  
  13. ; strings
  14.  
  15. (set #install-where-msg
  16. (cat        "                                                     "
  17.         "          Möchten Sie Planetarium auf Diskette       "
  18.         "            oder auf Festplatte installieren?        "
  19.         "                                                     "
  20.         "           Do you want to install Planetarium        "
  21.         "                  on disk or harddisk?               "
  22.         "                                                     "
  23.         "           Voulez-vous installer Planetarium en      "
  24.         "               disquette ou disque-dur?              "
  25. ))
  26.  
  27. (set #install-where-help
  28. (cat    "\nHier entscheiden Sie, ob Planetarium auf Disketten "
  29.         "oder, falls vorhanden, auf Ihre Festplatte installiert "
  30.         "werden soll.\n\n"
  31.         "Wenn Ihr Amiga-System mit einer Festplatte ausgerüstet "
  32.         "ist, sollten Sie Planetarium auf jeden Fall dort "
  33.         "installieren."
  34. ))
  35.  
  36. (set #install-hd-msg
  37. (cat        " Wo soll das Planetarium-Verzeichnis erzeugt werden? "
  38.         "                                                     "
  39.         "  Where should Planetarium's drawer be installed?    "
  40.         "                                                     "
  41.         "    Ou dois j'installer le tiroir de Planetarium?    "
  42. ))
  43.  
  44. (set #install-hd-help
  45. (cat    "\nHier müßen Sie angeben, wo auf Ihrer "
  46.         "Festplatte das Planetarium-Verzeichnis installiert werden "
  47.         "soll.\n\n"
  48.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  49.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  50.         "Namen \"Planetarium\".\n\n"
  51. ))
  52.  
  53. (set #floppy-askformat-msg
  54. (cat    "Für eine Disketteninstallation benötigen Sie "
  55.         "zwei formatierte Disketten mit den Namen "
  56.         "\"Planetarium\" und \"Tele\". Sie können die "
  57.         "Disketten jetzt formatieren lassen oder "
  58.         "selbst formatierte Disketten verwenden."
  59. ))
  60.  
  61. (set #floppy-askformat-help
  62. (cat    "\nHier entscheiden Sie, ob jetzt die "
  63.         "für die Planetarium-Installation "
  64.         "benötigten Disketten formatiert "
  65.         "werden sollen.\n\n"
  66.         "Sie können problemlos auch selbst formatierte "
  67.         "Disketten verwenden, wenn Sie ein besonderes "
  68.         "Format oder Disketten verschiedener Größe "
  69.         "verwenden wollen."
  70. ))
  71.  
  72. (set #format1-msg
  73. (cat    "Bitte legen Sie die erste zu formatierende "
  74.         "Diskette in das Laufwerk DF0:\n\n"
  75.         "Diese Diskette ist später Ihre Planetarium-Datendiskette "
  76.         "und trägt dann den Namen \"Tele:\"."
  77. ))
  78.  
  79. (set #format2-msg
  80. (cat    "Bitte legen Sie die zweite zu formatierende "
  81.         "Diskette in das Laufwerk DF0:\n\n"
  82.         "Diese wird danach ihre Planetarium-Hauptdiskette "
  83.         "mit dem Namen \"Planetarium\". Auf dieser Diskette "
  84.         "wird das Hauptprogramm installiert."
  85. ))
  86.  
  87. (set #format1-cmd "sys:system/format <ram:..PLINST.. drive df0: name Tele noicons")
  88. (set #format2-cmd "sys:system/format <ram:..PLINST.. drive df0: name Planetarium noicons")
  89. (set #format-tmp "ram:..PLINST..")
  90. (set #format-err-msg "Fehler Nr. %ld beim Formatieren der Diskette!")
  91. (set #format1-busy "Formatiere 1. Diskette...")
  92. (set #format2-busy "Formatiere 2. Diskette...")
  93.  
  94. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  95.  
  96.  
  97. (set #insert1-msg
  98. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  99.         "\"Planetarium\" ein."
  100. ))
  101.  
  102. (set #insert1-help
  103. (cat    "Für die weitere Installation wird jetzt die zweite "
  104.         "vorhin formatierte Diskette mit dem Namen \"Planetarium\" "
  105.         "benötigt.\n\n"
  106.         "Falls Sie vorhin keine Disketten formatiert haben und "
  107.         "keine selbst formatierten Disketten mit den richtigen "
  108.         "Namen haben, brechen Sie die Installation jetzt ab "
  109.         "und starten Sie sie danach neu."
  110. ))
  111.  
  112. (set #insert2-msg
  113. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  114.         "\"Tele\" ein."
  115. ))
  116.  
  117. (set #insert2-help
  118. (cat    "Für die weitere Installation wird jetzt die erste "
  119.         "vorhin formatierte Diskette mit dem Namen \"Tele\" "
  120.         "benötigt.\n\n"
  121.         "Falls Sie vorhin keine Disketten formatiert haben und "
  122.         "keine selbst formatierten Disketten mit den richtigen "
  123.         "Namen haben, brechen Sie die Installation jetzt ab "
  124.         "und starten Sie sie danach neu."
  125. ))
  126.  
  127.  
  128.  
  129. (set #epack_prog
  130. (cat    "                                                     "
  131.     "          Entpacken der Programmdateien...           "
  132.     "             Decrunching main files...               "
  133. ))
  134. (set #epack_prog-help
  135. (cat    "In dem Archiv  \"plan.lha\" befinden sich die"
  136.     "ausführbaren Programme und Dateien, die für den"
  137.     "Programmlauf unbedingt nötig sind."
  138.     "Sie müssen in das Hauptverzeichnis für 'Planetarium'"
  139.     "entpackt werden."
  140. ))
  141.  
  142. (set #epack_pix1
  143. (cat    "                                                     "
  144.     "          Entpacken der Hauptbilder...               "
  145.     "            Decrunching main pics...                 "
  146. ))
  147.  
  148. (set #epack_pix2
  149. (cat    "                                                     "
  150.     "        Entpacken der zusätzlichen Bilder...         "
  151.     "           Decrunching additional pics...            "
  152. ))
  153. ;
  154. ; Procedures
  155. ;
  156.  
  157.  
  158.  
  159.  
  160. (procedure do_hd 
  161.     (set default-dest
  162.         (askdir
  163.             (prompt #install-hd-msg)
  164.             (help #install-hd-help)
  165.             (default @default-dest)
  166.         )
  167.     )
  168.     (set @default-dest
  169.         (tackon default-dest "Planetarium")
  170.     )
  171.     
  172.     (makedir @default-dest
  173.         (infos)
  174.     )
  175.     (makedir (tackon @default-dest "Tele" ) )
  176.  
  177. ; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
  178. ; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
  179. ; Probleme).
  180. ;--------------------------------------------------------------------------
  181.         (set dst-dir @default-dest)
  182.         (if 
  183.          (and 
  184.           (> (strlen dst-dir) 0
  185.           ) 
  186.           (and 
  187.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":"
  188.            ) 
  189.            (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"
  190.            )
  191.           )
  192.          ) 
  193.         (set dst-dir (cat dst-dir "/")))
  194. ;--------------------------------------------------------------------------
  195.     (message #epack_prog)
  196.     (run (cat run-lha " x " planprog " "  dst-dir))
  197.     (complete 20)
  198.  
  199.     (message #epack_pix1)
  200.     (run (cat run-lha " x " pix1 " " dst-dir "Tele/"))
  201.     (complete 50)
  202.  
  203.     (message #epack_pix2)
  204.     (run (cat run-lha " x " pix2 " " dst-dir "Tele/"))
  205.     (complete 90)
  206.  
  207. )
  208.  
  209. (procedure do_format
  210.     (set olduserlevel (user 1) )
  211.     (textfile 
  212.         (dest #format-tmp)
  213.         (append "\n")
  214.     )
  215.     (message #format1-msg)
  216.     (working #format1-busy)
  217.     (set retval
  218.         (run #format1-cmd
  219.         )
  220.     )
  221.     (if (<> retval 0 )
  222.         (abort (#format-err-msg retval))
  223.     )
  224.     (complete 15)
  225.     (message #format2-msg)
  226.     (working #format2-busy)
  227.     (set retval
  228.         (run #format2-cmd
  229.         )
  230.     )
  231.     (if (<> retval 0 )
  232.         (abort (#format-err-msg retval))
  233.     )
  234.     (complete 30)
  235.     (delete #format-tmp)
  236.     (user olduserlevel)
  237. )
  238.  
  239. (procedure do_floppy
  240.     (set format-flag
  241.         (askbool
  242.             (prompt #floppy-askformat-msg)
  243.             (help #floppy-askformat-help)
  244.             (default 1)
  245.             (choices "Formatieren" "Weiter")
  246.         )
  247.     )
  248.  
  249.     (if (= format-flag 1)
  250.         (do_format)
  251.     )
  252.  
  253.     (askdisk 
  254.         (dest "Planetarium")
  255.         (prompt #insert1-msg)
  256.         (help #insert1-help)
  257.     )
  258.  
  259.     (set @default-dest "Planetarium:")
  260.     (message #epack_prog)
  261.     (run (cat run-lha " x " planprog " "  @default-dest))
  262.     (complete 40)
  263.  
  264.     (askdisk 
  265.         (dest "Tele")
  266.         (prompt #insert2-msg)
  267.         (help #insert2-help)
  268.     )
  269.  
  270.     (set @default-dest "Tele:")
  271.     (message #epack_pix1)
  272.     (run (cat run-lha " x " pix1 " "  @default-dest))
  273.     (complete 80)
  274.  
  275. )
  276.  
  277.  
  278. (procedure copy-aguide
  279.     (complete 95)
  280.     (if (exists "libs/amigaguide.library" )
  281.         (copylib
  282.             (prompt #copying-aguide)
  283.             (help @copylib-help)
  284.             (source "libs/amigaguide.library")
  285.             (dest "Libs:")
  286.             (confirm)
  287.         )
  288.     )
  289.     (complete 97)
  290.  
  291.     (if (exists "SYS:Utilities/MultiView" ) 
  292.         (
  293.             (tooltype (
  294.                 (dest (tackon @default-dest "Planetarium.guide") )
  295.                 (setdefaulttool "SYS:Utilities/MultiView" )
  296.             ))
  297.         )
  298.  
  299.         (if (exists "AmigaGuide" )
  300.             (copyfiles
  301.                 (source "AmigaGuide")
  302.                 (dest @default-dest)
  303.             )
  304.         )
  305.     )
  306. )
  307.  
  308.  
  309.  
  310. ;
  311. ;
  312. ; GO!
  313. ;
  314. ;
  315.  
  316. (complete 0)
  317. ; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
  318. ; baut...
  319.  
  320. (run run-lhapatterns)
  321.  
  322. ; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  323. ; geladen werden muß.
  324.  
  325. (copyfiles
  326.     (source source-lha)
  327.     (dest "RAM:")
  328.     (nogauge)
  329. )
  330. ; Beispiel:
  331. ; (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))
  332.  
  333. (set olduserlevel (user 1) )
  334. (set floppy-install
  335.     (askbool
  336.         (prompt #install-where-msg)
  337.         (help #install-where-help)
  338.         (choices "Festplatte" "Diskette" )
  339.     )
  340. )
  341. (user olduserlevel)
  342. (complete 1)
  343. (if (= floppy-install 0)
  344.     (do_floppy)
  345.     (do_hd)
  346. )
  347.  
  348.  
  349.  
  350.  
  351. (copy-aguide)
  352. (complete 100)
  353. (delete "ram:lha")
  354.