;
;	Install-Script for dRE!REQUESt v3.0p
;	 1995 Bodo Hoffmann
;
;
;	$VER:dRE!REQUEST-Install 1.0 (07-Dec-95)
;

(complete 0)

(if	(= @language "deutsch")
	(
		(set #welcome		(cat	"\n\nWillkommen zur Installation von\n"
													"dRE!REQUESt v3.0\n"
													"Dieses Programm installiert dRE!REQUESt, auf\n"
													"ihrem hoffentlich registrierten FAME Mailbox\n"
													"System, mit allen ntigen Schubladen und\n"
													"Parametern. Sollten sie Widererwartens etwas\n"
													"nicht verstehen, dcken sie den 'Help' Knopf,\n"
													"dort wird alles nochmals ausfhrlicher beschrieben\n"
													"Viel Spa beim benutzen von dRE!REQUESt v3.0p\n"
													"dR.dRE!/tRSi (/XiNNOVAtiON)\n"
										)
		)

		(set @abort-button "Installation abbrechen"
		)
	
		(set @proceed-button "Weitermachen"
		)

		(set @app-name "dRE!REQUESt 3.0p Installation"
		)

		(set #get-dest-prompt (cat "Bitte whlen Sie, wo das dRE!REQUESt Verzeichnis erstellt werden soll")
		)
	
  	(set #get-dest-help (cat "Bitte whlen Sie in diesem Dialog auf welcher Partition oder in welchem "
    	                       "Verzeichnis das dRE!REQUESt Verzeichnis eingerichtet werden soll.\n\n"
      	                     @askdir-help
        	              )
  	)

		(set #get-main-files	(cat "Bitte whlen Sie das Verzeichnis wo die registrierten Hauptprogramme sind")
		)

		(set #get-conf-num		(cat "\n\nBitte Nummer der Request Conference angeben")
		)

		(set #get-confnum-help	(cat "Bitte geben sie hier die gltige Nummer ihrer\n"
																 "Request Conference ein...\n\n"
																 @asknumber-help
														)
		)

		(set #get-bbs-prompt    (cat"Bitte Pfad zum BBS: Assign oder Directory angeben")
		)

		(set #get-confnum-help	(cat "Bitte geben sie hier den vollen Pfad oder das\n"
																 "Assign ihrer BBS Location an\n\n"
																 @askdir-help
														)
		)

		(set #schon-da	(cat	"\nEs existiert bereits ein Verzeichnis Namens dRE!REQUESt\n"
													"Was soll mit dem Verzeihnis geschehen ?\n"
										)
		)

		(set #schon-da-help	(cat	"Es existiert bereits ein Verzeichnis namens\n"
															"dRE!REQUESt - drcken sie rename um es umzubenennen\n"
															"Lschen um es zu entfernen\n"
												)
		)

		(set #choice-rename ("Umbenennen")
		)
		
		(set #choice-delete ("Entfernen")
		)

		(set #get-main-files "Bitte Pfad zu den registrierten Programmen angeben"
		)

		(set #get-main-help	 (cat	"Bitte hier das Directory angeben in dem\n"
															"sich die registrierten Haupt Programme\n"
															"befinden, diese werden dann in das ausge-\n"
															"whlte Verzeichnis kopiert\n"
															@askdir-help
												 )
		)

	)
)

