home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / mcdp12c.lzh / InstallMCDP < prev    next >
Encoding:
Text File  |  1995-07-28  |  6.7 KB  |  181 lines
  1. ;;;; Installerscript for MCDP
  2.  
  3. (welcome "Wilkommen zu der MultiCDPlayer installation.\n")
  4.  
  5. (set #bad_kick "Es wird mindestens Kickstart v39 (oder höher) benötigt !")
  6.  
  7. ;(set imsg         "\n\n"
  8. ;                  "Wilkommen zu der MultiCDPlayer Installation !\n\n"
  9. ;                  "Viel Spass\n")
  10.  
  11.  
  12. ;=============================================================================
  13. ; make sure we are running under a 3.0 ROM
  14.  
  15. (if (< (/ (getversion) 65536) 39)
  16. (
  17.     (abort #bad_kick)
  18. ))
  19.  
  20. ;=============================================================================
  21. ; say hi
  22.  
  23. (message       "Wilkommen zu der MultiCDPlayer Installation !\n\n"
  24.                "Dieser CD-Player zeichnet sich durch seine leichte"
  25.                "Bedienbarkeit, sowie mächtigen Befehlsumfanges aus.\n"
  26.                "Momentan wird von MCDP nur der SCSI-Standard unterstützt. "
  27.                "Sollte es genügend Interesse geben, wird ebenfalls der "
  28.                "pseudoSCSI (Commodores AT-System) sowie Spezielle Kommandos"
  29.                "der gängigsten AT-Bus CD-Rom's implementiert.\n")
  30.  
  31.  
  32.  
  33.  
  34. ;=============================================================================
  35. ; get target dir
  36. (set targetdir      (askdir (prompt "In welchem Verzeichnis soll ein Unterverzeichnis\n"
  37.                                     "mit dem Namen MCDP erzeugt werden soll.\n")
  38.                     (help "Es wird ein neues Unterverzeichnis mit dem Namen MCDP erstellt.\n"
  39.                           "Wählen Sie ein Verzeichnis, wo MCDP Installiert werden soll\n.")
  40.                     (default "")
  41.                     (disk)))
  42.  
  43. (set @default-dest targetdir)
  44.  
  45. ;=============================================================================
  46. ; get devicename
  47. (set devname (askstring (default "scsi.device")
  48.                         (prompt "Geben Sie bitte den Devicenamen an, unter\n"
  49.                                 "dem das CD-ROM zu erreichen ist.\n")
  50.                         (help "Es wird der devicename, unter dem das CD-ROM erreichbar\n"
  51.                               "ist benötigt. Für einen A3000 wäre das z.B. 'scsi.device'\n"
  52.                               "für GVP-Hostadapter z.B. 'gvpscsi.device'\n"))
  53. )
  54.  
  55. ;=============================================================================
  56. ; get ID
  57. (set scsiID (askchoice (prompt "Wählen Sie die SCSI-ID ihres CD-ROM's\n")
  58.                     (choices "0"
  59.                              "1"
  60.                              "2"
  61.                              "3"
  62.                              "4"
  63.                              "5"
  64.                              "6"
  65.                              "7")
  66.                     (help "Geben Sie hier die Logische SCSI-Adresse des CD-ROM's an.\n"
  67.                           "Die genaue Einstellung der ID entnehmen Sie bitte der Anleitung\n"
  68.                           "des CD-ROM Herstellers.\n"
  69.                           " Viele CD-ROM's werden auf SCSI-ID 3 ausgeliefert.\n")
  70.                     (default 3)
  71.                     ))
  72.  
  73. ;============================================================================
  74. ; get defaultfont
  75. (set whichfont (askchoice (prompt "Wählen Sie den Standardfont\n")
  76.                     (choices "Standard  (...)"
  77.                              "DOT       (Wie DOT-Matrix-Display)"
  78.                              "LCD       (Wie LCD-Display, Großbuchstaben)"
  79.                              "LCD2      (jedoch mit Groß/Kleinbuchstaben)")
  80.                     (help "MCDP kennt 4 Verschiedene Zeichensätze. Wählen Sie\n"
  81.                           "bitte einen aus.\n")
  82.                     ))
  83.  
  84.  
  85. ;============================================================================
  86. ; get defaultwinpos
  87. (set windowpos (askchoice (prompt "Wo soll das Fenster erscheinen ?\n")
  88.                     (choices "Mitte"
  89.                              "Rechts-Oben"
  90.                              "Links-Oben"
  91.                              "Links-Unten"
  92.                              "Rechts-Unten")
  93.                     (help "Angabe, wo das MCDP-fenster beim Start erscheinen soll.\n")
  94.                     ))
  95.  
  96.  
  97. ;============================================================================
  98. ; Nun werden noch ein paar vars gesetzt, und dann geht's los !
  99.  
  100. (if (= whichfont 0) (set fontname "MCDP_STD.font"))
  101. (if (= whichfont 1) (set fontname "MCDP_DOT.font"))
  102. (if (= whichfont 2) (set fontname "MCDP_LCD.font"))
  103. (if (= whichfont 3) (set fontname "MCDP_LC2.font"))
  104.  
  105. (if (= scsiID 0) (set scsiIDS "0"))
  106. (if (= scsiID 1) (set scsiIDS "1"))
  107. (if (= scsiID 2) (set scsiIDS "2"))
  108. (if (= scsiID 3) (set scsiIDS "3"))
  109. (if (= scsiID 4) (set scsiIDS "4"))
  110. (if (= scsiID 5) (set scsiIDS "5"))
  111. (if (= scsiID 6) (set scsiIDS "6"))
  112. (if (= scsiID 7) (set scsiIDS "7"))
  113.  
  114. (if (= windowpos 0) (set wndPOS "0"))
  115. (if (= windowpos 1) (set wndPOS "1"))
  116. (if (= windowpos 2) (set wndPOS "2"))
  117. (if (= windowpos 3) (set wndPOS "3"))
  118. (if (= windowpos 4) (set wndPOS "4"))
  119.  
  120.  
  121. ;================================================================================
  122. ; Und los geht's mit der eigendlichen Installation......
  123.  
  124. (if (NOT (exists (tackon targetdir "MCDP")))
  125.     (makedir (tackon targetdir "MCDP")))
  126.  
  127. (set @default-dest (tackon targetdir "MCDP"))
  128. (set targetdir @default-dest)
  129.  
  130. (copyfiles (source "MCDP") (dest @default-dest)(infos))
  131.  
  132. (working "Modifiziere die ToolTypes\n")
  133.  
  134. (TOOLTYPE (dest (tackon @default-dest "MCDP"))
  135.         (SETTOOLTYPE "SCSI_DEV" devname)
  136.         (SETTOOLTYPE "SCSI_ID"  scsiIDS)
  137.         (SETTOOLTYPE "FONTNAME"  fontname)
  138.         (SETTOOLTYPE "SONGPATH" (tackon targetdir "Disks"))
  139.         (SETTOOLTYPE "WND_POS" wndPOS)
  140.         (SETTOOLTYPE "INITVOL" "255")
  141.         (SETTOOLTYPE "INITBAL" "50")
  142.         (SETSTACK 8192)
  143.         (NOPOSITION)
  144. )
  145.  
  146. (copyfiles (source "MCDP.guide") (dest @default-dest)(infos))
  147.  
  148. (copyfiles (source "Fonts") (dest  "Fonts:")(all))
  149.  
  150. (if (NOT (exists (tackon @default-dest "Disks")))
  151.    (makedir (tackon @default-dest "Disks")))
  152.  
  153. ;== 600 Files zu kopieren dauert natürlich ...
  154.  
  155. (working "Installiere CD-Katalogfiles.\n\n"
  156.          "Momentan sind fast 700 CD's bekannt!\n\n"
  157.          "Einen moment bitte...\n")
  158.  
  159. (copyfiles (source "Disks") (dest (tackon @default-dest "Disks")) (ALL)(nogauge))
  160.  
  161.  
  162. ;==========================================================================
  163. ; Jetzt werden noch ein paar Informationen zu dem CD-ROM gesammelt...
  164.  
  165. (working "Erstelle Info-Datei zu Ihrem CD-ROM...\n")
  166. (SET probe (CAT ">"(TACKON targetdir "CDROM_Report")))
  167. (RUN (CAT (CAT (CAT (CAT (CAT "ProbeSCSI " probe) " VERBOSE ") devname) " ") scsiIDS))
  168.  
  169. (MESSAGE "\n\nWenn Sie ein Modem haben, senden Sie mir bitte\n"
  170.          "das File 'CDROM_Report' im MCDP-Verzeichnis\n"
  171.          "per E-Mail zu ! Sie helfen mir damit MCDP auch für "
  172.          "AT Kompatible ROMLaufwerke lauffähig zu machen.\n\n"
  173.          "E-Mail : JOERN@HARLY.HMS.MCNET.DE\n\n"
  174.          "Vielen Dank !")
  175.  
  176.  
  177.  
  178. (EXIT (cat "Viel Spass mit dem MultiCDPlayer !\n"))
  179.  
  180.  
  181.