; $VER: Install_DeliSid4Amiga 1.01 (27.06.99) by Peter Mattsson
; ENGLISH -----------------------------
(procedure english (
    (set MSG_DESTINATION "Please direct me to the location of your DeliPlayers directory. (%s will be directly copied there)")
    (set MSG_DESTINATION_HELP "The DeliPlayers directory is usually located in the DeliTracker_II directory, so first find where you have installed DeliTracker then click on the DeliPlayers directory.\n\n")
    (set MSG_COPYING "Going to copy %s to %s.")
    (set MSG_DELETING "Going to delete %s.")
    (set MSG_DELISID "It seems like you have DeliSID installed. DeliSID must be moved to PlayerStore, because otherwise DeliSid4Amiga will not work.\n\nDo you want me to move DeliSID to PlayerStore?")
    (set MSG_DELISID_HELP "DeliSID and DeliSid4Amiga don't work together because they both recognize the same type of modules (SIDs).\n\nThe recommended choice is Yes.")
    (set MSG_DOC_QUESTION "Do you want to install the documentation?")
    (set MSG_DOC_QUESTION_HELP "The documentation consists of one AmigaGuide file.")
    (set MSG_DOC_DESTINATION "Where do you want the documentation to be installed? (%s will be directly copied there)")
    (set MSG_DOC_DESTINATION_HELP "The preferred directory for documentation files is HELP:<language>, in this case the language is english.\n\n")
    (set MSG_CONFIGURATION "Important!\n\nBefore you can use DeliSid4Amiga you have to configure it correctly! Read the documentation for more information!")
))

(english)

(complete 0)

(set destdir
    (askdir (prompt (MSG_DESTINATION @app-name))
            (help MSG_DESTINATION_HELP @askdir-help)
            (default @default-dest)
            (disk))
)

(complete 12)

(set @default-dest destdir)

(copyfiles (prompt (MSG_COPYING @app-name @default-dest))
            (help @copyfiles-help)
            (source "DeliSid4Amiga")
            (dest destdir)
)

(complete 25)

(if (exists (tackon @default-dest "DeliSid"))
    (set move_delisid (askbool (prompt (MSG_DELISID))
                       (help MSG_DELISID_HELP)
                       (default 1)))
)

(complete 37)

(if (= move_delisid 1)(
    (copyfiles (prompt (MSG_COPYING (tackon @default-dest "DeliSID") (tackon @default-dest "PlayerStore")))
               (source (tackon @default-dest "DeliSid"))
               (dest (tackon @default-dest "PlayerStore")))
    (complete 50)
    (delete (tackon @default-dest "DeliSID")
            (prompt (MSG_DELETING (tackon @default-dest "DeliSID")))
            (optional "force"))
    )
)

(complete 62)

(set copy_docs
    (askbool (prompt (MSG_DOC_QUESTION))
             (help MSG_DOC_QUESTION_HELP)
             (default 1))
)

(complete 75)

(if (= copy_docs 1) (
    (set destdir
        (askdir (prompt (MSG_DOC_DESTINATION "DeliSid4Amiga.guide"))
                (help MSG_DOC_DESTINATION_HELP @askdir-help)
                (default "HELP:english"))
    )
    (complete 87)
    (copyfiles (prompt (MSG_Copying "DeliSid4Amiga.guide" destdir))
                (help @copyfiles-help)
                (source "DeliSid4Amiga.guide")
                (dest destdir)
                (infos)
    )
))

(complete 100)

(message MSG_CONFIGURATION)