Yeah it's an oldie but it's one of my faves... UNLIMITED BOBS!
(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
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