200byteDemoChallenge!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Koriolis

You know you're bored when you revive a dead thread, and even have a new entry...

c=9999;d=c*5;e=22000;f=999Local p:Byte[c]For i=0 To c-1;p[i]=Sin(i)*255Next;While 1z="chccdeababacdedefgfcdeabacacdedefgfgefgfgcfg"[j]-97LoadSound(CreateStaticAudioSample(p,[1,f,f,c,c,f,c,f][z],[c,e,c,e,c,d,d,e/3][z],1)).Play;j=(j+1)Mod 44Delay 225Wend

I call this one "party", turn up the sound to see why. 252 bytes.
I know, I'm not an artist ;D