To make the shaking, just (glide to [time progressively going up] [x/y pick random {progressively going up}]), and this goes up via broadcasts for each of the shaking amounts, and for the shake detector, using the broadcasts for the shaking progressors, and make that change the numbers. For the sound, I used a saved noise.
