ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/schmorp-neko.ext
(Generate patch)

Comparing deliantra/maps/perl/schmorp-neko.ext (file contents):
Revision 1.18 by elmex, Wed Aug 2 16:59:48 2006 UTC vs.
Revision 1.33 by root, Tue Dec 12 16:59:34 2006 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines