;***************************************
;* Script de instalación de TRASHCAN#1 *
;*      (K) 1996 ¡Tony Stuvo Aky!      *
;***************************************
;* Un saludo a todos mis amiguetes del *
;*                Amiga                *
;***************************************
;* ¡A VER SI NOS ESCRIBÍS ALGO PARA LA *
;*             TRASHCAN#2!             *
;***************************************

(complete 0)

(set destino "SYS:")

(message
    " \n"
    " #########*+--                               \n"
    "#*  ##                  ##                   \n"
    " #*+-##             #   ##                   \n"
    "     ##  ##   ##   ###  ###   ###   ##   ### \n"
    "   #*## ## # ## #    ## ## # ##  # ## #  ## #\n"
    "  #* ## ##   ## # ##  # ## # ##    ## #  ## #\n"
    "   ###  ##    #### ###  ## #  ####  #### ## #\n\n" 
    "<( Ejkrý pá flosmateá er dyjko de synko p-las )>\n\n"
    "Traducción: Script para instalar la revista en el\n"
    "disco duro."
)

(set destino
   (askdir
		(prompt "Selecciona el directorio donde quieras\n"
		        "que se instale la revista.\n")
		(default destino)
		(help   "\n\n"
                " ¡Hola Karabola! Pues lo que quiero que hagas es\n"
			    " simplemente  que  elijas donde  demonios debo meter\n"
			    " todo el pelote de ficheros de la revista, porque si\n"
		 	    " no te los voy a incrustar donde me dé la gana.\n")
   )
                            
)

(set destino (tackon destino "TRASHCAN"))

(makedir destino (infos))

(working "Borrándote el disco dur... \n"
         "       digooo...           \n"
         "  Instalando TRASHCAN#1.   \n")

(askdisk (dest "TRASHDISK01_1")
         (prompt "\n\n\n"
                 "  ¡Eeeeh! ¿Dónde diablos has puesto el disco 1?\n"
                 "  ¡Ya lo estás volviendo a meter en la unidad!\n")
         (help "\n\n\n\n"
               "    ¡Pareces un p0!  ¿Quieres dejar de preguntar \n"
               "    sandeces y meter el disco de las narices ya? \n"
               "          ¡KE NO TENGO TODO EL DÍA, COÑO!        \n")
         (assigns)
)

(copyfiles 
         (source "TRASHDISK01_1:Trash_01")
         (dest destino))
(copyfiles 
         (source "TRASHDISK01_1:Trashcan.info")
         (dest destino))
(copyfiles 
         (source "TRASHDISK01_1:Trashcan")
         (dest destino))

(complete 16)

(copyfiles 
         (source "TRASHDISK01_1:Trashcan#01_A")
         (dest destino))

(complete 33)

(set destino2 (tackon destino "Fuentes"))

(makedir destino2 (infos))
     (copyfiles (source "TRASHDISK01_1:Fuentes/SourceInProgress.lzx")
                   (dest destino2))
     (copyfiles (source "TRASHDISK01_1:Fuentes/RomanStartup30.lzx")
                   (dest destino2))
     (copyfiles (source "TRASHDISK01_1:Fuentes/SourceDistortions.lzx")
                   (dest destino2))
(complete 42)
     (copyfiles (source "TRASHDISK01_1:Fuentes/FuenteIntroAmos.lzx")
                   (dest destino2))
     (copyfiles (source "TRASHDISK01_1:Fuentes/FuentePlasmaAmos.lzx")
                   (dest destino2))
     (copyfiles (source "TRASHDISK01_1:Fuentes/FuenteComecocosAmos.lzx")
                   (dest destino2))
     (copyfiles (source "TRASHDISK01_1:IntroTrashcan1")
                   (dest destino))
     (copyfiles
         (source "TRASHDISK01_1:Votetool")
         (dest destino))
    (copyfiles
         (source "TRASHDISK01_1:Votetool.info")
         (dest destino))

(complete 50)

(askdisk (dest "TRASHDISK01_2")
         (prompt "\n\n\n" 
                 "Oye guapo, ¿me puedes meter... el disco 2?")
         (help "\n\n\n\n"
               "     Pero bueno, ¿es que no sabes ni meterlo?  Tal\n"
               " vez  deberías ver  más programas  de  la  doctora\n"
               " Anchoa esa...\n")
         (assigns)
)

(working "Formateando DH0: a bajo niv...\n"
         "           estooo...          \n"
         "    Instalando TRASHCAN#1.    \n")

(copyfiles (source "TRASHDISK01_2:Trashcan#01_B")
           (dest destino))

(complete 66)
 
(copyfiles 
         (source "TRASHDISK01_2:Trashcan#01_C")
         (dest destino))

(complete 83)

(copyfiles 
         (source "TRASHDISK01_2:Trashcan#01_D")
         (dest destino))

(copyfiles
         (source "TRASHDISK01_2:Probador")
         (dest destino))

(complete 100)

(message         "\n\n\n"
                 "          Bufff...  ¡Por fin!         \n"
                 "¡Parecía que no se iba a acabar nunca!\n"
                 "   Pero ya está todo dispuesto para   \n"
                 "  que puedas disfrutar de tu revista  \n"
                 "               favorita.              \n"
                 "          ¡KE LA DISPHRUTES!          \n"
)