alias animate { animate $+ $r(1,12) $dname }
alias -l animate1 {
  var %x = $dialog($$1).x
  var %y = $dialog($$1).y
  var %w = $dialog($$1).cw
  var %h = $dialog($$1).ch
  while (-500 < %x) { dec %x | dialog -s $$1 %x %y %w %h }
}
alias -l animate2 {
  var %x = $dialog($$1).x
  var %y = $dialog($$1).y
  var %w = $dialog($$1).cw
  var %h = $dialog($$1).ch
  while (1300 > %x) { inc %x | dialog -s $$1 %x %y %w %h }
}
alias -l animate3 {
  var %x = $dialog($$1).x
  var %y = $dialog($$1).y
  var %w = $dialog($$1).cw
  var %h = $dialog($$1).ch
  while (-500 < %y) { dec %y | dialog -s $$1 %x %y %w %h }
}

on *:dialog:*:init:*:{ animate }