Mine

#!/bin/sh

# the -0 flag makes the find do a print0, which is suitable for feeding
# into xargs with the -0 flag for dealing with filenames with spaces

# if you use -0e it finds only executables and does a print0

if [ "X${1}" = "X-0" ] ; then
   print="print0"
   perm="-000"
elif [ "X${1}" = "X-e" ] ; then
   print="print"
   perm="-100"
elif [ "X${1}" = "X-0e" ] ; then
   print="print0"
   perm="-100"
elif [ "X${1}" = "X-e0" ] ; then
   print="print0"
   perm="-100"
else
   print="print"
   perm="-000"
fi

find . -type f \
   ! -name "*.gif" \
   ! -name "*.jpg" \
   ! -name "*.JPG" \
   ! -name "*.lowjpg" \
   ! -name "*.db" \
   ! -name "*.bdb" \
   ! -name "*.db3" \
   ! -name "*.mov" \
   ! -name "*.qt" \
   ! -name "*.gz" \
   ! -name "*.bz2" \
   ! -name "*.pdf" \
   ! -name "*.tif" \
   ! -name "*.TIF" \
   ! -name "*.tiff" \
   ! -name "*.zip" \
   ! -name "*.wph" \
   ! -name "*.wpf" \
   ! -name "*.wpd" \
   ! -name "*.doc" \
   ! -name "*.dwg" \
   ! -name "*.dwf" \
   ! -name "*.dxf" \
   ! -name "*.swp" \
   -perm $perm \
   -$print