| … | |
… | |
| 117 | redo if $map->[$x][$y]{bomb}; |
117 | redo if $map->[$x][$y]{bomb}; |
| 118 | |
118 | |
| 119 | $map->[$x][$y]{bomb} = 1; |
119 | $map->[$x][$y]{bomb} = 1; |
| 120 | } |
120 | } |
| 121 | } |
121 | } |
|
|
122 | 0 |
| 122 | } |
123 | } |
| 123 | |
124 | |
| 124 | sub on_apply { |
125 | sub on_apply { |
| 125 | my ($event) = @_; |
126 | my ($event) = @_; |
| 126 | |
127 | |
| 127 | my $who = $event->{who}; |
128 | my $who = $event->{who}; |
| 128 | my $activator = $event->{activator}; |
129 | my $activator = $event->{activator}; |
| 129 | |
130 | |
| 130 | $who->{meta}{player} = $activator->name; |
131 | $who->{meta}{player} = $activator->name; |
| 131 | push @{$who->{meta}{queue}}, $who; |
132 | push @{$who->{meta}{queue}}, $who; |
|
|
133 | 0 |
| 132 | } |
134 | } |
| 133 | |
135 | |
| 134 | |
136 | |
