This commit is contained in:
Antoine Vignau 2023-12-25 13:03:21 +01:00
parent a029f39b72
commit 7e3372c41d
11 changed files with 21897 additions and 21853 deletions

View File

@ -54,24 +54,24 @@ zikPERDU
hex 36801839501840500C39600C36601830
hex 60303656304080303F40304748308F90
hex 01010130369830364C183656182B5618
hex 0000000000000000000000000000
* hex 30AC1836AC3020601820601820563020
* hex 4C18246C18266C0103030C2B720C3072
* hex 18247230487230406C1840600C39600C
* hex 3660303990183948183F403048500101
* hex 013048A03036AC303656303650182BA0
* hex 1830A001020230309830304C30304818
* hex 2890182B90010303302B88302B44302B
* hex 40182480182880010404302860302830
* hex 30283630286C01040430487230487218
* hex 48901839901830721828720103031828
* hex 6C182B6C302B6C302B78182B780C2878
* hex 0C247801020230368030368018369018
* hex 2B90182448181E480103033020503020
* hex 50302056303656183960183060302860
* hex 30286C30406C3048720102020C30900C
* hex 2B9018289018286C182B6C182B501830
* hex 500103030C36900C39901840901840A0
* hex 1839A00C39900C36900C39900C369018
* hex 39901836903036D8C0D7D80066B31000
* hex 00000000000000000000000000000000
*
hex 30AC1836AC3020601820601820563020
hex 4C18246C18266C0103030C2B720C3072
hex 18247230487230406C1840600C39600C
hex 3660303990183948183F403048500101
hex 013048A03036AC303656303650182BA0
hex 1830A001020230309830304C30304818
hex 2890182B90010303302B88302B44302B
hex 40182480182880010404302860302830
hex 30283630286C01040430487230487218
hex 48901839901830721828720103031828
hex 6C182B6C302B6C302B78182B780C2878
hex 0C247801020230368030368018369018
hex 2B90182448181E480103033020503020
hex 50302056303656183960183060302860
hex 30286C30406C3048720102020C30900C
hex 2B9018289018286C182B6C182B501830
hex 500103030C36900C39901840901840A0
hex 1839A00C39900C36900C39900C369018
hex 39901836903036D8C0D7D80066B31000
ds \

View File

