home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / animated / AnimatED.install < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.9 KB  |  91 lines
  1.  
  2. ;************************************************
  3. ;*   AnimatED install script v1.2 (8-Apr-97)   *
  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. (copyfiles (source "AnimatED.info") (dest where))
  39. (complete 40)
  40. (copyfiles (source "AnimatEDPlay") (dest where))
  41. (copyfiles (source "AnimatEDPlay.info") (dest where))
  42. (complete 60)
  43. (copyfiles (source "AnimatED.guide") (dest where))
  44. (copyfiles (source "AnimatED.guide.info") (dest where))
  45. (complete 70)
  46. (copyfiles (source "AED_OrderForm") (dest where))
  47. (copyfiles (source "AED_OrderForm.info") (dest where))
  48. (complete 75)
  49. (copyfiles (source "ReadMe") (dest where))
  50. (copyfiles (source "ReadMe.info") (dest where))
  51. (copyfiles (source "AnimComp.txt") (dest where))
  52. (copyfiles (source "AnimComp.txt.info") (dest where))
  53. (complete 80)
  54.  
  55. ;********************
  56. ; Ask and copy extras
  57. ;********************
  58.  
  59. (set name
  60.  (askbool
  61.  (prompt "\nDo you want to install the example?")
  62.  (help "\n It's up to YOU!")
  63.  )
  64. )
  65.  
  66. (if (= name 1)
  67.   (copyfiles (source "Example") (dest (tackon where "Example")) (all))
  68. )
  69.  
  70. (complete 95)
  71.  
  72. (set name
  73.  (askbool
  74.  (prompt "\nDo you want to install the ScriptConvert utility?")
  75.  (help "\n This program is needed to convert AnimatED 1.1\n scripts to the new format.")
  76.  )
  77. )
  78.  
  79. (if (= name 1)
  80.   (copyfiles (source "ScriptConvert") (dest where))
  81. )
  82. (if (= name 1)
  83.   (copyfiles (source "ScriptConvert.info") (dest where))
  84. )
  85.  
  86. (complete 100)
  87.  
  88. ;****
  89. ;End
  90. ;****
  91.