| … | … | ||
|---|---|---|---|
| 88 | $who->message ("follow mode off"); | 88 | $who->message ("follow mode off"); |
| 89 | delete $follow{$name}; | 89 | delete $follow{$name}; |
| 90 | } | 90 | } |
| 91 | }; | 91 | }; |
| 92 | 92 | ||
| 93 | cf::attach_to_players | 93 | cf::player->attach ( |
| 94 | on_death => sub { | 94 | on_death => sub { |
| 95 | my ($pl) = @_; | 95 | my ($pl) = @_; |
| 96 | 96 | ||
| 97 | my $name = $pl->ob->name; | 97 | my $name = $pl->ob->name; |
| 98 | 98 | ||
| … | … | ||
| 102 | if ($v->[0] eq $name) { | 102 | if ($v->[0] eq $name) { |
| 103 | delete $follow{$k}; | 103 | delete $follow{$k}; |
| 104 | } | 104 | } |
| 105 | } | 105 | } |
| 106 | }, | 106 | }, |
| 107 | ; | 107 | ); |
| 108 | 108 | ||
| 109 | 109 | ||
| 110 | 110 | ||
| 111 | 111 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |