;
;              asl.library  1995 Miosaw Smyk & Marcin Orowski
;
;           ---------------------------------------------------------
;
;               ###    ###    #########  ###    ###    ###    ###
;               ###    ###    ###        ####  ####    ###    ###
;               ###    ###    ###        ### ## ###    ###    ###
;               ###    ###    ########   ### ## ###    ##########
;               ### ## ###    ########   ###    ###    ##########
;               ### ## ###    ###        ###    ###    ###    ###
;               ####  #### ## ###     ## ###    ### ## ###    ### ##
;               ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                       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  (24h non-stop)
;                               GlobalNet: 52:4800/6
;                               FidoNet  :  2:481/22.2
;
;               Internet:       smykm@felix.univ.szczecin.pl
;                               carlos@felix.univ.szczecin.pl
;
;               WWW page:
;               http://dedal.univ.szczecin.pl/~thorgal/ASL/asl.html
;
;
;--------------------------------------------------------------------
;
;                  W.F.M.H. asl.library v42+ Installer script
;
;--------------------------------------------------------------------
;
; $VER: Installer of asl v42.0 (01.07.95)  Marcin Orlowski
;

(set OS_Version (getversion "LIBS:asl.library") )
(if (AND ((<> OS_Version 2555908) (<> OS_Version 2621446)) 0)
	(abort  "\nTo use asl.library v42.0\n"
		"you need one of the following versions\n"
		"of original asl.library to patch:\n\n"
		"OS3.0  -  v39.4\n"
		"OS3.1  -  v40.6\n"
	)
)

(if (= OS_Version 2752512)
	(abort  "\n\nYou already have installed\n"
		"asl.library v42.0\n"
		"and there's no point to install it again..."
	)
)



(complete 0)
(welcome
	"\n"
	" ###    ###    #########  ###    ###    ###    ###\n"
	" ###    ###    ###        ####  ####    ###    ###\n"
	" ###    ###    ###        ### ## ###    ###    ###\n"
	" ###    ###    ########   ### ## ###    ##########\n"
	" ### ## ###    ########   ###    ###    ##########\n"
	" ### ## ###    ###        ###    ###    ###    ###\n"
	" ####  #### ## ###     ## ###    ### ## ###    ###\n"
	" ###    ### ## ###     ## ###    ### ## ###    ###\n"
	"\n"
	"      ------------------------------------------\n"
	"            asl.library 42.0  (01.07.1995)\n"
	"      ------------------------------------------"
)

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

(if (= OS_Version 2555908)
	(set System 0)
)
(if (= OS_Version 2621446)
	(set System 1)
)

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

(set PrefsMode
  (askchoice
     (prompt  "Select preferred type of prefs program")
     (help    "\n\n\n\n"
              "        In this release you have no choice\n"
              "        and must select MUI prefs program\n"
              "             if you like it or not...")
     (choices "AslPrefs (MUI)")
  )
)

(if (= PrefsMode 0)
	(copyfiles
	  (source "Prefs/AslPrefsMUI")
          (dest "SYS:Prefs/")
  	  (infos)
  	)
)
(complete 20)

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

;(set Languages
;    (askoptions
;      	(prompt  "Select languages for prefs program\n"
;      		 "(english is built-in language)"
;	)
; 	(help	@askoptions-help)
;       	(choices
;                "Polski"
;	)
;	(default 0)
;    )
;)

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

(set DOC_Type
     (askoptions
      	(prompt  "Select manual form")
 	    	(help	@askoptions-help)
       	(choices
                " AmigaGuide"
		)

	   )
)

(if (> DOC_Type 0)
 (
  (

  (set Dok_dest
     (tackon
		(askdir
			(default @default-dest)
			(prompt  "Where do you want the manual to be placed in:\n"
				 "(drawer \"Asl Manual\" will be created)")
			(help   @askdir-help)
                )
        "Asl Manual"
    )
  )

  (makedir Dok_dest (infos))

  (if (bitand DOC_Type 1)
   (
   (copyfiles
      (source "/Docs/")
      (dest Dok_dest)
  	(infos)
      (all)
    )
   )
  )

  )
 )
)
(complete 40)

(working "Creating work files...")
(if (= System 0)
	(set err (run "c/spatch -ppatch/asl.library.39.4.pch -oLIBS:asl.library.new LIBS:asl.library"))
)
(if (= System 1)
	(set err (run "c/spatch -ppatch/asl.library.40.6.pch -oLIBS:asl.library.new LIBS:asl.library"))
)
(if (<> err 0)
	(
	(run "delete >nil: LIBS:asl.library")
	(abort "Patching has failed...")
	)
)
(complete 60)

(working "Switching libraries as:\n"
	 "LIBS:asl.library.old\n\n"
	 "and creating the new one..."
)
(run "rename >nil: LIBS:asl.library LIBS:asl.library.old")
(run "delete >nil: LIBS:asl.library")
(run "rename >nil: LIBS:asl.library.new LIBS:asl.library")
(complete 80)


(working "...and finally we clean up...")

(if (= DOC_Type 0)
	(set Info_Text
	 (cat "To become master of asl please\n"
	 "read manual carefully. But it seems\n"
	 "you already know everything because\n"
	 "you didn't want any documentation...\n\n"
	 )
	)
	(set Info_Text
 	 (cat "To become master of asl please\n"
	 "carefully read installed manual\n"
	 "placed in the drawer:\n\""
	 Dok_dest
	 "/\"\n\n"
	 )
	)
)
(message "\nDone!\n"
	 "---------\n"
	 "Now you must reset your Amiga\n"
	 "to enjoy this release of asl\n\n"
	 Info_Text
	 "  1995 World Federation of Mad Hackers\n"
	 "Miloslaw Smyk & Marcin Orlowski\n"
)

(complete 100)
(message "\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/~thorgal/ASL/asl.html\n\n\n"
	 "Check also our support BBS:\n\n"
	 "SilverDream!'s BBS:  +48 (0)91 540431  (non-stop)"
)

(exit (QUIET))
