I came up with this game where you have to pull at a line and drag it to your side, and the one that drags the fastest wins. Try it out, I don't know if it runs in DBP. 9 lines of code...
Controls:
Player 1 : Arrow keys to move, Controlkey to grab
Player 2 : W,A,S,D to move, Spacekey to grav
code:
rem territory
rem by TheComet
rem Slinki Software
sync on:sync rate 60:backdrop on:color backdrop 0:hide mouse:dim x(30):dim y(30):for t=0 to 30:y(t)=t*21.333:x(t)=320:next t:x1=10:y1=240:x2=630:y2=240:time=1800:s=240:do:if s>0:dec s:if s>60:center text 340,20,str$(s/60):else
center text 340,20,"GO!":endif:else:dec time:text 10,10,str$(time/60):if time<0:p1=0:p2=0:for t=0 to 30:if x(t)<320:dec p1,x(t)-320:else:inc p2,x(t)-320:endif:next t:do:center text 320,240,"Time Up!"
center text 320,260,"Red : "+str$(p1)+" Blue : "+str$(p2)
sync:loop:endif:if downkey()=1:inc y1,4:if y1>478:y1=478:endif:endif:if upkey()=1:dec y1,4:if y1<2:y1=2:endif:endif:if leftkey()=1:dec x1,4:if x1<2:x1=2:endif:endif:if rightkey()=1:inc x1,4
if x1>638:x1=638:endif:endif:ink rgb(255,0,0),0
box x1-2,y1-2,x1+2,y1+2:if controlkey()=1:if p1=0:for t=0 to 30:d=((x1-x(t))*(x1-x(t)))+((y1-y(t))*(y1-y(t))):if d<100:p1=t:exit:endif:next t:endif:else:p1=0:endif:if p1!0:x(p1)=x1:y(p1)=y1:endif
if keystate(31)=1:inc y2,4:if y2>478:y2=478:endif:endif:if keystate(17)=1:dec y2,4:if y2<2:y2=2:endif:endif:if keystate(30)=1:dec x2,4:if x2<2:x2=2:endif:endif:if keystate(32)=1:inc x2,4:if x2>638:x2=638:endif:endif
ink rgb(0,0,255),0:box x2-2,y2-2,x2+2,y2+2:if spacekey()=1:if p2=0:for t=0 to 30:d=((x2-x(t))*(x2-x(t)))+((y2-y(t))*(y2-y(t))):if d<100:p2=t:exit:endif:next t:endif:else:p2=0:endif:if p2!0:x(p2)=x2:y(p2)=y2:endif:endif
ink rgb(255,255,255),0:for t=0 to 29:line x(t),y(t),x(t+1),y(t+1):next t:sync:loop
TheComet
Peachy, and the Chaos of the Gems
