Programmable animal shocker