|
Il parait que HU*BERT, la version Oric de Q.BERT, n'est pas terrible... ( Je ne connais pas l'original. ).Mais peut-être sera-t-elle mieux avec une manette de jeu ? L'état des lieux. Deux fichiers composent ce jeu. HUBERT.COM, module BASIC et HUBERTC.COM, partie en LM, située entre #4E73 et # 652C. La gestion du clavier se fait depuis #5AB5, #5DC5 et #609E. La gestion du clavier. Ici, la gestion du clavier est des plus "rustique". Aucun rapport avec les deux ou trois dernières que nous avons analysées.
LDA$208 CMP#$ XY...
Pas difficile à comprendre, un plaisir à modifier ! La gestion de la barre d'espace, pour passer d'un menu à un autre est assurée dans la partie BASIC du jeu.
 La méthode utilisée. Comme d' habitude, que du classique, donc tout de suite... La marche à suivre. |
1 - HUBERT,N 2 - Modifiez les lignes suivantes à l'aide d' EDIT 191 A$=CHR$(5)+CHR$(13)+"TAPEZ UNE TOUCHE OU 'FEU'":PLOT9,12,A$194 FORF=1TO1000:IFKEY$<>""ORPEEK(#657F)=0THEN200 220 A$=CHR$(3)+"APPUYEZ SUR LA":PLOT11,24,A$:A$=CHR$(3)+ "BARRE D'ESPACE OU FEU" 225 A$=KEY$:CALL#6530 229 IFA$=" "ORPEEK(#657F)=0THEN600 390 E$=CHR$(9)+CHR$(3)+"APPUYEZ SUR UNE TOUCHE OU 'FEU'":PLOT6,22,E$ 391 E$=KEY$:CALL#6530:IFE$=""ANDPEEK(#657F)<>0THEN391 392 PLOT7,22," ":CLS:RETURN 407 A$=CHR$(3)+"BARRE D'ESPACE OU 'FEU'":PLOT11,25,A$ 420 A=PEEK(520):CALL#6530:IFA=56ANDPEEK(#657F)<>0 THEN420 421 IFA=132ORPEEK(#657F)=0THEN200 507 A$=CHR$(3)+"BARRE D'ESPACE OU 'FEU'":PLOT11,25,A$ 520 A=PEEK(520):CALL#6530:IFA=56ANDPEEK(#657F)<>0 THEN520 521 IFA=132ORPEEK(#657F)=0THENSOUND1,0,0:GOTO200 15000 PLOT4,25,CHR$(3)+"BARRE D'ESPACE OU 'FEU'" 15010 A$=KEY$:CALL#6530:IFA$=" "ORPEEK(#657F)=0THEN200 ELSEGOTO15010 3 - SAVEU"HUBERT",AUTO 4 - Entrez le listing suivant 10 A=#6530:F=#6590:L=100:REPEAT:FOR A=A TO A+15:READ C$20 K=VAL("#"+C$):S=S+K+65536*(S+K>65535):IF A<=F THEN POKE A,K 30 NEXT:READ D$:IF S=VAL("#"+D$) THEN L=L+5:UNTIL A>F:END 40 PING:PRINT"Erreur ligne";L 100DATA98,48,8A,48,AD,01,03,48,AD,03,03,48,A9,C0,8D,03,059F 5 - RUN
Et on conserve la possibilité de jouer au clavier ! Voilà, c'est tout pour aujourd'hui. A bientôt... |
