; Instalacion para AmigaTEd V4.7 en Español
; $VER: AmigaTEd 4.7 (2.07.97)

(if (< (/ (getversion) 65536) 37)
  (abort "AmigaTEd requiere ROM 2.04+. Lo siento.")
)

(complete 0)

(message 
       "Este script instala y prepara AmigaTEd para\n"
       "ser usado en su version Española V4.7\n"
       "Cualquier Amiga con ROM 2.04+\n"
       "Copyright de Daniel Avellá 1996-1997\n\n"
       "AMIGA FOREVER !!!")
(set AmigaTEdDir
    (askdir (help @askdir-help) (prompt "Escoge el directorio donde quieres instalar\nAmigaTEd. Un cajon llamado AmigaTEd sera creado.")
    (default "Ram:")
  ))

(makedir (tackon AmigaTEdDir "AmigaTEd")
    (prompt "Creando el directorio AmigaTEd...")
    (help @makedir-help)
)

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

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

(complete 10)

(message
       "El cajon AmigaTEd ha sido creado\n"
       "en "AmigaTEdDir"\n"
       "Ahora voy a copiar el ejecutable AmigaTEd y la\n"
       "documentacion (version en Español) en el cajon\n"
       "AmigaTEd.")

(copyfiles
  (prompt "Copiando el programa...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEd")
  (dest @default-dest)
)

(complete 35)

(copyfiles
  (prompt "Copiando el icono version Española...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEsp.info")
  (dest @default-dest)
  (newname "AmigaTEdESP.info")
)

(copyfiles
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdESP")
  (dest @default-dest)
)

(complete 50)

(copyfiles
  (prompt "Copiando la documentacion en Español...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEsp.guide")
  (dest @default-dest)
)

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

(complete 75)

(message
       "Ahora voy a crear un directorio (en el cajon\n"
       "AmigaTEd) llamado EnglishFiles. Es el lugar\n"
       "donde copiare el AmigaTEd.info (Ingles) y el\n"
       "AmigaTEdEng.guide (documentacion en Ingles de\n"
       "AmigaTEd).\n"
       "Recuerda que si quieres copiar/distribuir este\n"
       "programa, deberas hacerlo con todos sus ficheros\n"
       "originales del archivo AmigaTEd47.lha")

(makedir (tackon prdir "EnglishFiles")
    (prompt "Creando el directorio para los ficheros en Ingles...")
    (help @makedir-help)
)

(set englishf (tackon prdir "EnglishFiles"))
(set @default-dest englishf)

(copyfiles
  (prompt "Copiando ficheros relacionados con la Ver. Inglesa...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.guide")
  (dest @default-dest)
)

(copyfiles
  (prompt "Copiando ficheros relacionados con la Ver. Inglesa...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.guide.info")
  (dest @default-dest)
)

(copyfiles
  (prompt "Copiando ficheros relacionados con la Ver. Inglesa...\n")
  (help @copyfiles-help)
  (source "AmigaTEd/AmigaTEdEng.info")
  (dest @default-dest)
)

(complete 100)

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

(message "Instalacion de AmigaTEd V4.7 Español completada !!.\n\n"
         "Este programa es Freeware !\n"
         "Disfrutalo !!")

(exit)