(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 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.5/")))
   ((set DIR (cat DIR "/MUI AFS-UndeleteV1.5/")))
)

(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 "I will now create a directory for MUI AFS-Undelete")
	(help @makedir-help)
	(infos)
)

(complete 60)

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

(complete 80)

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

(complete 100)