; Installation script for AmigaTEd V4.7 English
; $VER: AmigaTEd 4.7 (2.07.97)

(if (< (/ (getversion) 65536) 37)
  (abort "You need ROM 2.04+ to use AmigaTEd. Sorry.")
)

(complete 0)

(message 
       "Script to install AmigaTEd V4.7 English\n"
       "Any Amiga with ROM 2.04+ and 1Mb Ram\n"
       "Copyright by Daniel Avella 1996-1997\n\n"
       "AMIGA FOREVER !!!")
(set AmigaTEdDir
    (askdir (help @askdir-help) (prompt "Select the directory where do you want to install\nAmigaTEd. A drawer called AmigaTEd will be created.")
    (default "Ram:")
  ))

(makedir (tackon AmigaTEdDir "AmigaTEd")
    (prompt "Creating AmigaTEd drawer...")
    (help @makedir-help)
)

(copyfiles
   (help @copyfiles-help)
   (source "AmigaTEd.info")
   (dest AmigaTEdDir)
)

(set prdir (tackon AmigaTEdDir "AmigaTed"))
(set @default-dest prdir)

(complete 10)

(message
       "All right ! AmigaTEd drawer created\n"
       "in "AmigaTEdDir"\n"
       "Now I copy AmigaTEd program and documentation\n"
       "(English version) into AmigaTEd drawer.")

(copyfiles
  (prompt "Copying AmigaTEd program...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEd")
  (dest @default-dest)
)

(complete 35)

(copyfiles
  (prompt "Copying English icon...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.info")
  (dest @default-dest)
  (newname "AmigaTEd.info")
)

(complete 40)

(copyfiles
  (prompt "Copying English documentation...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.guide")
  (dest @default-dest)
)

(copyfiles
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.guide.info")
  (dest @default-dest)
)

(complete 65)

(message
       "Now I make a directory (in AmigaTEd drawer\n"
       "called SpanishFiles. Is a place to keep\n"
       "AmigaTEd.info (Spanish icon) and\n"
       "AmigaTEdEsp.guide (Spanish documentation)\n"
       "Remember if you want to copy/distribute this\n"
       "program. You must distribute all original files\n"
       "in AmigaTEd47.lha file")

(makedir (tackon prdir "SpanishFiles")
    (prompt "Creating drawer SpanishFiles...")
    (help @makedir-help)
)

(set spanishf (tackon prdir "SpanishFiles"))
(set @default-dest spanishf)

(copyfiles
  (prompt "Copying Spanish files...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEsp.info")
  (dest @default-dest)
)

(copyfiles
  (prompt "Copying Spanish files...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdESP")
  (dest @default-dest)
)

(complete 75)

(copyfiles
  (prompt "Copying Spanish files...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEsp.guide")
  (dest @default-dest)
)

(complete 90)

(copyfiles
  (prompt "Copying Spanish files...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEsp.guide.info")
  (dest @default-dest)
)

(complete 100)

(set prdir (tackon AmigaTEdDir "AmigaTed"))
(set @default-dest prdir)

(message "AmigaTEd V4.7 English OK !!.\n\n"
"This program is Freeware !\n"
"Enjoy !!")

(exit)