home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / MidI / a!hdfr38.lha / HD_Freq / Install_HDFrequency < prev    next >
Encoding:
Text File  |  1994-03-20  |  4.8 KB  |  195 lines
  1. ; $VER: HDF Install V 2.0 (20.03.94)
  2. ; Script to install HD Frequency
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7.  
  8.  
  9. (set #bad-kick
  10. (cat "Zur Installation von HD Frequency ist mindestens Kickstart 2.04 "
  11.      "erforderlich."
  12. ))
  13.  
  14. (set #introduction
  15. (cat "\n\nDieses Programm installiert HD Frequency Release 2 "
  16.      "auf Ihre Festplatte.\n\n"
  17.      "Bitte lesen Sie vor der Installation genau Ihr Handbuch durch, "
  18.      "damit Sie anschließend die richtige Programmversion installieren."
  19.      ))
  20.  
  21. (set #ask-function
  22. (cat "Bitte wählen Sie die Programmversion aus, die "
  23.      "Sie installieren möchten :"
  24. ))
  25.  
  26. (set #ask-function-help
  27. (cat "Hier können Sie sich die Programmversion"
  28.      "installieren, die für Ihre Anwendungen am besten erscheint.\n"
  29.      "Die 68000 1 MB Version benötigt mindestens 310 kB Chip und 450 kB"
  30.      " anderen Speicher\n"
  31.      "Die 68020 3 Stimmen Version ist eine abgespeckte Version der "
  32.      "68020 Version. Sie ermöglicht lediglich die Wiedergabe von 3 "
  33.      "CPU Stimmen.\n\n"
  34.      "Nähere Informationen finden Sie in Ihrem Handbuch."
  35. ))
  36.  
  37. (set #ask-function-1
  38. (cat "68000 1 MB Version"
  39. ))
  40.  
  41. (set #ask-function-2
  42. (cat "68000 2 MB Version"
  43. ))
  44.  
  45. (set #ask-function-3
  46. (cat "68020 2 MB Version"
  47. ))
  48. (set #ask-function-4
  49. (cat "68020 2 MB 3 Stimmen Version "
  50. ))
  51.  
  52.  
  53.  
  54. (set #which-disk
  55. (cat "Wohin soll HD-Frequency installiert werden ?"
  56. ))
  57.  
  58. (set #which-disk-help
  59. (cat ""
  60. ))
  61.  
  62. ;=============================================================================
  63. ; make sure we are running under V37
  64.  
  65. (if (< (/ (getversion) 65536) 37)
  66.  
  67.  
  68. (
  69.     (abort #bad-kick)
  70. ))
  71.  
  72. (set old_wb
  73. (cat    "Work:"
  74. ))
  75.  
  76. (set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
  77. (set old_wb (expandpath old_wb))
  78. (user 2)
  79.  
  80.  
  81. ;=============================================================================
  82.  
  83.  
  84. (message #introduction)
  85.  
  86. (set motorola 0)
  87.  
  88. (set motorola (askchoice (prompt #ask-function)
  89.               (help #ask-function-help)
  90.              (choices #ask-function-1 #ask-function-2
  91.                       #ask-function-3 #ask-function-4
  92.              )
  93.              (default 1)
  94.     )
  95. )
  96.  
  97.  
  98.  
  99. (user 0)
  100. (set old_level @user-level)
  101.  
  102. ;=============================================================================
  103.  
  104. (if (= (strlen old_wb) 0)
  105. (
  106.     (user 2)
  107.     (set target (askdir (prompt #which-disk)
  108.                         (help #askdir-help)
  109.                         (default "work:")
  110.                         (disk)
  111.                 )
  112.     )
  113.     (user old_level)
  114. )
  115. (
  116.     (if (askbool (prompt (#confirm-target old_wb))
  117.                  (default 1)
  118.         )
  119.     (
  120.         (set target old_wb)
  121.     )
  122.     (
  123.         (set target (askdir (prompt #which-disk)
  124.                             (help #which-disk-help)
  125.                             (default old_wb)
  126.                             (disk)
  127.                     )
  128.         )
  129.     ))
  130. ))
  131.  
  132.  
  133. (set @default-dest target)
  134. (set stash_old (tackon target "old")
  135. )
  136.  
  137.  
  138.         
  139.             (if (= 1 motorola)
  140.             (
  141.                 (copyfiles (source
  142.                            (cat "HD_Frequency:HDFrequency_68000"))
  143.                            (dest (tackon target "HDFrequency"))
  144.                 )
  145.                 (copyfiles (source
  146.                            (cat "HD_Frequency:HDFrequency_68000.info"))
  147.                            (dest (tackon target "HDFrequency"))
  148.                 )
  149.             ))
  150.               
  151.                 (if (= 2 motorola)
  152.             (
  153.                 (copyfiles (source
  154.                            (cat "HD_Frequency:HDFrequency_68000e"))
  155.                            (dest (tackon target "HDFrequency"))
  156.                 )
  157.                 (copyfiles (source
  158.                            (cat "HD_Frequency:HDFrequency_68000e.info"))
  159.                            (dest (tackon target "HDFrequency"))
  160.                 )
  161.             ))
  162.  
  163.                 (if (= 4 motorola)
  164.             (
  165.                 (copyfiles (source
  166.                            (cat "HD_Frequency:HDFrequency_68020"))
  167.                            (dest (tackon target "HDFrequency"))
  168.                 )
  169.                 (copyfiles (source
  170.                            (cat "HD_Frequency:HDFrequency_68020.info"))
  171.                            (dest (tackon target "HDFrequency"))
  172.                 )
  173.             ))
  174.  
  175.                 (if (= 8 motorola)
  176.             (
  177.                 (copyfiles (source
  178.                            (cat "HD_Frequency:HDFrequency_68020l"))
  179.                            (dest (tackon target "HDFrequency"))
  180.                 )
  181.                 (copyfiles (source
  182.                            (cat "HD_Frequency:HDFrequency_68020l.info"))
  183.                            (dest (tackon target "HDFrequency"))
  184.                 )
  185.             ))
  186.  
  187. ; copy drawer icon
  188. (copyfiles (source
  189.                            (cat "HD_Frequency:HDFrequency.info"))
  190.                            (dest (tackon target ""))
  191.                 )      
  192. (complete 100)
  193.  
  194.  
  195.