| … | |
… | |
| 25 | } |
25 | } |
| 26 | |
26 | |
| 27 | my %follow; |
27 | my %follow; |
| 28 | |
28 | |
| 29 | my $timer = Event->timer (interval => 0.2, parked => 1, cb => sub { |
29 | my $timer = Event->timer (interval => 0.2, parked => 1, cb => sub { |
| 30 | warn "follow\n";#d# |
|
|
| 31 | |
|
|
| 32 | while (my ($name, $v) = each %follow) { |
30 | while (my ($name, $v) = each %follow) { |
| 33 | my ($target, $his, $mine) = @$v; |
31 | my ($target, $his, $mine) = @$v; |
| 34 | my ($who, $other) = (cf::player::find $name, cf::player::find $target); |
32 | my ($who, $other) = (cf::player::find $name, cf::player::find $target); |
| 35 | |
33 | |
| 36 | if ($who && $other && $other->ob->map) { |
34 | if ($who && $other && $other->ob->map) { |
| … | |
… | |
| 109 | } |
107 | } |
| 110 | |
108 | |
| 111 | |
109 | |
| 112 | |
110 | |
| 113 | |
111 | |
| 114 | |
|
|
