#! perl

# archetype nekosan

use Data::Dumper;

sub teleport {
   my ($pl, $map, $x, $y) = @_;

   my $portal = cf::object::new ("exit");

   $portal->set_slaying ($map);
   $portal->set_hp      ($x);
   $portal->set_sp      ($y);

   $portal->apply ($pl);

   $portal->free;
}

sub on_move {
   my ($data) = @_;

   if (my $pl = $data->{who}->nearest_player) {
      if ($pl->level >= 10) {
         my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl);
         $data->{who}->move ($data->{who}, $dir);
      }
   }

   1
}

sub on_attack {
   my ($data) = @_;

   cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!", $data->{activator}->name;

   $data->{activator}->message ("Neko-san is suddenly gone!");
   teleport $data->{activator}, "/scorn/misc/scorn_illusions", 15, 7;
   $data->{activator}->message ("You hear strange noises all around you...");
   $data->{activator}->message ("You feel dumb.");

   0
}

sub on_say {
   my ($data) = @_;

   cf::LOG cf::llevDebug, "QBERT [Neko-fon] $data->{message}";

   0
}