Re: *** LES DEUXKILOS *** Saison 2016

[drfloyd]

Allez, ce topic n'est peut etre pas mort, cet été quelqu'un va peut etre nous pondre un 2kilo sur son temps libre de vacances ?

[Vorador]

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

[drfloyd]

Je rappelle que si vous vous avez ecrit un prog basic de 2kilo maxi, vous pouvez le présenter dans ce topic.

Gros succes en 2015 ce sujet, moins cette année, ça reviendra peut etre ?

[Urbinou]

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

Ce n'est pas une excuse, lance-toi !
Moi ça devait bien faire plus de 25 ans que je n'avais pas fait de basic, et jamais touché à Blitz3D.
Facile à installer, et rapide à prendre en main, allez zou au boulot !

[drfloyd]

Si tu as les bases du basic ancestral (le vrai, celui des années 80), se mettre à BLIT3D c'est de la rigolade, c'est le basic le plus simple qui soit (et en meme temps assez puissant pour faire n'importe quel jeu neoretro 2D)

[Invité]

... Et en plus, c'est un excellent moyen de se remettre au codage de manière douce !
Je pense que je vais m'y remettre !

[drfloyd]

On aura eu en tout cas une année 2015 exceptionnelle pour les 2kilos.

Ca reviendra peut etre

[vingazole]

Mando, un petit jeu en 2007 octets fait avec QB 64 (aucun lien avec Disney, c'est juste que le décor est un fragment de l'ensemble de Mandelbrot) :



Le source :

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)


L'exécutable : https://drive.google.com/open?id=1PUenFXzxvtV1j0n8ZMFNoRqh9e4CnaUF

[drfloyd]

ca, c'est de la remontada de topic !!

Toujours étonnant Mandelbrot, je fais toujours le lien avec la façon dont s'est peut être créé l'univers.