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.4 by root, Fri Aug 25 15:07:43 2006 UTC

1#! perl 1#! perl
2#CONVERSION: NONE
2 3
3use List::Util; 4use List::Util;
4 5
5sub set_stack { 6sub set_stack {
6 my ($map, $x, $y, $as) = @_; 7 my ($map, $x, $y, $as) = @_;
7 8
8 $_->insert_ob_in_map_at ($map, $_, cf::INS_ON_TOP, $x, $y) 9 $_->insert_ob_in_map_at ($map, $_, cf::INS_ON_TOP, $x, $y)
9 for @$as; 10 for @$as;
10
11 $_->contr->MapNewmapCmd
12 for grep $_->isa (cf::object::player::), @$as;
13} 11}
14 12
15sub on_move { 13sub on_move {
16 my ($event, $who) = @_; 14 my ($event, $who) = @_;
17 15

Diff Legend

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