use_random_seed 100

drums = "C:/Users/MrSkeletal/Music/gabber samples/"
intro = drums + "songIntro.wav"
mid = drums + "middle.wav"
outro = drums + "end.wav"

use_bpm 210
kickRate = 1
snareRate = 1

a = 2

define :kickDrumDistorted do
  with_fx :distortion, distort: 0.99 do
    sample :bd_haus, amp: 2
    sample :bd_haus, amp: 1.5
    sleep kickRate
  end
end

define :kickDrum do
  sample :bd_haus, amp: 2
  sample :bd_haus, amp: 1.5
  sleep kickRate
end

define :snareDrum do
  sample :sn_dub, amp: 3
  sleep snareRate
end

define :startkickPattern do
  8.times do
    kickRate = 1
    3.times do
      kickDrumDistorted
    end
    kickRate = 0.25
    2.times do
      kickDrumDistorted
    end
    kickRate = 0.5
    1.times do
      kickDrumDistorted
    end
  end
  6.times do
    kickRate = 1
    snareRate = 3
    in_thread do
      6.times do
        kickDrumDistorted
      end
    end
    2.times do
      snareDrum
    end
    kickRate = 1
    snareRate = 1
    in_thread do
      2.times do
        kickDrumDistorted
      end
    end
    2.times do
      snareDrum
    end
  end
end

define :kickPattern do
  8.times do
    kickRate = 1
    2.times do
      kickDrumDistorted
    end
    kickRate = 0.25
    4.times do
      kickDrumDistorted
    end
    kickRate = 0.125
    8.times do
      kickDrumDistorted
    end
  end
  6.times do
    kickRate = 1
    if one_in(2)
      snareRate = 2.5
    else
      snareRate = 2
    end
    in_thread do
      6.times do
        kickDrumDistorted
      end
    end
    2.times do
      snareDrum
    end
    kickRate = 1
    snareRate = 1
    in_thread do
      2.times do
        kickDrumDistorted
      end
    end
    2.times do
      snareDrum
    end
  end
end

define :hh1 do
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 1
  end
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.25
    sample :drum_cymbal_closed, amp: a
    sleep 0.25
  end
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.5
  end
end

define :hh2 do
  6.times do
    sample :drum_cymbal_closed, amp: a
    sleep 1
  end
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.5
  end
  sample :drum_cymbal_closed, amp: a
  sleep 1
end

define :hh3 do
  12.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.5
  end
end

define :hh4 do
  8.times do
    sample :drum_cymbal_closed, amp: a
    sleep 1
  end
end

define :hh5 do
  8.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.25
  end
end

define :hh6 do
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 0.5
  end
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 1
    sample :drum_cymbal_closed, amp: a
    sleep 1
  end
  2.times do
    sample :drum_cymbal_closed, amp: a
    sleep 1.5
  end
end

in_thread do
  with_fx :reverb, room: 0.9 do
    with_fx :bitcrusher, bits: 80 do
      with_fx :distortion do
        sample intro, amp: 2.5
        sleep sample_duration(intro)
      end
    end
  end
end

sleep 120
in_thread do
  with_fx :reverb, room: 1 do
    with_fx :distortion, distort: 0.7 do
      sample mid, amp: 1.75
      sleep sample_duration(mid)
    end
  end
end

4.times do
  kickRate = 3
  snareRate = 5
  in_thread do
    5.times do
      kickDrum
    end
  end
  snareDrum
end

4.times do
  kickRate = 1.5
  snareRate = 5
  in_thread do
    5.times do
      kickDrum
      kickDrumDistorted
    end
  end
  snareDrum
end

##| ##| ##| #ramp Up
4.times do
  kickRate = 1.5
  snareRate = 4
  in_thread do
    6.times do
      kickDrum
    end
  end
  snareDrum
end

4.times do
  kickRate = 2
  snareRate = 8
  in_thread do
    4.times do
      kickDrumDistorted
    end
  end
  snareDrum
end

4.times do
  kickRate = 1
  snareRate = 4
  in_thread do
    8.times do
      kickDrum
    end
  end
  snareDrum
end

8.times do
  kickRate = 1
  snareRate = 2
  in_thread do
    2.times do
      kickDrumDistorted
    end
  end
  snareDrum
end

8.times do
  kickRate = 0.5
  snareRate = 1
  in_thread do
    2.times do
      kickDrumDistorted
    end
  end
  snareDrum
end

16.times do
  kickRate = 0.25
  snareRate = 0.5
  in_thread do
    kickDrumDistorted
  end
  snareDrum
end

32.times do
  kickRate = 0.125
  snareRate = 0.25
  in_thread do
    kickDrum
  end
  snareDrum
end

40.times do
  kickRate = 0.625
  snareRate = 0.125
  in_thread do
    kickDrum
  end
  snareDrum
end

sleep 12
in_thread do
  with_fx :reverb do
    with_fx :echo, phase: 6 do
      a = 2
      54.times do
        x = dice
        if (x == 1)
          hh1
        elsif (x == 2)
          hh2
        elsif (x == 3)
          hh3
        elsif (x == 4)
          hh4
        elsif (x == 5)
          hh5
        else
          hh6
        end
      end
    end
  end
end

with_fx :reverb do
  with_fx :bitcrusher, bits: 64 do
    use_synth :hoover
    54.times do
      play choose([:Fs2,:Gs2,:Ds2,:As2,:Bs2]), attack: 4, release: 3, amp: 0.9
      sleep 4
    end
  end
end

sleep 40
in_thread do
  with_fx :reverb, room: 1 do
    with_fx :distortion, distort: 0.7 do
      sample outro, amp: 4
      sleep sample_duration(outro)
    end
  end
end
startkickPattern

in_thread do
  with_fx :reverb do
    with_fx :echo, phase: 6 do
      a = 3
      40.times do
        x = dice
        if (x == 1)
          hh1
        elsif (x == 2)
          hh2
        elsif (x == 3)
          hh3
        elsif (x == 4)
          hh4
        elsif (x == 5)
          hh5
        else
          hh6
        end
      end
    end
  end
end

sleep 24
3.times do
  kickPattern
end

use_bpm 400
16.times do
  kickRate = 1
  3.times do
    kickDrumDistorted
  end
  kickRate = 0.25
  2.times do
    kickDrumDistorted
  end
  kickRate = 0.5
  1.times do
    kickDrumDistorted
  end
end

use_bpm 300
28.times do
  kickRate = 1
  3.times do
    kickDrum
  end
  kickRate = 0.25
  2.times do
    kickDrum
  end
  kickRate = 0.5
  1.times do
    kickDrum
  end
end

use_bpm 800
26.times do
  kickRate = 1
  3.times do
    kickDrum
  end
  kickRate = 0.25
  2.times do
    kickDrum
  end
  kickRate = 0.5
  1.times do
    kickDrum
  end
end

use_bpm 3000
26.times do
  kickRate = 3
  3.times do
    kickDrumDistorted
  end
  kickRate = 0.25
  2.times do
    kickDrumDistorted
  end
  kickRate = 0.5
  1.times do
    kickDrumDistorted
  end
end