presque youpi

leretour/apple2/fr/engine.s

@@ -12,6 +12,21 @@
 * LES PRIMITIVES 8-BITS EN 16-BITS
 *-----------------------------------
 
+	mx	%11
+	
+printNIVEAU	ora	#'0'
+	sta	strNIVEAU+9
+	
+	rep	#$30
+	PushLong	#strNIVEAU
+	_DrawCString
+	sep	#$30
+	rts
+
+*-----------------------------------
+
+	mx	%00
+	
 HGR	rep	#$30
 	PushWord	#0
 	_ClearScreen
@@ -183,6 +198,29 @@ TABV	rep	#$30
 	sep	#$30
 	rts
 
+*-----------------------------------
+
+	mx	%11
+
+GOTOXY	stx	textX
+	sty	textY
+	lda	#0
+	sta	textX+1
+	sta	textY+1
+	rts
+
+*-----------------------------------
+
+	mx	%11
+	
+COUTXY	pea	^COUTXY
+	phx
+	phy
+	rep	#$30
+	_DrawString
+	sep	#$30
+	rts
+
 *-----------------------------------
 
 	mx	%11
@@ -323,7 +361,8 @@ text2shr	dw	9,19,29,39,49,59,69,79,89,99
 
 	mx	%11
 	
-WAIT	pha
+WAIT	rts		; LOGO
+	pha
 ]lp	ldal	RDVBLBAR
 	bmi	]lp
 ]lp	ldal	RDVBLBAR
@@ -391,14 +430,12 @@ L9552       INY		; on a trouv
 
             LDX	#0	; sinon, on recopie until FF
 L957F       LDA	(dpFROM),Y
-            STA	E$+1,X
+            STA	BFE0,X
             INY	
             INX	
             CMP	#-1
             BNE	L957F
-	dex		; save len
-	stx	E$
-            rts
+	RTS
 
 *-- A - 
 
@@ -487,8 +524,15 @@ L95F0	lda	(dpFROM)	; until the end
 L95F1	lda	(dpFROM)	; on a parcouru
 	beq	L9619	; le tableau, on sort
 	jmp	L953B
-L9619       sta	E$	; on n'a rien trouvŽ
-	rts
+
+L9619       LDA	#$00
+	STA	BFF0
+	RTS
+
+*--- data
+
+BFE0	ds	16
+BFF0	ds	16
 
 *-----------------------------------
 * AFFICHE UNE IMAGE

leretour/apple2/fr/fr.s

@@ -34,7 +34,7 @@ strILFAITNOIR
 
 strVOSYEUX	asc	'Vos yeux ne voient plus rien.'0D00
 
-strNIVEAU	asc	'NIVEAU : 0'00
+strNIVEAU	asc	'NIVEAU : 0'00	; +9 pour le niveau
 
 strILYA	asc	0D'Il y a aussi :'00
 strCOMMA	asc	','00
@@ -605,14 +605,14 @@ M$53	dfb	2,29,0
 * Les mots de passe
 *
 
-tblMP$	da	$bfff
-	da	MP$1,MP$2,MP$3,MP$4,MP$5
+tblMP$	da	MP$1,MP$2,MP$3,MP$4,MP$5
 
-MP$1	str	'ORIC1'
-MP$2	str	'ATMOS'
-MP$3	str	'GENIS'
-MP$4	str	'ECHEC'
-MP$5	str	'ARGON'
+MP$	ds	6	; le mot de passe ˆ trouver (5 + 00)
+MP$1	asc	'ORIC1'
+MP$2	asc	'ATMOS'
+MP$3	asc	'GENIS'
+MP$4	asc	'ECHEC'
+MP$5	asc	'ARGON'
 
 *
 * Le vocabulaire
@@ -878,10 +878,18 @@ str4510	asc	'Les boutons ne fonctionnent pas car l'27'ordinateur central les con
 str4520	asc	'Le systeme automatique est deregle, il met du gaz carbonique a la place de l'27'oxygene.'00
 str4530	asc	'Vous respirez un grand coup.'00
 str4540	asc	'Que voulez-vous respirer, il n'27'y a plus d'27'oxygene.'00
+
 str4550	asc	'Vous avez deux essais pour'00
 str4552	asc	'entrer le mot de passe.'00
