; Programma di installazione per l' Installer standard Commodore

(set local-help (cat "Scegliendo \"S\" tutti i messaggi di CatchDisk saranno"
				     " tradotti in italiano.\nScegliendo \"No\", i messaggi"
					 " saranno in inglese.\nNotate che la vostra lingua di"
					 " sistema deve essere l'italiano, altrimenti CatchDisk"
					 " continuer ad essere in inglese."))

(complete 0)

(if (exists "L:WBStart-Handler")
	((set ver (/ (getversion "L:WBStart-Handler") 65536))
     (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
     (if (< ver 2)
         (if (< rev 4)
             (message (cat "Attenzione: dovete installare WBStart-Handler "
						"versione 1.4 o successiva per potere utilizzare "
						"CatchDisk (vedi il file 'Leggimi').")
             )
		 )
     )
    )
	(message (cat "Attenzione: dovete installare WBStart-Handler "
			   "versione 1.4 o successiva per potere utilizzare "
			   "CatchDisk (vedi il file 'Leggimi').")
    )
)

(set name
	(askdir
		(prompt "Dove volete installare CatchDisk ?")
		(help @askdir-help)
		(default "SYS:WBStartup")
	)
)

(set @default-dest name)

(set vernum (/ (getversion) 65536))   ; se version >37: c' localizzazione

(if (> vernum 37)
	(set local
		(askbool
			(prompt "Volete installare il file di supporto per la lingua italiana ?")
			(help local-help)
			(choices "S" "No")
			(default 1)
		)
	)
	(set local 0)
)

(if local
	(if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
		(set sysdest
			(askchoice
				(prompt "Dove volete installare il file di localizzazione ?")
				(help @askchoice-help)
				(choices "nello stesso cassetto di CatchDisk" "in LOCALE:")
				(default 1)
			)
		)
		(if (= name "SYS:WBStartup")
			(set sysdest 1)
			(set sysdest 0)
		)
	)
)

(if (not (exists "LOCALE:catalogs/italiano"))
    (set sysdest 0)
)

(complete 50)

(copyfiles
	(infos)
	(source "/CatchDisk")
    (dest name)
)

(tooltype
    (dest (tackon name "CatchDisk"))
	(noposition)
)

(complete 80)

(if local
 	(if sysdest
		(copyfiles
			(source "/catalogs/italiano/CatchDisk.catalog")
			(dest "LOCALE:catalogs/italiano")
		)
        (
			(makedir (tackon name "catalogs"))
			(copyfiles
				(source "/catalogs/italiano/CatchDisk.catalog")
				(dest (tackon name "catalogs/italiano"))
            )
		)
    )                    
)

(complete 100)
