LIVRE : Amstrad Jeux D'Action © Sybex (1984) [COMPLET]

Kukulcan

Livre 96 pages.
ISBN 2-7361-0108-3
49 Francs.
Illustrations : Jean-Francois PENICHOUX
Photos de couverture : Dominique WAECHTER
Auteur : Pierre MONSAUT

Comprends 18 listing de jeux :
01. Alphabet
02. Atterissage
03. Blitz
04. Casse-Briques
05. Chasse Au Canard
06. Crabes
07. D.C.A.
08. Exocet
09. Micropede
10. Numerix
11. Parachute
12. Poursuite
13. Ramasse-Miettes
14. Robots
15. Slalom
16. Squash
17. Tank
18. Trace

Kukulcan

J'ai le bouquin a la maison, et je continue a taper les listings.
J'en profite pour ajouter un écran titre pour chaque jeu d'après les illustrations du bouquin.

hERMOL

argg t'as un sacré courage !! :JC_doubleup:

MacDeath26

C'est pas possible un scan avec un logiciel de reconnaissance d'écriture ???
ça existe sur PC.

Kukulcan

MacDeath26 a écrit :

C'est pas possible un scan avec un logiciel de reconnaissance d'écriture ???
ça existe sur PC.

Oui c'est possible, mais j'ai un tas d'annerie. Qui m'oblige a revoir le listing.

Tiens par exemple voici l'OCR de Robots (Sybex) l'un des listings que je dois modifier.
Comme tu peux le remarquer y'a quelques soucis avec les
8 et B
* et f
<>
: et ;
O et 0
les = aussi, quelques parenthéses...
Sur d'autres listing j'ai eu des LOTO au lieu de GOTO, etc...

Code :

