- or download this
sub handle_fire {
my ($new, $x, $y) = @_;
...
$i++;
}
}
- or download this
#draw gunshots, possibly add new one
handle_fire( $fire, $x, $y );
- or download this
#draw gunshots, possibly add new one
$fire_items = handle_fire( $fire, $x, $y, $fire_items );
- or download this
my $fire_items;
.
...
.
.
}
- or download this
sub handle_fire {
my ( $new, $x, $y ) = @_;
...
$i++;
}
}
- or download this
sub handle_fire {
my ( $new, $x, $y, $fire_items ) = @_;
...
}
return $fire_items;
}
- or download this
if ( $new ){
push(@$fire_items, $x.' '.$y);
}
- or download this
if ( $new ){
push @$fire_items, [$x, $y];
}
- or download this
push @$fire_items, [$x, $y] if $new;
- or download this
my ( $xc, $yc ) = split(' ', $$fire_items[$i] );
- or download this
my ( $xc, $yc ) = @{ $fire_items[$i] };
- or download this
$$fire_items[$i] = join(' ', $xc + 10, $yc );
- or download this
$$fire_items[$i] = [$xc + 10, $yc];
- or download this
unless ( $xc < $app->width + $images{beam1}->width ) {
splice( @$fire_items, $i, 1 );
next;
}
- or download this
sub handle_fire {
my ( $new, $x, $y, $fire_items ) = @_;
...
push @temp, [$x, $y] if $new;
return \@temp;
}
- or download this
sub handle_fire {
my ( $new, $x, $y, $fire_items ) = @_;
...
push @temp, [$x, $y] if $new;
return \@temp;
}