here it is. It is a multiplayer game where you try to force the other person to crash. The controls for player one are the arrow keys and the controls for player two are wasd. Works in darkbasic 1.13.
start:
cls:sync on:sync rate 300:hide mouse
dim screenarea(640,480):for x=0 to 640:for y=0 to 480:screenarea(x,y)=0:next y:next x
x=10:y=10:x2=630:y2=470:direction1$="r":direction2$="l":speed=10:ink rgb(255,0,255),0
line 0,0,640,0:line 0,0,0,480:line 0,479,640,479:line 639,479,639,1
do:if upkey()=1 and direction1$<>"d":direction1$="u":endif:if downkey()=1 and direction1$<>"u":direction1$="d":endif
if leftkey()=1 and direction1$<>"r":direction1$="l":endif:if rightkey()=1 and direction1$<>"l":direction1$="r":endif
if inkey$()="w" and direction2$<>"d":direction2$="u":endif:if inkey$()="s" and direction2$<>"u":direction2$="d":endif
if inkey$()="a" and direction2$<>"r":direction2$="l":endif:if inkey$()="d" and direction2$<>"l":direction2$="r":endif
if timer()>time:screenarea(x,y)=1:screenarea(x2,y2)=1
if direction1$="u":y=y-1:endif:if direction1$="d":y=y+1:endif:if direction1$="l":x=x-1:endif:if direction1$="r":x=x+1:endif
if direction2$="u":y2=y2-1:endif:if direction2$="d":y2=y2+1:endif:if direction2$="l":x2=x2-1:endif:if direction2$="r":x2=x2+1:endif
if x>640:x=0:endif:if x<0:x=640:endif:if y>480:y=0:endif:if y<0:y=480:endif:if x2>640:x2=0:endif:if x2<0:x2=640:endif:if y2>480:y2=0:endif:if y2<0:y2=480:endif
ink rgb(0,255,0),0:dot x,y:ink rgb(0,0,255),0:dot x2,y2:if screenarea(x,y)=1:if screenarea(x2,y2)=1:cls:print "Draw!":suspend for key:gosub start:else
cls:print "Player 2 wins!":suspend for key:gosub start:endif:endif:if screenarea(x2,y2)=1:if screenarea(x,y)=1:cls:print "Draw!":suspend for key:gosub start:else
cls:print "Player 1 wins!":suspend for key:gosub start:endif:endif:time=timer()+speed:endif
sync:loop
The happenings of tommorow are behind us now
