home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / Sound2Motion / Install < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.4 KB  |  79 lines
  1. ; Install Script for Sound2Motion v1.21
  2. ; Written by Alvaro Thompson. s2m is written by David Howe, so therefore
  3. ; Sound2Motion is ©1997 David Howe
  4.  
  5. (set #info
  6. (cat "Sound2Motion v1.21"
  7.      "\n\nWritten by David Howe"
  8.      "\n©1997"
  9.      "\n\nTo contact the author, please write to:"
  10.      "\n\n9 Barnfield Street"
  11.      "\nDenton, Manchester"
  12.      "\nM34 3PE"
  13.      "\nEngland"
  14. ))
  15.  
  16. (set #where
  17. (cat "Where do you wish to install s2m?"
  18.      "\n(A drawer will be created)"
  19. )) 
  20.  
  21. (set #anims
  22. (cat "Where do you usually store your Animations?"
  23. ))    
  24.  
  25. (message #info)
  26.  
  27. (set destination
  28.   (askdir
  29.    (prompt #where)
  30.    (help @askdir-help)
  31.    (default "Sys:")
  32.   )
  33. )
  34.  
  35. (makedir (tackon destination "Sound2Motion"))
  36.  
  37. (set trgt (tackon destination "Sound2Motion"))
  38.  
  39. (copyfiles
  40.  (help @copyfiles-help)
  41.  (source "/Sound2Motion.info")
  42.  (dest destination)
  43.  (noposition)
  44. )
  45.  
  46. (copyfiles
  47.  (help @copyfiles-help)
  48.  (source "")
  49.  (dest trgt)
  50.  (all)
  51. )
  52.  
  53. (delete (tackon trgt "Install"))
  54. (delete (tackon trgt "Install.info"))
  55.  
  56. (set anims
  57.   (askdir
  58.    (prompt #anims)
  59.    (help @askdir-help)
  60.    (default "PPaint:Animations")
  61.   )
  62. )
  63.  
  64. (set #startup
  65. (cat "I need to make the following assigns:"
  66.      '\n\nAssign Sound2Motion: 'trgt
  67.      '\nAssign Anims: 'anims
  68. ))     
  69.  
  70. (startup "Sound2Motion"    
  71.   (prompt #startup)
  72.   (help @startup-help)
  73.   (command 'Assign Sound2Motion: "'trgt'"')
  74.   (command '\nAssign Anims: "'anims'"')
  75. )
  76.         
  77. (set @default-dest trgt)
  78.  
  79. (exit)