A couple of things that annoy me with the installer:
* SYS:AfA_OS_Libs.info - why? I dont see the purpose of an icon here.
* I choose to install the AfA_OS directory to SYS:System, and then the installer overwrites my SYS:System.info 
Apart from that - superb! 
Here is the installer, i dont understand it much, but i have no idea how can cause this.
Only problem i see from installer that it do memtrash, when it must show a directory of more than 100 dirs.
maybe better use the geit installer
;--------- check and set language strings
(set lang 0)
;---- check language
(if (= @language "svenska")
(
(set lang 1)
)
)
(if (= @language "deutsch")
(
(set lang 2)
)
)
;---- english strings
(if (= lang 0)
(
(set #install-where1 "Where do you want to install the test programs and Documentation?\nA directory called \"")
(set #install-where2 "\" will be created for you.")
(set #install_zune "Should be the new AfA_OS zune.library installed in AfA_OS_Libs?")
(set #install_zunehelp "\n\nNormaly this is only needed if the AfA_OS_zune packet is installed, but it has no drawbacks if not.")
(set #install_morels_m "Should the residentmodule morelibspace_module be copied in DEVS:?")
(set #install_morels_m_help "This is the residentmodule only without the loader. It can only by used toguocer with Loadmodule, Blitzkick or Luziferin (to place it in the Flash). The only known problem is that it don't work with MuProtect.")
(set #drawer-exists1 "Directory \"")
(set #drawer-exists2 "\" already exists.\nShould it be deleted?\n\n")
(set #choice-yes "Yes")
(set #choice-no "No")
(set #startup1 "\n\nYou must add in and mayby change some lines in your \"s:startup-sequence\" to use AFA_OS on boot.")
(set #startup2 "\n\nPlease read and follow the installation instructions in the Documentation.")
(set #startup3 "\n\n!!! Dont forget to deaktivate \"PowerIcons\" !!!")
(set #startup4 "\n\nNot all files are copy with the installer. So take too a look on the archive dir.")
)
)
;---- svenska strings
(if (= lang 1)
(
(set #install-where1 "Var vill du installera testprogrammen?\nEn katalog som heter \"")
(set #install-where2 "\" kommer att skapas åt dig.")
(set #install_zune "Should be the new AfA_OS zune.library installed in AfA_OS_Libs?")
(set #install_zunehelp "\n\nNormaly this is only needed if the AfA_OS_zune packet is installed, but it has no drawbacks if not.")
(set #install_morels_m "Should the residentmodule morelibspace_module be copied in DEVS:?")
(set #install_morels_m_help "This is the residentmodule only without the loader. It can only by used toguocer with Loadmodule, Blitzkick or Luziferin (to place it in the Flash). The only known problem is that it don't work with MuProtect.")
(set #drawer-exists1 "Katalogen \"")
(set #drawer-exists2 "\" finns redan.\nSka den tas bort?\n\n")
(set #choice-yes "Ja")
(set #choice-no "Nej")
(set #startup1 "\n\nYou must add in and mayby change some lines in your \"s:startup-sequence\" to use AFA_OS on boot.")
(set #startup2 "\n\nPlease read and follow the installation instructions in the Documentation.")
(set #startup3 "\n\n!!! Dont forget to deaktivate \"PowerIcons\" !!!")
(set #startup4 "\n\nNot all files are copy with the installer. So take too a look on the archive dir.")
)
)
;---- german strings
(if (= lang 2)
(
(set #install-where1 "Wo willst du die Testprogramme und Dokumentation installiern?\nEin Verzeichnis namens \"")
(set #install-where2 "\" wird für dich erstellt.")
(set #install_zune "Soll die neue AfA_OS zune.library auch in\nAfA_OS_Libs: installiert werden?")
(set #install_zunehelp "Normalerweise ist dies nur nötig wenn\ndas AfA_OS_zune Paket installiert ist,\nhat aber auch keine nachteile wenn nicht.")
(set #install_morels_m "Soll das Residentmodule von Morelibspace nach DEVS: kopiert werden?")
(set #install_morels_m_help "Dies ist das Residentmodule ohne Loader es kann nur zusammen mit Loadmodul, blitzkick oder Luziferin (um es in den Flash der DENEB/HIGHWAY zulegen) verwendet werden. Einzig bekanntes problem es funktioniert nicht mit MuProtect zusammen.")
(set #drawer-exists1 "Verzeichnis \"")
(set #drawer-exists2 "\" besteht bereits.\nSoll es gelöscht werden?\n\n")
(set #choice-yes "Ja")
(set #choice-no "Nein")
(set #startup1 "\n\nIn der \"s:startup-sequence\" müssen Zeilen einfügt und vielleicht geändert werden wenn du AFA_OS bereits beim Booten benutzen möchtest.")
(set #startup2 "\n\nBitte die Installationsanweisungen der Dokumentations lesen und befolgen.")
(set #startup3 "\n\n!!! Nicht vergessen \"PowerIcons\" zu deaktiviern !!!")
(set #startup4 "\n\nNicht alle Dateien werden mit diesem Installer kopiert. Deshalb sehe dir auch das Archivverzeichnis an.")
)
)
(set @default-dest "SYS")
;-------- start
; predefine procedurs
;---- copy librarys
(procedure p_versioncopy #copy_source #copy_destination #copy_pattern
(if (= @user-level 2)
(
(foreach #copy_source #copy_pattern
(
;(message (tackon #copy_source @each-name)) ; for debug
(copylib
(source (tackon #copy_source @each-name))
(dest #copy_destination)
(optional "fail" "askuser")
)
)
)
)
; else
(
(copyfiles
(source #copy_source)
(dest #copy_destination)
(all)
(optional "fail" "askuser")
)
)
)
)
;
(welcome)
;-------- ask destination for Docs and testtools
(set #afa_os-destination
(askdir
(prompt #install-where1 @app-name #install-where2)
(help @askdir-help)
(default "Sys:")
)
)
(set #full-destination (tackon #afa_os-destination @app-name))
;-------- ask if the dir exists to deleted it
(if (= @user-level 1) ; if an expert
(if
(exists #full-destination)
(
(set #choice
(askbool
(prompt #drawer-exists1 #full-destination #drawer-exists2)
(default 0)
(choices #choice-yes #choice-no)
(help @askchoice-help)
)
)
(
(if
(= #choice 1)
(run ("C:Delete \"%s\" \"%s.info\" All" #full-destination #full-destination))
)
)
)
)
)
;-------- creating directorys
;---- create AfA_OS dir
(makedir #full-destination
(prompt "Creating directory\n" #full-destination)
(infos)
)
;---- create AfA_os_libs dir
(makedir ("Sys:AfA_OS_Libs")
(prompt "Creating directory\n" "Sys:AfA_OS_Libs")
(infos)
)
(set @default-dest #full-destination)
;-------- copy files
;---- copy c tools
(copyfiles
(source ("c"))
(dest ("C:"))
(all)
(optional "fail" "askuser")
)
;---- copy AfA_OS library
(p_versioncopy "AfA_OS_Libs" "SYS:AfA_OS_Libs" "(#?.exe|#?.kmod)")
;---- copy fonts
(copyfiles
(source ("fonts"))
(dest ("Sys:Fonts/"))
(all)
(optional "fail" "askuser")
)
;---- copy librarys for fonts
(p_versioncopy "libs" "LIBS:" "#?")
;---- copy prefstools and skins
(copyfiles
(source ("prefs"))
(dest "Sys:Prefs/")
(noposition)
(all)
(optional "fail" "askuser")
)
;---- copy testtools
(copyfiles
(source ("testprog"))
(dest #full-destination)
(noposition)
(all)
(optional "fail" "askuser")
)
;---- copy english docs
(if (<> lang 2)
(
(copyfiles
(source ("README.txt"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
(copyfiles
(source ("Docs/AfA_OS_Documentation.txt"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
(copyfiles
(source ("Docs/AfA_OS_English.guide"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
)
)
;---- copy german docs
(if (= lang 2)
(
(copyfiles
(source ("Liesmich.txt"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
(copyfiles
(source ("Docs/AfA_OS_Dokumentation.txt"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
(copyfiles
(source ("Docs/AfA_OS_Deutsch.guide"))
(dest #full-destination)
(optional "fail" "askuser")
(infos)
(noposition)
)
)
)
