;
; $VER: MUIXAnin v1.0 (18.8.1995) Install
;
;       Installer script for MUIXAnim.
;

	
(set @app-name "MUI XAnim")

(welcome "        Welcome to the MUI XAnim installation\n\n"
         "         Graphic User Interface for XAnim\n"
         "            for Amigas with 68020 and up\n"
         "        Copyright 1995 by Yannick Langenbach\n\n\n")




; Initialisation des messages.
;*****************************
        
        (set #WrongKickStart "\nMUIXAnim needs KickStart >= at 2.04.")

        (set #bad-MUI "\n You need at least MUI 2.3 to use MUIXAnim\nMUI 2.3 is copyright by Stefan Stunz\n\n\nYou can find it on Aminet in util/libs/mui23usr.lha")



; S'assurer que l'on utilise un KickStart >= à 2.04.
;***************************************************

        (if (< (/ (getversion) 65536) 37)
          (abort #WrongKickStart)
        )


; S'assurer que l'on a MUI 2.3
;*****************************

;( set versionnumber (getversion "MUI:LIBS/muimaster.library" ) )
;( set version (/ versionnumber 65536))

;( if (< version 10)
;	( abort #bad-MUI )
	
;	)



;s'assurer que l'on a au moins un 68020
;**************************************

(
(set CPUStr (database "cpu"))
(if (< CPUStr "68020")
(abort "It has been reported that you have a " CPUStr " CPU\n\nYou need at least a 68020 CPU to run MUIXAnim\n\nIt's time to upgrade, don't you think so ?")
)
)


; Répertoire de destination
; *************************


(set Path.source (pathonly @icon) )

(set  Path.dest
    
        (askdir
                (prompt "\nSelect or create a directory to install MUI XAnim.\nIt is advised to install it in the same directory as Xanim ( © by Mark Podlipec )\n")
                (help @askdir-help)
                (default "Work:")
		(newpath)
		
        )
	
)


; Copie de l'executable 
; *********************

(copyfiles
	(prompt "Copy of Executable")
	(help @copyfiles-help)
	(source Path.source)
	(dest Path.dest)
	(choices "MUIXAnim" "MUIXAnim.info")



)
; Copie de la doc 
; ***************

(copyfiles
	(prompt "Copy of Documentation")
	(help @copyfiles-help)
	(source Path.source)
	(dest Path.dest)
	(choices "MUIXAnim.guide" "MUIXAnim.guide.info" "RegisterForm" "RegisterForm.info" )
)

; Copie des fichiers de config
; ****************************

(if (= (exists "ENV:mui"(noreq)) 0)
	(makedir "ENV:mui")
	
)

   (copyfiles
	(prompt "Copy of MUI XAnim Config file to ENV:mui/")
        (help @copyfiles-help)
        (source Path.source)
	(dest "ENV:mui/")
	(choices "MUIXANIM.1.cfg" "MUIXANIM.1.wini")
   )



(if (= (exists "ENVarc:mui"(noreq)) 0)
	(makedir "ENVarc:mui")
)
   (copyfiles
        (prompt "Copy of MUI XAnim Config file to ENVArc:mui/")
        (help @copyfiles-help)
        (source Path.source)
        (dest "ENVArc:mui/")
	(choices "MUIXANIM.1.cfg" "MUIXANIM.1.wini")
   )

(set @default-dest Path.dest )

(exit)