;
;               W.F.M.H. MaxManager © 1995-1997 Marcin Orlowski
;
;           ---------------------------------------------------------
;
;               ###    ###    #########  ###    ###    ###    ###
;               ###    ###    ###        ####  ####    ###    ###
;               ###    ###    ###        ### ## ###    ###    ###
;               ###    ###    ########   ### ## ###    ##########
;               ### ## ###    ########   ###    ###    ##########
;               ### ## ###    ###        ###    ###    ###    ###
;               ####  #### ## ###     ## ###    ### ## ###    ### ##
;               ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                        Mental Pictures Developed Here
;
;                                Marcin Orlowski
;                                ul. Radomska 38
;                                71-002 Szczecin
;                                Poland
;
;               SilverDream!'s BBS:  +48-(0)91-540431  (non-stop)
;               FidoNet  :           2:481/22.2
;               GlobalNet:           52:4800/6
;               Packet Radio:        SQ1BSC@SR1BBS.#SZ.POL.EU
;
;               Internet:            carlos@wfmh.man.szczecin.pl
;
;               WWW page:            http://wfmh.man.szczecin.pl
;
;
;--------------------------------------------------------------------
;
;                     W.F.M.H. MaxManager Installer script
;
;--------------------------------------------------------------------
;
; $VER: Installer of MaxManager © Marcin Orlowski

(set __version  0)
(set __revision 141)
(set __date "15.05.1997")

;--------------------------------------------------------------------

(if (= @language "english")
 (
 (set #WrongMUI		"\n\nTo use MaxManager\nyou need to have MUI v3")
 (set #DestPrompt	"Choose home for MaxManager\n(MaxManager dir will be created)")
 (set #Done (cat "\nDone!\n"
	 			 "---------\n\n"
				 "Now enjoy this release of \n"
				 "W.F.M.H. MaxManager...\n\n"
				 "Do NOT forget to register...\n\n\n"
				 "© 1995-1997 Marcin Orlowski\n"
				 "© 1995-1997 World Federation of Mad Hackers"
		   )
 )
 (set #Info  (cat "\n\nFor more information, latest update\n"
				  "and the support files look at the\n"
				  "dedicated WWW page:\n\n"
				  "http://wfmh.man.szczecin.pl\n\n\n"
				  "Check also our support BBS:\n\n"
				  "SilverDream!'s BBS:  +48 91 540431  (non-stop)"
		 	 )
 )
 )
)


;--------------------------------------------------------------------

(if (= @language "polski")
 (
 (set #WrongMUI		"\n\nMax Manager wymaga systemu\nMUI w wersji 3+")
 (set #DestPrompt	"Gdzie chcesz zainstalowaź MaxManagera?\n(katalog MaxManager zostanie zaīoūony)")
 (set #Done (cat "\nGotowe!\n"
	 			 "---------\n\n"
				 "Miīej pracy z programem\n"
				 "W.F.M.H. MaxManager...\n\n\n"
				 "... Nie zapomnij sie zarejestrowaź!...\n\n\n"
				 "© 1995-1997 Marcin Orlowski\n"
				 "© 1995-1997 World Federation of Mad Hackers"
		   )
 )
 (set #Info  (cat "\n\nWiėcej informacji oraz najnowszā wersjė\n"
				  "znajdziesz na dedykowanej stronie WWW\n\n"
				  "http://wfmh.man.szczecin.pl/~carlos\n\n\n"
				  "Zajrzyj równieū do naszego BBSu:\n\n"
				  "SilverDream!'s BBS: 091 540431  (non-stop)"
		 	 )
 )
 )
)

;--------------------------------------------------------------------

(set MUI_Version (getversion "LIBS:muimaster.library") )
(if (> MUI_Version 720896)
	(abort  #WrongMUI)
)


(complete 0)
(welcome
	"\n"
	" ###    ###    #########  ###    ###    ###    ###\n"
	" ###    ###    ###        ####  ####    ###    ###\n"
	" ###    ###    ###        ### ## ###    ###    ###\n"
	" ###    ###    ########   ### ## ###    ##########\n"
	" ### ## ###    ########   ###    ###    ##########\n"
	" ### ## ###    ###        ###    ###    ###    ###\n"
	" ####  #### ## ###     ## ###    ### ## ###    ###\n"
	" ###    ### ## ###     ## ###    ### ## ###    ###\n"
	"\n"
	"      ------------------------------------------\n"
	"              MaxManager " __version  "."  __revision "  (" __date ")\n"
	"      ------------------------------------------"
)

;********************

(set MM_dest
	(tackon
	 (askdir
		(default "BBS:")
		(prompt  #DestPrompt)
		(help   @askdir-help)
	 )
	"MaxManager")
)
(makedir MM_Dest (infos))
(complete 20)

(copyfiles
	(source "/MaxManager")
	(dest MM_dest)
	(infos)
	(all)
)
(complete 40)

(copyfiles
	(source "/")
	(dest MM_dest)
	(infos)
	(pattern "Read Me First!#?")
)
(complete 60)

(copyfiles
	(source "/")
	(dest MM_dest)
	(infos)
	(pattern "OrderForm#?")
)
(complete 80)


(message #Done)

(complete 90)
(message #Info)

(complete 100)
(exit (QUIET))