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.1 by root, Wed Feb 8 04:32:42 2006 UTC vs.
Revision 1.22 by root, Sun Aug 27 15:23:30 2006 UTC

1#! perl 1#! perl
2 2
3# /var/crossfire/unique-items/world@world_105_115.v00 3# archetype nekosan
4
5# arch neko
6# face neko.115
7# friendly 1
8# unaggressive 1
9# level 200
10# hp 10000
11# exp 1
12# wc -120
13# ac -120
14# wis 100
15# str 100
16# dex 100
17# con 100
18# int 100
19# pow 100
20# cha 100
21# hitback 0
22# reflect_missile 1
23# reflect_spells 1
24# resist_death 100
25# resist_physical 100
26# resist_magic 100
27# resist_fire 100
28# resist_electricity 100
29# resist_cold 100
30# resist_confusion 100
31# resist_acid 100
32# resist_drain 100
33# resist_weaponmagic 100
34# resist_ghosthit 100
35# resist_poison 100
36# resist_slow 100
37# resist_paralyze 100
38# resist_fear 100
39# resist_deplete 100
40# resist_turn_undead 100
41# resist_death 100
42# resist_chaos 100
43# resist_blind 100
44# resist_holyword 100
45# resist_godpower 100
46# x 4
47# y 37
48# speed_left -0.699994
49# direction 5
50# unique 1
51# sleep 0
52# arch event_say
53# title perl
54# slaying schmorp-neko
55# end
56# arch event_attack
57# title perl
58# slaying schmorp-neko
59# end
60# arch event_move
61# title perl
62# slaying schmorp-neko
63# end
64# end
65
66use Data::Dumper;
67 4
68sub teleport { 5sub teleport {
69 my ($pl, $map, $x, $y) = @_; 6 my ($pl, $map, $x, $y) = @_;
70 7
71 my $portal = cf::object::new ("exit"); 8 my $portal = cf::object::new "exit";
72 9
73 $portal->set_slaying ($map); 10 $portal->set_slaying ($map);
74 $portal->set_hp ($x); 11 $portal->set_hp ($x);
75 $portal->set_sp ($y); 12 $portal->set_sp ($y);
76 13
77 $portal->apply ($pl); 14 $portal->apply ($pl);
78 15
79 $portal->free; 16 $portal->free;
80} 17}
81 18
82sub on_move { 19sub find_target_player {
83 my ($data) = @_; 20 my ($obj) = @_;
84 21
85 if (my $pl = $data->{who}->nearest_player) { 22 my ($time, $pl) = (time + 120, undef);
86 my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl); 23
87 $data->{who}->move ($data->{who}, $dir); 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;
88 } 31 }
89 32
33 $pl
34}
35
36sub on_move {
37 my ($self, $enemy) = @_;
38 #warn "move<@_>\n";#d#
39
40 if (my $pl = find_target_player $self) {
41 my ($d, undef, undef, $dir, undef) = $self->rangevector ($pl);
42
43 if ($d < 1.5) {
44 if (grep $_->type == cf::FORCE && $_->slaying eq "schmorp-neko-gave-fish", $pl->inv) {
45 # she likes us!
46 if ($pl->{neko_next_pester} < time) {
47 $pl->{neko_next_pester} = time + 120 + rand 300;
48 $pl->message ("Purr. (Purr)");
49 }
50
51 if ($pl->{neko_next_cast} < time) {
52 $pl->{neko_next_cast} = time + 40 + rand 60;
53
54 # so heal her
55 my $spell = cf::object::new "spell_heal";
56
57 $spell->set_sp (0); # makes casting work
58 $spell->set_gp (0); # on unholy/nomagic ground
59
60 $spell->set_hp (0);
61 $spell->set_dam (($pl->maxhp - $pl->hp) * 0.5); # normal hp heal
62 $spell->set_food (50); # fill food
63 $spell->set_last_sp (100); # fill sp
64 $spell->set_last_grace (100); # fill gr
65 $spell->set_attacktype (cf::AT_CONFUSION | cf::AT_POISON | cf::AT_BLIND | cf::AT_DISEASE);
66
67 $pl->message ("(Neko-san makes strange noises)");
68 $pl->cast_spell ($self, $dir, $spell);
69
70 $spell->free;
71 }
72
73 } else {
74 # check for fish in his inv and steal it
75 if (my $fish = (grep $_->archetype->name eq "fishfood", $pl->inv)[0]) {
76 # add force
77 my $gave_fish = cf::object::new "force";
78 $gave_fish->set_slaying ("schmorp-neko-gave-fish");
79 $gave_fish->set_speed (0);
80 $gave_fish->insert_ob_in_ob ($pl);
81
82 # remove fish
83 $fish->remove;
84 $fish->free;
85
86 # be nice
87 $pl->message ("Meoww! (Thank you)");
88
89 } else {
90 # pester user
91 if ($pl->{neko_next_pester} < time) {
92 $pl->{neko_next_pester} = time + 60 + rand 300;
93 $pl->message ("Meow. (Please bring me fish)");
94 }
95 }
96 }
97
98 # circular movement
99 $dir = $dir % 8 + 1 unless $d > 1.5;
100 }
101
102 $self->move ($dir);
90 1 103 }
104
105 cf::override;
91} 106}
92 107
93sub on_attack { 108sub on_attack {
94 my ($data) = @_; 109 my ($self) = @_;
110 #warn "attack<@_>\n";#d#
95 111
96 cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!", $data->{activator}->name; 112 if ($self->{neko_last_attack} < time - 300) {
113 $self->{neko_attack} = 0;
114 }
97 115
98 $data->{activator}->message ("Neko-san is suddenly gone!"); 116 $self->{neko_last_attack} = time;
99 teleport $data->{activator}, "/scorn/misc/scorn_illusions", 15, 7; 117 $self->{neko_attack}++
100 $data->{activator}->message ("You hear strange noises all around you..."); 118 or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $self->name . "!\n";
101 $data->{activator}->message ("You feel dumb.");
102 119
120 $self->message ("Meoow! (Please do not hurt me)")
121 if !($self->{neko_attack} & 15);
122
123 if ($self->{neko_attack} > 512) {
124 $self->{neko_attack} -= 128;
125 $self->message ("Neko-san is suddenly gone!");
126 teleport $self, "/scorn/misc/scorn_illusions", 15, 7;
127 $self->message ("You hear strange noises all around you...");
128 $self->message ("You feel dumb.");
103 0 129 }
130
131 cf::override;
104} 132}
105 133
106sub on_say { 134sub on_listen {
107 my ($data) = @_; 135 my ($event, $ob, $who, $msg) = @_;
108 136
109 cf::LOG cf::llevDebug, "QBERT [Neko-fon] $data->{message}"; 137 cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg;
110 138 ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg);
111 0
112} 139}
113 140
141cf::register_attachment "Nekosan", package => __PACKAGE__;
142

Diff Legend

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