La Place des Développeurs DEUXLIGNES HEBDOGICIEL
J'essaie de mettre celle du n° 104. Si quelqu'un peut tester, je n'ai pas d'émulateur ici 
Code TEXT :
1 SPRITEON : IF K=2THENR=2 :B=2*SGN(X-Z-4) :RETURN ELSEIFK=0THENCOLOR4,0 ;0 :SCREEN2,1:DEFINTA-Z:J=186:X=140:Y=80:VPOKE14336,128:VPOKE14344,248:LINE(80,40)-(183,61),7,BF:LINE(78,7)-(184,J),2,B:LINE(Y,8)-(183,110),1,BF:R=2:B=2:Z=X:ONSPRITEGOSUB1ELSEIFL>5THENRUN 2 K=2:S=STICK(0):Z=Z+2*(S=3)*(Z<174)-2*(S=7)*(Z>80):PUTSPRITE1,(Z,161):Y=Y+R:X=X+B:PUTSPRITE0,(X,Y),11:P=POINT(X,Y):IFP=0THEN2ELSEIFP=7THENR=-R:A=(X4)*4:LINE(A,Y)-(A+3,Y+1),0,B:GOTO2ELSEIFP=1THENR=2:GOTO2ELSEIFY>180THENL=L+1:Y=80:K=1:GOTO1ELSEB=-B:GOTO2
Si vous êtes sages patients, je peux tout recopier et créer un DSK avec l'intégralité des listings. Enfin là je suis un peu débordé au taf, je ferai au mieux. 
MSX un jour, MSX toujours !
Salut a tous
content de voir que ca interresse du monde
Utiliser de l'OCR pour 2 lignes de codes je pense pas que ca soit trop utile
Je pense que c'est plus rapide de les taper en reel
Si vous voulez je pourrais faire une compil sur DSK de ces 2lignes quand j'aurai plus de temps
J'ai vu que granced s'est porté volontaire.....
A+
content de voir que ca interresse du monde
Utiliser de l'OCR pour 2 lignes de codes je pense pas que ca soit trop utile
Je pense que c'est plus rapide de les taper en reel
Si vous voulez je pourrais faire une compil sur DSK de ces 2lignes quand j'aurai plus de temps
J'ai vu que granced s'est porté volontaire.....
A+
J'ai repris les petites erreurs du listing de Franck, c'est vrai que ce listing (N°104) malgré quelques bugs est assez impressionnant
Code BASIC :
1 SPRITEON:IFK=2THENR=-2:B=2*SGN(X-Z-4):RETURNELSEIFK=0THENCOLOR4,0,0:SCREEN2,1:DEFINTA-Z:J=186:X=140:Y=80:VPOKE14336,128:VPOKE14344,248:LINE(80,40)-(183,61),7,BF:LINE(78,7)-(184,J),2,B:LINE(Y,8)-(183,10),1,BF:R=2:B=2:Z=X:ONSPRITEGOSUB1ELSEIFL>5THENRUN 2 K=2:S=STICK(0):Z=Z+2*(S=3)*(Z<174)-2*(S=7)*(Z>80):PUTSPRITE1,(Z,161):Y=Y+R:X=X+B:PUTSPRITE0,(X,Y),11:P=POINT(X,Y):IFP=0THEN2ELSEIFP=7THENR=-R:A=(X4)*4:LINE(A,Y)-(A+3,Y+1),0,B:GOTO2ELSEIFP=1THENR=2:GOTO2ELSEIFY>180THENL=L+1:Y=80:K=1:GOTO1ELSEB=-B:GOTO2
Le MSXien le plus à l'ouest
... ou presque 
Et de deux, là il s'agit de course de voiture. Hebdogiciel N°136.
Code BASIC :
1ifc=0thenkeyoff:restore:color15,1:screen1:vpoke197,49:s=0:x=17:c=10:r=15:a$="":fori=1to7:reada:a$=a$+chr$(a):next:sprite$(1)=a$:data189,231,165,24,90,126,90,24:locate0,23:play"o3c":elser=int(1+rnd(1)*19):ifbthenfori=0to700:next:c=0:b=0:goto1 2s=s+1:c=c-(c<r)+(c>r):a=stick(0):x=x-(a=3)+(a=7):putsprite1,(x*8-2,31),7,1:m=rnd(1)*9:printstring$(c,"*");spc(m);"°";spc(9-M);string$(19-c,"*"):ifvpeek(6272+x)<>32thenvpoke8197,145:fori=1tos:locatex-2,4:beep:printi:next:b=1:goto1:elseifc=rthen1else2
Le MSXien le plus à l'ouest
... ou presque
Et de trois, encore une course de voiture. Hebdogiciel N°124.
Code BASIC :
1 X=125:IFL=0THENSCREEN3:LINE(110,0)-(140,192),14,BF:FORJ=0TO7:READQ:A$=A$+CHR$(Q):NEXTJ:FORI=1TO2:SPRITE$(I)=A$:NEXTI:SPRITEON:DATA42,62,42,8,93,127,85,0:ONSPRITEGOSUB1ELSESCREEN0:LOCATE5,10:PRINT"FIN.SCORE:",SC:PLAY"l64gbabc":FORI=1TO1000:NEXT:RUN 2 SOUND10,15:IFL=0THENG=109:V=2:L=1:GOTO2ELSEA=STICK(0):X=X-(A=3ANDX<133)+(A=7ANDX>109):PUTSPRITE1,(X,170),8,1:IFY=0ORY>256THENY=1:SC=SC+5:F=(RND(1)*5)+2:Y=Y+F:GOTO2ELSEY=Y+F:PUTSPRITE2,(G,Y),F+1,1:G=G+V:IFG<109ORG>133THENV=-V:GOTO2ELSEGOTO2
Le MSXien le plus à l'ouest
... ou presque
Voili voilou, j'ai mis l'ensemble des listings sur un dsk que je joins.
Par contre, je n'ai pas eu le temps de tout tester, je ne garantis donc pas le bon fonctionnement de tous les listings. Comme tout est bien collé, et que parfois ça pique un peu aux yeux, je ne suis pas à l'abri d'une erreur de DATA ou de POKE !
Voici donc : 2lignes.zip
Par contre, je n'ai pas eu le temps de tout tester, je ne garantis donc pas le bon fonctionnement de tous les listings. Comme tout est bien collé, et que parfois ça pique un peu aux yeux, je ne suis pas à l'abri d'une erreur de DATA ou de POKE !
Voici donc : 2lignes.zip
MSX un jour, MSX toujours !
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie