.key animation
.bra {
.ket }

if "{animation}" eq ""
  set animation "Animations/"
  set animation `requestfile Animations title "Select Voyager animation" noicons`
  if "$animation" eq "Animations/"
    quit
  endif
else
  set animation "{animation}"
endif

set location `requestfile Voyager: title "Where is your Voyager directory?" noicons`

copy "$animation"      t:TransferAnim
copy "$animation.info" t:TransferAnim.info
if not warn
  copy t:TransferAnim.info "$location"
  copy t:TransferAnim "$location"
  if not warn
    delete T:TransferAnim(|.info) quiet force
    requestchoice >NIL: "Voyager animations" "Animation $animation installed." "OK"
    quit
  endif
endif

delete T:TransferAnim(|.info) quiet force
requestchoice >NIL: "Voyager animations" "Couldn't install new animation.*NYou have to quit Voyager first" "OK"
