[phinius]

Success! Thanks KLS and everyone else that helped.

Final product for those wanting to do something similar in the future:

sub EVENT_TIMER{

	if ($timer == 1){
			my $hate_target = $npc->GetHateRandom();
			my $hate_name = $hate_target->GetName();
			my $hate_id = $hate_target->GetID();  
			quest::shout("My hate target is $hate_name"); 
			
			if($hate_target->IsClient()){
				$hate_target->SetLevel(1, false);
							}

			undef $hate_target;

			}

		}