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 "*.png" \
        ! -name "*.gif" \
        ! -name "*.jpg" \
        ! -name "*.JPG" \
        ! -name "*.lowjpg" \
        ! -name "*.db" \
        ! -name "*.bdb" \
        ! -name "*.db3" \
        ! -name "*.mov" \
        ! -name "*.wav" \
        ! -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" \
        ! -name "*.avi" \
        ! -name "*.AVI" \
        ! -name "*.pnm" \
        ! -name "*.gpg" \
        ! -name "*.iso" \
        ! -name "*.rgb" \
        ! -name "*.o" \
        ! -name "*.lo" \
        ! -name "*.a" \
        -perm $perm \
        -$print