mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-15 00:29:33 +00:00
done
This commit is contained in:
parent
920e14ba30
commit
4dccfa2997
Binary file not shown.
|
@ -863,7 +863,7 @@ strEVIDENT
|
||||||
asc "PAS PORTER TANT DE CHOSES !!"00
|
asc "PAS PORTER TANT DE CHOSES !!"00
|
||||||
strVOUSLAVEZ
|
strVOUSLAVEZ
|
||||||
asc 8D"VOUS L"A7"AVEZ DEJA. VOUS ETES ETOURDI"8D
|
asc 8D"VOUS L"A7"AVEZ DEJA. VOUS ETES ETOURDI"8D
|
||||||
asc "ET DANS CETTE MAISON, CE N'EST PAS"00
|
asc "ET DANS CETTE MAISON, CE N"A7"EST PAS"00
|
||||||
strCONSEILLE
|
strCONSEILLE
|
||||||
asc "TRES CONSEILLE"00
|
asc "TRES CONSEILLE"00
|
||||||
|
|
||||||
|
@ -1093,7 +1093,7 @@ str4030 asc "VOUS AVEZ TREBUCHE DANS L"A7"ESCALIER, VOUS"
|
||||||
@wait #300
|
@wait #300
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str4040 asc "VOUS RENVERSEZ L'EAU DANS L'ESCALIER,"8D
|
str4040 asc "VOUS RENVERSEZ L"A7"EAU DANS L"A7"ESCALIER,"8D
|
||||||
asc "CE QUI PROVOQUE UNE DECHARGE DE LA"00
|
asc "CE QUI PROVOQUE UNE DECHARGE DE LA"00
|
||||||
str4042 asc 8D"PRISE ELECTRIQUE"00
|
str4042 asc 8D"PRISE ELECTRIQUE"00
|
||||||
|
|
||||||
|
@ -1143,7 +1143,7 @@ str4080 asc "VOUS MOUREZ EMPALE SUR DES LANCES"8D
|
||||||
@wait #300
|
@wait #300
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str4090 asc "LA PORTE NE S'OUVRE PAS DE CETTE PIECE"00
|
str4090 asc "LA PORTE NE S"A7"OUVRE PAS DE CETTE PIECE"00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
@ -1201,10 +1201,20 @@ str4140 asc "VOUS AVEZ RAISON D"A7"ATTENDRE, MAIS CELA"
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4150
|
:4150 @print #str4150
|
||||||
|
@wait #400
|
||||||
|
@print #str4152
|
||||||
|
@wait #500
|
||||||
|
@print #str4156
|
||||||
|
@wait #200
|
||||||
|
rts
|
||||||
|
|
||||||
* "0123456789012345678901234567890123456789"
|
str4150 asc "VOUS AVEZ DE LA CHANCE CAR CE COFFRE"8D
|
||||||
str4150 asc ""00
|
asc "ETAIT OUVERT."00
|
||||||
|
str4152 asc 8D"UN MESSAGE A L"A7"INTERIEUR DIT : NE"8D
|
||||||
|
asc "RESPECTEZ PAS LES COULEURS DU CODE DE LA"8D
|
||||||
|
asc "ROUTE...?"00
|
||||||
|
str4156 asc "TIENS LE COFFRE SE REFERME"00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
@ -1234,7 +1244,7 @@ str4170 asc "VOUS N"A7"AVEZ RIEN POUR TRANSPORTER LE"8D
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str4180 asc "LE BRIQUET QUE VOUS AVIEZ LAISSE ALLUME"8D
|
str4180 asc "LE BRIQUET QUE VOUS AVIEZ LAISSE ALLUME"8D
|
||||||
asc "VIENT D'EXPLOSER"00
|
asc "VIENT D"A7"EXPLOSER"00
|
||||||
str4185 asc 8D"CA TUE L"A7"ETOURDIE..."00
|
str4185 asc 8D"CA TUE L"A7"ETOURDIE..."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
@ -1259,39 +1269,87 @@ str4200 asc "L"A7"EAU COULE..."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4210
|
:4210 @print #str4210
|
||||||
|
@wait #400
|
||||||
|
@print #str4215
|
||||||
|
@wait #300
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4210 asc "VOUS AVEZ LES PIEDS TREMPES ET CELA VOUS"
|
||||||
|
asc "REND TRES MALADE..."00
|
||||||
|
str4215 asc 8D"VOUS MOUREZ D"A7"UNE TRIPLE PNEUMONIE...!"00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4220
|
:4220 @print #str4220
|
||||||
|
@wait #200
|
||||||
|
@print #str4225
|
||||||
|
@wait #300
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4220 asc "LE TITRE EST : "00
|
||||||
|
str4225 asc 8D"LA MORT A LA PREMIERE PAGE."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4230
|
:4230 @explode
|
||||||
|
@print #str4230
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4230 asc "LE LIVRE A EXPLOSE LORSQUE VOUS L"A7"AVEZ"8D
|
||||||
|
asc "OUVERT..."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4240
|
:4240 @print #str4240
|
||||||
|
@wait #300
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4240 asc "LE PAPIER INDIQUE : CHERCHEZ LA CLEF."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4250
|
:4250 @print #str4250
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4250 asc "LA CLEF VOUS PERMETTRA DE TROUVER LE"8D
|
||||||
|
asc "CODE DE LA PORTE D"A7"ENTREE."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4260
|
:4260 @print #str4260
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4260 asc "IL Y A, A COTE DE LA PORTE, UN CLAVIER"8D
|
||||||
|
asc "NUMERIQUE PERMETTANT D"A7"ENTRER UN CODE"00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4270
|
:4270 @print #str4270
|
||||||
|
@wait #200
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4270 asc "POUR FAIRE QUOI...?"00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4280
|
:4280 @print #str4280
|
||||||
|
@wait #300
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4280 asc "IL Y A UNE ODEUR DE GAZ."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4290
|
:4290 @print #str4290
|
||||||
|
@wait #300
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4290 asc "APPAREMMENT, IL N"A7"Y A AUCUNE ODEUR"8D
|
||||||
|
asc "MAIS..."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
@ -1478,45 +1536,112 @@ str4490 asc "LE TELEPORTEUR SE MET EN MARCHE, VOUS"8D
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:4500
|
:4500 @print #str4500
|
||||||
|
@wait #300
|
||||||
*--------
|
|
||||||
|
|
||||||
:4510
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4520
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4530
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4540
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4550
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4560
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4570
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4580
|
|
||||||
|
|
||||||
*--------
|
|
||||||
|
|
||||||
:4590
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
str4500 asc "VOUS PRENEZ DU 30000 VOLTS DANS LES"8D
|
||||||
|
asc "DOIGTS"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4510 @print #str4510
|
||||||
|
@wait #150
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4510 asc "LE PLACARD EST FERME A CLEF"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4520 @print #str4520
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4520 asc "L"A7"HORRIBLE MONSTRE SORTI DU PLACARD"8D
|
||||||
|
asc "VIENT DE VOUS DEVORER"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4530 @print #str4530
|
||||||
|
@wait #200
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4530 asc "IL NE FALLAIT PAS FUIR"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4540 @print #str4540
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4540 asc "VOUS AVEZ RAISON D"A7"UTILISER LE CISEAU,"8D
|
||||||
|
asc "LE MONSTRE EST MORT"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4550 @print #str4550
|
||||||
|
@print #PL
|
||||||
|
@print #str4552
|
||||||
|
@wait #300
|
||||||
|
@print #str4555
|
||||||
|
@wait #150
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4550 asc "A L"A7"INTERIEUR DU PLACARD, LE NO "00
|
||||||
|
str4552 asc 8D" EST INSCRIT"00
|
||||||
|
str4555 asc 8D"LE PLACARD SE REFERME."00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4560 @explode
|
||||||
|
@print #str4560
|
||||||
|
@wait #200
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4560 asc "LE PISTOLET A EXPLOSE"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4570 @explode
|
||||||
|
@print #str4570
|
||||||
|
@wait #250
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4570 asc "LE CLAVIER NUMERIQUE A EXPLOSE"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4580 @print #str4580
|
||||||
|
@wait #300
|
||||||
|
@print #str4582
|
||||||
|
@wait #100
|
||||||
|
@print #str4585
|
||||||
|
@wait #400
|
||||||
|
rts
|
||||||
|
|
||||||
|
str4580 asc "LE CLAVIER NUMERIQUE PREND FEU,"8D
|
||||||
|
asc "HEUREUSEMENT, VOUS AVIEZ "00
|
||||||
|
str4582 asc "UN POT PLEIN"00
|
||||||
|
str4585 asc 8D"D"A7"EAU QUI VOUS PERMET D"A7"ETEINDRE LE FEU"00
|
||||||
|
|
||||||
|
*--------
|
||||||
|
|
||||||
|
:4590 @print #str4590
|
||||||
|
jsr GETLN
|
||||||
|
cpx #4
|
||||||
|
bne :4595
|
||||||
|
|
||||||
|
ldx #4-1
|
||||||
|
]lp lda TEXTBUFFER,x
|
||||||
|
cmp PL,x
|
||||||
|
bne :4595
|
||||||
|
dex
|
||||||
|
bpl ]lp
|
||||||
|
jmp :4600 ; t'as gagnŽ
|
||||||
|
:4595 jmp :4570 ; t'as perdu
|
||||||
|
|
||||||
|
str4590 asc "NO DE CODE "00
|
||||||
|
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
* 4600
|
* 4600
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
@ -1959,6 +2084,20 @@ initALL
|
||||||
|
|
||||||
* PL=INT(RND(1)*9000+1000)
|
* PL=INT(RND(1)*9000+1000)
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
]lp lda VBL
|
||||||
|
eor VERTCNT
|
||||||
|
and #%0000_0111
|
||||||
|
clc
|
||||||
|
adc #1
|
||||||
|
cmp #9+1
|
||||||
|
bcs ]lp
|
||||||
|
ora #"0"
|
||||||
|
sta PL,x
|
||||||
|
inx
|
||||||
|
cpx #4
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
ldx #nbO ; reset object table
|
ldx #nbO ; reset object table
|
||||||
]lp lda refO,x
|
]lp lda refO,x
|
||||||
sta O,x
|
sta O,x
|
||||||
|
@ -2137,7 +2276,7 @@ strREPLAY asc 8D"VOULEZ-VOUS REJOUER ? "00
|
||||||
|
|
||||||
strGAGNE asc "CELA EST EXCEPTIONNEL. VOUS ETES LE"8D8D
|
strGAGNE asc "CELA EST EXCEPTIONNEL. VOUS ETES LE"8D8D
|
||||||
asc "PREMIER A ETRE SORTI VIVANT DE CETTE"8D8D
|
asc "PREMIER A ETRE SORTI VIVANT DE CETTE"8D8D
|
||||||
asc "MAISON, MAIS SI J'ETAIS VOUS, JE ME"8D8D
|
asc "MAISON, MAIS SI J"A7"ETAIS VOUS, JE ME"8D8D
|
||||||
asc "METTRAIS A COURIR CAR UN NAIN RODE"8D8D
|
asc "METTRAIS A COURIR CAR UN NAIN RODE"8D8D
|
||||||
asc "PEUT-ETRE DANS LES PARAGES..."00
|
asc "PEUT-ETRE DANS LES PARAGES..."00
|
||||||
|
|
||||||
|
@ -2938,6 +3077,7 @@ NL ds 1
|
||||||
OK ds 1
|
OK ds 1
|
||||||
P ds 13+1
|
P ds 13+1
|
||||||
PY ds 1
|
PY ds 1
|
||||||
|
PL ds 5 ; 1111/0
|
||||||
S ds 2 ; pour S(1)
|
S ds 2 ; pour S(1)
|
||||||
SALLE ds 1
|
SALLE ds 1
|
||||||
T ds 1
|
T ds 1
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -1,55 +0,0 @@
|
||||||
4150 :HIRES:PRINT"Vous avez de la chance car ce coffre etait ouvert.":WAIT400
|
|
||||||
4152 PRINT"Un message a l'interieur dit:":WAIT250:PRINT"Ne respectez pas les ";
|
|
||||||
4154 PRINT"couleurs du":PRINT"code de la route...?":WAIT500
|
|
||||||
4156 PRINT"Tiens le coffre se referme":WAIT200:RETURN
|
|
||||||
|
|
||||||
4210 HIRES:PRINT"Vous avez les pieds trempes,et cela vous rend tres malade..."
|
|
||||||
4215 WAIT400:PRINT"Vous mourez d'une triple pneumonie...!":WAIT300:RETURN
|
|
||||||
|
|
||||||
4220 PRINT"Le titre est:":WAIT200:PRINT"La mort a la premiere page.":WAIT300:RETURN
|
|
||||||
|
|
||||||
4230 HIRES:FOR N=1 TO 20:EXPLODE:NEXT
|
|
||||||
4233 PRINT"Le livre a explose lorsque vous l'avezouvert...":WAIT400:RETURN
|
|
||||||
|
|
||||||
4240 PRINT"Le papier indique: Cherchez la clef.":WAIT300:RETURN
|
|
||||||
|
|
||||||
4250 PRINT"La clef vous permettera de trouver le code de la porte d'entree."
|
|
||||||
4255 WAIT400:RETURN
|
|
||||||
|
|
||||||
4260 HIRES:PRINT"Il y a , a cote de la porte,un claviernumerique permettant ";
|
|
||||||
4265 PRINT"d'entrer un code":WAIT400:RETURN
|
|
||||||
|
|
||||||
4270 PRINT"Pour faire quoi..?":WAIT200:RETURN
|
|
||||||
|
|
||||||
4280 PRINT"Il y a une odeur de gaz.":WAIT300:RETURN
|
|
||||||
|
|
||||||
4290 PRINT"Apparement,il n'y a occune odeur mais...":WAIT300:RETURN
|
|
||||||
|
|
||||||
4500 HIRES:PRINT"Vous prenez du 30000 Volts dans les doigts,":WAIT300:RETURN
|
|
||||||
|
|
||||||
4510 PRINT"Le placard est ferme a clef":WAIT150:RETURN
|
|
||||||
|
|
||||||
4520 HIRES:PRINT"L'horrible monstre sorti du placard vient de vous devorer"
|
|
||||||
4525 WAIT400:RETURN
|
|
||||||
|
|
||||||
4530 PRINT"Il ne fallait pas fuir":WAIT200:RETURN
|
|
||||||
|
|
||||||
4540 HIRES:PRINT"Vous avez raison d'utiliser le ciseau,le monstre est mort"
|
|
||||||
4545 WAIT400:RETURN
|
|
||||||
|
|
||||||
4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300
|
|
||||||
4555 PRINT"Le placard se referme.":WAIT150:RETURN
|
|
||||||
|
|
||||||
4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200
|
|
||||||
4565 RETURN
|
|
||||||
|
|
||||||
4570 HIRES:FOR N=1 TO 25:EXPLODE:WAIT7:NEXT:
|
|
||||||
4575 PRINT"le clavier numerique a explose":WAIT250:RETURN
|
|
||||||
|
|
||||||
4580 HIRES:PRINT"Le clavier numerique prends feu, heureusement,vous aviez ";
|
|
||||||
4582 WAIT300:PRINT"un pot plein":WAIT100
|
|
||||||
4585 PRINT"d'eau qui vous a permis d'eteindre ce feu"
|
|
||||||
4586 WAIT400:RETURN
|
|
||||||
|
|
||||||
4590 HIRES:INPUT"No DE CODE";ZC
|
|
||||||
4595 IF ZC<>PL THEN GOTO 4570
|
|
Loading…
Reference in New Issue
Block a user