I've done a rewrite, which reads directories and searches for files, which is MUCH faster :)
Greetings #!/bin/ksh function check_for_packages { for package in $(ls /var/db/pkg); { echo "Checking if any package depends on $package" if ! $(test -a /var/db/pkg/$package/+REQUIRED_BY); then tput up dl 0 echo "No package depends on $package, would you like to delete it? YES/n" while :; do read answer tput up dl 0 case $answer in YES ) sudo pkg_delete $package break ;; n ) break ;; * ) echo 'YES/n' ;; esac done else tput up dl 0 fi } } check_for_packages