home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / SCSI_22.DMS / in.adf / Install.scsi < prev    next >
Encoding:
Text File  |  1996-12-09  |  16.5 KB  |  425 lines
  1. ;********************************************************************************
  2. ;*  SCSI Disk Installer Version 1.0 Dezember 8, 1996                            *
  3. ;*                                                                              *
  4. ;*  Installer Revision by Claus Herrmann ©1996 for Phase5                       *
  5. ;*                                                                              * 
  6. ;*  If you have any installer questions please let me know!                     *
  7. ;*  eMail: cyclone@rbg.informatik.th-darmstadt.de                               *
  8. ;*                                                                              *
  9. ;********************************************************************************
  10.  
  11. (set cpu (database "cpu"))
  12. (set #diskname (pathonly @icon))
  13.  
  14. ;********************************************************************************
  15. ;*                                                                              *
  16. ;* Intro stuff                                                                  *
  17. ;*                                                                              *
  18. ;********************************************************************************
  19.  
  20. (set #w-message (cat "\n\n\nWe at Phase5 would like to\n\nThank You\n\nfor purchasing our SCSI Kit."
  21.                      "\n\n\nThe Next Generation in SCSI cards for the Amiga."
  22.                      )
  23. )
  24.  
  25. (if (= @language "deutsch") 
  26. (set #w-message (cat "\n\n\nWir bei Phase5 möchten Ihnen\n\nfür den Kauf unseres Produktes\n\nbedanken"
  27.                      "\n\n\nDie nächste Generation von  SCSI cards für den Amiga."
  28.                      )
  29.  
  30. ))
  31.  
  32. (message #w-message)
  33.          
  34. (welcome)
  35. ;********************************************************************************
  36. ;*                                                                              *
  37. ;* Set Defaults for Strings                                                     *
  38. ;*                                                                              *
  39. ;********************************************************************************
  40. (transcript "Installation for \"SCSI-Tools Disk")
  41.  
  42.   (set #yes "Yes")
  43.   (set #no "No")
  44.  
  45.   (set #ask-SCSIKIT "Which SCSI-Software should be installed ?")
  46.   (set #MK1 "Cyberstorm MK I")
  47.   (set #MK2 "Cyberstorm MK II")
  48.   (set #FZ3 "Fastlane Z3")
  49.   (set #1234 "Blizzard 1230-I/II/III/IV")
  50.   (set #2060 "Blizzard 2040/2060")
  51.  
  52.   (set #YES-GOODIES "Yes - Install Goodies")
  53.   (set #NO-GOODIES "No  - Don't Install Goodies.")
  54.   (set #ask-goodies (cat "Do you wish to install the Goodies ?\n\n"
  55.                          "These Programms are only for the Expert User."
  56.                          "The Package contains Include Files and"
  57.                          "programming tips for the SCSI.Device "
  58.                     )
  59.   )
  60.  
  61.   (set #where-Goodies "Where do you wish to Install the Goodies?\n(The default is \"Sys:SCSI-Tools\") ")
  62.  
  63.   (set #YES-MSDOS   "Yes - Install MSDosMount")
  64.   (set #NO-MSDOS    "No  - No MSDosMount.")
  65.   (set #ask-MSdos (cat "Would you like to install MSDosMount ?\n\n"
  66.                          "This program gives you the chance to "
  67.                          "use your PC Formated Harddisk on the "
  68.                          "Amiga with our SCSI Controler. To use this "
  69.                          "you need to have Cross-Dos installed."
  70.                     )
  71.   )
  72.   (set #where-MSDos "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  73.  
  74.  
  75.   (set #YES-dcache "Yes - Install DCache")
  76.   (set #NO-dcache  "No  - No Dcache.")
  77.   (set #ask-dcache (cat "Would you like to install Dynamic Cache ?\n\n"
  78.                          "This program speeds up your HD by cashing"
  79.                          "it with normal AMIGA RAM. If you want to "
  80.                          "activate it later on, put it into your "
  81.                          "WBStartup Drawer of your HardDisk."
  82.                     )
  83.   )
  84.   (set #where-dcache "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  85.  
  86.   (set #YES-AMICDFS "Yes - Install AmiCDFS")
  87.   (set #NO-AMICDFS "No  - Don't Install AmiCDFS.")
  88.   (set #ask-amicdfs (cat "Do you wish to install the AMICDFS ?\n\n"
  89.                          "AmiCDFS is a CD-ROM disk filing system for the Amiga.  It supports"
  90.                          "the  ISO-9660  standard  (single  and multiple sessions), the Rock Ridge"
  91.                          "Interchange Protocol and the Macintosh HFS format."
  92.                          "AmiCDFS 2.38 is written and copyright © 1996 by Martin Berndt."
  93.                     )
  94.   )
  95.   (set #where-amicdfs    "Where do you wish to Install the AmiCDFS?\n(The default is \"Sys:SCSI-Tools\") ")
  96.  
  97.   (set #YES-MKIIUP "Yes - I installed the MKIIUpdate.")
  98.   (set #NO-MKIIUP  "No  - I haven't installed the update.")
  99.   (set #ask-MKIIUP (cat "Have you allready done your MKIIUpdate ?\n\n"
  100.                         "If you haven't done the Update yet, "
  101.                         "select NO and read the Update Manual."
  102.                     )
  103.   )
  104.  
  105.   (set #destchoice (cat "Please select where you wish to put the SCSI Programs. "
  106.                         "A directory called 'SCSI-Tools' will be created, if there is not one there already."
  107.                    )
  108.   )
  109.  (set #inst-prompt "\nPlease select what you wish to do.")
  110.  (set #first-time "First time Installation")
  111.  (set #post-inst "Change Installation")
  112.  (set #todo-prompt "Which Components you want to install?")
  113.  (set #mkIIupdate "Docs/MK2Update.doc")
  114.   
  115. (if (= @language "deutsch")
  116. (
  117.   (set #yes "Ja")
  118.   (set #no "Nein")
  119.  
  120.   (set #ask-SCSIKIT "Welche SCSI-Software wollen Sie installieren ?")
  121.   (set #MK1  "Cyberstorm MK I")
  122.   (set #MK2  "Cyberstorm MK II")
  123.   (set #FZ3  "Fastlane Z3")
  124.   (set #1234 "Blizzard 1230-I/II/III/IV")
  125.   (set #2060 "Blizzard 2040/2060")
  126.  
  127.   (set #YES-GOODIES "Ja - Installiere Goodies")
  128.   (set #NO-GOODIES  "Nein  - Keine Goodies.")
  129.   (set #ask-goodies (cat "Möchten Sie das Goodies Prg.Packet installieren ?\n\n"
  130.                          "Dieses Programmpacket ist nur für den"
  131.                          "Programmierer unter Ihnen gedacht. Es"
  132.                          "beinhaltet div. Sourcen und Tools für"
  133.                          "die programmierung von SCSI.Devices."
  134.                     )
  135.   )
  136.   (set #where-Goodies "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  137.  
  138.   (set #YES-MSDOS   "Ja - Installiere MSDosMount")
  139.   (set #NO-MSDOS    "Nein  - Kein MSDosMount.")
  140.   (set #ask-MSdos (cat "Möchten Sie das MSDosMount installieren ?\n\n"
  141.                          "Dieses Programm ermöglicht Ihnen das "
  142.                          "schnelle einbinden von PC Festplatten"
  143.                          "an unseren Kontrollern. Benötigt wird"
  144.                          "zusätzlich Cross-Dos."
  145.                     )
  146.   )
  147.   (set #where-MSDos "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  148.  
  149.  
  150.   (set #YES-dcache "Ja - Installiere DCache")
  151.   (set #NO-dcache  "Nein  - Keine Dcache.")
  152.   (set #ask-dcache (cat "Möchten Sie das Dynamic Cache installieren ?\n\n"
  153.                          "Dieses Programm kann Festplattenzugriffe"
  154.                          "beschleunigen. Es installiert Ihnen für"
  155.                          "Platte einen RAMCache. Zum aktiveren legen"
  156.                          "Sie dieses Programm in die WB-Startup."
  157.                     )
  158.   )
  159.   (set #where-dcache "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  160.  
  161.  
  162.   (set #YES-AMICDFS "Ja - Installiere AmiCDFS")
  163.   (set #NO-AMICDFS "Nein  - Kein AmiCDFS.")
  164.   (set #ask-amicdfs (cat "Möchten Sie das AMICDFS installieren ?\n\n"
  165.                          "AmiCDFS ist ein CD-ROM disk filing system für den Amiga. Es unterstützt"
  166.                          "das ISO-9660 standard (single und multiple sessions), das Rock Ridge"
  167.                          "Interchange Protocol und das Macintosh HFS format."
  168.                          "AmiCDFS 2.38 is written and copyright © 1996 by Martin Berndt."
  169.                     )
  170.   )
  171.   (set #where-amicdfs "Wo möchten Sie das AmiCDFS installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  172.  
  173.   (set #destchoice (cat "Bitte wählen Sie aus, wo die SCSI Programme installiert werden sollen. "
  174.                         "Ein Verzeichniss 'SCSI-Tools' wird erstellt, falls sich dort keins befindet."
  175.                    )
  176.   )
  177.  
  178.   (set #YES-MKIIUP "Ja - Ich habe das MKIIUpdate gemacht.")
  179.   (set #NO-MKIIUP  "Nein  - Ich habe es noch nicht gemacht.")
  180.   (set #ask-MKIIUP (cat "Haben Sie schon Ihr MKII UPdate gemacht ?\n\n"
  181.                         "Wenn Sie noch nicht das Update gemacht"
  182.                         "haben, dann wählen Sie jetzt NEIN."
  183.                     )
  184.   )
  185.   (set #where-Goodies "Wo möchten Sie die Goodies installieren?\n(Der Standard Pfad ist: \"Sys:SCSI-Tools\") ")
  186.  
  187.   (set #inst-prompt "\nWählen Sie die gewünschte Aktion aus.")
  188.   (set #first-time "Erstmalige Installation")
  189.   (set #post-inst "Nachträgliche Installation")
  190.  
  191.   (set #todo-prompt "Welche Komponenten möchten Sie installieren?")
  192.   (set #mkIIupdate "Docs/MK2Update.dok")
  193.  
  194. ))
  195.  
  196.  
  197.   (set #exitmsg (cat "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  198.                      " Installskript V1.0 bei C.Herrmann"
  199.                      " für phase5 SCSI Disk V2.2 (c) 1996"
  200.                      "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  201.                      " Dank geht an folgende Personen:\n"
  202.                      " M.Berndt für das AmiCDFS\n"
  203.                      " U.Trebbien für den tollen Plausch\n"
  204.                      " Allen AMIGA Usern.\n\n"
  205.                      " - AMIGA LIVES FOREVER ! -\n"
  206.   ))
  207.  
  208. (set #tools-todo   " Tools    - SCSIConfig3, UnitControl2")
  209. (set #goodies-todo " Goodies  - Programmers Tools")
  210. (set #dynamic-todo " DCache   - Dynamic Cache")
  211. (set #MSDos-todo   " DOS-Mount- MSDos Mounter")
  212. (set #amicdfs-todo " AmiCDFS  - CDRom FFS")
  213.  
  214. (set #exitmessage1 " Die Installations ist fertisch ! (so wie ich!)")
  215.  
  216. ;*********************************************************************************
  217. ;*                                                                               *
  218. ;* Install - Main                                                                *
  219. ;*                                                                               *
  220. ;*********************************************************************************
  221.  
  222.  (set modefile
  223.    (askchoice
  224.      (choices "None" #MK1 #MK2 #FZ3 #1234 #2060)
  225.      (prompt #ask-SCSIKIT)
  226.      (help   #ask-SCSIKIT)
  227.      (default 0)
  228.    )
  229.  )
  230.  
  231. (set ToDo
  232.    (askoptions 
  233.      (choices #tools-todo #goodies-todo #dynamic-todo #MSDos-todo #amicdfs-todo)
  234.      (prompt #todo-prompt)
  235.      (help #todo-prompt)
  236.      (default 63)
  237.    )
  238. ) 
  239.  
  240. ;*********************************************************************************
  241. ;*                                                                               *
  242. ;* GRUNDVERZWEIGUNG 2.STUFE - MAIN                                               *
  243. ;*                                                                               *
  244. ;*********************************************************************************
  245.  
  246. (if (<> ToDo 0)
  247.  (
  248.    (set whereTEMP
  249.      (askdir 
  250.        (prompt #destchoice)
  251.        (help @askdir-help)
  252.        (default "SYS:")
  253.      )
  254.    )
  255.  
  256.  
  257.    (if (< (exists (tackon whereTEMP "SCSI-Tools")) 2)
  258.        (makedir (tackon whereTEMP "SCSI-Tools") (infos))
  259.    )
  260.  
  261.    (if (< (exists (tackon whereTEMP "SCSI-Tools/Docs")) 2)
  262.        (makedir (tackon whereTEMP "SCSI-Tools/Docs") (infos))
  263.    )
  264.         
  265.    (set where (tackon whereTEMP "SCSI-Tools"))
  266.    (set @default-dest where)
  267.  
  268. ;*********************************************************************************
  269. ; SCSI-Tools kopieren !
  270. ;*********************************************************************************
  271.    (if (IN ToDo 0) 
  272.      (  
  273.  
  274.    (if (> modefile 0) (copyfiles (source (tackon #diskname "SCSITools"))  (dest (tackon where ""))     (all)) )
  275.    (if (> modefile 0) (copyfiles (source (tackon #diskname "SCSIDocs"))   (dest (tackon where "Docs")) (all)) )
  276.    
  277.      
  278.    (if (= modefile 1) (copyfiles (source (tackon #diskname "CStorm MK1"))  (dest (tackon where "")) (all) (infos))  )
  279.     
  280.    (if (= modefile 2) (copyfiles (source (tackon #diskname "CStorm MK2")) (dest (tackon where "")) (all) (infos))  )
  281.    (if (= modefile 2) (copyfiles (source (tackon #diskname "Docs"))       (dest (tackon where "")) (all) (infos))  )    
  282.  
  283.    (if (= modefile 2) (set #MK2UPD 1) )
  284.  
  285.    (if (= modefile 3) (copyfiles (source (tackon #diskname "Z3Fastlane"))  (dest (tackon where "")) (all) (infos))  )    
  286.    (if (= modefile 4) (copyfiles (source (tackon #diskname "1230-IV"))     (dest (tackon where "")) (all) (infos))  )    
  287.    (if (= modefile 5) (copyfiles (source (tackon #diskname "2040_2060"))   (dest (tackon where "")) (all) (infos))  )
  288.  
  289.      )
  290.    )
  291. ;*********************************************************************************
  292. ; SCSI-MK II Updaten
  293. ;*********************************************************************************
  294.   (if (= #MK2UPD 1)
  295.      (  
  296.       (set goodies
  297.            (askchoice
  298.            (choices #yes-MKIIUP #no-MKIIUP)
  299.            (prompt #ask-MKIIUP)
  300.            (help   #ask-MKIIUP)
  301.            (default 0)
  302.            )
  303.       )
  304.  
  305.  
  306.       (if (= goodies 1) 
  307.         (message (cat "\n\nPlease read the MKIIUPDATE.DOC !\n\n"
  308.                       "Bitte lesen Sie die MKIIUPDATE.DOK !\n\n"
  309.                   "Press CANCEL / Drücken Sie Abbrechen !\n\n"
  310.     ) )
  311.       )
  312.      )
  313.    )
  314.  
  315. ;*********************************************************************************
  316. ; SCSI-Goodies kopieren !
  317. ;*********************************************************************************
  318.    (if (IN ToDo 1) 
  319.      (  
  320.       (set goodies
  321.            (askchoice
  322.            (choices #yes-Goodies #no-goodies)
  323.            (prompt #ask-goodies)
  324.            (help   #ask-goodies)
  325.            (default 0)
  326.            )
  327.       )
  328.  
  329.  
  330.       (if (= goodies 0)
  331.         (
  332.           (if (< (exists (tackon where "Goodies")) 2)
  333.               (makedir (tackon where "Goodies") (infos))
  334.           )
  335.           (copyfiles (source (tackon #diskname "Goodies")) (dest (tackon where "Goodies")) (all) (infos)  )
  336.         )
  337.       )
  338.      )
  339.    )
  340. ;*********************************************************************************
  341. ; SCSI-Dynamic Cache kopieren !
  342. ;*********************************************************************************
  343.    (if (IN ToDo 2) 
  344.      (  
  345.       (set goodies
  346.            (askchoice
  347.            (choices #yes-dcache #no-dcache)
  348.            (prompt #ask-dcache)
  349.            (help   #ask-dcache)
  350.            (default 0)
  351.            )
  352.       )
  353.  
  354.  
  355.       (if (= goodies 0)
  356.         (
  357.           (if (< (exists (tackon where "DCache")) 2)
  358.               (makedir (tackon where "DCache") (infos))
  359.           )
  360.           (copyfiles (source (tackon #diskname "DCache")) (dest (tackon where "DCache")) (all) (infos) )
  361.         )
  362.       )
  363.      )
  364.    )
  365. ;*********************************************************************************
  366. ; SCSI-MSDosMount kopieren !
  367. ;*********************************************************************************
  368.    (if (IN ToDo 3) 
  369.      (  
  370.       (set goodies
  371.            (askchoice
  372.            (choices #yes-msdos #no-msdos)
  373.            (prompt #ask-msdos)
  374.            (help   #ask-msdos)
  375.            (default 0)
  376.            )
  377.       )
  378.  
  379.  
  380.       (if (= goodies 0)
  381.         (
  382.           (if (< (exists (tackon where "MSDos")) 2)
  383.               (makedir (tackon where "MSDos") (infos))
  384.           )
  385.           (copyfiles (source (tackon #diskname "MSDos")) (dest (tackon where "MSDos")) (all) (infos) )
  386.         )
  387.       )
  388.      )
  389.    )
  390. ;*********************************************************************************
  391. ; SCSI-AMICDFS kopieren !
  392. ;*********************************************************************************
  393.    (if (IN ToDo 4) 
  394.      (  
  395.       (set goodies
  396.            (askchoice
  397.            (choices #yes-amicdfs #no-amicdfs)
  398.            (prompt #ask-amicdfs)
  399.            (help   #ask-amicdfs)
  400.            (default 0)
  401.            )
  402.       )
  403.  
  404.  
  405.       (if (= goodies 0)
  406.         (
  407.           (set #lpath #diskname)
  408.           (run (tackon #lpath "c/lha")"x"(tackon #diskname "amicdfs238.lha") (tackon where ""))
  409.         )
  410.       )
  411.      )
  412.    )
  413. ;*********************************************************************************
  414. ; Ende des Main
  415. ;*********************************************************************************
  416.   )
  417. )
  418. ;*********************************************************************************
  419. ;*                                                                               *
  420. ;* Ende der Installation                                                         *
  421. ;*                                                                               *
  422. ;*********************************************************************************
  423.  
  424. (message #exitmsg)
  425.