;**********************************************************************************************
;*                                                                                            *
;*                              Install Script for MADS v1.4                                  *
;*                                                                                            *
;*                                                                                            *
;*                                                                                            *
;*  English Translation: Alvaro Thompson                                                      *
;*  Spanish Translation: Alvaro Thompson                                                      *
;*  Italian Translation: Ital 2.5                                                             *
;*  French  Translation: Regis Falck                                                          *
;*                                                                                            *
;**********************************************************************************************
;
; $VER: MADS Install 1.3 (30.7.97)

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

(if (= (exists "ENV:MADS/Name"))
 (set #who (getenv "MADS/Name"))
)

(if (= (exists "ENV:MADS/Version"))
 (set #usedversion (getenv "MADS/Version"))
)


(

(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 EMS Home Page:\n\nhttp://www.agima.demon.co.uk/emailsoft/")
(set #name     "Please enter your name\n(For future updates)")
(set #update   (cat 'Hi there '#who'\n\nI see that you have version '#usedversion' of MADS Installed.\nShall I simply update the files? or do you want me to do a complete install?'))
(set #update2  "Update")
(set #install  "Complete Install")

)

(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 EMS web site:\n\nhttp://www.agima.demon.co.uk/emailsoft/")
(set #name     "Ponga su nombre por favor\n(Para versiones futuras)")
(set #update   (cat 'Hola '#who'\n\nVeo que tienes la version '#usedrversion' de MADS instalada.\n\nQuieres una version revisada o una instalacion completa?'))
(set #update2  "Revisar")
(set #install  "Instalacion Completa")

))

(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 EMS Supportare sito:\n\nhttp://www.agima.demon.co.uk/emailsoft/") 
(set #name     "Per piacere inserisci il tuo nime\n(Per aggiornamenti futuri)")                      
(set #update   (cat 'Heilà '#who'\n\nIo cedo che tu hai versione '#usedversion' di MADS installato.\n\nAggiornare o Installare Completamente?'))
(set #update2  "Aggiornare")
(set #install  "Completo Install")
                      
))

(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 EMS supporte:\n\nhttp://www.agima.demon.co.uk/emailsoft/")

))


(message #info)


(if (= (exists "ENV:MADS")
 (set installorupdate
  (askchoice
   (prompt #update)
   (help @askchoice-help)
   (choices #update2 #install)
   (default 0)
   )
  )
 )
) 

(debug "The rsult was " installorupdate)

(if (= installorupdate 0)
  ( 
 
    (message "Now Updating...")
   
      (makedir "T:MADS")
      
      (textfile
        (dest "T:MADS/Version")
        (append version)
      )
      
      
     (copyfiles
      (help @copyfiles-help) 
      (source "T:MADS/")
      (dest "ENVARC:MADS/")
      (all) 
     ) 

     (copyfiles
      (help @copyfiles-help)
      (source "T:MADS/")
      (dest "ENV:MADS/")
      (all)
     )

    (delete "T:MADS" (all))

    (set #where_to_install (getenv "MADS/Path"))

    (makedir (tackon #where_to_install "Programs"))
    
    (copyfiles
     (help @copyfiles-help)
     (source "/Programs/")
     (dest (tackon #where_to_install "Programs/"))
     (all)
    )
    
    (copyfiles
     (help @copyfiles-help)
     (source "/Docs/") 
     (dest (tackon #where_to_install "Docs/"))
     (all)
    )
    
    (copyfiles
     (help @copyfiles-help)
     (source "/Goodies/")
     (dest (tackon #where_to_install "Goodies/"))
     (all)
    )
    
    (copyfiles
     (help @copyfiles-help)
     (source "/MADS")
     (dest #where_to_install)
    )
    
    (copyfiles
     (help @copyfiles-help)
     (source "/Docs.info")
     (dest #where_to_install)
    ) 
 
    (message #visit)
 
    (set @default-dest #where_to_install)
 
    (exit)
))


(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)
)

(copyfiles
 (help @copyfiles-help)
 (source "//MADS.info")
 (dest destination)
)
 
(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)

(makedir "ENVARC:MADS")
(makedir "ENV:MADS")
(makedir "T:MADS")

(set name
 (askstring
  (prompt #name)
  (help @askstring-help)
 )
) 

(textfile
 (dest "T:MADS/Version")
 (append version)
)

(textfile
 (dest "T:MADS/Path")
 (append trgt)
)

(textfile
 (dest "T:MADS/Name")
 (append name)
)  

(copyfiles
 (help @copyfiles-help)
 (source "T:MADS/")
 (dest "ENVARC:MADS/")
 (all)
) 

(copyfiles
 (help @copyfiles-help)
 (source "T:MADS/")
 (dest "ENV:MADS/")
 (all)
)

(delete "T:MADS" (all))

(message #visit)

(exit)