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

Comparing deliantra/maps/perl/invite.ext (file contents):
Revision 1.12 by root, Fri Sep 8 16:22:14 2006 UTC vs.
Revision 1.13 by root, Fri Sep 8 17:33:55 2006 UTC

… …
96sub teleport { 96sub teleport {
97 my ($pl, $map, $x, $y) = @_; 97 my ($pl, $map, $x, $y) = @_;
98 98
99 my $portal = cf::object::new "exit"; 99 my $portal = cf::object::new "exit";
100 100
101 $portal->slaying ($map->path); 101 $portal->slaying ($map->path);
102 $portal->hp ($x); 102 $portal->stats->hp ($x);
103 $portal->sp ($y); 103 $portal->stats->sp ($y);
104 104
105 $portal->apply ($pl); 105 $portal->apply ($pl);
106 106
107 $portal->free; 107 $portal->free;
108} 108}

Diff Legend

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