ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/map-grid-move-torus.ext
(Generate patch)

Comparing deliantra/maps/perl/map-grid-move-torus.ext (file contents):
Revision 1.2 by root, Fri Mar 31 22:47:19 2006 UTC vs.
Revision 1.3 by root, Thu Aug 17 20:23:58 2006 UTC

… …
5sub set_stack { 5sub set_stack {
6 my ($map, $x, $y, $as) = @_; 6 my ($map, $x, $y, $as) = @_;
7 7
8 $_->insert_ob_in_map_at ($map, $_, cf::INS_ON_TOP, $x, $y) 8 $_->insert_ob_in_map_at ($map, $_, cf::INS_ON_TOP, $x, $y)
9 for @$as; 9 for @$as;
10
11 $_->contr->MapNewmapCmd
12 for grep $_->isa (cf::object::player::), @$as;
13} 10}
14 11
15sub on_move { 12sub on_move {
16 my ($event, $who) = @_; 13 my ($event, $who) = @_;
17 14

Diff Legend

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