;$VER: INSTALLATION DE DTMF V2.2

(complete 0)
(welcome)

(set vblank (database "vblank"))

(if (= vblank "60")
        (message
                ("Aie !!\n")
                ("\nDésolé votre ordinateur est connecté sur un réseau 60 Hz, ce qui implique ")
                ("une horloge DMA différente des machines fonctionnant sur un réseau 50 Hz.")
                ("\n\nJe n'ai pas encore eu la possibilité de calculer les tonalités pour ce mode.")
                ("Les fréquences vocales générées par DTMF seront donc incorrectes.")
                ("\n\nCeci devrait être corrigé bientôt.")
                ("\n\nPar contre, le répertoire téléphonique est totalement opérationnel. sic !!")
        )
)

;Check kickver
(if (< (/ (getversion) 65536) 37)
        (abort ("Vous devez avoir le kickstart 2.0x pour effectuer "
                        "l'installation et utiliser DTMF")
        )
)

(database "cpu")

(set cpu (database "cpu"))

(set workbench (getenv "Workbench"))

(message
        ("Bonjour")
        ("\nCe programme va effectuer les opérations suivantes :\n\n")
        ("- Installation de DTMF et de sa documentation ")
        ("au format Amigaguide dans le répertoire que vous allez choisir.\n\n")
        ("- Ajout des fontes LCD et CYBER dans le répertoire de DTMF ou dans l'unité logique fonts:.\n\n")
        ("- Ajout d'un fichier de données regroupant les coordonnées d'un certain nombre de club et associations")
)

(set sdir (pathonly @icon))

(set tdir (askdir
                (prompt ("Indiquez où vous voulez installer le répertoire DTMF_2.2"))
                (help @askdir-help)
                (default @default-dest)
        )
)
(set @default-dest tdir)

(makedir (tackon tdir "DTMF_2.2") (infos))
(set tdir (tackon tdir "DTMF_2.2"))

(if (= cpu "68000")
        (set name "DTMF")
        ((if (= cpu "68020")
                (set name "DTMF_20")
                (set name "DTMF_30"))
        )
)
;Copy main program
(copyfiles
        (prompt "Copie du programme DTMF version " cpu " dans votre répertoire")
        (source (tackon sdir name))
        (dest tdir)
        (newname "DTMF")
        (confirm)
        (help @copyfiles-help)
)

(complete 20)

(set ans
        (askchoice
                (prompt "Quelle icon voulez-vous utiliser ?")
                (help "Si vous utiliser le look MagicWB pour votre Workbench, choisissez MagicWB, sinon, renseignez vous auprès de votre distributeur de DP, pour l'acquérir !!")
                (choices "Normale" "Style MagicWB (Tobias Ferber CAM 862)")
                (default 0)
    )
)

(if (= ans 0)
        (set name "dtmf.info")
        (set name "MagicWB/dtmf.info")
)

(copyfiles
        (prompt "copie de l'icon et définition des TOOLTYPES" name)
        (help @copyfiles-help)
        (source (tackon sdir name))
        (dest tdir)
)

(tooltype
        (dest (tackon tdir "dtmf"))
        (settooltype "WINCLAVTOP" "25")
        (settooltype "WINCLAVLEFT" "25")
        (settooltype "WINREPTOP" "25")
        (settooltype "WINREPLEFT" "250")
        (settooltype "PREFCHANNEL" "LEFT")
        (settooltype "TIMEPULSE" "100")
        (settooltype "TIMESPACE" "50")
        (settooltype "TIMEPAUSE" "150")
        (noposition)
        (setstack 4096)
)

(complete 40)

(message
        ("\n\nInstaller va copier la documentation au format AmigaGuide.\nDeux version existent: Une pour le Workbench 2.0+, et une pour le Workbench 3.0+")
        (" qui accepte les caractères gras soulignés... dans les documentations Amigaguide.\nLe contenu de ces deux documentations est évidemment strictement identique.")
)

;Copy manual

(if (< workbench 40.00)
        (set name "DTMF.guide_WB2.0")
        (set name "DTMF.guide_WB3.0")
)

(copyfiles
        (prompt "copie de la documentation " name)
        (help @copyfiles-help)
        (source (tackon sdir name))
        (dest tdir)
        (newname "DTMF.guide")
        (infos)
)

(tooltype
        (dest (tackon tdir "dtmf.guide"))
        (noposition)
)

(complete 60)

(set ans (askbool
                (
                        (prompt "\nVoulez-vous que je copie le répertoire contenant les coordonnées des clubs et associations"
                        " du monde de l'Amiga ?.\n")
                        (help "vous pourrez évidemment compléter ce fichier avec vos propres saisies")
                )
        )
)
(if
        (= 1 ans)
        (
                (copyfiles
                        (source (tackon sdir "repertoire.dat"))
                        (dest tdir)
                        (help @copyfiles-help)
                )
        )
)

(complete 80)

(set ans (askchoice
                (
                        (prompt "Dnas quel répertoire voulez-vous installer les fontes ?")
                        (help "Installer les fontes dans FONTS: vous permet de les utilisez facilement dans n'importe quel programme.\n"
                                "Par contre les installer dans le répertoire de DTMF est à mon sens plus propre.")
                        (Choices "Dans le répertoire de DTMF" "Dans l'unité standard FONTS:")
            (Default 0)
                )
        )
)

(procedure cree_dir
        (set dirFont (tackon tdir "fonts"))
        (makedir dirFont)
)

(if
        (= 0 ans)
    (cree_dir)
        (set dirFont "fonts:")
)

(message "\nCopie des fontes LCD 13 et CYBER 16 dans " dirFont)

(copyfiles
        (source (tackon sdir "fonts"))
        (all)
        (dest dirFont)
        (fonts)
        (help @copyfiles-help)
)
(tooltype
        (dest (tackon tdir "fonts"))
        (noposition)
)

(complete 100)

(exit)