home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / cdrom / atapi_pnp300 / install.deutsch < prev    next >
Text File  |  1977-12-31  |  19KB  |  678 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; * Korrigierte deutsche Version by Marc "Charlie^kF!" Stachel
  10. ; *
  11. ; *    -------   G E R M A N    SCRIPT    --------
  12. ; *
  13. ; ************************************************
  14.  
  15. ;/// Variabili
  16. ; ****************************
  17. ;       Variabili
  18. ; ****************************
  19. ;
  20. (set DemoVersion        1) ; Demo Version
  21. (set ProductName        "ATAPI PnP"  )  ; product name
  22. (set ProductBaseName    "Atapi PnP")                    ; product base name
  23. (set VersionNum         "3.00 ")                     ; product version number
  24.  
  25. (set OSVersion          (/ (getversion) 65536))
  26. (set PctDone            0)
  27.  
  28. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  29.  
  30. (makeassign "CDPLUSPLUS" "" (safe))
  31.  
  32. (set Disk1Name                  "CDPLUSPLUS:")
  33.  
  34. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  35.  
  36. ;///
  37.  
  38. ;/// Proc setPkgOPts
  39. (procedure setPkgOpts
  40. ;
  41. ; ****************************
  42. ; * Wich Parts
  43. ; ****************************
  44. ;
  45.   (
  46.         (set PkgOpts
  47.                 (askoptions
  48.                         (prompt
  49.                            "Hier können Sie auswählen, was Sie aus dem "
  50.                            ("Softwarepaket %s installieren wollen" ProductName)
  51.                         )
  52.                         (help
  53.                                 "Hier können Sie aussuchen, welche Teile (Modules) Sie vom"
  54.                                 (" Softwarepaket %s installieren wollen.\n" ProductName)
  55.                                 "\n"
  56.                                 "*** Atapi Device Driver\n"
  57.                                 "Hiermit wird der wichtige Device-Treiber"
  58.                                 " (cd.device ) ins Verzeichnis Devs: kopiert (Wichtig!!)\n"
  59.                                 "\n"
  60.                                 "*** CDplusplusFS\n"
  61.                                 "Mit dieser Option wird das spezielle Filesystem"
  62.                                 " der CD++ ins Verzeichnis L: kopiert (wird empfohlen).\n"
  63.                                 "\n"
  64.                                 "*** MAP-Mini Atapi Player\n"
  65.                                 "Mit dieser Option wird der Mini Player"
  66.                                 " für Audio-CD's ins Verzeichnis Utilities kopiert.\n"
  67.                                 "\n"
  68.                                 "*** TRKDownLoad Track-Downloader\n"
  69.                                 "Mit dieser Option wird das Program TRKDownload"
  70.                                 " (zum downloaden von CD-Spuren) nach Sys:Utilities kopiert.\n"
  71.                                 "\n"
  72.                                 "*** PlayCDXL\n"
  73.                                 "Mit dieser Option wird PlayCDXL (ein Program"
  74.                                 " zum Abspielen von CDXL Files) nach Sys:Utilities kopiert.\n"
  75.                                 "\n"
  76.                                 "*** CD_IDE\n"
  77.                                 "Hiermit wird das Preference-Programm nach Sys:Prefs kopiert.\n"
  78.                                 " Damit kann man einige Funktionen ändern.\n"
  79.                                 "\n"
  80.                                 @askoptions-help
  81.                         )
  82.                         (choices
  83.                                 ; bit position 0 -- todo & 1
  84.                                 ;
  85.                                 "Atapi Device Driver          (21 Kbytes)"
  86.  
  87.                                 ; bit position 1 -- todo & 2
  88.                                 ;
  89.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  90.  
  91.                                 ; bit position 2 -- todo & 4
  92.                                 ;
  93.                                 "MAP - Mini Atapi Player      (10 Kbytes)"
  94.  
  95.                                 ; bit position 3 -- todo & 8
  96.                                 ;
  97.                                 "TRKDownLoad- Track DownLoader(28 Kbytes)"
  98.  
  99.                                 ; bit position 4 -- todo & 16
  100.                                 ;
  101.                                 "PlayCDXL - Player für CDXL   (23 Kbytes)"
  102.  
  103.                                 ; bit position 5 -- todo & 32
  104.                                 ;
  105.                                 "CD_IDE - Preferencesprogramm (8 Kbytes)"
  106.  
  107.                         )
  108.                 )
  109.         )
  110.   )
  111. )
  112. ;///
  113.  
  114. ;/// Proc setDirPath
  115.  
  116. (procedure setDirPath
  117. ;
  118. ; ****************************
  119. ; * Ask the user for a directory name.
  120. ; ****************************
  121. ;
  122. ; these variables must be defined before calling this procedure:
  123. ;    DirPath
  124. ;
  125. ; this procedure returns the selected directory in DirPath
  126. ;
  127.    (
  128.  
  129.        (set DirPath
  130.                (askdir
  131.                        (prompt ("Wo soll das Softwarepaket installiert werden\n (Ihre BOOT-Disk. Normalerweise SYS:)")
  132.  
  133.                        )
  134.                        (help   "Atapi Plug'n Play wird in das ausgewählte Verzeichnis"
  135.                                " installiert.\n"
  136.                                "Falls Sie es auf eine Diskette installieren möchten,"
  137.                                " dann legen Sie diese in ein Laufwerk und wählen Sie"
  138.                                " es in der Liste aus.\n"
  139.                                "\n"
  140.                                @askdir-help
  141.                        )
  142.                        (disk)
  143.                        (default "SYS:")
  144.                )
  145.        )
  146.  
  147.  
  148.  
  149.    )
  150. )
  151. ;///
  152.  
  153. ;/// Proc AskFsIcon
  154. ;
  155. ;
  156. (procedure AskFsIcon
  157. ;
  158. ; This procedure ask of wich cd Icon you want to install with wich Name
  159. ; It requires initialization of variables:
  160. ;
  161. ; In "DefaultIcon" ci deve essere quella accesa di default
  162. ;
  163. ; Ridà in "IconChoose" qual icona
  164. ; 0 nessuna - 1 AmiCDFilesystem
  165. ; 2 AmiCDFS - 3 CDfilesystem - 4 - AsimCDFS - 5 CDplusplusFS
  166. ;
  167.   (
  168.     (set IconChoose
  169.  
  170.            (askchoice
  171.                 (prompt "Wählen Sie aus, für welches CD-Filesystem Sie ein Piktogramm installieren möchten")
  172.                 (help
  173.                         "Hier können Sie auswählen, für welches Dateisystem"
  174.                         " Atapi Plug'n Play installiert werden soll.\n"
  175.                         "Haben Sie schon CDplusplusFS installiert, dann wählen Sie am besten"
  176.                         " diese Möglichkeit aus.\n"
  177.                         "\n"
  178.                         "Sollte Ihr CD-Filesystem nicht in der Liste"
  179.                         " vorkommen, dann wählen Sie -Keines- aus, und"
  180.                         " modifizieren später die Tooltypes im"
  181.                         " Piktogramm :\n"
  182.                         "Device wird\nDevice=cd.device\n"
  183.                         "und Unit wird\nUnit=0\n\n"
  184.                         @askchoice-help
  185.                 )
  186.                 (choices
  187.                         "-Keines"
  188.                         "-AmiCDFileSystem - by Nicola Salmoria"
  189.                         "-CDRom-Handler   - by Frank Munkert"
  190.                         "-CDFileSystem    - by CBM Commodore"
  191.                         "-AsimCDFS        - by AsimWare"
  192.                         "-QDriveFileSystem- by Amiga Tech."
  193.                         "-CDPlusPlusFS    - by CD++"
  194.                 )
  195.                 (default DefaultIcon)
  196.            )
  197.     )
  198.   )
  199. )
  200. ;///
  201.  
  202. ;/// Proc GetDevName
  203. ;
  204. ;  in DevName si ritrova il nome da usare per l'icona
  205. ;
  206.  
  207.  
  208. (procedure GetDevName
  209.  
  210.    (
  211.      (set DevName
  212.            (askstring
  213.                      (prompt "Schreiben Sie hier den Namen für das installierte CD-Laufwerk ohne den Doppelpunkt rein\nz.B. CD0")
  214.                      (help
  215.                              "Der ausgewählte Name wird der"
  216.                              "  Name des Devices\n"
  217.                              "Es ist ratsam, keinen langen Namen"
  218.                              " auszuwählen\n"
  219.                              "\nAm besten CD0 oder CD1 usw."
  220.                              " weil viele Programme diesen"
  221.                              " Namen suchen\n"
  222.                      )
  223.                      (default "CD0")
  224.            )
  225.      )
  226.    )
  227. )
  228. ;///
  229.  
  230. ;/// Proc AskAutoMount
  231. ;
  232. ;
  233. (procedure AskAutoMount
  234. ;
  235. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  236. ; storage dosdrivers
  237. ;
  238.   (
  239.     (set AutoMount
  240.  
  241.            (askbool
  242.                 (prompt "Möchten Sie, daß das Laufwerk bei jedem Computerstart"
  243.                         " automatisch angeschaltet wird (Mount),"
  244.                         " statt jedesmal manuell per-Mauseklick?"
  245.                 )
  246.                 (help
  247.                         "Wenn ja, dann wird das Piktogramm"
  248.                         " des Devices in das Verzeichnis:\n"
  249.                         "Devs:Dosdrivers/ kopiert\n"
  250.                         "Bei jedem Start wird so auch automatisch das"
  251.                         " CD-Laufwerk gestartet\n\n"
  252.                         "Ansonsten wird es in: Storage:DosDrivers/\n"
  253.                         " kopiert, und Sie müssen jedesmal per Hand auf das"
  254.                         " Piktogramm klicken, um das Laufwerk zu benutzen (mounten)"
  255.                 )
  256.                 (choices
  257.                         "Automatisch beim Start"
  258.                         "Nein, manuell"
  259.                 )
  260.                 (default 1)
  261.            )
  262.     )
  263.   )
  264. )
  265. ;///
  266.  
  267.  
  268. ; *************************************************************************
  269. ; *                         ACTUAL START OF SCRIPT
  270. ; *
  271. ; * Ask all questions for the user now, do all of the work later.
  272. ; *************************************************************************
  273. ;
  274. ;/// MAIN SCRIPT
  275. (onerror
  276.  
  277. )
  278. ; ****************************
  279. ;  Check for OS Version
  280. ; ****************************
  281.  
  282. (if (= DemoVersion 1)
  283.     (message "\n" "\n"
  284.              "Achtung: Das hier ist eine DEMO Version\n"
  285.              "vom Programm Atapi PnP !\n"
  286.              "SIE KÖNNEN ES JEDEM KOMPLETT\n"
  287.              "WEITERGEBEN (ausser den Crackern!)" "\n"
  288.              "\n"
  289.              "Atapi Plug'n Play is Copyright by \n"
  290.              "Georg Campana & Marco Campinoti ©1994\n\n"
  291.              "E-Mail: georg@etruscan.li.it\n"
  292.  
  293.              (help "Wenn Sie die registrierte Version erhalten möchten, dann lesen Sie das Handbuch oder rufen Sie mich an: 0039/565/850621")
  294.     )
  295.     (message "\n" "\n"
  296.              "Achtung: Das hier ist eine registrierte\n"
  297.              "Version der Atapi PnP Package!\n"
  298.              "ES IST VERBOTEN IRGENDEINE DATEI\n"
  299.              "AUS DIESEM ARCHIV WEITERZUGEBEN\nAUCH NICHT AN DIE BESTEN FREUNDE" "\n"
  300.              "(Die Files haben Signs)\n"
  301.              "Atapi Plug'n Play is Copyright by \n"
  302.              "Georg Campana & Marco Campinoti ©1994\n\n"
  303.              "E-Mail: georg@etruscan.li.it\n"
  304.              (help "Um Freunde zu registrieren rufen Sie mich an: ++39/565/850621" )
  305.     )
  306.  
  307. )
  308.  
  309.  
  310. ; ****************************
  311. ; ****************************
  312. ;
  313.  
  314. (set DirPath "SYS:")
  315.  
  316. (setDirPath)
  317.  
  318. (set @default-dest DirPath)
  319.  
  320. (set devdest  (tackon @default-dest "Devs"))
  321. (set fsdest   (tackon @default-dest "L"))
  322. (set utildest (tackon @default-dest "Utilities"))
  323. (set prefdest (tackon @default-dest "Prefs"))
  324.  
  325.  
  326. (setPkgOpts)
  327.  
  328. (set DefaultIcon 0)
  329.  
  330. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  331.     (set DefaultIcon 1)
  332. )
  333.  
  334. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  335.     (set DefaultIcon 2)
  336. )
  337.  
  338. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  339.     (set DefaultIcon 3)
  340. )
  341.  
  342. (if (= (exists (tackon fsdest "AsimCDFS")) 1)
  343.     (set DefaultIcon 4)
  344. )
  345.  
  346. (if (= (exists (tackon fsdest "QDriveFileSystem")) 1)
  347.     (set DefaultIcon 5)
  348. )
  349. (if (= (exists (tackon fsdest "CDplusplusFS")) 1)
  350.     (set DefaultIcon 6)
  351. )
  352.  
  353. (if (IN PkgOpts 1)
  354.     (set DefaultIcon 6)
  355. )
  356.  
  357. (AskFsIcon)
  358.  
  359. (select IconChoose
  360.    (set FsName 0)
  361.    (set FsName "AmiCDFS")
  362.    (set FsName "AmiCDHandler")
  363.    (set FsName "CbmCDFS")
  364.    (set FsName "AsimCDFS")
  365.    (set FsName "QDriveFileSystem")
  366.    (set FsName "CDplusplusFS")
  367. )
  368.  
  369.  
  370. (set AutoMount 1)
  371. (set DevName "CD0")
  372.  
  373. (if (> @user-level 1)
  374.  
  375.     (if (<> IconChoose 0)
  376.         (
  377.          (GetDevName)
  378.          (AskAutoMount)
  379.         )
  380.     )
  381. )
  382.  
  383. (if (= AutoMount 1)
  384.     (set Icondest  (tackon @default-dest "Devs"))
  385.     (set Icondest  (tackon @default-dest "Storage"))
  386. )
  387.  
  388.  
  389.  
  390.  
  391.  
  392. (if (IN PkgOpts 0)
  393.     (set MemSpace (+ MemSpace 21000))
  394. )
  395. (if (IN PkgOpts 1)
  396.     (set MemSpace (+ MemSpace 23000))
  397. )
  398. (if (IN PkgOpts 2)
  399.     (set MemSpace (+ MemSpace 10000))
  400. )
  401. (if (IN PkgOpts 3)
  402.     (set MemSpace (+ MemSpace 28000))
  403. )
  404. (if (IN PkgOpts 4)
  405.     (set MemSpace (+ MemSpace 23000))
  406. )
  407. (if (IN PkgOpts 5)
  408.     (set MemSpace (+ MemSpace  8000))
  409. )
  410. (if (<> IconChoose )
  411.     (set MemSpace (+ MemSpace 1000))
  412. )
  413.  
  414. (if (< (getdiskspace DirPath) MemSpace)
  415.     (if(> (getdiskspace DirPath) 0)
  416.        (
  417.           (abort "ACHTUNG: Der übrige Speicherplatz\n"
  418.                  ("auf der Platte %s\n" DirPath)
  419.                  ("beträgt nur noch %ld Bytes\n" (getdiskspace DirPath) )
  420.                  ("und es werden mindestens %ld benötigt\n" MemSpace)
  421.                  "\n"
  422.                  "Sie können nochmal auf Install klicken\n"
  423.                  "und weniger Utilities auswählen, oder\n"
  424.                  "unnötige Files von der Ziel-Platte\n"
  425.                  ("%s löschen\n" DirPath)
  426.           )
  427.        )
  428.     )
  429. )
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444. ; if bit position 0 is on  Installa device
  445. (if (IN PkgOpts 0)
  446.  
  447.      (
  448.  
  449.        (if (< (exists devdest (noreq)) 2)
  450.  
  451.            (makedir devdest
  452.               (prompt "Neues Verzeichnis -Devs-")
  453.               (infos)
  454.            )
  455.            (if (= DemoVersion 0)
  456.               (
  457.  
  458.                (set newver (getversion (tackon Disk1Name "devs/cd.device")))
  459.                (set oldver (getversion (tackon devdest   "cd.device")))
  460.  
  461.                (if (= newver oldver)
  462.                    (delete (tackon devdest   "cd.device"))
  463.                )
  464.               )
  465.            )
  466.        )
  467.  
  468.        (if (< OSVersion 39)
  469.          (
  470.            (copylib
  471.                (prompt "Installiere Device Driver")
  472.                (source (tackon Disk1Name "devs/cd_a600.device"))
  473.                (newname "cd.device")
  474.                (dest  devdest)
  475.                (optional force)
  476.            )
  477.          )
  478.  
  479.          (
  480.            (copylib
  481.                (prompt "Installiere Device Driver")
  482.                (source (tackon Disk1Name "devs/cd.device"))
  483.                (dest devdest)
  484.                (optional force)
  485.            )
  486.          )
  487.        )
  488.      )
  489. )
  490.  
  491.  
  492. ; if bit position 1 is on Installa FileSystem
  493. (if (IN PkgOpts 1)
  494.      (
  495.  
  496.         
  497.         (if (< (exists fsdest (noreq)) 2)
  498.  
  499.             (makedir fsdest
  500.                (prompt "Neues Verzeichnis -L-")
  501.             )
  502.         )
  503.  
  504.  
  505.         (copylib
  506.             (prompt "Installiere FileSystem von CD++")
  507.             (source (tackon Disk1Name "l/CDplusplusFS"))
  508.             (dest fsdest)
  509.             (optional force)
  510.         )
  511.         
  512.  
  513.      )
  514. )
  515.  
  516. ; if bit position 2 is on Installa MAP
  517. (if (IN PkgOpts 2)
  518.      (
  519.  
  520.         
  521.         (if (< (exists utildest (noreq)) 2)
  522.  
  523.             (makedir utildest
  524.                (prompt "Neues Verzeichnis -Utilities-")
  525.                (infos)
  526.             )
  527.         )
  528.  
  529.  
  530.         (copyfiles
  531.             (prompt "Installiere Mini Atapi Player")
  532.             (source (tackon Disk1Name "utilities/MAP"))
  533.             (dest utildest)
  534.             (infos)
  535.             (optional force)
  536.         )
  537.         
  538.  
  539.      )
  540. )
  541.  
  542. ; if bit position 3 is on Installa TRKDownLoad
  543. (if (IN PkgOpts 3)
  544.      (
  545.  
  546.         
  547.         (if (< (exists utildest (noreq)) 2)
  548.  
  549.             (makedir utildest
  550.                (prompt "Neues Verzeichnis -Utilities-")
  551.                (infos)
  552.             )
  553.         )
  554.  
  555.  
  556.         (copyfiles
  557.             (prompt "Installiere TrkDownLoader")
  558.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  559.             (dest utildest)
  560.             (infos)
  561.             (optional force)
  562.         )
  563.         
  564.  
  565.      )
  566. )
  567.  
  568. ; if bit position 4 is on Installa PlayCDXL
  569. (if (<> DemoVersion 2) ; NOTA messo a 2 che è diverso da 0 e 1
  570.    (if (IN PkgOpts 4)
  571.         (
  572.  
  573.            
  574.            (if (< (exists utildest (noreq)) 2)
  575.  
  576.                (makedir utildest
  577.                   (prompt "Neues Verzeichnis -Utilities-")
  578.                   (infos)
  579.                )
  580.            )
  581.  
  582.  
  583.            (copyfiles
  584.                (prompt "Installiere PlayCDXL")
  585.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  586.                (dest utildest)
  587.                (infos)
  588.                (optional force)
  589.            )
  590.            
  591.  
  592.         )
  593.    )
  594. )
  595.  
  596. ; if bit position 5 is on  Installa CD_IDE
  597. (if (IN PkgOpts 5)
  598.      (
  599.  
  600.  
  601.         (if (< (exists prefdest (noreq)) 2)
  602.  
  603.             (makedir prefdest
  604.                (prompt "Neues Verzeichnis -Prefs-")
  605.                (infos)
  606.             )
  607.         )
  608.  
  609.  
  610.         (copyfiles
  611.             (prompt "Installiere CD_IDE")
  612.             (source (tackon Disk1Name "prefs/CD_IDE"))
  613.             (dest prefdest)
  614.             (infos)
  615.             (optional force)
  616.         )
  617.  
  618.  
  619.      )
  620. )
  621.  
  622.  
  623. (if (> IconChoose 0)
  624.     (
  625.         (if (< (exists Icondest (noreq)) 2)
  626.  
  627.             (makedir Icondest
  628.                (prompt "Neues Verzeichnis Devs oder Storage")
  629.                (infos)
  630.             )
  631.         )
  632.  
  633.         (set Icondest  (tackon Icondest "Dosdrivers"))
  634.          
  635.         (copyfiles
  636.             (prompt "Installiere Device-Piktogramm")
  637.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  638.             (dest IconDest)
  639.             (newname  DevName)
  640.             (infos)
  641.             (optional force)
  642.         )
  643.  
  644.     
  645.         (if (= AutoMount 1)
  646.             ( message "\n" "\n"
  647.                    "Bei jedem Start des Computers wird\n"
  648.                    "das CD-Laufwerk automatisch ins System\n"
  649.                    "eingebunden!\n"
  650.                    "\n"
  651.                    "Sie können dieses jederzeit verändern\n"
  652.                    ("indem Sie das Piktogramm %s vom Verzeichnis" DevName)
  653.                    "Devs/Dosdrivers ins Verzeichnis Storage/Dosdrivers\n"
  654.                    "verschieben\n"
  655.             )
  656.             ( message "\n" "\n"
  657.                    "Sie können jederzeit das CD-ROM Laufwerk einbinden\n"
  658.                    ("indem Sie zweimal auf %s\n" DevName)
  659.                    "im Verzeichnis Storage/Dosdrivers klicken\n"
  660.                    "Soll es automatisch eingebunden werden, dann\n"
  661.                    "verschieben Sie das Piktogramm ins Verzeichnis Devs/Dosdrivers"
  662.             )
  663.         )
  664.     )
  665.     ( message "\n" "\n"
  666.            "Es wurde kein Piktogramm für das\n"
  667.            "CD-ROM Laufwerk ausgewählt.\n"
  668.            "Sie müssen es sich deshalb selber kreiern!\n"
  669.            "\n"
  670.            "Sie können auch nochmal auf -Install- klicken\n"
  671.            "und sich ein CD-Filesystem auswählen\n"
  672.     )
  673.  
  674. )
  675.  
  676. (exit)
  677. ;///
  678.