ampenv = maketable("line", 1000, 0,0,5,1, 99,1, 100,0)

st = 0

dice = trand(0, 7)

if (dice == 0) {
	drift = makerandom("even", 15, 0, 70)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 1900+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.2, 1500+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.7, 2490+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.05, 1820+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(100,700)+squawk, 0, wtable)
}

else if (dice == 1) {
	drift = makerandom("even", 15, 0, 150)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip
	WAVETABLE(st, dur*0.3+irand(0.01), amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 2700+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.2, 3790+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.05, 2100+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.03, 1820+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(1400, 1700)+squawk, 0, wtable)
}

else if (dice == 2) {
	drift = makerandom("even", 15, 0, 150)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 2400+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.2, 1500+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.7, 2890+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(10,20)+squawk, 0, wtable)
}

else if (dice == 3) {
	drift = makerandom("even", 15, 0, 150)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip
WAVETABLE(st, dur*0.3+irand(0.01), amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 2300+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.2, 4190+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.05, 1800+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(2400, 2700)+squawk, 0, wtable)
}

else if (dice == 4) {
	drift = makerandom("even", 15, 0, 120)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 2100+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.1, 1000+sdrift+squawk, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.7, 4000+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(100,700)+squawk, 0, wtable)
}

else if (dice == 5) {
	drift = makerandom("even", 15, 0, 70)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 1900+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.2, 1000+sdrift+squawk+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.7, 2490+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.05, 1820+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.05, irand(100,700)+squawk, 0, wtable)
}

else if (dice == 6) {
	drift = makerandom("even", 15, 0, 70)
	sdrift = makefilter(drift, "smooth", 50)

	WAVETABLE(st, dur*0.3, amp*ampenv*0.03, 800+(squawk*0.3), 0, wtable)
	st += skip

	WAVETABLE(st, dur, amp*ampenv, 1850+sdrift, 0, wtable)
	st += skip
	WAVETABLE(st, dur, amp*ampenv*0.5, 2900+sdrift, 0, wtable)
	st += skip
	ampenv = maketable("line", 1000, 0,0,1,1, 5,1, 100,0)
	WAVETABLE(st, dur*3, amp*ampenv*0.1, irand(3000,4700)+squawk, 0, wtable)
}