--- deliantra/server/ext/schmorp-neko.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/schmorp-neko.ext	2007/06/11 22:18:03	1.5
@@ -1,4 +1,4 @@
-#! perl
+#! perl # depends=irc
 
 # archetype nekosan
 
@@ -64,7 +64,7 @@
                $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;
             }
@@ -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,8 +136,8 @@
 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::register_attachment "Nekosan", package => __PACKAGE__;
+cf::object::attachment "Nekosan", package => __PACKAGE__;