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.3 by root, Wed Feb 8 06:22:43 2006 UTC vs.
Revision 1.4 by root, Wed Feb 8 06:49:25 2006 UTC

… …
32} 32}
33 33
34sub on_attack { 34sub on_attack {
35 my ($data) = @_; 35 my ($data) = @_;
36 36
37 $data->{activator}{neko_attack}++
37 cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!", $data->{activator}->name; 38 or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!", $data->{activator}->name;
38 39
39 $data->{activator}->message ("Neko-san is suddenly gone!"); 40 $data->{activator}->message ("Meoow! (You are hurting me)")
40 teleport $data->{activator}, "/scorn/misc/scorn_illusions", 15, 7; 41 if !($data->{activator}{neko_attack} & 15);
41 $data->{activator}->message ("You hear strange noises all around you...");
42 $data->{activator}->message ("You feel dumb.");
43 42
43 if ($data->{activator}{neko_attack} > 256) {
44 $data->{activator}->message ("Neko-san is suddenly gone!");
45 teleport $data->{activator}, "/scorn/misc/scorn_illusions", 15, 7;
46 $data->{activator}->message ("You hear strange noises all around you...");
47 $data->{activator}->message ("You feel dumb.");
44 0 48 }
49
50 1
45} 51}
46 52
47sub on_say { 53sub on_say {
48 my ($data) = @_; 54 my ($data) = @_;
49 55

Diff Legend

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