; $VER: Ddiz Install- and Configscript V1.1
; Okay, trying to install Ddiz.

(welcome
   ("Willkommen beim Installationsscript von Ddiz.\nWas kann der Installer?\n")
   ("Kopieren der Dateien, anpassen der Vor- und Nachupload.bat, konvertieren alter Statistikfiles.\n")
   ("Was kann er nicht?\n")
   ("Einbinden der Tools in AmBoS selber. Dazu sieht man bitte in Ddiz.guide.\n")
)

(if (<= @installer-version 42)
(abort
   ("Tut mir leid, aber dieses Script kann nur mit einer Installer-Version")
   (">= 42 ausgefhrt werden.\n")
)
(
(set m_newpath (askdir
    (prompt "Wohin sollen die Ddiz-Files kopiert werden?")
    (help "Auswahl des Ziel-Directories fr Ddiz. Normalerweise \"BBS:Externe/Ddiz\"")
    (default "BBS:Externe/Ddiz")
  )
 )
   (complete 10)
   (set @default-dest m_newpath)

   (copyfiles
      (prompt "Kopieren der Ddiz-Files.")
      (help @copyfiles-help)
      (source "Externe/Ddiz/")
      (dest @default-dest)
      (pattern "#?")
      (files)
      (confirm)
   )

   (complete 60)
   
   (set d_command (cat @default-dest "/" @app-name))

   (if (askbool
          (prompt "Wo soll Ddiz gestartet werden?")
          (help "")
          (choices "User-Startup" "WBStartup")
       )
        (startup "MOSs Ddiz"
         (command d_command)
         (prompt "User-Startup ndern. Fge folgende Zeile hinzu: " d_command)
         (help "")
       )
       (
        (copyfiles
          (prompt "Kopieren des Ddiz-Startscripts.")
          (help @copyfiles-help)
          (source "WBStartup/Ddiz.scr.info")
          (dest "SYS:WBStartup")
        )
        (textfile
            (dest "T:Ddiz.scr")
            (append d_command)
         )
         (copyfiles
            (source "T:Ddiz.scr")
            (dest "Sys:WBstartup")
            (nogauge)
         )
       )
   )

   (complete 65)

   (copylib
      (prompt "Copying FileID.library.")
      (help @copyfiles-help)
      (source "Libs/FileID.library")
      (dest "Libs:")
      (confirm)
   )

   (complete 70)

   (copylib
      (prompt "Copying File_ID-Locale.")
      (help @copyfiles-help)
      (source "Locale/Catalogs/Deutsch/FileID_lib.catalog")
      (dest "Locale:Catalogs/Deutsch")
      (confirm)
   )

   (complete 75)

   (copyfiles
      (prompt "Soll ich die Zusatzprogramme installieren?")
      (help @copyfiles-help)
      (source "c/")
      (dest "c:")
      (pattern "#?")
      (confirm)
   )

   (complete 80)

   (if (askbool
         (prompt "Soll die Vor- und Nachupload.bat automatisch angepasst werden?")
         (help "Hier wird die Zeile \"execute DdizUserName\" in die Vor- und die Nachupload.bat eingetragen. Hat man bereits einen solchen Eintrag, sollte man die automatische Anpssung nicht durchfhren lassen.")
         (choices "Nein" "Ja")
         (default 1)
       )
      (message
         ("In den Scripten VorUpload.bat und NachUpload.bat muss das Programm")
         ("\"DdizUserName\" ausgefhrt werden. Bitte fgen sie folgende Zeile zu jedem")
         ("Script hinzu:\nexecute DdizUserName\nAuerdem mu DdizUserName noch als")
         ("Befehl, den man nicht anzuschalten braucht, im AmBoS-Befehlseditor")
         ("eingetragen werden.")
      )
      (
         (textfile
            (dest "T:VorUpload.bat")
            (append "\n;BEGIN Ddiz\nexecute DdizUserName\n;END Ddiz\n")
            (include "BBS:Batchdateien/VorUpload.bat")
         )
         (copyfiles
            (source "T:VorUpload.bat")
            (dest "BBS:Batchdateien")
            (nogauge)
         )
         (textfile
            (dest "T:NachUpload.bat")
            (append "\n;BEGIN Ddiz\nexecute DdizUserName\n;END Ddiz\n")
            (include "BBS:Batchdateien/NachUpload.bat")
         )
         (copyfiles
            (source "T:NachUpload.bat")
            (dest "BBS:Batchdateien")
            (nogauge)
         )
         (message
            ("Die Scripte VorUpload.bat und NachUpload.bat wurden angepasst.")
            ("Damit dies auch Sinn macht, mu das Programm \"DdizUserName\"")
            ("aus dem Ddiz-Verzeichnis im AmBoS-Befehlseditor eingetragen werden.")
            ("Parameter:\nBefehlsname:")
            ("\"DdizUserName\"\n")
            ("Nicht einschalten.")
         )
      )
   )

   (complete 90)

   (if (exists "BBS:Externe/Ddiz/Ddiz1.7.stat")
      (if (exists "BBS:Externe/Ddiz/Ddiz1.8.stat")
         ( message
            ("Neues Statistikfile existiert bereits")
         )
         (if (askbool
                (help "Wurde ein altes, aber kein neues Statistikfile gefunden, kann es automatisch konvertiert werden.")
                (prompt "Ich habe ein altes Statistikfile gefunden. Soll es konvertiert werden?")
                (choices "Ja" "Nein")
                (default 0)
             )
            (run "BBS:Externe/Ddiz/TopsConvert17-18")
         )
      )
   )

   (complete 100)
   (message
      ("So, nun sind wir fast am Ende. Per Installer ist leider nicht mehr ")
      ("zu machen, aber es sind noch ein paar Einstellungen vorzunehmen:\n")
      ("Die Programme DdizUserName und DdizTops mssen noch in AmBoS ")
      ("eingebunden werden. Auerdem mu Ddiz selber per ToolTypes ")
      ("konfiguriert werden. Dazu nehmen Sie am besten den Menpunkt ")
      ("\"Informationen\" der Workbench.")
   )
   (message
      ("Unter ToolTypes geben sie dann bitte die Werte, die im Ddiz.guide ")
      ("stehen entsprechend Ihren eigenen Neigungen an.\n")
      ("Zu nheren Erluterungen sehen sie bitte im Ddiz.guide nach.")
   )
)
)

