home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #5 / amigaacscoverdisc1997-051997.i / games / shareware / adom020 / adom_install next >
Text File  |  1997-08-14  |  2KB  |  69 lines
  1. ;======================================================================
  2. ;
  3. ; Adom Install Script $VER: Install 1.1 (3.5.97)
  4. ;
  5. ; Copyright © 1997 Jochen Terstiege
  6. ;
  7. ;======================================================================
  8.  
  9. (set #hello "\nWelcome to the Adom Installation\n\n\Version 0.9.9 Gamma 6A")
  10. (set #select_destination "Where should i create the Adom directory?")
  11. (set #destination_help (cat "Choose a destination partition or directory. "
  12.     "A directory called 'Adom' will be created there."))
  13. (set #install_to1 "\nInstall Adom to \"")
  14. (set #install_to2 "\" ?")
  15. (set #have_fun (cat "Please check out the new features of Adom:\n\n"
  16.     "· screenmode requester\n· support for publicscreens\n\n"
  17.     "For more details see adom-amiga.txt!\n\n\nHave fun with Adom..."))
  18.  
  19. ;======================================================================
  20. ; variables
  21. ;======================================================================
  22.  
  23. (set adom_source (pathonly @icon))    ; from where we were started
  24. (set adom_drawer "Adom")                ; destination drawer name
  25. (set adom_dest    "Work:")                    ; default destination
  26.  
  27. ;======================================================================
  28. ; welcome
  29. ;======================================================================
  30.  
  31. (message #hello)
  32.  
  33. ;======================================================================
  34. ; select destination
  35. ;======================================================================
  36.  
  37. (set adom_dest
  38.     (askdir
  39.         (prompt #select_destination)
  40.         (default "Work:")
  41.         (help #destination_help)
  42.     )
  43. )
  44. (set adom_dest (tackon adom_dest adom_drawer))
  45. (set @default-dest adom_dest)
  46.  
  47. ;======================================================================
  48. ; make directory
  49. ;======================================================================
  50.  
  51. (if (not (exists adom_dest))
  52.     (
  53.         (message (cat #install_to1 adom_dest #install_to2))
  54.         (makedir adom_dest (infos))
  55.     )
  56. )
  57.  
  58. ;======================================================================
  59. ; copy files
  60. ;======================================================================
  61.  
  62. (complete 0)
  63.  
  64. (copyfiles (source (tackon adom_source "Adom")) (dest adom_dest) (all))
  65.  
  66. (complete 100)
  67.  
  68. (exit #have_fun)
  69.