;**********************************************************************************************
;*                                                                                            *
;*                              Install Script for MADS v1                                    *
;*                                                                                            *
;*                                                                                            *
;*                                                                                            *
;*  English Translation: Alvaro Thompson                                                      *
;*  Spanish Translation: Alvaro Thompson                                                      *
;*  Italian Translation: Ital 2.5                                                                                          *
;*  French  Translation: Regis Falck                                                          *
;*                                                                                            *
;**********************************************************************************************
;
; $VER: MADS Install 1.0 (15.6.97)

(set lng @language)
(set version "1.0")


(

(set #info     "Welcome to the MADS Installation Script!\n\nMADS is Copyright ©1997 Alvaro Thompson\nAll Rights Reserved.")
(set #where    "Where do you wish to install MADS?\n(A Drawer will be created)")
(set #pp       "I am now going to install the PowerPacker.library")
(set #reqtools "I am now going to install the Reqtools.library")
(set #visit    "Please visit the MADS support site:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")

)

(if (= lng "español")
(

(set #info     "¡Bienvendo a la instalación de MADS v1!\n\nMADS es Copyright ©1997 Alvaro Thompson\nTodos los derechos reservado.")
(set #where    "¿Donde quieres instalar MADS?\n(Un Cajón sera creado)")
(set #pp       "Ahora voy a instalar PowerPacker.library")
(set #reqtools "Ahora voy a instalar Reqtools.library")
(set #visit    "Visite el MADS web site:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")

))

(if (= lng "italiano")
(

(set #info     "Benvenuto al MADS Script di Installazione!\n\nMADS è Copyright ©1997 Alvaro Thompson\nTutti i Diritti Riservati")
(set #where    "Dove tu desideri installare MADS?\n(Un Cassetto sarà creato)")
(set #pp       "Io sto ora per installare il PowerPacker.library")
(set #reqtools "Io sto ora per installare il Reqtools.library")
(set #visit    "Per piacere Controlla il MADS Supportare sito:\n\nhttp://homepages.enterprise.net/alvaro/MADS/") 

))

(if (= lng "français")
(

(set #info     "Bienvenue dans le script d'installation de MADS!\n\nMADS est Copyright ©1997 Alvaro Thompson\nTous Droits Réservés.")
(set #where    "Où voulez-vous installer MADS?\n(Un répertoire sera créé)")
(set #pp       "Je vais installer maintenant la PowerPacker.library")
(set #reqtools "Je vais installer maintenant la Reqtools.library")
(set #visit    "Visite le MADS supporte:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")

))


(message #info)

(set destination
 (askdir
  (prompt #where)
  (help @askdir-help)
  (default "Sys:")
 )
)

(makedir (tackon destination "MADS"))
(set trgt (tackon destination "MADS"))

(copyfiles
 (help @copylib-help)
 (source "/Fonts/")
 (dest "FONTS:")
 (all)
)

(copylib
 (prompt #reqtools)
 (source "/Libs/reqtools.library")
 (dest "LIBS:")
 (help @copylibs-help)
) 

(copylib
 (prompt #pp)
 (source "/Libs/powerpacker.library")
 (dest "LIBS:")
 (help @copylibs-help)
) 

(copyfiles
 (help @copyfiles-help)
 (source "/")
 (dest trgt)
 (all)
)
 
(delete (tackon trgt "Install" (all)))
(delete (tackon trgt "Install.info"))
(delete (tackon trgt "Fonts" (all)))
(delete (tackon trgt "Fonts.info"))
(delete (tackon trgt "Libs" (all)))
(delete (tackon trgt "Libs.info"))

(set @default-dest trgt)

(message #visit)