(if (= @language "english")
	(
		(set #help-dir
    		 (cat "You must enter the path, where you want to \n"
           "install MUI AFS-Undelete. A directory will be\n"
           "created automatically.\n\n"
    		 )
		)

		(set #dir-request
    		 (cat "Please enter the destination path\n"
           "for \"MUI AFS-Undelete\"\n"
           "A drawer will be automatically created\n"
    		 )
		)

		(set #copy-undelete
    		 "\n\nCopying \"MUI AFS-Undelete ...\""
		)

		(set #copy-guide
    		 "\n\nCopying \"MUI AFS-Undelete documentation...\""
		)

		(set #which-destination
    		 (cat "\n\nWhat default destination path do you wish\n"
           "to use for your undeleted files ?\n"
    		 )
		)                                                                

		(set #write-tooltypes
    		 "\nWriting Tool-Type ..."
		)

		(set #done "\Installation completed.")

		(set #PROGNAME "MUI AFS-Undelete")

          (set #DOCNAME "MUI AFS-Undelete.guide")

		(set #PATH "English/")

		(set #make-dir "I will now create a directory for MUI AFS-Undelete")
	)

	(
		(set #help-dir
    		 (cat "Specificera var du vill att MUI AFS-Undelete skall\n"
            "installeras. Ett bibliotek kommer att skapas\n"
            "automatiskt.\n\n"
    		 )
		)

		(set #dir-request
    		 (cat "Specificera destinationssökväg\n"
            "för \"MUI AFS-Undelete\"\n"
            "Ett bibliotek kommer att skapas automatiskt.\n"
    		 )
		)

		(set #copy-undelete
    		 "\n\nKopierar \"MUI AFS-Undelete...\""
		)

		(set #copy-guide
    		 "\n\nKopierar \"MUI AFS-Undeletes dokumentation...\""
		)

		(set #which-destination
    		 (cat "\n\nSpecificera var du vill att återtagna filer\n"
            "skall hamna.\n"
    		 )
		)

		(set #write-tooltypes
    		 "\nSkriver Tooltype..."
		)
		
		(set #done "\Installationen avslutad.")

		(set #PROGNAME "MUI AFS-UndeleteSW")

          (set #DOCNAME "MUI AFS-UndeleteSW.guide")

		(set #PATH "Svenska/")

		(set #make-dir "Ett bibliotek skapas nu för MUI AFS-Undelete")
	)
)

(set DIR (askdir (prompt #dir-request)
                 (help #help-dir)
                 (default "SYS:Utilities")
         )
)

(complete 20)

(set dernier (substr DIR (- (strlen DIR) 1)))

(if (= dernier ":")
   ((set DIR (cat DIR "MUI-AFS-UndeleteV1.6/")))
   ((set DIR (cat DIR "/MUI AFS-UndeleteV1.6/")))
)

(set DESTINATION (askstring (prompt #which-destination)
                       (help @askstring-help)
                       (default "Ram:")
                 )
)

(complete 40)

(tooltype (prompt #write-tooltypes)
          (help)
          (dest "MUI AFS-Undelete")
          (settooltype "DESTINATION" DESTINATION)        
)

(makedir DIR
   	(prompt #make-dir)
  	(help @makedir-help)
	(infos)
)

(complete 60)

(copyfiles (prompt #copy-undelete)
           (help @copyfiles-help)
           (source (cat #PATH #PROGNAME))
           (dest DIR)
		 (newname "MUI AFS-Undelete")
           (infos)
)

(complete 80)

(copyfiles (prompt #copy-guide)
           (help @copyfiles-help)
           (source (cat #PATH #DOCNAME))
           (dest DIR)
		 (newname "MUI AFS-Undelete.guide")
           (infos)
)

(complete 99)

(exit #done (quiet))