presque youpi
This commit is contained in:
Antoine Vignau
parent
c4443995ce
commit
0fc6bdb5fa
Binary file not shown.
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue