[Congdar]

i don't know of a specific command for damage, but you could just cast a spell that does 1000 like this:

$myvar = 0;
sub EVENT_ATTACK {
   if($myvar==0) {
      quest::say("$name, do not attack me.  You have earned this punishment!");
      $npc->CastSpell(6737, $charid, 10, -1, -1);
      $myvar=1;
   }
}