| … | |
… | |
| 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 | sub on_player_death { |
93 | cf::attach_to_player |
|
|
94 | on_death => sub { |
| 94 | my ($ob) = @_; |
95 | my ($pl) = @_; |
| 95 | |
96 | |
| 96 | my $name = $ob->name; |
97 | my $name = $pl->ob->name; |
| 97 | |
98 | |
| 98 | delete $follow{$name}; |
99 | delete $follow{$name}; |
| 99 | |
100 | |
| 100 | while (my ($k, $v) = each %follow) { |
101 | while (my ($k, $v) = each %follow) { |
| 101 | if ($v->[0] eq $name) { |
102 | if ($v->[0] eq $name) { |
| 102 | delete $follow{$k}; |
103 | delete $follow{$k}; |
|
|
104 | } |
| 103 | } |
105 | } |
| 104 | } |
106 | }, |
| 105 | |
107 | ; |
| 106 | 0 |
|
|
| 107 | } |
|
|
| 108 | |
108 | |
| 109 | |
109 | |
| 110 | |
110 | |
| 111 | |
111 | |
