The 512 bytes code challenge

BlitzMax Forums/BlitzMax Programming/The 512 bytes code challenge

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
 #1
Yeah it's an oldie but it's one of my faves... UNLIMITED BOBS!
AppTitle="Bobs!"w=320h=240Graphics w,h,0Local s:TImage[7]For i=0 To 6s[i]=CreateImage(w,h)Next r=h/2t=0b=CreateImage(32,32)c=10SetColor c,c,c DrawOval 0,0,32,32 c=255SetColor c,c,c DrawOval 2,2,28,28GrabImage b,0,0Cls;While Not KeyHit(27)DrawImage s[t],0,0n:+1If n<9
c=n*31Else c=255EndIf SetColor c,c,c DrawImage b,w/2+Cos(a)*r-16,h/2+Sin(a/1.1)*r-16GrabImage s[t],0,0t:+1t:Mod 7SetColor 0,h,0SetScale 2,2DrawText "Bobs: "+n/7,0,0SetScale 1,1DrawText "sledgenet.co.uk",200,226SetColor c,c,c Flip;Cls;a:+2Wend

(512 Bytes -- I'm still on 1.26 so let me know if it flakes out on 1.28!)

Liked the Red 3D Cloud by the way, remz -- kinda therapeutic :D