# (c) Alex McLean 2005
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.

sub bang {
    my $self = shift;
    if ($self->{bangs} % 6 == 0) {
       $self->t({sample => "kurt/2", volume => 40, speed => 0.8});
    }
    if ($self->{bangs} % 8 == 0) {
       $self->t({sample => "kurt/0", volume => 15, speed => 0.95});
    }
    if ($self->{bangs} % 14 == 0) {
       $self->t({sample => "kurt/4", volume => 30, speed => 1.1});
    }
    if ($self->{bangs} % 10 == 0) {
       $self->t({sample => "kurt/3", volume => 30, speed => 1.1});
    }
}