--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/17 21:10:18	1.12
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/17 23:01:40	1.14
@@ -21,14 +21,14 @@
 sub find_target_player {
    my ($obj) = @_;
 
-   my ($time, $pl) = (time + 30, undef);
+   my ($time, $pl) = (time + 120, undef);
 
    for (map $_->ob, cf::player::list) {
       next unless $obj->on_same_map_as ($_);
 
       my $ptime = List::Util::max $_->{neko_next_pester}, $_->{neko_next_cast};
 
-      ($time, $pl) = ($ptime, $_);
+      ($time, $pl) = ($ptime, $_)
          if $time > $ptime;
    }
 
@@ -55,14 +55,14 @@
                # so heal her
                my $spell = cf::object::new "spell_heal";
 
-               $spell->set_sp (0);    # makes casting work
+               $spell->set_sp (0); # makes casting work
                $spell->set_gp (0); # on unholy/nomagic ground
 
                $spell->set_hp (0);
-               $spell->set_dam ($pl->maxhp - $pl->hp); # normal hp heal
-               $spell->set_food (999); # fill food
-               $spell->set_last_sp (9999); # fill sp
-               $spell->set_last_grace (9999); # fill gr
+               $spell->set_dam (($pl->maxhp - $pl->hp) * 0.5); # normal hp heal
+               $spell->set_food (50); # fill food
+               $spell->set_last_sp (100); # fill sp
+               $spell->set_last_grace (100); # fill gr
                $spell->set_attacktype (cf::AT_CONFUSION | cf::AT_POISON | cf::AT_BLIND | cf::AT_DISEASE);
 
                $pl->message ("(Neko-san makes strange noises)");