"This script replicates responding to the Buzz function in Yahoo! Messenger
 It plays a noise, makes the screen shake, and displays BUZZ in bright red
 in the window.  Try putting it right before 
 MessageWindowController addMessageToWindow in ReceivePrivateMessage"

[ :params |
   string := (params objectForKey:'ParsedMessage') string.
   string = '<ding>' ifTrue:
   [ 
	   (NSSound soundNamed:'Sosumi') play.
	    window := (params objectForKey:'MessageWindowController') window.
		center := window frame origin.
		moveBlock := [ :i | window setFrameOrigin: (center x + i) <> (center y) ].
		speed:=6.
		1 to:4 do: [
		   1 to:24 by:speed do:moveBlock.
		   24 to:-24 by:-1*speed do:moveBlock.
		   -24 to:0 by:speed do:moveBlock.
		].
	   attribs := NSDictionary dictionaryWithObjects: 
	                { NSColor redColor, 
	                  NSFont fontWithName:'Helvetica-BoldOblique' size:14 }
	              forKeys:
	                { NSForegroundColorAttributeName,
	                  NSFontAttributeName
	                }.
	                
	   newString := ((NSAttributedString alloc) 
	                   initWithString:'BUZZ'
	                       attributes:attribs
	                        ) autorelease.
	                        
	   params setObject:newString forKey:'ParsedMessage'.
   ].
   0
]