.key test/s,full/s
.bra [
.ket ]

echo "*Ec*N                   VideoTracker HD Installation*N"

lab nameloop
  echo "Type the name of your Workbench (SYS:) partition (Q to quit) ? " noline
  set >NIL: target ?
  if "$target" EQ "Q"
      skip exit
  endif

  if "`echo $target len 1`" NOT EQ ":"
    set target $target:
  endif

  if "${target}" EQ "SYS:"
    echo "Error:  cannot install to the VideoTracker disk."
    echo "Please give the volume name of your SYS: partition.*N"
    skip back nameloop
  endif

  assign >NIL: exists "${Target}"
  if warn
    echo "Error: partition does not exist.*N"
    skip back nameloop
  endif

lab partok

assign Target: "${Target}"

  copy VT:VideoTracker Target:VideoTracker all	;copy all effect data
  copy VT:Fonts Target:Fonts all		;and the fonts

if not exists Target:VideoTracker.info		;and the drawer-info
  copy VT:VideoTracker.info Target:		;if necessary
endif
  
if exists VT:Archived.LHA			;Archived ?
  LHA x VT:Archived.LHA Target:VideoTracker/
endif
  
if exists VT:Fonts.LHA				;Archived ?
  LHA x VT:Fonts.LHA Target:Fonts/
endif
  
if exists VT:S					;VT main disk ?

  copy VT:VT_Install Target:

if not exists Target:VT_Install.info            ;and the installer for
  copy VT:VT_Install.info Target:	        ;data disks !
endif

  if not exists Target:C/PPMore			;the text-viewer
   copy VT:C/PPMore Target:C
  endif

  if not exists Target:C/LHA			;LHA
   copy VT:C/LHA Target:C
  endif

  if not exists Target:C/Req			;the requester-off
   copy VT:C/Req Target:C
  endif

  copy VT:Libs/iff.library Target:Libs 		;newest version needed !

  if not exists Target:Libs/req.library
   copy VT:Libs/req.library Target:Libs		;req.library for kick 1.3
  endif
  if not exists Target:Libs/powerpacker.library
   copy VT:Libs/powerpacker.library Target:Libs	;for powerpacked modules
  endif

endif

lab exit
  echo "*N Finished"