REM ffffffffff 20 REM f ROBOTS f 30 REM #fffffff** 40 DEFINT A-I 50 OIM 18(40,251 60 NH=5
N I=5 80 NM=40 90 NR=N1
DIM R(30,1)
GOSUB 1610 120 GOSUB 1470 130 GOSUB 890
ON JS GOSUB 690,790 150 FOR I=1 TO 100 160 NEXT I
C=TB(HX,HY)
IF COH AND C(>0 THEN 490 190 PEN 1
LOCATE X,Y
PRINT N$;;TB(X,Y)=O 220 LOCATE HX,HY
PRINT Ht;;TB(HX,HY)=H 240 X=HX
Y=HY 260 T=0
FOR I=1 TO NR
IF R(I,0)=O THEN 420 290 T=1
RX=R(I,0)+SGN(HX-R(I,0)) 310 RY=R(I,1)+SGN(HY-R(I,l)) 320 C=TB(RX,RY)
IF C=M OR C=R THEN S=S+1;LOCATE R(I,0),R(I,1);PRINT N$;;
TB(R(I,0),R(I,11)=O;R(1,0)=O;GOTO 420 340 IF C=H THEN 490 350 PEN 3
LOCATE R(I,0),R(I,l)
PRINT Nt;;TB(R(I,O),R(I,1))=0 380 LOCATE RX,RY 390 PRINT RS;;TB(RX,RY)=R 400 R(1,0)=RX
R(1,1)=RY 420 NEXT I
IF T=0 THEN 450 440 LOTO 140 450 S=S+10
IF INKEY$(>'n THEN 460 470 IF NR(30 THEN NR=NR+1 480 80TO 130
NH=NH-1 500 PEN 2
LOCATE X,Y
PRINT Nt;;TB(X,Y)=0 530 LOCATE HX,HV
PRINT H$;;TB(HX,HY)=H 550 IF INKEY8(>" THEN 550
IF NH>0 THEN NR=N1;GOTO 130 570 CLS
LOCATE 10,11
PRINT "SCORE ;";S; 600 LOCATE 10,21 610 PRINT "UNE AUTRE 620 PEN 1
IF INKEY$O>" THEN 630 640 D$=INKEY$ 650 IF D$="" THEN 640
IF D$(>"N" AND D$(>"n" THEN RUN 670 CLS
END
D$=INKEY$
IF D$="9" THEN HX=HX-1;HY=HY-1 710 IF D$="N" THEN HY=HY-1 720 IF D$="E" THEN HY=HY-I;HX=HX+1 730 IF D$-'A' THEN HX=HX-1 740 IF D$="D" THEN HX=HX+1
IF D$="2" THEN HX=HX-I;HY=HY+1 760 IF Dt="X" THEN HY=HY+1 770 1F D$-'C" THEN HY=HY+I;HX=HX+1 780 RETURN
J=JOY(0)
1F J=5 THEN HX=HX-I;HY=HY-1 810 IF J=1 THEN HY=HY-1
IF J=9 THEN HY=HY-I;HX=HX+1 830 IF J=4 THEN HX=HX-1 840 IF J=8 THEN HX=HX+1 850 IF J=6 THEN HX=HX-I;HY=HY+1 860 IF J=2 THEN HY=HY+1
IF J=10 THEN HY=HY+I;HX=HX+1 880 RETURN
CLS 900 PEN 1
LOCATE 1,25
PRINT "SCORE ;";S;
IF NHs1 THEN 980
FOR HX=1 TO NH-1 950 LOCATE 20+HX,25 960 PRINT H$; 970 NEXT HX 980 PEN 2
ERASE TB
D1M TB(40,25) 1010 FOR HX=1 TO 40 1020 LOCATE HX,1
PRINT M$I:TB(HX,1)=M 1040 LOCATE HX,24
PRINT M$;:TB(HX,24)aM 1060 NEXT HX
FOR HY=2 TO 23 1080 LOCATE 1,HY
PRINT M$;:TB(1,HY)=M 1100 LOCATE 40,HY
PRINT M$;:TB(40,HY)aM 1120 NEXT HY
FOR lai TD NM
HX=INT(RND(1)*38)+2 1150 HY=1NT(RND(1)+22)+2
IF TB(HX,HY)OO THEN 1140 1170 LOCATE HX,HY 1180 PRINT M$;:TB(HX,HY)=M 1190 NEXT I
PEN 2
FOR I=1 TO NR
R(1,0)=INT(RND(1)+38)+2 1230 R(l,1)=INT(RND(1)+22)+2
IF TB(R(1,0),R(1,1))(i0 THEN 1220 1250 LOCATE R(I,0),R(I,1) 1260 PRINT R$;:TB(R(1,0),R(I,1))=R 1270 NEIT I
HX=INT(RND(1)+38)+2 1290 HY=INT(RND(1)*22)+2
IF TB(HX,HY)(i0 THEN 1280 1310 X=HX
320 YaHY
FOR Ia1 TD 5 1340 LOCATE HX,HY
PEN 3
PRINT CHR$(143); 1370 PRINT CHR$17)1 1380 FOR J=1 TD 50 1390 NEXT J 1400 LOCATE HX,HY 1410 PEN 1
PRINT H$;:TB(HX,HY)=H 1430 FOR Jal TO 50 1440 NEXT J
NEXT I 1460 RETURN 1470 CLS 1480 MODE 1 1490 INK 0,1 1500 INK 1,25 1510 INK 2,23 1520 INK 3,16 1530 BORDER 22 1540 LOCATE 11,11
PRINT "JOY8TICK ?"; 1560 D$=INKEY$ 1570 C=RND (1) 1580 IF D$=»' THEN 1560
159% IF D$="O" OR DS="o" THEN JS=2 ELSE JS=1 1600 RETURN
SYMBOL 240,26,28,73,62,8, 28, 20, 20
SYMBOL 241,60,126,219,255,255,126,36,60 1630 SYMBOL 242,0,0,24,60,126,126,60,24 1640 H$=CHR$(240)
H=240
R$=CHR$(241) 1670 R=241
M$=CHR$(242) 1690 M=242 1700 N$:CHR$(32) 1710 RETURN

markerror · **Inscription :** 04 Sep 2007, 19:43 **Message(s) :** 702

Bonjour,

Pour vous faire profiter de mon expérience, le seul cas de figure où l'OCR représente vraiment un gain de temps, ce sont les longs listings de DATAS binaires avec des codes de contrôle sur chaque ligne. Pour un listing Basic, il y a trop de problèmes d'erreurs sur certains caractères qui sont franchement chiantes à trouver et corriger. Au final, on passe presque plus de temps à essayer de corriger le listing que si on l'avait tapé à la main...

T&J/GPA

Kukulcan

Bon voilà j'ai corrigé le listing de Robots et j'ai rajouté un écran titre.

Sinon markerror suis bien d'accord avec toi pour les petits listing

coconut · **Inscription :** 15 Juin 2009, 09:00 **Message(s) :** 190

j'ai pas essayé sur des datas de code asm .C'est vrai qu'au final , on perd pas mal de temps sur le basic ....Un peu déçu ....Bon , le puissance 4 je sens que je vais le taper à la main .....

Kukulcan

coconut a écrit :

j'ai pas essayé sur des datas de code asm .C'est vrai qu'au final , on perd pas mal de temps sur le basic ....Un peu déçu ....Bon , le puissance 4 je sens que je vais le taper à la main .....

A part les mains, tu pensé a autre chose ? moi j'ai pas encore essayé avec les doigt de pied.
Pour le Puissance 4, c'est celui de A100% que tu cherches ?

coconut · **Inscription :** 15 Juin 2009, 09:00 **Message(s) :** 190

lol , ouais c'est celui de amstrad cent pour cent ...

Kukulcan

On a pas mal de puissance 4, mais pas celui là

désolés

coconut · **Inscription :** 15 Juin 2009, 09:00 **Message(s) :** 190

C'est bien pour cela que je vais apporter ma modeste contribution à la base de données ...

Kukulcan

coconut a écrit :

C'est bien pour cela que je vais apporter ma modeste contribution à la base de données ...

Mais il n'y aucune question a se poser te concernant mon brave "Coconut", toi tu aides et tu participes.
Si tout le monde participez comme toi et bien la BDD se remplirai beaucoup plus vite.
En tout cas un grand merci pour ton aide. :kissed:

Kukulcan

Bon avec les +3 d'aujourd'hui (D.C.A., Numerix, Parachute) on arrive a un total de 14/18

Kukulcan

Bon il en manque plus que 2

Juste pour le plaisir l'un des 2 derniers écran titre que j'ai ajouté :

LIVRE : Amstrad Jeux D'Action © Sybex (1984) [COMPLET]

Qui est en ligne ?