;
;               W.F.M.H. MaxManager © 1995-1996 Marcin Orîowski
;
;           ---------------------------------------------------------
;
;               ###    ###    #########  ###    ###    ###    ###
;               ###    ###    ###        ####  ####    ###    ###
;               ###    ###    ###        ### ## ###    ###    ###
;               ###    ###    ########   ### ## ###    ##########
;               ### ## ###    ########   ###    ###    ##########
;               ### ## ###    ###        ###    ###    ###    ###
;               ####  #### ## ###     ## ###    ### ## ###    ### ##
;               ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                        Mental Pictures Developed Here
;
;               Miloslaw Smyk                   Marcin Orlowski
;               Orawska 22/34                   ul. Radomska 38
;               70-131 Szczecin                 71-002 Szczecin
;               Poland                          Poland
;
;               SilverDream!'s BBS:  +48-(0)91-540431  (non-stop)
;               MaxNet:              86:30042/203
;               FidoNet  :           2:481/22.2
;               GlobalNet:           52:4800/6
;
;               Internet:            carlos@felix.univ.szczecin.pl
;
;               WWW page:
;               http://dedal.man.szczecin.pl/~carlos/carlos.html
;
;
;--------------------------------------------------------------------
;
;                   W.F.M.H. MaxManager Installer script
;
;--------------------------------------------------------------------
;
; $VER: Installer of MaxManager © Marcin Orlowski

(set __version  0)
(set __revision 119)
(set __date "28.01.1996")

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

(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-1996 Marcin Orlowski\n"
				 "© 1995-1996 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://dedal.univ.szczecin.pl/~carlos/~carlos.html\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-1996 Marcin Orlowski\n"
				 "© 1995-1996 World Federation of Mad Hackers"
		   )
 )
 (set #Info  (cat "\n\nWiëcej informacji, najnowszâ wersjë\n"
				  "znajdziesz na dedykowanej stronie WWW\n\n"
				  "http://dedal.univ.szczecin.pl/~carlos/~carlos.html\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))

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

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

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

  (copyfiles
     (source "/Docs")
     (dest MM_dest)
	  (infos)
     (all)
  )

(message #Done)

(complete 100)
(message #Info)

(exit (QUIET))