*** LES DEUXKILOS *** Saison 2016

Vorador a écrit:J'aimerais car j'ai une idée de jeu mais mon basic est trop loin et trop sommaire dsl 

Code:

DIM r(500),t(500),cl(8880,320):FOR i=1TO 5:READ c(i):NEXT
DATA 16,14,1,9,7
e=-4.167E-7:l1=-.6872820:WHILE l1<=-.6835815:FOR c=0TO 319:x=c*1.479E-7-.634:y=l1+l*e/4:k=32:x0=x:y0=y:FOR i=1TO 100:x1=x*x-y*y+x0:y1=2*x*y+y0:x=x1:y=y1:k=k+1:IF x*x>4-y*y THEN EXIT FOR
cl(tt,c)=k:NEXT i:NEXT c:l1=l1-e:tt=tt+1:WEND
0SCREEN 13:_FULLSCREEN:LINE(0,0)-(319,199),12,BF:DIM m(15840):r=160:t=100:FOR i=0TO 4:y(i)=-50-80*i:x(i)=40+260*RND:NEXT i:g=0:n=0:lv=0:o=0:q=0:DIM u(99),v(99),d(99):tt=0
DO:_LIMIT 100:FOR l=0TO 3:FOR c=0TO 319:PSET(c,l),cl(tt,c):NEXT c,l:l1=l1-e:tt=tt+1:IF tt>8865 THEN lv=lv+1:g=0:tt=0
f=2^(7-lv):GET(0,0)-(319,197),m():r=r+_KEYDOWN(19712)*(r<311)*2-_KEYDOWN(19200)*(r>8)*2:t=t+_KEYDOWN(20480)*(t<190)*2-_KEYDOWN(18432)*(t>40)*2:w=w+1AND 15
IF w=1 THEN
k=0:WHILE r(k):k=k+1:WEND:r(k)=r:t(k)=t-5
END IF
IF s>37THEN SOUND s,1:s=s-30
FOR i=0TO 5
IF r(i)THEN
t(i)=t(i)-6:LINE(r(i)-1,t(i)-23)-(r(i)+1,t(i)+9),13,BF
FOR j =0TO 4
IF ABS(r(i)-x(j))<9THEN
IF y(j)>0AND y(j)<200THEN
IF t(i)-23<y(j)+7AND t(i)+9>y(j)-7THEN
FOR z=0TO 15STEP .5:CIRCLE(x(j),y(j)),z,15:NEXT
s=100:q=q+lv+1:IF q>h THEN h=q
y(j)=y(j)-400:x(j)=40+260*RND
END IF
END IF
END IF
NEXT j
IF t(i)<5THEN r(i)=0
END IF
NEXT
FOR z=0TO 8STEP .5:CIRCLE(r,t),z,14*(z<8)*(z<>4):NEXT
b=1-b
FOR i=0TO 98
IF v(i) THEN
v(i)=v(i)+2
IF v(i)>200 THEN
v(i)=0
ELSE
u(i)=u(i)+d(i):FOR z=0TO 3:CIRCLE (u(i),v(i)),z,13-b*8:NEXT z
IF (u(i)-r)^2+(v(i)-t)^2<40THEN o=1
END IF
END IF
NEXT i
g=g+1:FOR i=0TO 4
y(i)=y(i)+1:IF y(i)>240THEN y(i)=y(i)-400:x(i)=40+260*RND
IF y(i)>-8THEN FOR z=0TO 8STEP .5:CIRCLE(x(i),y(i)),z,12*(z<8)*(z<>4):NEXT
IF (x(i)-r)^2+(y(i)-t)^2<120THEN o=1
IF g=f AND y(i)>10 THEN
k=0:WHILE v(k)AND k<99:k=k+1:WEND
d(k)=SGN(INT((r-x(i))/40))
u(k)=x(i):v(k)=y(i)
END IF
NEXT i
IF g=f THEN g=0
LINE(0,0)-(319,7),0,BF:LOCATE 1,1:PRINT"TOP";h * 100,"SCORE";q*100
IF o THEN SOUND 160,.5:SOUND 37,2:WHILE INKEY$ <> " ":WEND:GOTO 0
_DISPLAY:PUT(0,2),m(),PSET
LOOP UNTIL INKEY$ = CHR$(27)