Hi, this is a little worm style game I cooked up.
set display mode 1024,768,32,1:sync on:cls 0:cc=1:dim hi(1):if file exist("hi")=1:load array "hi",hi(0):endif:ink rgb(255,0,0),0:for n=4 to 8:circle 8,8,n:next:sync:get image 1,0,0,8*2,8*2,1:dim txt$(3):txt$(0)="Chainz":txt$(2)="Start":txt$(3)="Exit"
backdrop on:color backdrop rgb(0,0,0):ink rgb(255,255,255),0:gosub k:i=timer()
do:ink rgb(255,0,0),0:box 16,10,1024-16,16:box 16,768-16,1024-16,768-10:box 10,16,16,768-16:box 1024-16,16,1024-10,768-16:ink rgb(255,255,255),0:text 0,0,str$(bb):a$="HiScore "+str$(hi(0))
b$="Time "+str$(j):c$="Level "+str$(l):j=(timer()-i)/1000:center text 512,0,a$:center text 512,768-text height(c$),c$:text 1024-text width(b$),0,b$:gosub ct:gosub st:if aa=1:if bb>hi(0):hi(0)=bb:save array "hi",hi(0):endif:gosub k:endif:sync:loop
k:show mouse:for n=1 to 1000:if sprite exist(n)=1:delete sprite n:endif:next
do:cls:txt$(1)="Difficulty-"+cc$:if cc=4:cc=1:endif:if cc=1:cc$="Easy":endif:if cc=2:cc$="Medium":endif
if cc=3:cc$="Hard":endif:for n=0 to 3:a$=txt$(n):center text (512-text width(a$)/2),((384)-text height(a$))+(((n-1)*2)*text height(a$)),a$
if mouseclick()=0 and rp=1:rp=0:endif:if mouseclick()=1 and rp=0:if mousey()>((384)-text height(a$))+(((n-1)*2)*text height(a$)):if mousey()<((384)-text height(a$))+(((n-1)*2)*text height(a$))+text height(a$):rp=1:s=n:endif:endif:endif:next:if s=1
s=0:inc cc:endif:if s=2:s=0:exit:endif:if s=3:end:endif:sync:loop
x=400:y=400:a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:i=0:j=0:k=0:l=1:m=0:o=0:p=0:q=0:r=0:s=0:t=0:u=0:v=0:w=0:z=2*cc:aa=0:bb=0:set=0:sprite 1,x,y,1:offset sprite 1,8,8:i=timer():hide mouse:return
st:text t,w,str$(pg-e):if set=0:k=timer():set=1:pg=10:e=0:t=rnd(1024-64)+32:w=rnd(768-64)+32:endif:h=wrapvalue(sprite angle(1)-90):a = sprite x(1) + 8*cos(h)
b = sprite y(1) + 8*sin(h):if sprite x(1)<8*2 or sprite x(1)>1024-8*2:aa=1:endif:if sprite y(1)<8*2 or sprite y(1)>768-8*2
aa=1:endif:if set=1:if e<pg-1:e=(timer()-k)/1000:endif:dx2=t-a:dy2=b-w:d2=sqrt((dx2*dx2)+(dy2*dy2)):if d2<20:inc p,pg-e:inc bb,(j+((pg-e)*(100*l)))*cc:inc v,pg-e:set=0:endif:endif:if v>=25:v=0:inc l:endif:return
ct:if upkey()=1:if g=1:aa=1:endif:m=0:g=0:endif:if downkey()=1:if g=0:aa=1:endif:m=180:g=1:endif:if leftkey()=1:if g=3:aa=1:endif:m=270:g=2:endif:if rightkey()=1:if g=2:aa=1:endif:m=90:g=3:endif:if p>0 and q=0:q=1:inc u
m1=wrapvalue(sprite angle(u)+90):o = sprite x(u) + (8*2)*cos(m1):r = sprite y(u) + (8*2)*sin(m1):dec p:sprite u+1,o,r,1:offset sprite u+1,8,8:endif:if q=1:dx2=o-sprite x(u+1):dy2=sprite y(u+1)-r:d2=sqrt((dx2*dx2)+(dy2*dy2))
if d2>32:if p>0:dec p:inc u:sprite u+1,o,r,1:offset sprite u+1,8,8:endif:if p=0:q=0:endif:endif:endif:move sprite 1,cc:rotate sprite 1,wrapvalue(m):for n=2 to 1000:if sprite exist(n)=1:dx=sprite x(n-1)-sprite x(n)
dy=sprite y(n)-sprite y(n-1):mle#=atanfull(dx,dy):dt=sqrt((dx*dx)+(dy*dy)):rotate sprite n,wrapvalue(mle#):if dt>8*2:move sprite n,cc:endif:if n=>3:dx=sprite x(1)-sprite x(n):dy=sprite y(n)-sprite y(1)
dt=sqrt((dx*dx)+(dy*dy)):if dt<8*2:aa=1:endif:endif:endif:next:return
http://s6.bitefight.org/c.php?uid=103081