; setting up the fucking text messages.

(set @abort-button "Abort installation")
(set @app-name "Bp!Request v1.2")

(set #welcometext "Welcome to the Bp!Request v1.2 installation utility\n")
(set #makedir "Creating required data directories")
(set #nodoorsassign "There is no Doors: assign!\nPlease make a Doors: assign and run the installation script again")

(set #copyfilesprompt1 "Select the files you want to copied")
(set #copyfilesprompt2 "Select the documentation you want to copied")
(set #copyfilesprompt3 "Select the BBS command you want to be copied")
(set #exitmsg "Thanks for installing Bp!Request v1.2\n\nFor bugreports, suggestions mail me at\nMogue@Skom.rhein.de\n\nor call our whq\n---------------\nHomeless bbs (Usr 33k3/Telnet/Isdn) 8 Nodes\n")

(welcome #welcometext)
(complete 0)

	(if (not (exists "Doors:"))
					(
					(abort #nodoorsassign)
					)
	)

	(if (not (exists "Doors:Birdhouse"))
						(
						(makedir "Doors:Birdhouse")
						)
	)

	(if (not (exists "Doors:Birdhouse/Bp!Request"))
						(
						(makedir "Doors:Birdhouse/Bp!Request")
						)
	)

	(if (not (exists "Doors:Birdhouse/Bp!Request/Documentation"))
						(
						(makedir "Doors:Birdhouse/Bp!Request/Documentation")
						(makedir "Doors:Birdhouse/Bp!Request/Data")
						 )
	)

(complete 30)
(copyfiles
		(prompt #copyfilesprompt1)
		(help @copyfiles-help)
		(source "Files/")
		(pattern "(Bp!Request.Exe|View.Header|Delete.Header)")
		(dest "Doors:Birdhouse/Bp!Request/")
		(confirm "expert")
)
(complete 60)
(copyfiles
		(prompt #copyfilesprompt2)
		(help @copyfiles-help)
		(source "Documentation/")
		(pattern "(Bp!Request.Guide|Bp!Request.Doc)")
		(dest "Doors:Birdhouse/Bp!Request/Documentation/")
		(confirm "expert")
)

(complete 90)
(copyfiles
		(prompt #copyfilesprompt3)
		(help @copyfiles-help)
		(source "Settings/")
		(pattern "(Want)")
		(dest "FAME:Settings/Doors/BbsCmd/")
		(confirm "expert")
)


(complete 100)
(exit #exitmsg)
