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.

Sledge

Hee hee - only just saw this. I started by doing a typed starfield and didn't have much room for anything else. Then I spotted QuietBloke's starfield and thought that resetting the random seed and regenerating the values each frame was a really cool space-saving idea, so my effort is really an extension of that approach.

Mini Intro
Multi-plane, multi-color starfield & sine text. (250 bytes)

w=800h=600m=40t$="www.sledgenet.co.uk"Graphics w,h,16;Repeat;SeedRnd(1)f=f+1For l=0To h;c=Rand(1,6)SetColor c*m,c*m,c*m;Plot((Rand(0,w)+f)+(f*c))Mod w,l;Next;For s=1To 19DrawText Mid$(t,s,1),200+(s*20),h/2+(Cos(f+s*m)*m)Next;Flip;Cls;Until KeyHit(27)