As per tally's suggestion, try:

http://www.zeroy.com/script/weapons/...ouchdamage.htm