+str4553	asc	'FAUX!'00
+str4554	asc	'Encore rate. L'27'ordinateur vous explose a la figure.'00
+str4556	asc	'Mot de passe '00
 str4558	asc	'Exact, vous etes perspicace!'00
-str4559	asc	'UIN LOI QRU ILD ESP ECU TAS ASU VIE RAL HOU MEA'00
+str4559_1	asc	'UIN LOI QRU ILD ESP ECU TAS'00
+str4559_2	asc	'ASU VIE RAL HOU MEA NOI THE'00
+str4559_3	asc	'Le mot de passe pour le'00
+str4559_4	asc	'retour est : '00
+
 str4560	asc	'C'27'est d'27'accord.'00
 str4570	asc	'Il etait temps, vous alliez mourir.'00
 str4580	asc	'Vous mourrez deshydrate.'00
@@ -895,8 +903,6 @@ str4620	asc	'La soucoupe a explose au decollage.'00
 str4630	asc	'Energie restante :'00
 str4640	asc	'Petit drole...Le chronometre est affiche en permanence'00
 str4650	asc	'Le temps que vous aviez pour votre mission est ecoule, vous avez echoue.'00
-str4655	asc	' NOI THE'00	; LOGO
-str4656	asc	'Le mot de passe pour le retour est : '00	; MP$
 str4660	asc	'Votre trajectoire est bonne, pourquoi la corriger ?'00
 str4670	asc	'Le mur au nord coulisse, vous avancez dans cette salle.'00
 str4680	asc	'Quel livre ?'00
@@ -929,7 +935,7 @@ str4900	asc	'Sur le laser, vous voyez trois boutons : jaune, rouge et bleu.'00
 str4910	asc	'Vous etes entre dans le desintegrateur de particules...'00
 str4920	asc	'Vous etes entre dans le vaisseau par le sas a l'27'ouest qui ne s'27'ouvre pas de l'27'interieur.'00
 
-str5500	asc	'Etes-vous sur (O/N) ?'00
+str5500	asc	0d'Etes-vous sur (O/N) ?'00
 
 str16000	asc	'vaisseau de poche fonce sur le soleil, '00
 str16010	asc	'Vous venez de realiser que Genius'00

leretour/oric/retour.bas

