;
; $PROJECT: E-DEVeloper Version 1.0pd
;
; (C) Copyright 1995 Grundler Mathias.  All Rights Reserved.
; 

        (complete 0)

	(set #WrongKickStart "\nTo use the E-DEVeloper you must\nhave Kick 2.04 or higher!\n")

	(if (< (/ (getversion) 65536) 37)
	  (abort #WrongKickStart)
	)

	(message
	  "\n\n\n\n"
	  "Welcome to the \n\nE-DEVeloper 1.0pd\n\nInstallation-Script V1.0\n"
	)

	(set edev-dest
		(askdir (prompt "Please choose a destination, a drawer named "E-DEVeloper" is automatically generated")
			(help @askdir-help)
			(default "ebin:")
		)
	)

        (run (cat "c:makedir "edev-dest"E-DEVeloper"))

        (complete 15)

; For Installation from a Diskdrive to a Harddisk delete the lines between here...
;---------->8---------->8---------->8---------->8---------->8---------->8
;

	(copyfiles 
		(prompt "\nCopying the Drawer-Icon \n")
		(help @copyfiles-help)
		(source "//E-DEVeloper.info")
		(dest   edev-dest)
		(files)
	)
;                      
;---------->8---------->8---------->8---------->8---------->8---------->8
;                       and here...

        (set edev-dest (tackon edev-dest "E-DEVeloper"))

        (complete 27)

	(copyfiles 
		(prompt "\nCopying the E-DEVeloper Mainprogramm...\n")
		(help @copyfiles-help)
		(source "/E-DEV")
		(dest   edev-dest)
		(files)
	)

        (complete 35)

	(if(askbool
		(prompt "\n Would You like to install the\n E-DEVeoper-Icon to \n"edev-dest"\n")
		(help @askbool_help)
		(default 1)) 
		(copyfiles 
			(prompt "\nCopying the E-DEVeloper-Icon\n")
			(help @copyfiles-help)
			(source "/E-DEV.info")
			(dest edev-dest)
			(files)
			(infos)
		)
	)

        (complete 50)

	(if(askbool
		(prompt "\n Would You like to install the \n E-DEVeloper-Tools to\n "edev-dest"\n ")
		(help @askbool_help)
		(default 1)) 

			((copyfiles 
			(prompt "\nCopying the E-DEVeloper-Tools...\n")
			(help @copyfiles-help)
			(source "/TOOLS/showprojekt_E")
			(dest edev-dest)
			(files)
			(infos)
                  )

			(copyfiles 
			(prompt "\nCopying the E-DEVeloper-Tools...\n")
			(help @copyfiles-help)
			(source "/TOOLS/list2txt_e")
			(dest edev-dest)
			(files)
			(infos)
                  )

			(copyfiles 
			(prompt "\nCopying the E-DEVeloper-Tools...\n")
			(help @copyfiles-help)
			(source "/TOOLS/projekt2list")
			(dest edev-dest)
			(files)
			(infos)
                  ))
	)

        (complete 65)

	(if(askbool
		(prompt "\nWould You like to install the DEMO-Rexx-Scripts??\n")
		(help @askbool_help)
		(default 1)) 

			((copyfiles 
			(prompt "\nCopying Rexx-Scripts...\n")
			(help @copyfiles-help)
			(source "/REXX/")
			(dest "rexx:")
			(files)
			(infos)
                        (all)
                  ))
        )

        (complete 70)

                (copyfiles 
			(prompt "\nCopying the E-DEVeloper App-Icon...\n")
			(help @copyfiles-help)
			(source "/icons/e-dev.info")
			(dest "sys:prefs/presets/")
			(files)
                  )

        (complete 75)

	(if(askbool
		(prompt "\n Would You like to Install the Documentation??\n")
		(help @askbool_help)
		(default 1)) 
		(
			(set edevdoc-dest
				(askdir (prompt "Please choose the destination ffor the Documentation")
					(help @askdir-help)
					(default "edocs:")
				)
			)
			(copyfiles 
			(prompt "\nCopying the Documentation...\n")
			(help @copyfiles-help)
			(source "/DOKS/E-DEV_english.guide")
			(dest   edevdoc-dest)
			(files)
			(infos))
		)
	)

        (complete 99)

(run (cat "c:makedir "edev-dest"/Projekte"))

(startup "EDEV"
	(prompt " \n\nIt`s needet to add \n\n a Assign to the \n\n  s:User-StartUP \n\n i do this for you...\n\n")
	(help @startup-help)
	(command "if exists "edev-dest"/Projekte \n" )
	(command "   assign eprojects: "edev-dest"/Projekte  \n" )
	(command "endif" )
)

	(set @default-dest edev-dest)

	(complete 100)

(exit "\n\nYou should reboot before starting the E-DEVeloper\n\n or Using any Projects...\n\n")