; $VER: Install 1.20 - Copyright by Condor's, Inc. All Rights Reserved.
; Script to install the german XTrace V 1.20 documentation

; ============================================================================
; Strings
; ============================================================================

; German strings

(SET Msg_Welcome       "Willkommen zur Installation der\ndeutschen XTrace V 1.20 Dokumentation !\n\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nSie können jederzeit die Installation abbrechen und alle neu installierten Teile von XTrace werden gelöscht.\n\nDiese Install-Script wurde mit dem Installer V43.3 (aminet:util/misc/Installer-43_3.lha) getestet.")
(SET Msg_Dir           "Wählen Sie bitte das Verzeichnis in dem sich das XTrace VERZEICHNIS befindet.")
(SET Msg_ErrorDir      "XTrace V1.20 wurde nicht oder nicht korrekt installiert.\n\nBitte installieren Sie XTrace bevor Sie die Dokumentation installieren.\n\nWenn Sie alle nötigen XTrace Archive in dasselbe Verzeichnis entpackt haben können Sie diese Dokumentation zusammen mit den anderen XTrace Teilen installieren. Für weitere Informationen lesen Sie bitte die Datei 'Read_Me_First'.")
(SET Msg_Bye           "\n\n\n\nDanke das Sie die deutsche XTrace Dokumentation installiert haben. Vergessen Sie nicht sich registrieren zu lassen !")
(SET Msg_ByeReg        "\n\n\n\nDanke das Sie die deutsche XTrace Dokumentation installiert haben.")

(SET Msg_Abort         "Installation abgebrochen. Wollen Sie die bereits installierten Dateien löschen ?\n\nDa Sie eine installierte Dokumentation geupdatet haben könnte diese bereits überschrieben worden sein. Installieren Sie diese alte Dokumentation bitte neu.\n\n")
(SET Msg_Abort_RYes    "Ja, entfernen")
(SET Msg_Abort_RNo     "Nein")

; ============================================================================
; Initialization
; ============================================================================

; Set up error routine

(ONERROR
 (IF (EXISTS "XTDest:" (NOREQ))
 (
  (IF (ASKBOOL
   (PROMPT Msg_Abort)
   (HELP @ASKBOOL-HELP)
   (CHOICES Msg_Abort_RYes
            Msg_Abort_RNo)
   (DEFAULT 0))
   (
    (DELETE "XTDest:XTrace/Guides/XTrace_#?.guide" (OPTIONAL FORCE))
    (DELETE "XTDest:XTrace/Read_Me_First"       (OPTIONAL FORCE))
   )
  )

  (MAKEASSIGN "XTSrc"  (SAFE))
  (MAKEASSIGN "XTDest" (SAFE))
 ))
)

; ============================================================================
; Installation
; ============================================================================

(MESSAGE Msg_Welcome)
(COMPLETE 0)

; cancel the assign in case of installation restart

(MAKEASSIGN "XTSrc" (SAFE))
(MAKEASSIGN "XTDest" (SAFE))

; ============================================================================
; Ask for directory
; ============================================================================

(SET XTDest (TACKON (ASKDIR (PROMPT Msg_Dir) (HELP @ASKDIR-HELP) (DEFAULT @default-dest)) "XTrace"))
(MAKEASSIGN "XTDest" (PATHONLY XTDest) (SAFE))

(MAKEASSIGN "XTSrc" "")
(SET @default-dest (EXPANDPATH "XTDest:"))

; ============================================================================
; Check directories
; ============================================================================

(IF (NOT (AND ((EXISTS "XTDest:XTrace") (EXISTS "XTDest:XTrace/Guides")))) (ABORT Msg_ErrorDir))

; ============================================================================
; Copy guide and Read_Me_First
; ============================================================================

(COPYFILES (SOURCE "XTSrc:") (DEST "XTDest:XTrace/Guides/") (PATTERN "XTrace_#?.guide"))
(COPYFILES (SOURCE "XTSrc:Read_Me_First") (DEST "XTDest:XTrace/"))

; ============================================================================
; Cleanup & End
; ============================================================================

(COMPLETE 100)

(MAKEASSIGN "XTSrc"  (SAFE))
(MAKEASSIGN "XTDest" (SAFE))

(IF (EXISTS "DEVS:KeyFiles/XTrace.key") (EXIT Msg_ByeReg) (EXIT Msg_Bye))