server/ext/schmorp-neko.ext

#! perl

# archetype nekosan

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

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

   $portal->slaying   ($map);
   $portal->stats->hp ($x);
   $portal->stats->sp ($y);

   $portal->apply ($pl);

   $portal->destroy;
}

sub find_target_player {
   my ($obj) = @_;

   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, $_)
         if $time > $ptime;
   }

   $pl
}

sub on_monster_move {
   my ($self, $enemy) = @_;

   if (my $pl = find_target_player $self) {
      my ($d, undef, undef, $dir, undef) = $self->rangevector ($pl);

      if ($d < 1.5) {
         if (grep $_->type == cf::FORCE && $_->slaying eq "schmorp-neko-gave-fish", $pl->inv) {
            # she likes us!
            if ($pl->{neko_next_pester} < time) {
               $pl->{neko_next_pester} = time + 120 + rand 300;
               $pl->message ("Purr. (Purr)");
            }

            if ($pl->{neko_next_cast} < time) {
               $pl->{neko_next_cast} = time + 40 + rand 60;

               # so heal her
               my $spell = cf::object::new "spell_heal";

               $spell->stats->sp (0); # makes casting work
               $spell->stats->grace (0); # on unholy/nomagic ground

               $spell->stats->hp (0);
               $spell->stats->dam (($pl->stats->maxhp - $pl->stats->hp) * 0.5); # normal hp heal
               $spell->stats->food (50); # fill food
               $spell->last_sp (100); # fill sp
               $spell->last_grace (100); # fill gr
               $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);

               $spell->destroy;
            }

         } else {
            # check for fish in his inv and steal it
            if (my $fish = (grep $_->arch->name eq "fishfood", $pl->inv)[0]) {
               # add force
               my $gave_fish = cf::object::new "force";
               $gave_fish->slaying ("schmorp-neko-gave-fish");
               $gave_fish->speed (0);
               $gave_fish->insert_ob_in_ob ($pl);

               # remove fish
               $fish->destroy;

               # be nice
               $pl->message ("Meoww! (Thank you)");

            } else {
               # pester user
               if ($pl->{neko_next_pester} < time) {
                  $pl->{neko_next_pester} = time + 60 + rand 300;
                  $pl->message ("Meow. (Please bring me fish)");
               }
            }
         }

         # circular movement
         $dir = $dir % 8 + 1 unless $d > 1.5;
      }

      $self->move ($dir);
   }

   cf::override;
}

sub on_attack {
   my ($self, $hitter) = @_;

   if ($hitter->type == cf::PLAYER) {
      if ($hitter->{neko_last_attack} < time - 300) {
         $hitter->{neko_attack} = 0;
      }

      $hitter->{neko_last_attack} = time;
      $hitter->{neko_attack}++
         or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $hitter->name . "!\n";

      $hitter->message ("Meoow! (Please do not hurt me)")
         if !($hitter->{neko_attack} & 15);

      if ($hitter->{neko_attack} > 512) {
         $hitter->{neko_attack} -= 128;
         $hitter->message ("Neko-san is suddenly gone!");
         teleport $hitter, "/scorn/misc/scorn_illusions", 15, 7;
         $hitter->message ("You hear strange noises all around you...");
         $hitter->message ("You feel dumb.");
      }
   } else {
#      $hitter->stats->hp (-1);
#      $hitter->kill_object;
   }

   cf::override;
}

sub on_say {
   my ($self, $pl, $msg) = @_;

   ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg);
}

cf::register_attachment "Nekosan", package => __PACKAGE__;