(if	(= @language "english")
	(
		(set #welcome		(cat	"\nWelocme to the Installation of\n"
													"dRE!REQUESt v3.0\n"
													"This program will install dRE!REQUESt on your\n"
													"hopefull registered FAME Mailbox-System, with all\n"
													"needed drawers Files and Parameters\n\n"
													"Should you don`t understanmd the instructions at\n"
													" any time just press the help-button and you`ll\n"
													"get a more detailed explainment to the actual working\n"
													"working point.\n"
													"Now have fun with use of dRE!REQUESt v3.0 prof\n"
													"dR.dRE!/tRSi (/XiNNOVAtiON)\n"
										)
		)

		(set @abort-button "Cancel Installation"
		)
	
		(set @app-name "dRE!REQUESt 3.0p Installation"
		)

		(set #get-dest-prompt (cat "Please select a destination for the dRE!REQUESt drawer")
		)
	
	  (set #get-dest-help (cat "Use this dialogue to select the partition or the directory where you "
  	                         "want the dRE!REQUESt drawer to be created.\n\n"
    	                        @askdir-help
      	                )
	  )

		(set #get-main-files	(cat "Please select the drawer where the registered Mainfile are located")
		)

		(set #get-conf-num		(cat "\n\nPlease enter the Number of your Request Conference")
		)

		(set #get-confnum-help	(cat	"Here you have to enter the valid Number of your\n"
																	"Request Conference\n\n"
																	@asknumber-help
														)
		)

		(set #get-bbs-prompt    (cat "Please enter the Path or the Assign of your BBS:")
		)

		(set #get-confnum-help	(cat "Please enter the Path or the Assign of your\n"
																 "BBS Location\n\n"
																 @askdir-help
														)
		)

		(set #get-doorname-prompt (cat	"\n\nPlease enter a Name for the Door\n\n")
		)

		(set #get-doorname-help		(cat	"Here you have to enter the Name for the Door\n"
																		"under which the door should be available in\n"
																		"your BBS...\n\n"
																		@askstring-help
															)
		)

		(set #schon-da	(cat	"There is already a drawer called dRE!REQUESt present\n"
													"What shall I do with it ???\n"
										)
		)

		(set #schon-da-help	(cat	"There is already a drawer called dRE!REQUESt\n"
															"present - Press 'Rename' to rename the drawer\n"
															"or 'Remove' to delete the drawer\n\n"
												)
		)

		(set #choice-rename ("Rename")
		)
		
		(set #choice-delete ("Remove")
		)

		(set #get-main-files "Please enter the path where the registered main-files are located"
		)

		(set #get-main-help	 (cat	"\nPlease enter hier the directory where are\n"
															"the registered main-files are located.\n"
															"The files are copied to your choosed door\n"
															"drawer\n"
												 )
		)

	)
)

	(message #welcome
	)


	(set Installed (exists "DOORS:dRE!REQUEST" (noreq))
	)

	(if (exists "DOORS:dRE!REQUEST" (noreq))
		(
			(if (askbool	(prompt #schon-da)
										(help		#schon-da-help)
										(choices #choice-rename #choice-delete)
										(default 0)
					)
						(	
							(set old-dir "DOORS:DRE!REQUEST")
							(set new-dir "DOORS:DRE!REQUEST_OLD")
							(rename old-dir new-dir)
								(if (exists (cat old-dir ".info" ))
									(	
										(set old-icon "DOORS:dRE!REQUEST.info")
										(set new-icon (tackon new-dir ".info"))
										(rename old-icon new-icon)
									)
								)
						)
						(
							(set delete-dir "Doors:dRE!REQUEST/")
							(run (cat "delete " delete-dir " all >NIL:"))
						)
			)
		)
	)

	(if (= (exists "DOORS:" (noreq)) 2)
		(set @default-dest "DOORS:"
		)
	)

	(set newdest	(askdir	(prompt #get-dest-prompt)
												(help #get-dest-help)
												(default @default-dest)
								)
	)

	(set @default-dest (tackon newdest "dRE!REQUESt")
	)

	(makedir @default-dest (infos)
	)

	(set guide-dir (tackon @default-dest "Guide")
	)

	(makedir guide-dir (infos)
	)

	(set data-dir (tackon @default-dest "Datas")
	)

	(makedir data-dir (infos)
	)

	(set mask-dir (tackon @default-dest "Masks")
	)

	(makedir mask-dir (infos)
	)

	(copyfiles
		(source "/Guide")
		(dest	guide-dir)
		(infos)
		(all)
	)

	(copyfiles
		(source "/Masks")
		(dest	mask-dir)
		(infos)
		(all)
	)


	(set main-files	(askdir	(prompt	#get-main-files)
													(help		#get-main-help)
													(default	"SYS:")
													(disk)
									)
	)

	(set file-1 (tackon main-files "MOST-WANTEd")
	)

	(if (exists file-1)
		(
			(copyfiles
				(source file-1)
				(dest	@default-dest)
			)
		)
		(
			(abort "Can`t locate MOST-WANTED")
		)
	)

	(set file-2 (tackon main-files "ULPROC")
	)

	(if (exists file-2)
		(
			(copyfiles
				(source file-2)
				(dest	@default-dest)
			)
		)
		(
			(abort "Can`t locate ULPROC")
		)
	)

	(set confnum (asknumber	(prompt #get-conf-num)
																	(help	#get-confnum-help)
																	(range 1 1000)
							 				)
	
	)

	(set cmd-dir	(askdir	(prompt #get-bbs-prompt)
												(help #get-bbs-help)
												(default "BBS:")
												(disk)
								)
	)
	
	(set bbs-dir (tackon cmd-dir (cat "Settings/Doors/CONF" confnum))
	)


	(set cmd-dir (cat bbs-dir "CMD")
	)

	(makedir cmd-dir (infos)
	)

	(set doorname (askstring	(prompt #get-doorname-prompt)
														(help #get-doorname-help)
														(default "Want")
								)
	)

	(copyfiles
		(source "/Fame/Settings/Doors/CONFXCMD/Want")
		(dest cmd-dir)
		(newname	("%s" doorname)
		)
	)

	(copyfiles
		(source "/Fame/Settings/Doors/CONFXCMD/u")
		(dest		cmd-dir)
	)

	(copyfiles
		(source "/Fame/Settings/Doors/CONFXCMD/rz")
		(dest		cmd-dir)
	)

	(run (cat "sys:utilities/multiview " guide-dir "/dRE!REQUEST.guide"))







