| … | … | ||
|---|---|---|---|
| 55 | $portal->apply ($pl->ob); | 55 | $portal->apply ($pl->ob); |
| 56 | 56 | ||
| 57 | $portal->free; | 57 | $portal->free; |
| 58 | } | 58 | } |
| 59 | 59 | ||
| 60 | sub on_player_death { | ||
| 61 | my ($event) = @_; | ||
| 62 | |||
| 63 | my $ob = $event->{who}; | ||
| 64 | my $name = $ob->name; | ||
| 65 | |||
| 66 | delete $follow{$name}; | ||
| 67 | |||
| 68 | while (my ($k, $v) = each %follow) { | ||
| 69 | if ($v->[0] eq $name) { | ||
| 70 | delete $follow{$k}; | ||
| 71 | } | ||
| 72 | } | ||
| 73 | |||
| 74 | 0 | ||
| 75 | } | ||
| 76 | |||
| 60 | sub on_clock { | 77 | sub on_clock { |
| 61 | my ($event) = @_; | 78 | my ($event) = @_; |
| 62 | 79 | ||
| 63 | return unless %follow; | 80 | return unless %follow; |
| 64 | 81 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |