; ChimiCad Installer Script
; $VER: chimiCad.install 39.1 (22/08/96)
;

; RICHIESTA DI DOVE INSTALLARE ChimiCad
(set dove (askdir
  (prompt "Scelta per installazione directory ChimiCad.")
  (default "sys:")
  (help
    (cat "Si sceglie da qui in quale directory inserire i files di ChimiCad. "
         "Tali files saranno contenuti in una directory chiamata CHIMICAD, "
         "che sara` automaticamente creata dal programma di installazione. "
    ))
))

;Crea directory
(makedir (tackon dove "chimicad")

)

(makedir (tackon dove "chimicad/ACCESSORI")

)

(makedir (tackon dove "chimicad/MANUALI")

)

(makedir (tackon dove "chimicad/ACCESSORI/ROTAZIONI")

)

(makedir (tackon dove "chimicad/ACCESSORI/LIBS")

)

(makedir (tackon dove "chimicad/ACCESSORI/BANCHI")

)

;Copia dei files
(copyfiles
  (prompt "Sto copiando l' icona del cassetto.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest dove)
	  
)

(copyfiles
  (prompt "Sto copiando l' icona del cassetto.")
  (help @copyfiles-help)
  (source "chimicad.info")
  (dest (tackon dove "chimicad"))
  (newname "MANUALI.info")
	  
)

(copyfiles
  (prompt "Sto copiando il programma.")
  (help @copyfiles-help)
  (source "progr/italiano")
  (dest (tackon dove "chimicad"))
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando la documentazione.")
  (help @copyfiles-help)
  (source "doc/italiano")
  (dest (tackon dove "chimicad/manuali"))
  (all)
	  
)


(copyfiles
  (prompt "Sto copiando l'interfaccia.")
  (help @copyfiles-help)
  (source "access/interfaccia")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando i settings.")
  (help @copyfiles-help)
  (source "access/chimicad.settings")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando gli shapes.")
  (help @copyfiles-help)
  (source "access/shapes.shp")
  (dest (tackon dove "chimicad/ACCESSORI"))
  	  
)

(copyfiles
  (prompt "Sto copiando le rotazioni.")
  (help @copyfiles-help)
  (source "access/rotazioni")
  (dest (tackon dove "chimicad/ACCESSORI/ROTAZIONI"))
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando il font Symbol.")
  (help @copyfiles-help)
  (source "access/fonts")
  (dest "fonts:")
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando le librerie.")
  (help @copyfiles-help)
  (source "access/libs")
  (dest (tackon dove "chimicad/ACCESSORI/LIBS"))
  (all)
	  
)

(copyfiles
  (prompt "Sto copiando i banchi pennelli.")
  (help @copyfiles-help)
  (source "access/BANCHI")
  (dest (tackon dove "chimicad/ACCESSORI/BANCHI"))
  (all)
	  
)


;Inserimento del path di chimicad in un ASSIGN in user-Startup
 
(startup "ChimiCad"
  (prompt "Vuoi inserire l' ASSIGN necessario nella tua user-startup?")
  (help
    (cat "Senza questo assign il programma non puo` trovare i files a "
         "lui necessari."))

  (command "assign CHICAD: " (tackon dove "chimicad/ACCESSORI") "\n"
	   "assign libs: " (tackon dove "chimicad/ACCESSORI/LIBS") " add")
		
)


; Uscita dopo fine installazione
(exit
    (cat "Prima di poter eseguire ChimiCad si deve resettare il "
	 "sistema." ))