home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 105 / af105sub.adf / Subtitler.LZX / SubTitlerDemo / HD_Install < prev    next >
Text File  |  1997-10-12  |  2KB  |  100 lines
  1. ;
  2. ;  Sub Titler HD Install script
  3. ;
  4.  
  5. (set @default-dest "Work:")    
  6.  
  7.  
  8. (welcome (message "\n\n\n\nThis script will help you install\nthe SubTitler to your hard disk.\nJust follow the instructions.\n\nIf you don't have Hard Disk then copy \nall files to a disk and just boot from it.\nMake sure you also have diskfont.library\nand reqtools.library in libs: on that disk!")
  9. )
  10.  
  11. (complete 0)
  12. (set dest2 (askdir  (prompt "Select the location to install the SubTitler.\nA drawer will be created there\nand all needed files are copied into it."
  13.                     )
  14.                         (default @default-dest)
  15.                         (help "C'mon...just select where to copy SubTitler!")
  16.            )
  17. )
  18.  
  19. (set dest1 (tackon dest2 "SubTitlerDemo"))
  20.  
  21. (if (<> (exists dest1) 2) (makedir dest1 (infos)))
  22. (if (<> (exists (tackon dest1 "/Titles")) 2) (makedir (tackon dest1 "Titles")))
  23. (if (<> (exists (tackon dest1 "/Titles/Backup")) 2) (makedir (tackon dest1 "Titles/Backup")))
  24.  
  25.  
  26. (set @default-dest dest1)    
  27.  
  28.  
  29. (complete 10)
  30.     (copyfiles
  31.         ; main program
  32.         (help @copyfiles-help)
  33.         (source "SubTitler")
  34.                 (dest dest1)
  35.         (files)
  36.                 (infos)
  37.     )
  38.  
  39. (complete 20)
  40.     (copyfiles
  41.         ; Docs
  42.         (help @copyfiles-help)
  43.         (source "SubTitler.Doc")
  44.                 (dest dest1)
  45.         (files)
  46.                 (infos)
  47.     )
  48.  
  49. (complete 30)
  50.     (copyfiles
  51.         ; Readme
  52.         (help @copyfiles-help)
  53.         (source "ReadMeFirst")
  54.                 (dest dest1)
  55.         (files)
  56.                 (infos)
  57.     )
  58.  
  59.  
  60. (complete 35)
  61.     (copyfiles
  62.         ; history
  63.         (help @copyfiles-help)
  64.         (source "History.txt")
  65.                 (dest dest1)
  66.         (files)
  67.                 (infos)
  68.     )
  69.  
  70. (complete 40)
  71.     (copyfiles
  72.         (help @copyfiles-help)
  73.         (source "Titles")
  74.                 (dest (tackon dest1 "Titles"))
  75.         (all)
  76.         (files)
  77.     )
  78.  
  79. (complete 50)
  80.     (copyfiles
  81.         (help @copyfiles-help)
  82.         (source "Gfx")
  83.                 (dest (tackon dest1 "Gfx"))
  84.         (all)
  85.         (files)
  86.     )
  87.  
  88.  
  89. (complete 70)
  90.         (copyfiles
  91.         (Prompt "About to install SubTitler fonts to Fonts:")
  92.         (source "Fonts")
  93.         (help "Some fine antialiased fonts come with SubTitler, I suggest you to select proceed to install them, otherwise the output of the SubTitler may not be as good as I desigend it to be.")
  94.                 (dest "Fonts:")
  95.         (all)
  96.                 (confirm)
  97.     )
  98.    (complete 100)
  99. (exit "\n\n\nBe sure to read the docs\nto get the most out of SubTitler!")
  100.