; $VER: Install Gurus2000
; © by Demon 1999

(complete 0)

(set #Language (askchoice (prompt "Gurus2000") (help (cat @askchoice-help))
(default 0) (choices "Deutsch" "English")) )

(if (= #language 0)
((set #welcome
(cat "\n\n\nHerzlich willkommen beim Gurus2000 - Installer\n\n"
"Dieser Installer installiert Gurus2000 auf deinen Amiga\n\n"
"(Bitte alte Version vorher löschen)\n\n\n"
"Gurus2000  © by Demon 2000"))
(set #choose-text
(cat "Wähle das Verzeichnis wohin Gurus2000 installiert werden soll. Ein Verzeichnis namens Gurus2000 wird dort angelegt."))
(set #choose-icons
(cat "Welche Icons sollen installiert werden?"))
(set #choose-html
(cat "Wähle deinen liebsten HTML-Reader:"))
(set #choose-pic
(cat "Wähle deinen liebsten Bildanzeiger:"))
(set #exit
(cat "\n\nViel Spaß mit Gurus2000")) ))

(if (= #language 1)
((set #welcome
(cat "\n\n\nWelcome to the Gurus2000 - installer\n\n"
"This installer will install Gurus2000 on your Amiga\n\n"
"(Please delete previous version)\n\n\n"
"Gurus2000  © by Demon 2000"))
(set #choose-text
(cat "Choose the destination drawer for the Gurus2000 archive. A directory called Gurus2000 will be created there."))
(set #choose-icons
(cat "Which icons should be installed?"))
(set #choose-html
(cat "Choose your favourite HTML reader:"))
(set #choose-pic
(cat "Choose your favourite picture viewer:"))
(set #exit
(cat "\n\nHave fun with Gurus2000")) ))

;----------------------------------------

(message #welcome)

(welcome)

(set @default "SYS:")
(set @default (askdir (prompt #choose-text) (help (cat @askdir-help)) (default @default)) )

(delete (tackon @default "gurus/data/#?"))
(delete (tackon @default "gurus/#?"))
(delete (tackon @default "gurus/"))
(delete (tackon @default "gurus.info"))
(delete (tackon @default "gurus9#?/data/#?"))
(delete (tackon @default "gurus9#?/brushes/#?"))
(delete (tackon @default "gurus9#?/#?"))
(delete (tackon @default "gurus9#?"))
(delete (tackon @default "gurus2000/data/#?"))
(delete (tackon @default "gurus2000/#?"))
(delete (tackon @default "gurus2000"))

(complete 1)

;----------------------------------------

(copyfiles (source ".inf") (dest @default) (newname "Gurus2000.info"))

(makedir @default)

(set @default (tackon @default "Gurus2000"))

(complete 2)

;----------------------------------------

(if (= #Language 0)
((copyfiles (source "deutsch") (dest @default) (pattern "#?")) ))

(if (= #Language 1)
((copyfiles (source "english") (dest @default) (pattern "#?")) ))

(complete 80)

;----------------------------------------

(copyfiles (source "!") (dest @default) (pattern "#?"))

(complete 96)

;----------------------------------------

(copyfiles (source "IBrowse.cfg") (dest @default))

(complete 97)

;----------------------------------------

(set @tthtml (askfile (prompt #choose-html) (help (cat @askfile-help)) (default "sys:")) )

(tooltype (dest (tackon @default "Gurus2000.html")) (setdefaulttool @tthtml))

(complete 98)

;----------------------------------------

(set @pic (askfile (prompt #choose-pic) (help (cat @askfile-help)) (default "c:")) )

(copyfiles (source @pic) (dest (tackon @default "data/")) (newname "V"))

(complete 100)

;----------------------------------------

(EXIT #exit (quiet))