;Standard Installer script
;Written by Marco Biondi
;@1995/96 Light Shock software s.n.c

(set destinazione @default-dest)

(set destinazione
	(askdir 
		(prompt ("Scegli il cassetto dove installare %s:" @app-name))
		(help @askdir-help)
		(default destinazione)
	)
)

(if (NOT (exists destinazione (quiet))) 
	(abort "Il percorso specificato non è valido!")
)

(set spaziorichiesto 3520)

(set disponibile (/ (getdiskspace destinazione) 1024) )

(if (< disponibile spaziorichiesto)
	(set domanda "ATTENZIONE : LO SPAZIO DISPONIBILE E' INSUFFICIENTE.\nPROCEDO CON L'INSTALLAZIONE ?"
	)
	(set domanda ""
	)	
)

(message 
	("L'installazione di %s richiede circa %ld Kbytes di spazio libero.\n\n"
		@app-name
		spaziorichiesto
	)
	("Nel cassetto scelto (%s) ci sono %ld Kbytes disponibili.\n\n"
		destinazione
		disponibile
	)
	domanda
)

(copyfiles
	(prompt "Scrittura files necessari...")
	(help @copyfiles-help)
	(source "FSpirit-INSTALL:FsDiskID")
	(dest "T:")
)

(copyfiles
	(help @copyfiles-help)
	(source"FSpirit-INSTALL:Disk2Bin")
	(dest "T:")
)

(copyfiles
	(help @copyfiles-help)
	(source"FSpirit-INSTALL:Spirit")
	(dest "T:")
)

(copyfiles
	(help @copyfiles-help)
	(source"FSpirit-INSTALL:Spirit.in")
	(dest "T:")
)

(complete 1)

(working "Inserisci il Disco 1 in DF0:")

(until
	(= "1\n"
		(
			(run "T:FsDiskID >env:Number")
			(set risultato (getenv "Number"))
		)
	)
)

(message "Installazione Disco 1")

(run ("T:Disk2Bin %s" (tackon destinazione "Spirit1.bin")))

(complete 25)

(working "Inserisci il Disco 2 in DF0:")

(until
	(= "2\n"
		(
			(run "T:FsDiskID >env:Number")
			(set risultato (getenv "Number"))
		)
	)
)

(message "Installazione Disco 2")

(run ("T:Disk2Bin %s" (tackon destinazione "Spirit2.bin")))

(complete 49)

(working "Inserisci il Disco 3 in DF0:")

(until
	(= "3\n"
		(
			(run "T:FsDiskID >env:Number")
			(set risultato (getenv "Number"))
		)
	)
)

(message "Installazione Disco 3")

(run ("T:Disk2Bin %s" (tackon destinazione "Spirit3.bin")))

(complete 75)

(working "Inserisci il Disco 4 in DF0:")

(until
	(= "4\n"
		(
			(run "T:FsDiskID >env:Number")
			(set risultato (getenv "Number"))
		)
	)
)

(message "Installazione Disco 4")

(run ("T:Disk2Bin %s" (tackon destinazione "Spirit4.bin")))

(complete 99)

(copyfiles
	(prompt "Scrittura files necessari...")
	(help @copyfiles-help)
	(source "T:Spirit")
	(dest destinazione)
)

(copyfiles
	(prompt "Scrittura files necessari...")
	(help @copyfiles-help)
	(source "T:Spirit.in")
	(dest destinazione)
	(newname "Spirit.info")
)

(complete 100)

(exit "Per far partire il gioco fate doppio click sull'icona.\n\n"
	"ATTENZIONE: Potete uscire dal gioco solo RESETTANDO il computer.\n\n"
	"Buon divertimento!\n\n" "@1995/96 Light Shock software s.n.c." 
)