;*********************************************************
;*                                                       *
;*         $VER: VLabScan.install 1.0 (27.08.96)         *
;*                                                       *
;*              $Filename: VLabScan.install $            *
;*              $Version: 1.0 $                          *
;*              $Date: 27.08.96 $                        *
;*              $Creation: 27.08.96 $                    *
;*                                                       *
;*        Installer script to install Scanner            *
;*        for CyberGraphX or Picasso2 direct             *
;*                                                       *
;*     © Copyright 1996 by T&T, all rights reserved      *
;*                                                       *
;*********************************************************

;-------------- Neudefinitionen ---------------
(set @abort-button "Abbruch")
(set @user-level 1) 
;-------------- language env ------------------
(set @language "English")
;-------------- version txt ------------------
(set #version "v1.0")
;-------------- kickstart txt -----------------
(set #bad-kick "VLabScan läuft nur ab Kickstart 2.04 !")
;-------------- system txt ------------------
(set #missing-libs (cat "   Es ist kein 'CyberGraphX' auf\n"
                        "    diesem Rechner installiert !\n\n\n"
                        "*-----------------------------------------*\n"
                        "| Bitte Viewer.guide - Einleitung lesen ! |\n"
                        "*-----------------------------------------*")
)
(set #missing-vlab (cat "     Es ist keine VLab Erweiterung\n"
                        "    auf diesem Rechner installiert !\n\n\n"
                        "*-----------------------------------------*\n"
                        "| Bitte Viewer.guide - Einleitung lesen ! |\n"
                        "*-----------------------------------------*")
)
;-------------- default paths -------------------
(set #cyber_lib "libs:cybergraphics.library")
(set #source_scanner "VLabScan")
(set #source_scanner_guide "VLabScan.guide")
(set #source_test_lbm "Test.lbm")
(set #source_lib "libs/support.library")
(set #source_iff_plus "ViewIFF+")
(set #default_path "SYS:Tools/T&TScanner")
(set #default_lib "libs:")
;-------------- welcome txt -------------------
(set #infos
   (cat "\nT&TScanner Installation\n"
         "------------------------\n\n"
          "Dieses Script installiert\n"
          "VLabScan "#version"\n"
          "auf Ihrem Amiga.\n\n\n"
          "T&TScanner ©'96 by T&T\n"
   )
)
;-------------- titles txt ------------------
(set #gfx 
   (cat "\nFür welchen Treiber ?\n"
        "(selektierter Treiber wurde automatisch erkannt)"
   )
)
(set #choices "\nSie haben die Wahl :\n")
(set #dest_scanner "Wohin mit VLabScan ?")
(set #dest_guide "Wo soll VLabScan.guide installiert werden ?")
;-------------- help txt ---------------------
(set #help_main
   (cat "\n * VLabScan ist ein Programm\n"
        "   zum Einlesen von Bildern\n"
        "   mittels einer VLab Erweiterung\n\n"
        " * VLabScan.guide.........Dokumentation"
   )
)
(set #help_guide
   (cat "\n Wählen Sie das Verzeichnis, in dem Sie die\n"
        "  Dokumentation installieren möchten!\n"
        " Mittels Make New Drawer können Sie ein neues\n"
        "  Verzeichnis erstellen."
   )
)
(set #help_scanner
   (cat "\n Wählen Sie das Verzeichnis, in dem Sie die\n"
        "  Komponenten installieren möchten!\n"
        " Mittels Make New Drawer können Sie ein neues\n"
        "  Verzeichnis erstellen."
   )
)
(set #help_lib
   (cat "\n Wählen Sie das Verzeichnis, in dem Sie die\n"
        "  support.library installieren möchten!\n"
        " Mittels Make New Drawer können Sie ein neues\n"
        "  Verzeichnis erstellen."
   )
)
;-------------- kickstart & workbench --------------
(if (< (/ (getversion) 65536) 37)
   (
      (abort #bad-kick)
   )
)
;-------------- Picasso oder CyberGraphX ? ---------------------
(if (< (/ (getversion #cyber_lib) 65536) 40)
   (message #bad-system)
)
(user 1)                                ;Voreinstellung user 1
(message #infos "\n\n")                 ;Titelbild
(welcome)                               ;  darstellen
;-------------- prepare paths --------------------
(if (= @user-level 0)                   ;nötig, da nur ein directory
   (makedir #default_path)              ;  erzeugt wird (!)
)
;-------------- show scanner menu ----------------
(set point_main                         ;Hauptmenu variable
   (askoptions
      (prompt #choices)
      (help #help_main)
      (choices
        " VLabScan, support.library"    ;bit 1 
        " VLabScan.guide"               ;bit 2
      )
      (default 3)                       ;alles
   )
)
(if (bitand point_main 1)
   (set destination
      (askdir
         (prompt #dest_scanner)
         (help #help_scanner)
         (default #default_path)
         (newpath)
      )
   )
)
;-------------- create default directories ---------
(if (and (= destination #default_path)(bitand point_main 1)) ;default path ?
   (makedir #default_path (infos)) ;create directories
)
;-------------- copy "VLabScan.#?" -----------
(if (bitand point_main 1)
   ((copyfiles
      (prompt #dest_scanner)
      (help #help_scanner)
      (source #source_scanner)
      (dest destination)
      (infos)                           ;infos kopieren
      (confirm)                         ;kopierte files anzeigen
      (optional "force")                ;überschreibt auch
   )                                    ;  löschgeschützte files
   (complete 30)
   (copyfiles
      (source #source_lib)
      (dest #default_lib)
      (optional "force")
   ))
)
(complete 50)
;-------------- Viewer.guide -----------------
(if (bitand point_main 2)
   ((set destination
      (askdir
         (prompt #dest_guide)
         (help #help_guide)
         (default #default_path)
         (newpath)
      )
   )
;----------- copy "VLabScan.guide" -------
   (copyfiles
      (source #source_scanner_guide)
      (dest destination)
      (infos)
      (optional "force")
   )
   (complete 80)
;----------- copy "Test.lbm" ---------
   (copyfiles
      (source #source_test_lbm)
      (dest destination)
      (infos)
      (optional "force")
   )
   (complete 90)
;----------- copy "ViewIFF+" ---------
   (copyfiles
      (prompt #dest_iff)
      (help #help_iff)
      (source #source_iff_plus)
      (dest destination)
      (infos)
      (confirm)
      (optional "force")
   ))
)
;-------------- 100% complete ----------------
(set @default-dest destination) ;Pfad für logfile setzen
(complete 100)
(exit)