; $VER:Install-Toolkit 2.0 15-OCT-93

(complete 0)

(run "TTKInstallInfo\n")
(set @default_dest
   (getenv "TTKINSTALL")
)
   
(set ttk_dest
   (askdir
      (prompt "In which disk or drawer should the ToasterToolkit directory be installed?")
      (help @askdir-help)
      (default @default_dest)
   )
)

(set @default-dest ttk_dest)

(copyfiles
   (source "TTK1:Commands")
   (dest "C:")
   (all)
)

(complete 10)

(makedir (tackon ttk_dest "ToasterToolkit") (infos))

(copyfiles
   (source "TTK1:ToasterToolkit")
   (dest (tackon ttk_dest "ToasterToolkit"))
   (pattern "#?.info")
)

(complete 20)

(copyfiles
   (source "TTK1:ToasterToolkit/Config")
   (dest (tackon ttk_dest "ToasterToolkit"))
)
(tooltype
   (dest (tackon ttk_dest "ToasterToolkit"))
   (swapcolors)
)
(complete 25)

(makeassign "TTKTPE1" "TTK1:ToasterToolkit/ToasterProjectEditor")
(makedir (tackon ttk_dest "ToasterToolkit/ToasterProjectEditor"))
(makeassign "TTKTPE2" (tackon ttk_dest "ToasterToolkit/ToasterProjectEditor"))
(copyfiles
   (source "TTKTPE1:")
   (dest "TTKTPE2:")
   (all)
)
(tooltype
   (dest "TTKTPE2:TPE")
   (swapcolors)
)
(makeassign "TTKTPE1")
(makeassign "TTKTPE2")

(complete 30)

(makeassign "TTKFSC1" "TTK1:ToasterToolkit/FrameStoreCompressor")
(makedir (tackon ttk_dest "ToasterToolkit/FrameStoreCompressor"))
(makeassign "TTKFSC2" (tackon ttk_dest "ToasterToolkit/FrameStoreCompressor"))
(copyfiles
   (source "TTKFSC1:")
   (dest "TTKFSC2:")
   (all)
)
(tooltype
   (dest "TTKFSC2:FSC")
   (swapcolors)
)
(makeassign "TTKFSC1")
(makeassign "TTKFSC2")
(complete 35)

(makeassign "TTKTSE1" "TTK1:ToasterToolkit/ToasterSequenceEditor")
(makedir 
   (tackon ttk_dest "ToasterToolkit/ToasterSequenceEditor")
)
(makeassign "TTKTSE2" 
   (tackon ttk_dest "ToasterToolkit/ToasterSequenceEditor")
)

(copyfiles
   (source "TTKTSE1:TSE")
   (dest "TTKTSE2:")
   (infos)
)

(complete 40)

(copyfiles
   (source "TTKTSE1:")
   (dest "TTKTSE2:")
   (pattern "#?.TSE#?")
)

(complete 45)

(copyfiles
   (source "TTKTSE1:")
   (dest "TTKTSE2:")
   (pattern "#?.AREXX")
)
(copyfiles
   (source "TTKTSE1:")
   (dest "TTKTSE2:")
   (pattern "#?.SERIAL")
)
(tooltype
   (dest "TTKTSE2:TSE")
   (swapcolors)
)
(makeassign "TTKTSE1")
(makeassign "TTKTSE2")
(complete 50)

(set pjpos (getenv "TTKPJPOS"))
(complete 51)
(set pjdir (getenv "TTKPJDIR"))
(complete 52)
(if (<> pjdir "<NIL>")
   (if (= pjpos 999)
      (copyfiles
         (source "TTK1:Project")
         (dest pjdir)
         (all)
      )
      (if (<> pjpos -1)
         (
            (copyfiles
               (source "TTK1:Project/999.PJ.New2.0")
               (dest pjdir)
               (newname
                  (cat pjpos ".PJ.New2.0")
               )
            )
            (copyfiles
               (source "TTK1:Project/998.PJ.Fades")
               (dest pjdir)
               (newname
                  (cat (- pjpos 1) ".PJ.Fades")
               )
            )
            (copyfiles
               (source "TTK1:Project/997.PJ.MacroFX")
               (dest pjdir)
               (newname
                  (cat (- pjpos 2) ".PJ.MacroFX")
               )
            )
            (message "New project files were renumbered to avoid conflict "
               "with existing files.  The new project files are: "
               pjpos".PJ.New2.0, "(- pjpos 1)".PJ.Fades, "(- pjpos 2)".PJ.MacroFX."
               (help "Originally, the new project files were numbered 999, 998 "
                  "and 997, but you have one or more project files in that range. "
                  "So the new files were renumbered to a different range."
               )
            )
         )
         (message "Could not copy Project files.")
      )
   )
   (message "Could not find Project Directory. Project files not copied."
      (help "Toaster Toolkit 4000 includes three project files.  Since "
            "the Toaster's project directory could not be found, "
            "these files were not copied at this time."
      )
   )
)
(complete 60)

(if (<> (getenv "TTKFXDIR") "<NIL>")
   (
      (copyfiles
         (source 
            (cat "TTK1:Effects" (getenv "TTKTOASTVER"))
         )
         (dest (getenv "TTKFXDIR"))
         (all)
      )
      (copyfiles
         (source 
            (cat "TTK2:Effects" (getenv "TTKTOASTVER"))
         )
         (dest (getenv "TTKFXDIR"))
         (all)
      )
   )
   (message "Could not find Effects Directory.  Effect files not copied."
      (help "Toaster Toolkit 4000 includes several new effects.  Since "
            "the Toaster's effect directory could not be found, "
            "these files were not copied at this time."
      )
   )
)
(complete 70)

(copyfiles
   (source "TTK2:ToasterToolkit")
   (dest (tackon ttk_dest "ToasterToolkit"))
   (pattern "#?.info")
)
(complete 75)

(makeassign "TTKAFX1" "TTK2:ToasterToolkit/AnimFX")
(makedir (tackon ttk_dest "ToasterToolkit/AnimFX"))
(makeassign "TTKAFX2" (tackon ttk_dest "ToasterToolkit/AnimFX"))
(copyfiles
   (source "TTKAFX1:")
   (dest "TTKAFX2:")
   (all)
)
(tooltype
   (dest "TTKAFX2:AnimFX")
   (swapcolors)
)
(makeassign "TTKAFX1")
(makeassign "TTKAFX2")
(complete 80)

(makeassign "TTKFXA1" "TTK2:ToasterToolkit/FXToAnim")
(makedir (tackon ttk_dest "ToasterToolkit/FXToAnim"))
(makeassign "TTKFXA2" (tackon ttk_dest "ToasterToolkit/FXToAnim"))
(copyfiles
   (source "TTKFXA1:")
   (dest "TTKFXA2:")
   (all)
)
(tooltype
   (dest "TTKFXA2:FXToAnim")
   (swapcolors)
)
(makeassign "TTKFXA1")
(makeassign "TTKFXA2")
(complete 90)

(makeassign "TTKCFC1" "TTK2:ToasterToolkit/ColorFontConverter")
(makedir (tackon ttk_dest "ToasterToolkit/ColorFontConverter"))
(makeassign "TTKCFC2" (tackon ttk_dest "ToasterToolkit/ColorFontConverter"))
(copyfiles
   (source "TTKCFC1:")
   (dest "TTKCFC2:")
   (all)
)
(tooltype
   (dest "TTKCFC2:CFC")
   (swapcolors)
)
(makeassign "TTKCFC1")
(makeassign "TTKCFC2")

(complete 100)

(exit)