… | |
… | |
19 | $portal->stats->hp ($x); |
19 | $portal->stats->hp ($x); |
20 | $portal->stats->sp ($y); |
20 | $portal->stats->sp ($y); |
21 | |
21 | |
22 | $portal->apply ($pl->ob); |
22 | $portal->apply ($pl->ob); |
23 | |
23 | |
24 | $portal->free; |
24 | $portal->destroy; |
25 | } |
25 | } |
26 | |
26 | |
27 | my %follow; |
27 | my %follow; |
28 | |
28 | |
29 | my $timer = Event->timer (interval => 0.2, parked => 1, data => cf::WF_AUTOCANCEL, cb => sub { |
29 | my $timer = Event->timer (interval => 0.2, parked => 1, data => cf::WF_AUTOCANCEL, cb => sub { |
… | |
… | |
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 | |