@@ -49,11 +49,11 @@ fgTIME	500 POKE #4BF,0
 	505 SA=PEEK(#BFFF):IF SA<>51 AND SA<>48 AND SA<>22 AND SA<>4 AND SA<>17 THEN 3500
 C,3	510 A=PEEK(#4A3):POKE #4A3,A-1:IF A=1 THEN 4820
 	520 GOTO 3500
-$269	530 POKE #4BF,1:IF PEEK(617)<>0 THEN PRINT 				; CURS_X in the ORIC firmware
+$269	530 POKE #4BF,1:IF PEEK(617)<>0 THEN PRINT 		; CURS_X in the ORIC firmware
 	531 X$=KEY$:K=S(1)/5:IF K<.5 THEN K=.5
 >0 & <9	532 FOR N=#BFB3 TO #BFB7:IF PEEK(N)<58 AND PEEK(N)>47 THEN POKE N,32
 : -> ' '	533 NEXT:IF PEEK(#BFB5)=58 THEN POKE #BFB5,32
-	552 PRINT CHR$(27)"P"CHR$(27)"FOrdre:"CHR$(27)"C";:X$=""			; the ESCape character
+	552 PRINT CHR$(27)"P"CHR$(27)"FOrdre:"CHR$(27)"C";:X$=""	; the ESCape character
 	553 A$=KEY$:CH=CH-K:WW=WW-K:IF A$=CHR$(13) THEN 579
 	554 IF A$<>"" THEN AA=ASC(A$) ELSE AA=33
 	555 IF AA<32 THEN 553
@@ -110,19 +110,19 @@ O+G	1820 IF PEEK(#4C0+G)=255 THEN 1840
 	1865 IF G<O THEN 1810
 	1870 IF HH=1 THEN PRINT ".":RETURN 
 	1880 PRINT "Vous ne devez pas etre fatigue,vous n'avez rien sur vous":WAIT 33:RETURN 
-O+N	1900 IF PEEK(#4C0+N)<>255 THEN 1960
+O+N	1900 IF PEEK(#4C0+N)<>255 THEN 1960	== B ==
 fgTIME	1940 POKE #4BF,0:CLS:PRINT CHR$(27)"R"CHR$(27)"@Vous avez deja cela...etourdi!"
 	1950 WAIT 150:BR=500:RETURN 
 	1960 POKE #4C0+N,255:S(1)=S(1)+1:RETURN 
-O+N	2000 IF PEEK(#4C0+N)=255 THEN 2030
+O+N	2000 IF PEEK(#4C0+N)=255 THEN 2030	== C ==
 fgTIME	2010 POKE #4BF,0:CLS:PRINT CHR$(27)"T Je ne savais pas qu'on pouvait poser"
 	2020 PRINT CHR$(27)"T ce qu'on ne possede pas..."
 	2025 BR=500:RETURN 
 SALLE, O+N	2030 SA=PEEK(#BFFF):POKE #4C0+N,SA:S(1)=S(1)-1:RETURN 
-fgTIME	2100 POKE #4BF,0:CLS:GOSUB 4000+N*10:WAIT 200:RETURN 
-P+N	2200 POKE #480+N,1:RETURN 
-P+N	2300 POKE #480+N,0:RETURN 
-	2400 C=VAL(MID$(E$,E+3,2)):E=E+2:POKE #4A0+N,C:RETURN 
+fgTIME	2100 POKE #4BF,0:CLS:GOSUB 4000+N*10:WAIT 200:RETURN	== D ==
+P+N	2200 POKE #480+N,1:RETURN	== E ==
+P+N	2300 POKE #480+N,0:RETURN	== F ==
+	2400 C=VAL(MID$(E$,E+3,2)):E=E+2:POKE #4A0+N,C:RETURN	== G ==
 O+N	2500 POKE #4C0+N,0:RETURN 
 SALLE	2600 POKE #BFFF,N:RETURN 
 	2700 PRINT "D'ACCORD"
@@ -143,10 +143,10 @@ C+8	3514 IF PEEK(#4A8)=0 THEN 4740
 C+1	3516 IF PEEK(#4A1)=0 THEN 3534
 C+1	3518 A=PEEK(#4A1)-1:POKE #4A1,A
 	3520 IF A>0 THEN 3534
-C+3	3522 IF PEEK(#4C3)=255 THEN 4750
-C+3	3524 IF PEEK(#4C3)<>51 THEN 4760
+O+3	3522 IF PEEK(#4C3)=255 THEN 4750
+O+3	3524 IF PEEK(#4C3)<>51 THEN 4760
 	3526 A=PEEK(#BFFF):IF A=51 THEN 4750
-C+4	3528 IF PEEK(#4C4)<>51 AND PEEK(#4D3)<>51 THEN 4780
+O+4	3528 IF PEEK(#4C4)<>51 AND PEEK(#4D3)<>51 THEN 4780
 	3530 IF A=46 OR A=49 THEN 4770
 P+$C, P+$10	3532 POKE #48C,0:GOSUB 4790:POKE #490,1:GOTO 3540
 P+$E	3534 IF PEEK(#48E)=0 THEN 3537
@@ -235,8 +235,14 @@ SALLE	4260 POKE #BFFF,57:HIRES:INK 0:CALL #9292:POKE #BFFF,44:RETURN
 	4554 INPUT "Mot de passe ";MO$:IF MO$="MANOIR" THEN 4558
 	4556 PRINT "Encore rate.L'ordinateur vous";:EXPLODE:PRINT "  explosea la figure."
 	4557 WAIT 100:GOTO 18E3
+
 	4558 A$="Exact,vous etes perspicace!":X=43:Y=42:GOSUB 3E4:A$="UIN LOI QRU ILD "
 	4559 A$=A$+"ESP ECU TAS":X=43:Y=56:GOSUB 3E4:A$="ASU VIE RAL HOU MEA":GOTO 4655
+
+	4655 A$=A$+" NOI THE":X=43:Y=67:GOSUB 3E4
+	4656 A$="Le mot de passe pour le":X=43:Y=80:GOSUB 3E4:A$="retour est : "+MP$
+	4657 X=43:Y=88:GOSUB 3E4:RETURN 
+
 	4560 PRINT "C'est d'accord.":RETURN 
 	4570 PRINT "Il etait temps,vous alliez mourir.":RETURN 
 	4580 PRINT "Vous mourrez deshydrate.":RETURN