heres a full game in seven lines, this is like the old days when computers had 1/2k memorys and text only displays, this breaks the rules realy since each line has far more than five instructions, but shows how little code you need to get something working.
runit:
cls:sync on:sync rate 60:for i=1 to 1000:print "PREPARE TO RUN! ";:next i:sync:wait 3000:cls:sync:mx=0:my=0:m2x=600:m2y=400:px=200:py=200:sc=0:start=timer():set text opaque
do:opx=px:opy=py:px=px+4*(rightkey()-leftkey()):py=py+4*(downkey()-upkey()):mx=mx+3*((mxpx)):my=my+(mypy):m2x=m2x+(2*((m2xpx))):m2y=m2y+(2*((m2ypy))):inc sc
if px640 or py480 then px=opx:py=opy
cls:text opx,opy," ":text opx,opy," ":text px,py,"O":text mx,my,"*":text m2x,m2y,"*":text 0,0,"SCORE:-"+str$(sc):text 150,0,"TIME ALIVE:-"+str$((timer()-start)/1000)+"secs":sync
if (int(px/3)=(mx/3) and py=my) or (px=m2x and py=m2y) then text px,py,"BURP!":sync:wait 4000:text px,py,"you have been eaten":sync:wait 2000:goto runit
loop
and heres the same code butchered to fit in with the rules ;p
runit:
cls:sync on:sync rate 60:for i=1 to 1000:print "PREPARE TO RUN! ";
next i:sync:wait 3000:cls:sync:mx=0
my=0:m2x=600:m2y=400:px=200:py=200
sc=0:start=timer():set text opaque
do:opx=px:opy=py:px=px+4*(rightkey()-leftkey()):py=py+4*(downkey()-upkey())
mx=mx+3*((mxpx)):my=my+(mypy):m2x=m2x+(2*((m2xpx))):m2y=m2y+(2*((m2ypy))):inc sc
if px640 or py480 then px=opx:py=opy
cls:text opx,opy," ":text opx,opy," ":text px,py,"O":text mx,my,"*"
text m2x,m2y,"*":text 0,0,"SCORE:-"+str$(sc):text 150,0,"TIME ALIVE:-"+str$((timer()-start)/1000)+"secs":sync
if (int(px/3)=(mx/3) and py=my) or (px=m2x and py=m2y) then text px,py,"BURP!":sync:wait 4000:text px,py,"you have been eaten":sync:wait 2000:goto runit
loop
huh from seven up to twelve lines just to fit the five a line rule, LOL, what a waste
