Code & Data OK

This commit is contained in:
Antoine Vignau 2024-01-14 18:09:09 +01:00
parent 84c0ce18a5
commit 3eb965e5d9
15 changed files with 34624 additions and 34507 deletions

Binary file not shown.

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -61,11 +61,13 @@ strPERDU
asc 'will lie in space forever...'00 asc 'will lie in space forever...'00
strGAGNE asc 0d'All right,'0d strGAGNE asc 0d'All right,'0d
asc 'You beat me, but it was a stroke of luck,'0d asc 'You beat me, but it was a stroke of'0d
asc 'and next time my revenge will be terrible.' asc 'luck, and next time my revenge will be'0d
asc 'Be afraid, because I will be back and my'0d asc 'terrible.'0d
asc 'power will have no limits, then the hour'0d asc 'Be afraid, because I will be back and'0d
asc 'of suffering will have come...'0d asc 'my power will have no limits,'0d
asc 'then the hour of suffering'0d
asc 'will have come...'0d
asc ' Dr GENIUS.'0d00 asc ' Dr GENIUS.'0d00
strINTRO asc ' THE RETURN OF Dr GENIUS'0d strINTRO asc ' THE RETURN OF Dr GENIUS'0d
@ -452,7 +454,7 @@ V$31 str 'GUN'
V$32 str 'PUSH' V$32 str 'PUSH'
V$33 str 'PRES' V$33 str 'PRES'
V$34 str 'RED' V$34 str 'RED'
V$35 str 'BLEU' V$35 str 'BLUE'
V$36 str 'YELL' V$36 str 'YELL'
V$37 str 'BUTT' V$37 str 'BUTT'
V$38 str 'LEAR' V$38 str 'LEAR'
@ -648,13 +650,14 @@ str4520 asc 'The automatic system is out of adjust-'0d
str4530 asc 'You take a deep breath.'00 str4530 asc 'You take a deep breath.'00
str4540 asc 'What do you want to breathe?'0d str4540 asc 'What do you want to breathe?'0d
asc 'There is no more oxygen.'00 asc 'There is no more oxygen.'00
str4550 asc 'You have 2 tries'00 str4550 asc 'You have 2 tries'00
str4552 asc 'to enter the pass-'00 str4552 asc 'to enter the pass-'00
str4553 asc 'WRONG!'00 str4553 asc 'WRONG!'00
str4554 asc 'Missed twice!'0d str4554 asc 0d'Missed twice!'0d
asc 'The computer explodes in your face.'00 asc 'The computer explodes in your face.'00
str4556 asc '-word '00 str4556 asc '-word '00
str4558 asc 'Correct, you are insightful!'00 str4558 asc 0d'Correct, you are insightful!'00
str4559 asc 0d'The return password is '00 str4559 asc 0d'The return password is '00
str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00 str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00
str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00 str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00

View File

@ -5150,7 +5150,7 @@ L5A21 DB $41
DB $0C DB $0C
DB $00 DB $00
ASC 'M' ASC 'M'
dfb 8 ; $18 dfb 0 ; $18
dfb 149 ; $AC (172) dfb 149 ; $AC (172)
* ASC 'IL Y A UN ROBINET TOUJOURS OUVERT'00 * ASC 'IL Y A UN ROBINET TOUJOURS OUVERT'00
asc 'THERE IS A TAP ALWAYS OPEN'00 asc 'THERE IS A TAP ALWAYS OPEN'00

View File

@ -1029,7 +1029,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
bcc :4554 ; ok bcc :4554 ; ok
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row16 lda #row19
sta textY sta textY
sep #$30 sep #$30
@print #str4554 ; encore faux @print #str4554 ; encore faux
@ -1038,7 +1038,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
:4554 :4554
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row16 lda #row19
sta textY sta textY
sep #$30 sep #$30
@print #str4558 @print #str4558
@ -1055,7 +1055,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row18 lda #row19
sta textY sta textY
sep #$30 sep #$30
rts rts

