--- deliantra/server/ext/schmorp-neko.ext	2006/12/21 22:41:34	1.2
+++ deliantra/server/ext/schmorp-neko.ext	2007/08/02 01:19:34	1.6
@@ -1,4 +1,4 @@
-#! perl
+#! perl # depends=irc
 
 # archetype nekosan
 
@@ -64,14 +64,14 @@
                $spell->attacktype (cf::AT_CONFUSION | cf::AT_POISON | cf::AT_BLIND | cf::AT_DISEASE);
 
                $pl->message ("(Neko-san makes strange noises)");
-               $pl->cast_spell ($self, $dir, $spell);
+               $pl->cast_heal ($self, $spell, 0);
 
                $spell->destroy;
             }
 
          } else {
             # check for fish in his inv and steal it
-            if (my $fish = (grep $_->arch->name eq "fishfood", $pl->inv)[0]) {
+            if (my $fish = (grep $_->arch->archname eq "fishfood", $pl->inv)[0]) {
                # add force
                my $gave_fish = cf::object::new "force";
                $gave_fish->slaying ("schmorp-neko-gave-fish");
@@ -113,7 +113,7 @@
 
       $hitter->{neko_last_attack} = time;
       $hitter->{neko_attack}++
-         or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $hitter->name . "!\n";
+         or ext::irc::do_notice "Neko-san was attacked by ". $hitter->name . "!\n";
 
       $hitter->message ("Meoow! (Please do not hurt me)")
          if !($hitter->{neko_attack} & 15);
@@ -136,7 +136,7 @@
 sub on_say {
    my ($self, $pl, $msg) = @_;
 
-   ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg);
+   ext::irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg);
 }
 
 cf::object::attachment "Nekosan", package => __PACKAGE__;