@ -10,7 +10,7 @@
*
strVOUSDETENEZ
asc 8D"Vous avez en votre possession : "8D00
asc 8D"Vous avez en votre possession : "00
strVOUSRIEN
asc 8D"Pas la peine de regarder, vous n"A7"avez"8D
@ -21,34 +21,47 @@ strPOINT
strEVIDENT
asc 8D"Vous vous prenez pour HULK..., vous ne"8D
asc "porter tant de choses !"00
asc "porter tant de choses !"8D00
strVOUSLAVEZ
asc 8D"Vous l"A7"avez deja. Si votre memoire"8D
asc "est mauvaise, faites la liste"00
asc "est mauvaise, faites la liste"8D00
strNOTOWNED
asc 8D"Jusqu"A7"a nouvel ordre, on ne peut poser"8D
asc "ce que l"A7"on ne possede pas..."00
asc "ce que l"A7"on ne possede pas..."8D00
strDACCORD
asc "D"A7"accord"00
strILFAITNOIR
asc "Il fait trop sombre pour voir quelque"8D
asc "chose, il faudrait peut-etre allumer"00
asc "chose, il faudrait peut-etre allumer"8D00
strILYA asc 8D"Ici, il y a egalement :"00
strCOMMA asc ","00
strSPACE asc " "00
strSPACE asc 8D" "00
strRETURN asc 8D00
strCOMMANDE
asc 8D"Votre commande ? "00
strJENECOMPRENDS
asc 8D"Je ne comprends pas..."00
tbl580 da $bdbd
da str581,str582,str583,str584,str585
da str586,str587,str588,str589,str590
str581 asc 8D"Ne racontez pas n"A7"importe quoi"00
str582 asc 8D"Pardon"00
str583 asc 8D"Comment"00
str584 asc 8D"Je ne comprends pas"00
str585 asc 8D"Sorry, I don"A7"t understand"00
str586 asc 8D"Les rigolos qui m"A7"ont programme ne m"A7"ont"
asc "pas appris ce vocabulaire"00
str587 asc 8D"Je n"A7"ai pas compris"00
str588 asc 8D"OK"00
str589 asc 8D"Ca marche"00
str590 asc 8D"D"A7"accord"00
strIMPOSSIBLE
asc 8D"Impossible "00
strCECHEMIN
@ -65,6 +78,7 @@ strPERDU
asc "propre personne dans la redoutable"8D
asc "KIKEKANKOI, mais peut-etre vous en"8D
asc "etiez vous rendu compte...?"8D
asc 8D
asc "Vos funerailles furent respectables,"8D
asc "de par la preuve de courage que vous"8D
asc "aviez donnee et pour la personne qui"8D
@ -85,41 +99,15 @@ strGAGNE
asc "quelques experiences a faire sur vous,"8D
asc "comme vous greffer une tete de singe"8D
asc "ou un cerveau electronique de 64 Ko..."8D
asc 8D
asc "Merci d"A7"etre reste si longtemps a"8D
asc "votre clavier et encore toutes mes"8D
asc "felicitations"8D8D00
*-----------------------------------
* introPIC - la picture GR
* LES DONNEES
*-----------------------------------
*strLORICIELS
* asc "LORICIELS presente"00
*
*strLEMANOIR
* asc "@ @@@ @ @ @ @ @@@ @@@ @@@ @@@ @@@ "
* asc "@ @ @@ @@ @ @ @ @ @ @ @ @ "
* asc "@ @@ @ @ @ @@@ @@@ @ @@ @@ @@ "
* asc "@ @ @ @ @ @ @ @ @ @ @ "
* asc "@@@ @@@ @ @ @@ @@@ @ @@@ @ @ @@@ "
* asc 8D
* asc " @@ @@@"8D
* asc " @ @ @ "8D
* asc " @ @ @@ "8D
* asc " @ @ @ "8D
* asc " @@ @@@"8D
* asc 8D
* asc "@ @ @@@ @ @ @@@ @ @ @@@ @ @ @ @ @@@ @@@ "
* asc "@ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ "
* asc "@@ @ @@ @@ @@ @@@ @ @ @@ @ @ @ "
* asc "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "
* asc "@ @ @@@ @ @ @@@ @ @ @ @ @ @ @ @ @@@ @@@"00
*
*strINTRO1 asc " Version Apple II par "00
*strINTRO2 asc " Brutal Deluxe Software "00
*strINTRO3 asc " Merci Herve & Xavier "00
*strINTRO4 asc "(C) 1985, L. BENES & LORICIELS"00
*
* Les conditions
*
@ -325,8 +313,8 @@ A$154 str "A51F14.D48N."
A$155 str "A51E14.I56M."
A$156 str "A57C31.D49N."
A$157 str "A57.I58M."
A$158 str "A58D29D37F15.D50N." ; CREU MUR
A$159 str "A58D29D37F17.D54N." ; CREU MUR
A$158 str "A58D29D37F15.D50N." ; CREU MUR +broche +maillet +fille delivree
A$159 str "A58D29D37F17.D54N." ; CREU MUR +broche +maillet +fille habillee
A$160 str "A58D29D37.D51K." ; CREU MUR
A$161 str "B23F16.E16J." ; METS MASQUE
A$162 str "B13D23F16.D52N."
@ -350,7 +338,6 @@ A$179 str ".D64K."
A$180 str ".C25J."
A$181 str ".C24J."
tblA1 dfb $bd
dfb 01,02,02,25,25,25,01,64,10,12
dfb 12,23,06,06,04,04,04,02,02,02
@ -361,7 +348,8 @@ tblA1 dfb $bd
dfb 11,11,11,11,11,11,11,11,11,11
dfb 11,11,11,11,11,11,11,11,11,11
dfb 63,63,19,19,19,19,24,24,24,24
dfb 24,11,51,19,19,51,56,56,26,57
* dfb 24,11,51,19,19,51,56,56,26,57 DEBR BATT x 2 (56 => 96)
dfb 24,11,51,19,19,51,96,96,26,57
dfb 12,16,24,58,12,59,54,57,24,12
dfb 12,12,12,62,62,12,20,10,10,10
dfb 10,10,10,10,10,10,10,10,10,10
@ -371,7 +359,6 @@ tblA1 dfb $bd
dfb 95,57,57,57,10,93,93,11,74,74
dfb 74,74,10,25,25,10,25,21,21,11
dfb 11
dfb 200,201,202
tblA2 dfb $bd
dfb 00,00,00,45,46,47,00,00,28,29
@ -393,7 +380,6 @@ tblA2 dfb $bd
dfb 66,29,29,29,96,94,94,96,75,75
dfb 68,80,97,97,97,98,98,00,00,97
dfb 98
dfb 0,0,0
*
* Les conditions
@ -421,31 +407,31 @@ C$11 str ".L."
* Les objets dans les salles
*
nbO = 38
nbO = 37
refO dfb $bd
dfb 02,00,05,00,14,00,00,19,00,00
dfb 20,00,18,15,17,26,27,28,33,34
dfb 35,00,47,47,47,46,44,50,50,49
dfb 54,42,45,00,00,53,40,00
dfb 54,42,45,00,00,53,40
O dfb $bd
dfb 02,00,05,00,14,00,00,19,00,00
dfb 20,00,18,15,17,26,27,28,33,34
dfb 35,00,47,47,47,46,44,50,50,49
dfb 54,42,45,00,00,53,40,00
dfb 54,42,45,00,00,53,40
refO$ da $bdbd
da O$1,O$2,O$3,O$4,O$5,O$6,O$7,O$8,O$9,O$10
da O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19,O$20
da O$21,O$22,O$23,O$24,O$25,O$26,O$27,O$28,O$29,O$30
da O$31,O$32,O$33,O$34,O$35,O$36,O$37,O$38
da O$31,O$32,O$33,O$34,O$35,O$36,O$37
tblO$ da $bdbd
da O$1,O$2,O$3,O$4,O$5,O$6,O$7,O$8,O$9,O$10
da O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19,O$20
da O$21,O$22,O$23,O$24,O$25,O$26,O$27,O$28,O$29,O$30
da O$31,O$32,O$33,O$34,O$35,O$36,O$37,O$38
da O$31,O$32,O$33,O$34,O$35,O$36,O$37
O$1 asc "Une batterie"00
O$2 asc "Une batterie branchee"00
@ -482,9 +468,8 @@ O$32 asc "Une hache"00
O$33 asc "Un pot de creme"00
O$34 asc "Une liasse de billets"00
O$35 asc "Vos chaussures"00
O$36 asc "Une super jolie fille ligotee.... et nue qui plus est."00
O$36 asc "Une super jolie fille ligotee....et nue qui plus est."00
O$37 asc "Un maillet"00
O$38 asc "Un masque a gaz porte"00
*
* Les directions
@ -564,7 +549,7 @@ M$58 dfb 01,57,00
* on fera index-1 b/c 8-bits
*
V = 133+3
V = 129+2
tblVL$ dfb $bd
dfb <V$1,<V$2,<V$3,<V$4,<V$5,<V$6,<V$7,<V$8,<V$9,<V$10
@ -580,7 +565,7 @@ tblVL$ dfb $bd
dfb <V$101,<V$102,<V$103,<V$104,<V$105,<V$106,<V$107,<V$108,<V$109,<V$110
dfb <V$111,<V$112,<V$113,<V$114,<V$115,<V$116,<V$117,<V$118,<V$119,<V$120
dfb <V$121,<V$122,<V$123,<V$124,<V$125,<V$126,<V$127,<V$128,<V$129
dfb <V$200,<V$201,<V$202
dfb <V$201,<V$202
tblVH$ dfb $bd
dfb >V$1,>V$2,>V$3,>V$4,>V$5,>V$6,>V$7,>V$8,>V$9,>V$10
@ -596,7 +581,7 @@ tblVH$ dfb $bd
dfb >V$101,>V$102,>V$103,>V$104,>V$105,>V$106,>V$107,>V$108,>V$109,>V$110
dfb >V$111,>V$112,>V$113,>V$114,>V$115,>V$116,>V$117,>V$118,>V$119,>V$120
dfb >V$121,>V$122,>V$123,>V$124,>V$125,>V$126,>V$127,>V$128,>V$129
dfb >V$200,>V$201,>V$202
dfb >V$201,>V$202
tblV dfb $bd
dfb 01,01,02,02,03,03,04,04,05,05
@ -612,7 +597,7 @@ tblV dfb $bd
dfb 77,78,78,78,79,79,79,80,81,82
dfb 83,84,85,86,87,88,89,90,91,92
dfb 93,93,94,94,96,97,98,99,75
dfb 130,131,132
dfb 201,202
V$1 str "N"
V$2 str "NORD"
@ -744,9 +729,8 @@ V$127 str "QUIN"
V$128 str "FIN"
V$129 str "VETE"
V$200 str "TEMPO"
V$201 str "QUITTER"
V$202 str "CASSE"
V$201 str "QUIT"
V$202 str "CASE"
*
* Les lieux (str8xxx)
@ -761,11 +745,11 @@ str8010 asc "L"A7"antre du demon."8D
str8020 asc "Le repere du chirurgien."8D
asc "Il y a une porte au sud, il y a plein de"
asc "photos chirurgicales sur les murs"00
str8030 asc "8030"00 ; X la mort
str8030 asc ""00 ; X la mort
str8040 asc "L"A7"antre du sorcier."00
str8050 asc "Au bord du lac."8D
asc "Vous etes au bord d"A7"un lac souterrain"00
str8060 asc "Vous etes sur la rive nord du lac"00
str8060 asc ""00 ; X gagne
str8070 asc "Le repere du lecteur."00
str8080 asc "Au nord, un banc de sable. Vous etes sur"
asc "le cote du lac, le seul chemin est au"8D
@ -815,7 +799,7 @@ str8400 asc "Le coin nord-ouest de la ville."00
str8410 asc "La fin de la ville !"00
str8420 asc "Dans le tabac."8D
asc "Le vendeur dort sur le comptoir"00
str8430 asc "8430"00 ; X rien
str8430 asc ""00 ; X rien
str8440 asc "Chez le tailleur."8D
asc "Il y a plein d"A7"habits a vendre"00
str8450 asc "Vous etes dans la cremerie."00
@ -838,8 +822,8 @@ str8570 asc "Le chemin des dipteres."00
str8580 asc "L"A7"antre du victorieux."8D
asc "Vous etes dans un reduit dont les murs"8D
asc "sont faits de blocs de pierre."00
str8590 asc "8590"00
str8600 asc "8600"00
str8590 asc ""00
str8600 asc ""00
*
* Les reponses (str7xxx)
@ -956,7 +940,7 @@ str4580 asc "Vous trebuchez sur la hache..."8D
asc "Que de sang..."00
str4590 asc "Voici enfin la ville des mutiles."8D
asc "Pauvres survivants des experiences"8D
asc "cruelles du savant fou."00
asc "cruelles du savant fou."8D00
str4600 asc "Vous avez du prendre mal par les pieds."00
str4610 asc "La quinine etait trop forte, vous mourez"
asc "empoisonne..."00
@ -970,23 +954,16 @@ tbl4660 da $bdbd
da str4710,str4720,str4730,str4740
da str4750
str4670 asc "Courage, pensez a la recompense..."00
str4680 asc "Hum! Il y a de l"A7"idee dans ce que vous"8D
str4670 asc 8D"Courage, pensez a la recompense..."00
str4680 asc 8D"Hum! Il y a de l"A7"idee dans ce que vous"8D
asc "faites."00
str4690 asc "Je n"A7"aurais pas pense a faire cela."00
str4700 asc "Vous etes un habitue des jeux d"A78D
str4690 asc 8D"Je n"A7"aurais pas pense a faire cela."00
str4700 asc 8D"Vous etes un habitue des jeux d"A78D
asc "aventures ?"00
str4710 asc "Quelle drole d'idee ?"00
str4720 asc "Pourquoi pas ?"00
str4730 asc "Quel aventurier vous faites...fiiuuue"00
str4740 asc "A ce train la, vous finirez bien par y"8D
str4710 asc 8D"Quelle drole d'idee ?"00
str4720 asc 8D"Pourquoi pas ?"00
str4730 asc 8D"Quel aventurier vous faites...fiiuuue"00
str4740 asc 8D"A ce train la, vous finirez bien par y"8D
asc "arriver"00
str4750 asc "Vous, vous avez pas de petrole, mais"8D
str4750 asc 8D"Vous, vous avez pas de petrole, mais"8D
asc "vous avez des idees"00
str4760 asc "Vous etes dans une barque rafistolee par"
asc "de l"A7"adhesif"00
str4770 asc "Enfin la rive nord."00
str4780 asc "Enfin la rive sud."00
str4790 asc ""00
str4800 asc "Masque sur le visage."00