Binary file not shown.

File diff suppressed because it is too large Load Diff

View File

@ -662,10 +662,10 @@ str4540 asc 'Que voulez-vous respirer ? Il n'27'y a plus'
str4550 asc 'Vous avez 2 essais'00 str4550 asc 'Vous avez 2 essais'00
str4552 asc 'pour entrer le mot'00 str4552 asc 'pour entrer le mot'00
str4553 asc 'FAUX!'00 str4553 asc 'FAUX!'00
str4554 asc 'Encore rat'8e'.'0d str4554 asc 0d'Encore rat'8e'.'0d
asc 'L'27'ordinateur vous explose '88' la figure.'00 asc 'L'27'ordinateur vous explose '88' la figure.'00
str4556 asc 'de passe '00 str4556 asc 'de passe '00
str4558 asc 'Exact, vous '90'tes perspicace !'00 str4558 asc 0d'Exact, vous '90'tes perspicace !'00
str4559 asc 0d'Le mot de passe du retour est '00 str4559 asc 0d'Le mot de passe du retour est '00
str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00 str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00
str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00 str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00

View File

@ -5147,7 +5147,7 @@ L5A21 DB $41
DB $0C DB $0C
DB $00 DB $00
ASC 'M' ASC 'M'
dfb 8 ; $18 dfb 0 ; $18
dfb 149 ; $AC (172) dfb 149 ; $AC (172)
ASC 'IL Y A UN ROBINET TOUJOURS OUVERT'00 ASC 'IL Y A UN ROBINET TOUJOURS OUVERT'00
DB $41 DB $41

View File

@ -86,7 +86,7 @@ REPLAY sep #$30
lda #row16 lda #row16
sta textY sta textY
sep #$30 sep #$30
*----------------------------------- *-----------------------------------
* DU BASIC A L'ASSEMBLEUR (BEURK) * DU BASIC A L'ASSEMBLEUR (BEURK)
*----------------------------------- *-----------------------------------
@ -1029,7 +1029,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
bcc :4554 ; ok bcc :4554 ; ok
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row16 lda #row19
sta textY sta textY
sep #$30 sep #$30
@print #str4554 ; encore faux @print #str4554 ; encore faux
@ -1038,7 +1038,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
:4554 :4554
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row16 lda #row19
sta textY sta textY
sep #$30 sep #$30
@print #str4558 @print #str4558
@ -1055,7 +1055,7 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
rep #$30 ; init 16-bits, c'est mieux rep #$30 ; init 16-bits, c'est mieux
stz textX stz textX
lda #row18 lda #row19 ; WAS 18
sta textY sta textY
sep #$30 sep #$30
rts rts

View File

@ -0,0 +1,116 @@
E RETOUR DU DR. GENIUS - A French Oric adventure...
E
N
D
W
W
W
OPEN FRIDGE
TAKE TUBE
E
E
E
U
S
W
N
DROP TUBE
E
E
TAKE HELMET
WEAR HELMET
W
S
E
DRINK WATER
W
N
E
N
U
S
S
W
S
E
N
TAKE BOMB
S
W
TAKE COOLER
W
N
N
N
N
N
E
TAKE LASER
E
S
D
S
W
W
TAKE TUBE
STORE TUBE
E
E
N
U
N
W
W
S
S
S
PUSH BLUE
TAKE RADI
LIGHT TV
DROP BOMB
DROP TUBE
DROP COOLER
ACTIVATE BOMB
S
PUSH BLUE
S
RETIRE BREATHE
S
E
E
PUSH MANUAL
W
W
N
N
U
E
E
N
CORRECT TRAJECTORY
LIGHT COMPUTER
password is "MANOR"; write down password for way back
possible return passwords are ORIC1 ATMOS GENIE CHESS ARGON
SWITCH COMPUTER
S
W
W
D
N
N
N
E
E
S
D
S
W
W
S
E
N
D
W
W
PUSH RED
ENTER SHIP

Binary file not shown.