home *** CD-ROM | disk | FTP | other *** search
/ Dream 49 / Amiga_Dream_49.iso / amiga / programmation / jeu / animated1_50.lha / animated / AnimatED.install < prev    next >
Text File  |  1997-12-25  |  3KB  |  135 lines
  1.  
  2. ;************************************************
  3. ;*   AnimatED install script v1.50 (01-Jan-98)  *
  4. ;************************************************
  5.  
  6. ;*************
  7. ; Set strings
  8. ;*************
  9.  
  10. (set #where-prompt
  11. (cat "Where should I install AnimatED? \n (No directory will be created!)"
  12. ))
  13.  
  14. ;*************
  15. ; Ask dest dir
  16. ;*************
  17.  
  18. (set where (askdir (prompt #where-prompt)
  19.                    (help @askdir-help)
  20.                    (default @default-dest)
  21.            )
  22. )
  23.  
  24. (set @default-dest where)
  25.  
  26. ;***********
  27. ; Copy font
  28. ;***********
  29.  
  30. (copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
  31. (complete 5)
  32.  
  33. ;************
  34. ; Copy files
  35. ;************
  36.  
  37. (copyfiles (source "AnimatED") (dest where))
  38. (complete 40)
  39. (copyfiles (source "AnimatEDPlay") (dest where))
  40. (complete 60)
  41. (copyfiles (source "AnimatED.Guide") (dest where))
  42. (complete 70)
  43. (copyfiles (source "AED_OrderForm") (dest where))
  44. (copyfiles (source "AED_OrderForm.info") (dest where))
  45. (complete 75)
  46. (copyfiles (source "ReadMe") (dest where))
  47. (copyfiles (source "ReadMe.info") (dest where))
  48. (complete 80)
  49.  
  50. ;****************************
  51. ; Ask which and install icons
  52. ;****************************
  53. (set #ICONS
  54.     (askchoice
  55.     (prompt "\nWhich type of icons do want to install?")
  56.     (help "\nHi! Just select one of the icon types.")
  57.         (default 0)
  58.     (choices
  59.                 "#1: Standard AnimatED Icons"
  60.                 "#2: MagicWB-Style Icons; 8 colours"
  61.                 "#3: Classic-WB-Style Icons; 4 colours"
  62.                 "#4: NewIcons"
  63.         )
  64.     )
  65. )
  66.  
  67. (if (= #ICONS 0)
  68.  (copyfiles (source "AnimatED.info") (dest where))
  69. )
  70. (if (= #ICONS 0)
  71.  (copyfiles (source "AnimatEDPlay.info") (dest where))
  72. )
  73. (if (= #ICONS 0)
  74.  (copyfiles (source "AnimatED.Guide.info") (dest where))
  75. )
  76.  
  77. (if (= #ICONS 1)
  78.  (copyfiles (source "icons/AnimatED_MWB.info") (newname "AnimatED.info") (dest where))
  79. )
  80. (if (= #ICONS 1)
  81.  (copyfiles (source "icons/AnimatEDPlay_MWB.info") (newname "AnimatEDPlay.info") (dest where))
  82. )
  83. (if (= #ICONS 1)
  84.  (copyfiles (source "icons/AnimatED_MWB.Guide.info") (newname "AnimatED.Guide.info") (dest where))
  85. )
  86.  
  87. (if (= #ICONS 2)
  88.  (copyfiles (source "icons/AnimatED.info") (dest where))
  89. )
  90. (if (= #ICONS 2)
  91.  (copyfiles (source "icons/AnimatEDPlay.info") (dest where))
  92. )
  93. (if (= #ICONS 2)
  94.  (copyfiles (source "icons/AnimatED.Guide.info") (dest where))
  95. )
  96.  
  97. (if (= #ICONS 3)
  98.  (copyfiles (source "icons/AnimatED_NI.info") (newname "AnimatED.info") (dest where))
  99. )
  100. (if (= #ICONS 3)
  101.  (copyfiles (source "icons/AnimatEDPlay_NI.info") (newname "AnimatEDPlay.info") (dest where))
  102. )
  103. (if (= #ICONS 3)
  104.  (copyfiles (source "icons/AnimatED_NI.Guide.info") (newname "AnimatED.Guide.info") (dest where))
  105. )
  106.  
  107. ;**************************
  108. ; Copy keyfile if available
  109. ;**************************
  110.  
  111. (if (= (exists "AnimatED.key") 1)
  112.  (copyfiles (source "AnimatED.key") (dest where))
  113. )
  114.  
  115. ;********************
  116. ; Ask and copy extras
  117. ;********************
  118.  
  119. (set name
  120.  (askbool
  121.  (prompt "\nDo you want to install the example?")
  122.  (help "\nIt's up to YOU!")
  123.  )
  124. )
  125.  
  126. (if (= name 1)
  127.   (copyfiles (source "Example") (dest (tackon where "Example")) (all))
  128. )
  129.  
  130. (complete 100)
  131.  
  132. ;****
  133. ;End
  134. ;****
  135.