Code:
on *:TEXT:$($me):*:nudge $target -1
alias nudge {
  ;1=target, 2=count, 3=x, 4=y, 5=ticks, 6=msec

  if ($2 < 0) {
    var %x = $iif($window($1).x < 0,0,$v1)
    var %y = $iif($window($1).y < 0,0,$v1)
    .timer -m 1 1 nudge $1 0 %x %y $ticks 750 
    return 
  }
  if ((!$window($1)) || ($3 == $null)) return
  var %x = $3, %y = $4, %o = 4
  if ($calc($ticks - $5) > $6) { window $1 %x %y | return }
  elseif ($2 == 0) { inc %x %o | inc %y %o }
  elseif ($2 == 1) { dec %x %o | inc %y %o }
  elseif ($2 == 2) { inc %x %o | dec %y %o }
  elseif ($2 == 3) { dec %x %o | dec %y %o }
  elseif ($2 == 4) { dec %x %o | inc %y %o }
  elseif ($2 == 5) { inc %x %o | dec %y %o }
  $+(.timer.nudge.,$1) -m 1 30 nudge $1 $calc(($2 + 1) % 6) $3 $4 $5 $6
  window -ar $1
  window $1 %x %y
}


Simply call the /nudge alias from a command/event as shown in the sample onTEXT event above, and as explained below.

/nudge <target> -1
* <target> is an existing window
* The '-1' forces the nudge 'vibration' to start. Don't substitute other values for this parameter.

-genius_at_work