; Marryampic installation script
; Well, this is the first time I try to write an installation script...

; check kick version
(if (< (/ (getversion) 65536) 37) (abort "Marryampic requires KickStart v2.0 or + to run !"))


(set target
    (tackon
        (askdir
            (prompt "In which disk or drawer should the drawer called \"Marryampic\" be created?")
            (help
                "    The Marryampic program and the CardSet 'Animals' will be installed in a new drawer "
                "called \"Marryampic\".  You are being asked where this new drawer should be created.  "
                "If you select \"Work:\", for example, then a new drawer named \"Work:Marryampic\" will be created, "
                "and Marryampic will be installed into this new drawer.\n"
                "\n"
                @askdir-help
            )
            (default @default-dest)
        )
        "Marryampic"
    )
)
(makedir target (infos))
(set @default-dest target)

(copyfiles
	(prompt "Copying to " target )
	(help @copyfiles-help)
	(source "")
	(dest target)
	(choices "Marryampic" "Docs" "Cards" "Catalogs")
	(infos)
)


; Change ToolTypes for best-use with hard-disk
(tooltype
	(dest (cat target "/Marryampic"))
	(settooltype "PreLoad" "No")
	(settooltype "DirectToDisk" "No")        
)

(message  "Don't forget to adjust the ToolTypes\n"
          "in the icon of Marryampic to your\n"
          "convenience.\n"
          "So, read the docs!\n"
          "and have fun to play..."
)