Revision:	1.1
Committed:	Fri Dec 15 19:29:18 2006 UTC (17 years, 5 months ago) by root
Branch:	MAIN
Log Message:	moved perl extensions into server codebase, where they belong
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# archetype nekosan
4
5			sub teleport {
6			my ($pl, $map, $x, $y) = @_;
7
8			my $portal = cf::object::new "exit";
9
10			$portal->slaying ($map);
11			$portal->stats->hp ($x);
12			$portal->stats->sp ($y);
13
14			$portal->apply ($pl);
15
16			$portal->destroy;
17			}
18
19			sub find_target_player {
20			my ($obj) = @_;
21
22			my ($time, $pl) = (time + 120, undef);
23
24			for (map $_->ob, cf::player::list) {
25			next unless $obj->on_same_map_as ($_);
26
27			my $ptime = List::Util::max $_->{neko_next_pester}, $_->{neko_next_cast};
28
29			($time, $pl) = ($ptime, $_)
30			if $time > $ptime;
31			}
32
33			$pl
34			}
35
36			sub on_monster_move {
37			my ($self, $enemy) = @_;
38
39			if (my $pl = find_target_player $self) {
40			my ($d, undef, undef, $dir, undef) = $self->rangevector ($pl);
41
42			if ($d < 1.5) {
43			if (grep $_->type == cf::FORCE && $_->slaying eq "schmorp-neko-gave-fish", $pl->inv) {
44			# she likes us!
45			if ($pl->{neko_next_pester} < time) {
46			$pl->{neko_next_pester} = time + 120 + rand 300;
47			$pl->message ("Purr. (Purr)");
48			}
49
50			if ($pl->{neko_next_cast} < time) {
51			$pl->{neko_next_cast} = time + 40 + rand 60;
52
53			# so heal her
54			my $spell = cf::object::new "spell_heal";
55
56			$spell->stats->sp (0); # makes casting work
57			$spell->stats->grace (0); # on unholy/nomagic ground
58
59			$spell->stats->hp (0);
60			$spell->stats->dam (($pl->stats->maxhp - $pl->stats->hp) * 0.5); # normal hp heal
61			$spell->stats->food (50); # fill food
62			$spell->last_sp (100); # fill sp
63			$spell->last_grace (100); # fill gr
64			$spell->attacktype (cf::AT_CONFUSION \| cf::AT_POISON \| cf::AT_BLIND \| cf::AT_DISEASE);
65
66			$pl->message ("(Neko-san makes strange noises)");
67			$pl->cast_spell ($self, $dir, $spell);
68
69			$spell->destroy;
70			}
71
72			} else {
73			# check for fish in his inv and steal it
74			if (my $fish = (grep $_->arch->name eq "fishfood", $pl->inv)[0]) {
75			# add force
76			my $gave_fish = cf::object::new "force";
77			$gave_fish->slaying ("schmorp-neko-gave-fish");
78			$gave_fish->speed (0);
79			$gave_fish->insert_ob_in_ob ($pl);
80
81			# remove fish
82			$fish->destroy;
83
84			# be nice
85			$pl->message ("Meoww! (Thank you)");
86
87			} else {
88			# pester user
89			if ($pl->{neko_next_pester} < time) {
90			$pl->{neko_next_pester} = time + 60 + rand 300;
91			$pl->message ("Meow. (Please bring me fish)");
92			}
93			}
94			}
95
96			# circular movement
97			$dir = $dir % 8 + 1 unless $d > 1.5;
98			}
99
100			$self->move ($dir);
101			}
102
103			cf::override;
104			}
105
106			sub on_attack {
107			my ($self, $hitter) = @_;
108
109			if ($hitter->type == cf::PLAYER) {
110			if ($hitter->{neko_last_attack} < time - 300) {
111			$hitter->{neko_attack} = 0;
112			}
113
114			$hitter->{neko_last_attack} = time;
115			$hitter->{neko_attack}++
116			or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $hitter->name . "!\n";
117
118			$hitter->message ("Meoow! (Please do not hurt me)")
119			if !($hitter->{neko_attack} & 15);
120
121			if ($hitter->{neko_attack} > 512) {
122			$hitter->{neko_attack} -= 128;
123			$hitter->message ("Neko-san is suddenly gone!");
124			teleport $hitter, "/scorn/misc/scorn_illusions", 15, 7;
125			$hitter->message ("You hear strange noises all around you...");
126			$hitter->message ("You feel dumb.");
127			}
128			} else {
129			# $hitter->stats->hp (-1);
130			# $hitter->kill_object;
131			}
132
133			cf::override;
134			}
135
136			sub on_say {
137			my ($self, $pl, $msg) = @_;
138
139			ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $pl->ob->name, $msg);
140			}
141
142			cf::register_attachment "Nekosan", package => __PACKAGE__;
143