Built for DBP but probably works on DBC.
Here is a little fun 2D game I made in under an hour. I started with the old "A Mouse's Best Friend" edit I made ages ago and made it into a very different game. Its kind of like the first level of spore where you are just eating plants and other creatrues to get bigger. Continue eating and growing until you or another creatures gets to size 100. But if a larger creature eats you then you begin again. Post you high scores.
Normal 20line Version
Sync On:Sync rate 60:set display mode 1024,768,32 : hide mouse : dim circles#(50,4)
DO : if game=0 : p=0:text 100,100,"Circle World":text 100,150,"Highscore: "+str$(hp):text 100,200,"Eat smaller circles and avoid larger circles":text 100,250,"Press Space key to play":if spacekey()=1 and space=0 : game=1:endif : else
if circles#(0,0)>p:p=circles#(0,0):endif:text 10,10,"Points: "+str$(p)
ink rgb(0,250,0),0 : for t=26 to 50 : if circles#(t,0)<2 : circles#(t,0)=rnd(2)+2 : circles#(t,1)=rnd(924)+50 : circles#(t,2)=rnd(668)+50 : endif : circle circles#(t,1),circles#(t,2),circles#(t,0) : next t
for t=0 to 25 : d#=circles#(t,0)+25 : s#=40 : s#=s#/d# : if t=0 : ink rgb(250,0,0),0 : else : ink rgb(250,250,250),0 : endif
if circles#(t,0)<5 then circles#(t,0)=rnd(5)+5 : circles#(t,1)=rnd(924)+50 : circles#(t,2)=rnd(668)+50
circle circles#(t,1),circles#(t,2),circles#(t,0):line circles#(t,1),circles#(t,2),circles#(t,1)+sin(circles#(t,3))*circles#(t,0),circles#(t,2)+cos(circles#(t,3))*circles#(t,0)
if circles#(t,1)>1000 : circles#(t,1)=1000 : endif : if circles#(t,1)<24 : circles#(t,1)=24 : endif : if circles#(t,2)>744 : circles#(t,2)=744 : endif : if circles#(t,2)<24 : circles#(t,2)=24 : endif
dst=10000 : size#=0 : for s=0 to 50 : if s<t or s>t : cdst=sqrt((circles#(t,1)-circles#(s,1))^2+(circles#(t,2)-circles#(s,2))^2)
if circles#(s,0)<circles#(t,0) and cdst<dst and circles#(s,0)>size# then dst=cdst : circles#(t,4)=s : size#=circles#(s,0)
if cdst<(circles#(s,0)+circles#(t,0)) : if circles#(s,0)>circles#(t,0):circles#(t,0)=0 : circles#(s,0)=circles#(s,0)+1:endif : if circles#(t,0)>circles#(s,0):circles#(s,0)=0 : circles#(t,0)=circles#(t,0)+1:endif : endif : endif : next s
if t>0:if circles#(t,0)>100:goto loose:endif : targ=circles#(t,4):tx#=circles#(targ,1) : ty#=circles#(targ,2):circles#(t,3)=atanfull(tx#-circles#(t,1),ty#-circles#(t,2))
circles#(t,1)=circles#(t,1)+sin(circles#(t,3))*s# : circles#(t,2)=circles#(t,2)+cos(circles#(t,3))*s#:endif
next f : if circles#(0,0)>100 : goto win : endif : d#=circles#(0,0)+25 : s#=40 : s#=s#/d#
if upkey()=1:circles#(0,1)=circles#(0,1)+sin(circles#(0,3))*s# : circles#(0,2)=circles#(0,2)+cos(circles#(0,3))*s#:endif:if downkey()=1:circles#(0,1)=circles#(0,1)+sin(circles#(0,3))*s#-1 : circles#(0,2)=circles#(0,2)+cos(circles#(0,3))*s#-1:endif
if rightkey()=1:circles#(0,3)=wrapvalue(circles#(0,3)-5):endif : if leftkey()=1:circles#(0,3)=wrapvalue(circles#(0,3)+5):endif
endif:sync:cls : if spacekey()=0 then space=0
LOOP
win: : do : hp=p : sync : cls : text 100,100,"YOU WIN - press space to quit" :if spacekey()=0 : space=0 : endif: if spacekey()=1 and space=0:end:endif:loop
loose: : do:hp=p:sync : cls : text 100,100,"YOU LOST - press space to quit" :if spacekey()=0 : space=0 : endif: if spacekey()=1 and space=0:end:endif:loop
Expanded version
Sync On:Sync rate 60:set display mode 1024,768,32 : hide mouse : dim circles#(50,4)
DO
if game=0
p=0:text 100,100,"Circle World":text 100,150,"Highscore: "+str$(hp):text 100,200,"Eat smaller circles and avoid larger circles":text 100,250,"Press Space key to play":if spacekey()=1 and space=0 then game=1
else
if circles#(0,0)>p:p=circles#(0,0):endif:text 10,10,"Points: "+str$(p)
ink rgb(0,250,0),0 : for t=26 to 50 : if circles#(t,0)<2 : circles#(t,0)=rnd(2)+2 : circles#(t,1)=rnd(924)+50 : circles#(t,2)=rnd(668)+50 : endif : circle circles#(t,1),circles#(t,2),circles#(t,0) : next t
for t=0 to 25 : d#=circles#(t,0)+25 : s#=40 : s#=s#/d# : if t=0 : ink rgb(250,0,0),0 : else : ink rgb(250,250,250),0 : endif
if circles#(t,0)<5 then circles#(t,0)=rnd(5)+5 : circles#(t,1)=rnd(924)+50 : circles#(t,2)=rnd(668)+50
circle circles#(t,1),circles#(t,2),circles#(t,0):line circles#(t,1),circles#(t,2),circles#(t,1)+sin(circles#(t,3))*circles#(t,0),circles#(t,2)+cos(circles#(t,3))*circles#(t,0)
if circles#(t,1)>1000 : circles#(t,1)=1000 : endif : if circles#(t,1)<24 : circles#(t,1)=24 : endif : if circles#(t,2)>744 : circles#(t,2)=744 : endif : if circles#(t,2)<24 : circles#(t,2)=24 : endif
dst=10000
size#=0
for s=0 to 50
if s<t or s>t
cdst=sqrt((circles#(t,1)-circles#(s,1))^2+(circles#(t,2)-circles#(s,2))^2)
if circles#(s,0)<circles#(t,0) and cdst<dst
if circles#(s,0)>size# then dst=cdst : circles#(t,4)=s : size#=circles#(s,0)
endif
if cdst<(circles#(s,0)+circles#(t,0))
if circles#(s,0)>circles#(t,0) then circles#(t,0)=0 : circles#(s,0)=circles#(s,0)+1
if circles#(t,0)>circles#(s,0) then circles#(s,0)=0 : circles#(t,0)=circles#(t,0)+1
endif
endif
next s
if t=0
if circles#(t,0)>100 then goto win
if upkey()=1 then circles#(t,1)=circles#(t,1)+sin(circles#(t,3))*s# : circles#(t,2)=circles#(t,2)+cos(circles#(t,3))*s#
if downkey()=1 then circles#(t,1)=circles#(t,1)+sin(circles#(t,3))*s#-1 : circles#(t,2)=circles#(t,2)+cos(circles#(t,3))*s#-1
if rightkey()=1 then circles#(t,3)=wrapvalue(circles#(t,3)-5)
if leftkey()=1 then circles#(t,3)=wrapvalue(circles#(t,3)+5)
else
if circles#(t,0)>100 then goto loose
targ=circles#(t,4)
tx#=circles#(targ,1) : ty#=circles#(targ,2)
circles#(t,3)=atanfull(tx#-circles#(t,1),ty#-circles#(t,2))
circles#(t,1)=circles#(t,1)+sin(circles#(t,3))*s# : circles#(t,2)=circles#(t,2)+cos(circles#(t,3))*s#
endif
next f
endif
sync:cls : if spacekey()=0 then space=0
LOOP
win:
do
hp=p
sync : cls : text 100,100,"YOU WIN - press space to quit" : if spacekey()=1 and space=0 then exit
if spacekey()=0 : space=0 : endif
loop
loose:
do
hp=p
sync : cls : text 100,100,"YOU LOST - press space to quit" : if spacekey()=1 and space=0 then exit
if spacekey()=0 : space=0 : endif
loop
