; ************************************************
; *
; * EuraConfig - HD Install Script
; *
; * $VER: Install-EuraConfig 2.00
; *
; * Script written by Richard Krber
; *
; ************************************************

;------- Prompts ---------------------------------
;
(set DestDirPrompt
  (cat  "Wohin soll EuraConfig installiert werden?\n"
        "Ein eigenes Verzeichnis wird dort erzeugt."
  )
)

(set Ask020Prompt
  (cat  "Mchten Sie die fr den 68020 und hher\n"
        "optimierte Version installieren?"
  )
)

(set CopyEuraCfgPrompt
  (     "Kopiere EuraConfig-Hauptprogramm.")
)

(set CopyEuraCfgInfoPrompt
  (     "Kopiere EuraConfig-Piktogramm.")
)

(set CopyDocPrompt
  (     "Kopiere die Anleitung.")
)

(set CopyDviPrompt
  (     "Kopiere die Anleitung im DVI-Format.")
)

(set PatchPrompt
  (     "Erzeuge die 68020-Version.")
)

;------- Help ------------------------------------
;
(set DestDirHelp
  (cat  "Whlen Sie ein Zielverzeichnis aus, z. B.\n"
        "'Work:'. Sie brauchen kein eigenes Verzeichnis\n"
        "anlegen, da es automatisch erzeugt wird!"
  )
)

(set Ask020Help
  (cat  "Es gibt eine Spezialversionen der EuraConfig.\n"
        "Sie ist optimiert fr den 68020 bis 68060.\n"
        "Es wird der umfangreichere Befehlssatz der Pro-\n"
        "zessoren ausgenutzt.\n\n"
        "Die voreingestellte Version knnen Sie auf jeden\n"
        "Fall verwenden."
  )
)

(set CopyDocHelp
  (cat  "Dies sind Anleitungen zu EuraConfig:\n\n"
        "  EuraConfig.guide  im AmigaGuide-Format\n"
        "  EuraConfig.dvi    im DVI (TeX)-Format\n"
        "  History.txt       Information ber nderungen\n"
        "  Formular.txt      Registrationsformular\n\n"
        "Die guide-Datei wird dringend empfohlen, da\n"
        "sie auch von der Online-Hilfe bentigt wird.\n"
        "Die anderen Dateien sind optional."
  )
)


;------- Messages --------------------------------
;
(set StartupMsg
  (cat  "\nWillkommen zur\n\n"
        "EuraConfig Installation\n\n\n"
        "EuraConfig ist Shareware. Sie drfen das\n"
        "Programm einen Monat lang testen. Danach\n"
        "mssen Sie sich registrieren lassen oder\n"
        "das gesamte Paket lschen.\n\n"
        "Lesen Sie bitte unbedingt VOR dem ersten\n"
        "Start die Anleitung!"
  )
)

(set NeedMUIMsg
  (cat  "\n** ACHTUNG **\n\n"
        "EuraConfig bentigt MUI V3!\n\n"
        "Sie mssen MUI unbedingt noch installieren,\n"
        "um das Programm zu verwenden. MUI finden Sie\n"
        "auf jeder gut sortierten Public Domain-CD-ROM\n"
        "oder unter  http://www.sasg.com  "
  )
)

(set AllrightMsg
  (cat  "\nEuraConfig ist jetzt installiert.\n\n"
        "Bitte vergessen Sie nicht, sich nach\n"
        "einem Monat registrieren zu lassen! ;-)\n\n"
        "               Richard Krber"
  )
)

(set CPU000 "68000, 68010")
(set CPU020 "68020, 68030, 68040, 68060")

;------- Files -----------------------------------
;
(set Patch          "spatch")
(set EuraCfg020     "EuraConfig_020.pch")
(set EuraCfg        "EuraConfig")
(set EuraCfgInfo    "EuraConfig.info")
(set EuraDoc        "EuraConfig.guide")
(set EuraDvi        "EuraConfig.dvi")
(set EuraHistory    "History.txt")
(set EuraFormular   "Formular.txt")

;------- Installation ----------------------------
;
(message StartupMsg)            ;-------- Welcome the user

(if (<> (exists "libs:muimaster.library") 1)      ; is MUI installed?
  (message  NeedMUIMsg)
)

(set DestDir                    ;-------- Ask dir to create drawer into
  (askdir
    (prompt  DestDirPrompt)
    (help    DestDirHelp)
    (default "Work:")
  )
)
(set DestDir                            ; And create this directory
  (tackon DestDir "EuraConfig")
)
(makedir
  (DestDir)
  (infos)
)
(set @default-dest (DestDir))

(set usedcpu (+ (database "cpu")))      ; Is a 68020+ available?
(if (< usedcpu 68020)
  (set usedcpu 0)
  (set usedcpu 1)
)
(if (= @user-level 2)
  (set CPUVer
    (askchoice
      (prompt Ask020Prompt)
      (help   Ask020Help)
      (choices CPU000 CPU020)
      (default usedcpu)
    )
  )
  (set CPUVer usedcpu)
)

(copyfiles                              ; Copy EuraConfig
  (prompt  CopyEuraCfgPrompt)
  (help    @copyfiles-help)
  (source  EuraCfg)
  (dest    DestDir)
  (infos)
)

(if (= CPUVer 1)
  (
    (set Sourcefile (tackon DestDir EuraCfg))
    (set Cmd (cat Patch " -o" Sourcefile " -p" EuraCfg020 " " Sourcefile))
    (run Cmd (prompt PatchPrompt))
  )
)

(copyfiles                              ; Copy the documentation
  (prompt  CopyDocPrompt)
  (help    CopyDocHelp)
  (source  "")
  (choices EuraDoc EuraDvi EuraHistory EuraFormular)
  (dest    DestDir)
  (infos)
  (confirm)
)

(message AllrightMsg)

;------- Done ------------------------------------

