(welcome "Willkommen zum Installations-Skript für Cheatfinder!")

(if (>= (/ @installer-version 65536) 44)
 (
  (effect "center" "radial" $FFFFFF $FF0000)
  (set #h (querydisplay "screen" "height"))
  (set #w (querydisplay "screen" "width"))
  (set #d (querydisplay "screen" "depth"))
  (set #c (querydisplay "screen" "colors"))
 )
)

(set #destdir
	(askdir
		(prompt "Wo soll der Cheatfinder installiert werden?\n (Ein neues Verzeichnis wird erstellt!)")
		(help @askdir-help)
    		(default "work:")
		(disk)
	)
)

(set #destdir (tackon #destdir "Cheatfinder"))

(makedir #destdir
	(prompt "Lege nun das Verzeichnis "#destdir" an.")
	(help @makedir-help)
	(infos)
	(confirm)
)

(copyfiles
	(prompt "Lege nun das Verzeichnis "#destdir" an.")
	(help @copyfiles-help)
	(source "/Cheatfinder.info")
	(dest (tackon #destdir "/"))
	(choices)
)

(copyfiles
	(prompt "Kopiere das Hauptprogramm...")
	(help @copyfiles-help)
	(source "Cheatfinder")
	(dest #destdir)
	(choices)
)

(copyfiles
	(prompt "Kopiere das Hauptprogramm...")
	(help @copyfiles-help)
	(source "Cheatfinder.info")
	(dest #destdir)
	(choices)
)

(copyfiles
	(prompt "Kopiere die Anleitung...")
	(help @copyfiles-help)
	(source "Cheatfinder.guide")
	(dest #destdir)
	(choices)
)

(copyfiles
	(prompt "Kopiere die Anleitung...")
	(help @copyfiles-help)
	(source "Cheatfinder.guide.info")
	(dest #destdir)
	(choices)
)

(set #destdir (tackon #destdir "data"))

(makedir #destdir
	(prompt "Lege nun das Verzeichnis "#destdir" an.")
	(help @makedir-help)
	(infos)
	(confirm)
)

(delete (tackon #destdir "/data.info"))

(copyfiles
	(prompt "Welche Ausgaben wollen Sie installieren?")
	(help @askoptions-help)
	(source "data")
	(dest #destdir)
	(pattern "#?")
	(confirm)
)