; Startup-Menu install script for CBM Installer
;$VER: BootDude V1.3 Install 
;$AUTHOR: Sundown pLASTiQUE D-ZiGN...

(set @default-dest '')

;***** make sure OS 2+ *****
(set vernum (getversion))
(set ver (/ vernum 65536))

(if (< vernum 37)
	(abort 'Workbench 2 or higher required')
)

;***** Update BootDude if allready installed *****
(If	(= (Exists "S:BootDude.Prefs" (noreq)) 1) 
	(
		((copyfiles
  		(source 'C/BootDude')
		(dest 'C:')
		)

                (copyfiles
	   	(source 's/BD/Icons')
		(dest 'S:BD/Icons')
        	(pattern '#?.BDD')
		)

                (set prefdir
                (askdir
                (prompt "Install Prefs where?")
                (help @askdir-help)
                (default "SYS:Prefs")
          	))

                (copyfiles
        	(source 'Prefs/BootDudePrefs')
        	(infos)
        	(dest prefdir)        
		) 

		(exit 'BootDude has been updatet to v1.3 ... Please read the GUIDE ;-)') 	

		)
	)
)


;***** Install BootBude *****

;***** make dirs        *****
(makedir 'S:BD')
(makedir 'S:BD/Boots')
(makedir 'S:BD/Icons')


;***** copy ASL library *****
(copylib

	(prompt 'Copying Asl.library')
	(help 'This library is used to show error requesters.\n\n'@copylib-help)
	(source 'libs/asl.library')
	(dest 'LIBS:')
	(confirm)
        )

;***** copy Bootdude    *****
(copyfiles
	(source 'c/BootDude')
	(dest 'C:')
)

;***** copy DockConv    *****
(copyfiles
	(source 'c/DockConv')
	(dest 'C:')
)

;***** copy Icons       *****
(copyfiles
	(source 's/BD/Icons')
	(dest 'S:BD/Icons')
        (pattern '#?.BDD')
)

;***** copy fonts       *****
(copyfiles
	(source 'fonts/')
	(dest 'fonts:')
        (pattern '#?.#?')
)

;***** Copy fonts       *****
(makedir 'fonts:SD')

(copyfiles
	(source 'fonts/SD/')
	(dest 'fonts:')
        (pattern '#?.#?')
)

;***** Copy Prefs       *****
(copyfiles
	(source 's/BootDude.Prefs')
	(dest 'S:')
)

;***** Get Prefs path   *****
(set prefdir
        (askdir
                (prompt "Install Prefs where?")
                (help @askdir-help)
                (default "SYS:Prefs")
        )
)

;***** copy prefs       *****
(copyfiles
        (source 'Prefs/BootDudePrefs')
        (infos)
        (dest prefdir)        
)


;***** Copy shell script*****
(copyfiles
	(source 's/BD/Boots/Shell.boot')
	(dest 'S:BD/Boots/')
)


;***** Copy Startup-Sequences
(if (askbool

		(prompt 'Install BootDude into Startup-Sequence?')
		(default 1)
		(help 'none.')
		)

                ((copyfiles
			(source 'S:Startup-Sequence')
			(dest 'S:BD/Boots/')
                        (newname 'Workbench.boot')
                )

		(copyfiles
			(source 'S:Startup-Sequence')
			(dest 'S:')
                        (newname 'Startup-Sequence.OLDBOOT')
                
                )
              	(copyfiles
		        (source 's/Startup-Sequence')
			(dest 'S:')
                )
)
)

;***** END *****
(exit 'Now read the GUIDE file..!!')