| … | |
… | |
| 53 | unless $bombs; |
53 | unless $bombs; |
| 54 | |
54 | |
| 55 | $who->remove; |
55 | $who->remove; |
| 56 | $who->free; |
56 | $who->free; |
| 57 | } |
57 | } |
| 58 | |
|
|
| 59 | 1 |
|
|
| 60 | } |
58 | } |
| 61 | |
59 | |
| 62 | sub on_time { |
60 | sub on_time { |
| 63 | my ($event) = @_; |
61 | my ($event) = @_; |
| 64 | |
62 | |
| … | |
… | |
| 117 | redo if $map->[$x][$y]{bomb}; |
115 | redo if $map->[$x][$y]{bomb}; |
| 118 | |
116 | |
| 119 | $map->[$x][$y]{bomb} = 1; |
117 | $map->[$x][$y]{bomb} = 1; |
| 120 | } |
118 | } |
| 121 | } |
119 | } |
| 122 | 0 |
|
|
| 123 | } |
120 | } |
| 124 | |
121 | |
| 125 | sub on_apply { |
122 | sub on_apply { |
| 126 | my ($event) = @_; |
123 | my ($event) = @_; |
| 127 | |
124 | |
| 128 | my $who = $event->{who}; |
125 | my $who = $event->{who}; |
| 129 | my $activator = $event->{activator}; |
126 | my $activator = $event->{activator}; |
| 130 | |
127 | |
| 131 | $who->{meta}{player} = $activator->name; |
128 | $who->{meta}{player} = $activator->name; |
| 132 | push @{$who->{meta}{queue}}, $who; |
129 | push @{$who->{meta}{queue}}, $who; |
|
|
130 | |
| 133 | 0 |
131 | 1 |
| 134 | } |
132 | } |
| 135 | |
133 | |
| 136 | |
134 | |
