+ Scripts:
freq = 1;
amp = 20; (slow or fast wiggle)
loopTime = 15; (How long you want your loop to last, 15 is 15 seconds)
t = time % loopTime;
wiggle1 = wiggle (freq, amp, 1, 0.5, t);
wiggle2 = wiggle (freq, amp, 1, 0.5, t - loopTime);
linear (t, 0, loopTime, wiggle1, wiggle2)

Learn how to breakdown a character at: [ Ссылка ]
Credit to RefractArt
Background music at: [ Ссылка ]

свернуть