; Installation script for Schlawiner


(transcript "Installing Schlawiner...")


(set magicwb
	(askbool
      (prompt "Do you have installed MagicWB?\n")
      (help "MagicWB © by Martin Huttenloher is the ultimative replacement - package\nfor the standard icons of the workbench.")
      (choices "Yes" "No")
      (default 1)
	)
)


; Copy Schlawiner and the icon
(set name
	(askdir
   	(prompt "Choose directory for Schlawiner.")
      (help @askdir-help)
      (default "SYS:Games")
   )
)
(copyfiles
	(source "Schlawiner")
   (infos)
   (dest name)
)
(if (= magicwb 1)
   (
      (copyfiles
         (source "Icons/Schlawiner.info")
         (infos)
         (dest name)
      )
   )
   (copyfiles
      (source "Schlawiner.info")
      (infos)
      (dest name)
   )
)


; Copy the Online - Help
(set helpdir
	(askdir
   	(prompt "Choose directory for the Online - Help.")
      (help @askdir-help)
      (default "HELP:english")
   )
)
(copyfiles
	(source "Docs/English/Schlawiner.guide")
   (infos)
   (dest helpdir)
)
(if (= magicwb 1)
   (
      (copyfiles
         (source "Icons/Schlawiner.guide.info")
         (infos)
         (dest helpdir)
      )
   )
   (copyfiles
      (source "Docs/English/Schlawiner.guide.info")
      (infos)
      (dest helpdir)
   )
)


(set @default-dest name)


(exit)