; This is the installer script for NesQWK
; (c) 1995 Nolimits Software Corp.

;------------------------------------------------------------------------------------------------------

( set #path-text
    ( cat "Where would you like NesQWK installed?\n A drawer named 'NesQWK' will be created here." )
)

( set #path-help
    ( cat "In this location a drawer will be created. NesQWK will be installed inside this drawer. The complete installation will require about 250Kb of free disk space.\n\n"
      @askdir-help )
)

;------------------------------------------------------------------------------------------------------

( transcript "NesQWK installation..." )

( set srcdir "" )

( set destdir
	( askdir
		( prompt #path-text )
		( help #path-help )
		( default @default-dest )
		( disk )
	)
)

( set destdir ( tackon destdir "NesQWK" ) )

( set @default-dest destdir )

( makedir (infos) destdir )

( copyfiles
	( prompt "Copying NesQWK to destination." )
	( help @copyfiles-help )
	( source srcdir )
	( dest destdir )
	( pattern "NesQWK#?" )
	( infos )
	( confirm )
)

( copyfiles 
    ( prompt "Copying example QWKMail bundle." )
    ( help @copyfiles-help )
    ( source srcdir )
    ( dest destdir )
    ( choices "Example.QWK" )
)

(if 
    (= ( askbool ( prompt "Does your Amiga have MagicWB installed?" ) (help "help") ) 0 )

(
    ( delete (tackon destdir "NesQWK.config") )
    ( makedir "FONTS:NesQWK")
    ( copyfiles
        ( source srcdir )
        ( help @copyfiles-help )
        ( dest "FONTS:NesQWK" )
        ( choices "8" )
    )
    ( copyfiles
        ( source srcdir ) 
        ( help @copyfiles-help )
        ( dest "FONTS:" )
        ( choices "font.NesQWK.font" )
    )
    ( rename "FONTS:font.NesQWK.font" "FONTS:NesQWK.font" )
)
)