Here's a pretty good game in 20 lines. I made it in DBpro but I think it will work in DB.
CONTROLS:
Player 1:
Wasd=move
space=shoot
Player 2:
arrowkeys=move
control=shoot
enjoy
begin:
sync rate 25:y#=250:x#=60:y2#=250:x2#=600:health=100:health2=100:charge=100:charge2=100
do
cls
ink RGB(0,0,0),0:box 0,0,900,900
box x#,y#-30,x#+30,y#+30,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255):box x#+30,y#-18,x#+80,y#+18,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0):ink RGB(255,255,255),0:dot 10,10:dot 45,75:dot 300,300:dot 210,250:dot 500,430:dot 455,430
box x#-20,y#-27,x#,y#-15,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192):box x#-20,y#+27,x#,y#+15,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192):ink RGB(255,255,255),0:dot 630,20:dot 600,100:dot 200,400:dot 250,400
box x2#,y2#-30,x2#-30,y2#+30,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0):box x2#-30,y2#-18,x2#-80,y2#+18,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255):dot 350,100:dot 350,200
box x2#+20,y2#-27,x2#,y2#-15,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192):box x2#+20,y2#+27,x2#,y2#+15,RGB(192,192,192),RGB(192,192,192),RGB(192,192,192),RGB(192,192,192)
ink RGB(255,0,0),0:Set cursor 0,0:Print "Player 1 Health= ",health:set cursor 450,0:print "Player 2 Health= ",health2:if health=0:win=2:goto score::endif:If health2=0:win=1:goto score::endif
if keystate(17)=1 and y#>0:dec y#,5:ink RGB(255,0,0),0:line x#-22,y#-21,x#-32,y#-21:line x#-22,y#+21,x#-32,y#+21:endif:if keystate(30)=1 and x#>0:dec x#,3:ink RGB(255,0,0),0:line x#-22,y#-21,x#-32,y#-21:line x#-22,y#+21,x#-32,y#+21:endif
if keystate(32)=1 and x#<200:inc x#,5:ink RGB(255,0,0),0:line x#-22,y#-21,x#-32,y#-21:line x#-22,y#+21,x#-32,y#+21:endif:if keystate(31)=1 and y#<475:inc y#,5:ink RGB(255,0,0),0:line x#-22,y#-21,x#-32,y#-21:line x#-22,y#+21,x#-32,y#+21:endif
if upkey()=1 and y2#>0:dec y2#,5:ink RGB(255,0,0),0:line x2#+22,y2#-21,x2#+32,y2#-21:line x2#+22,y2#+21,x2#+32,y2#+21:endif:if downkey()=1 and y2#<475:inc y2#,5:ink RGB(255,0,0),0:line x2#+22,y2#-21,x2#+32,y2#-21:line x2#+22,y2#+21,x2#+32,y2#+21:endif
if leftkey()=1 and x2#>400:dec x2#,5:ink RGB(255,0,0),0:line x2#+22,y2#-21,x2#+32,y2#-21:line x2#+22,y2#+21,x2#+32,y2#+21:endif:if rightkey()=1 and x2#<650:inc x2#,3:ink RGB(255,0,0),0:line x2#+22,y2#-21,x2#+32,y2#-21:line x2#+22,y2#+21,x2#+32,y2#+21:endif
if spacekey()=1 and shoot=0:sx#=x#+80:sy#=y#:shoot=1:move=1:endif:if move=1:ink RGB(255,255,255),0:dot sx#,sy#:dot sx#+2,sy#:dot sx#+4,sy#:dot sx#+6,sy#:inc sx#,16:endif:if sx#>670:shoot=0:move=0:endif:if move=0:sx#=-20:shoot=0:endif
if controlkey()=1 and shoot2=0:sx2#=x2#-80:sy2#=y2#:shoot2=1:move2=1:endif:if move2=1:ink RGB(255,255,255),0:dot sx2#,sy2#:dot sx2#-2,sy2#:dot sx2#-4,sy2#:dot sx2#-6,sy2#:dec sx2#,16:endif:if sx2#<0:shoot2=0:move2=0:endif:if move2=0:sx2#=900:shoot2=0:endif
if sx#>x2#-80 and sx#<x2# and sy#>y2#-30 and sy#<y2#+30:move=0:dec health2,10:endif:if sx2#<x#+80 and sx2#>x# and sy2#>y#-30 and sy2#<y#+30:move2=0:dec health,10:endif:sync:loop
score:
cls
if win=1:Print "PLAYER 1 WINS!!!!!!!!!!!!!!!!!!!":endif:if win=2:Print "PLAYER 2 WINS!!!!!!!!!!!!!!!!!!!":endif:Print "":Print "":Print "(press any key to go back)":wait key:wait key:goto begin:
Mysteries Surround You