Binary file not shown.

View File

@ -35,9 +35,9 @@ TEXTBUFFER = $200
chrOUI = "O"
chrNON = "N"
idxTEMPO = 130 ; 200
idxQUITTER = 131 ; 201
idxCASSE = 132 ; 202
idxTEMPO = 200
idxQUITTER = 201
idxCASSE = 202
PRODOS = $bf00
@ -242,6 +242,7 @@ REPLAY jsr initALL
@print #strCOMMA
:360 @print #strSPACE
lda N
asl
tax
@ -333,21 +334,25 @@ REPLAY jsr initALL
lda MO$1
bne :900
@print #strJENECOMPRENDS
lda VBL ; LOGO - Use a better RND?
eor VERTCNT
and #7
clc
adc #1
asl
tax
ldy tbl580,x
lda tbl580+1,x
tax
jsr printCSTRING
jmp :100
*-----------------------------------
* 900 - CONTROLES APPLE II
*-----------------------------------
:900 cmp #idxTEMPO ; switch wait to de/accelerate the game
bne :905
jsr switchWAIT
jmp :100
:905 cmp #idxQUITTER ; quitter
:900 cmp #idxQUITTER ; quitter
bne :910
jmp :20050
@ -601,15 +606,14 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
*-------- H
:1570 inc $c034
rts
lda VBL ; LOGO - Use a better RND?
eor VERTCNT
cmp N
bcs :1575
lda #1
sta OK
:1575 rts
:1570 rts
* lda VBL ; LOGO - Use a better RND?
* eor VERTCNT
* cmp N
* bcs :1575
* lda #1
* sta OK
*:1575 rts
*-------- I
@ -927,7 +931,7 @@ tbl1800 da :1800,:1900
*-------- N
:3100 jmp :18000
:3100 jmp :perdu
*-------- O
@ -940,7 +944,8 @@ tbl1800 da :1800,:1900
* 4000 - LES REPONSES
*-----------------------------------
tbl4000 da :4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
tbl4000 da $bdbd
da :4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
da :4100,:4110,:4120,:4130,:4140,:4150,:4160,:4170,:4180,:4190
da :4200,:4210,:4220,:4230,:4240,:4250,:4260,:4270,:4280,:4290
da :4300,:4310,:4320,:4330,:4340,:4350,:4360,:4370,:4380,:4390
@ -1059,10 +1064,8 @@ tbl4000 da :4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
:4360 @print #str4360
rts
:4370 @explode
@print #str4370
@wait #200
jmp :18000
:4370 @print #str4370
jmp :perdu
:4380 @print #str4380
rts
@ -1104,11 +1107,11 @@ tbl4000 da :4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
rts
:4510 @print #str4510
rts
jmp :gagne
:4520 @print #str4520
rts
jmp :perdu
:4530 @print #str4530
rts
@ -1632,7 +1635,11 @@ initALL
* 20000 - PERDU
*-----------------------------------
:18000
:perdu
@explode
@draw #3
@wait #400
jsr setTEXTFULL
@print #strPERDU
@play #zikPERDU
@ -1673,10 +1680,12 @@ sauveMONO ds 1
* 32000 - GAGNE
*-----------------------------------
:21000
:gagne
@draw #6
@wait #400
jsr setTEXTFULL
@print #strGAGNE
* @play #zikGAGNE
@play #zikPERDU
jmp :20050
*-----------------------------------

File diff suppressed because it is too large Load Diff

View File

@ -129,5 +129,4 @@ Solution Kikekankoi fran
127 Ð E
128 Ð E
129 Ð S
130 Ð CREUSE MUR
130 Ð ENLEVE PIERRE

View File

@ -30,7 +30,8 @@ N
ENTRER TRAITEUR
VENDRE DELTA
SORS
O (PRENDRE MAILLET ?)
O
PRENDRE MAILLET
S
ENTRER MEDECIN
PRENDRE ASPIRINE
@ -42,12 +43,12 @@ PRENDRE DEBRIS
SORS
ENTRER CHAUSSEUR
ACHETER ESPADRILLES
SORS CHAUSSEUR
SORS
E
S
ENTRER TAILLEUR
ACHETER ROBE
SORS TAILLEUR
SORS
--
N
--
@ -58,12 +59,12 @@ PRENDRE BROCHE
--
N
--
POSER ESPADRILLES
POSER CHAUSSURES
ENTRER TEMPLE
O
PRENDRE BOMBE
E
O
N
DELIVRER FILLE
DONNER VETEMENTS
S

Binary file not shown.

After

Width:  |  Height:  |  Size: 59 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 110 KiB

Binary file not shown.

Binary file not shown.