v+1
This commit is contained in:
Antoine Vignau
parent
2f23dd37a0
commit
f6bb84d690
|
|
@ -13,57 +13,39 @@ strVOUSDETENEZ
|
|||
asc 8D"Vous avez en votre possession : "00
|
||||
|
||||
strVOUSRIEN
|
||||
asc 8D"Pas la peine de regarder, vous n"A7"avez"8D
|
||||
asc "rien sur vous"00
|
||||
asc 8D"Vous ne devez pas etre fatigue, vous"8D
|
||||
asc "n"A7"avez rien sur vous"00
|
||||
|
||||
strPOINT
|
||||
asc "."00
|
||||
|
||||
strEVIDENT
|
||||
asc 8D"Vous vous prenez pour HULK..., vous ne"8D
|
||||
asc "pouvez porter tant de choses !"8D00
|
||||
|
||||
strVOUSLAVEZ
|
||||
asc 8D"Vous l"A7"avez deja. Si votre memoire"8D
|
||||
asc "est mauvaise, faites une liste"8D00
|
||||
|
||||
asc 8D"Vous avez deja cela... Etourdi !"8D00
|
||||
|
||||
strNOTOWNED
|
||||
asc 8D"Jusqu"A7"a nouvel ordre, on ne peut poser"8D
|
||||
asc "ce que l"A7"on ne possede pas..."8D00
|
||||
asc 8D"Je ne savais pas qu"A7"on pouvait poser"8D
|
||||
asc "ce qu"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"8D00
|
||||
asc "La salle n"A7"est pas eclairee."8D00
|
||||
|
||||
strILYA asc 8D"Ici, il y a egalement :"00
|
||||
strVOSYEUX asc "Vos yeux ne voient plus rien."8D00
|
||||
|
||||
strNIVEAU asc "NIVEAU : 0"00
|
||||
|
||||
strILYA asc 8D"Il y a aussi :"00
|
||||
strCOMMA asc ","00
|
||||
strSPACE asc 8D" "00
|
||||
strRETURN asc 8D00
|
||||
|
||||
strCMD asc 8D"Votre commande ? "00
|
||||
strCOMMANDE asc 8D"Ordre ? "00
|
||||
|
||||
strCOMMANDE asc 8D"Commande ("
|
||||
strTEMPS asc "5000) ? "00
|
||||
|
||||
tbl580 da $bdbd
|
||||
da str581,str582,str583,str584,str585
|
||||
da str586,str587,str588,str589,str590
|
||||
strJENECOMPRENDS
|
||||
asc 8D"Je ne comprends pas"00
|
||||
|
||||
str581 asc 8D"Ne racontez pas n"A7"importe quoi"8D00
|
||||
str582 asc 8D"Pardon"8D00
|
||||
str583 asc 8D"Comment"8D00
|
||||
str584 asc 8D"Je ne comprends pas"8D00
|
||||
str585 asc 8D"Sorry, I don"A7"t understand"8D00
|
||||
str586 asc 8D"Les rigolos qui m"A7"ont programme ne m"A7"ont"
|
||||
asc "pas appris ce vocabulaire"8D00
|
||||
str587 asc 8D"Je n"A7"ai pas compris"8D00
|
||||
str588 asc 8D"OK"8D00
|
||||
str589 asc 8D"Ca marche"8D00
|
||||
str590 asc 8D"D"A7"accord"8D00
|
||||
|
||||
strIMPOSSIBLE
|
||||
asc 8D"Impossible "00
|
||||
strCECHEMIN
|
||||
|
|
@ -74,37 +56,21 @@ strEXCLAM
|
|||
strREPLAY asc 8D"Voulez-vous rejouer ? "00
|
||||
|
||||
strPERDU
|
||||
asc "EN CETTE HEURE PENIBLE, MOI APPLE ]["8D8D
|
||||
asc "J"A7"ai le terrible devoir de vous"8D
|
||||
asc "annoncer la mort tragique de votre"8D
|
||||
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
|
||||
asc "a cette heure-ci est encore prison-"8D
|
||||
asc "niere de la cite mysterieuse... "00
|
||||
|
||||
strPERDU2
|
||||
asc 8D8D"OUF..... oui je sais, c"A7"est toujours"8D
|
||||
asc "trop long les sepultures..."8D8D00
|
||||
strGAGNE asc " D"A7"accord,"8D
|
||||
asc "vous m"A7"avez battu, mais c"A7"est un coup"8D
|
||||
asc "de chance, et la prochaine fois ma"8D
|
||||
asc "vengeance sera terrible."8D
|
||||
asc "Prenez peur, car le jour ou je serai"8D
|
||||
asc "a nouveau la, ma puissance n"A7"aura plus"8D
|
||||
asc "de limites, alors l"A7"heure de la souf-"8D
|
||||
asc "-france aura sonne..."8D
|
||||
asc " Dr GENIUS."00
|
||||
|
||||
strGAGNE
|
||||
asc "Quelle classe..., ressortir vivant de"8D
|
||||
asc "KIKEKANKOI, il fallait le faire,"8D
|
||||
asc "d"A7"autant plus que vous ne vous etes"8D
|
||||
asc "meme pas ecorche un doigt! Mais ne"8D
|
||||
asc "restez pas trop dans les parages, car"8D
|
||||
asc "le savant fou a peut-etre encore"8D
|
||||
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
|
||||
strINTRO asc " LE RETOUR DU Dr GENIUS"8D
|
||||
asc " Vous avez 20 minutes et"8D
|
||||
asc " 400 unites de force pour"8D
|
||||
asc " remplir votre mission..."00
|
||||
|
||||
*-----------------------------------
|
||||
* LES DONNEES
|
||||
|
|
@ -809,7 +775,7 @@ str4520 asc "Le systeme automatique est deregle, il met du gaz carbonique a la p
|
|||
str4530 asc "Vous respirez un grand coup."00
|
||||
str4540 asc "Que voulez-vous respirer, il n"A7"y a plus d"A7"oxygene."00
|
||||
str4550 asc "Vous avez deux essais pour"00
|
||||
str4552 asc "Entrez le mot de passe."00
|
||||
str4552 asc "entrer le 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
|
||||
str4560 asc "C"A7"est d"A7"accord."00
|
||||
|
|
@ -818,7 +784,7 @@ str4580 asc "Vous mourrez deshydrate."00
|
|||
str4610 asc "Le sas se referme derriere vous, le tableau de controle s"A7"allume et l"A7"ordinateur de bord vous demande le mot de passe pour le retour ?"00
|
||||
str4615 asc "Le vaisseau de secours s"A7"eloigne, au loin vous voyez Genius qui pleure derriere un hublot"00
|
||||
str4616 asc " VOUS AVEZ GAGNE"00
|
||||
str4618 asc "Mais, que se passe-t-il,vous avez du vous tromper de mot de passe,votre "00
|
||||
str4618 asc "Mais, que se passe-t-il,vous avez du vous tromper de mot de passe, votre "00
|
||||
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
|
||||
|
|
@ -828,7 +794,7 @@ 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
|
||||
str4690 asc "au dos du boitier est marque :"00
|
||||
str4690 asc "Au dos du boitier est marque :"00
|
||||
str4692 asc " "A7"PROTEGEZ MOI"A7""00
|
||||
str4700 asc "Vous remarquez un boitier de radiocommande."00
|
||||
str4730 asc "Que regardez vous ?"00
|
||||
|
|
@ -857,7 +823,7 @@ str4920 asc "Vous etes entre dans le vaisseau par le sas a l"A7"ouest qui ne s"A
|
|||
|
||||
str5500 asc "Etes-vous sur (O/N) ?"00
|
||||
|
||||
str16000 asc "vaisseau de poche fonce sur le soleil,"00
|
||||
str16000 asc "vaisseau de poche fonce sur le soleil, "00
|
||||
str16010 asc "Vous venez de realiser que Genius"00
|
||||
str16020 asc "pleurait de JOIE...!"00
|
||||
str18005 asc "Comme je le pensais , vous vous etes stupidement fait avoir, et votre cadavre (ou ce qu"A7"il en reste) reposera a jamais dans l"A7"espace..."00
|
||||
|
|
@ -865,19 +831,3 @@ str18005 asc "Comme je le pensais , vous vous etes stupidement fait avoir, et vo
|
|||
str19050 asc " Merci d"A7"avoir essaye...!"00
|
||||
str19060 asc " Reveillez-vous , c"A7"est fini !"00
|
||||
|
||||
strGAGNE
|
||||
asc " D"A7"accord,"8D
|
||||
asc "vous m"A7"avez battu, mais c"A7"est un coup"8D
|
||||
asc "de chance, et la prochaine fois ma"8D
|
||||
asc "vengeance sera terrible."8D
|
||||
asc "Prenez peur, car le jour ou je serai"8D
|
||||
asc "a nouveau la, ma puissance n"A7"aura plus"8D
|
||||
asc "de limites, alors l"A7"heure de la souf-"8D
|
||||
asc "france aura sonne..."8D
|
||||
asc " Dr GENIUS."00
|
||||
|
||||
strINTRO
|
||||
asc " LE RETOUR DU Dr GENIUS"8D
|
||||
asc " Vous avez 20 minutes , et"8D
|
||||
asc " str400 unites de force pour"8D
|
||||
asc " remplir votre mission..."00
|
||||
|
|
|
|||
|
|
@ -204,6 +204,11 @@ REPLAY jsr initALL
|
|||
@print #strILFAITNOIR
|
||||
jmp :500
|
||||
|
||||
:140 jsr HGR
|
||||
jsr setMIXEDON
|
||||
@print #strVOSYEUX
|
||||
jmp :500
|
||||
|
||||
*-----------------------------------
|
||||
* 200 - description salle
|
||||
*-----------------------------------
|
||||
|
|
@ -313,11 +318,7 @@ REPLAY jsr initALL
|
|||
sta N
|
||||
jmp :1000
|
||||
|
||||
:530 lda switchENERGIE+1
|
||||
beq :531
|
||||
@print #strCMD ; commande sans energie
|
||||
jmp :535
|
||||
:531 @print #strCOMMANDE ; commande avec energie
|
||||
:530 @print #strCOMMANDE ; commande avec energie
|
||||
|
||||
:535 jsr GETLN1
|
||||
jsr rewriteSTRING ; from lower to upper
|
||||
|
|
@ -326,17 +327,7 @@ REPLAY jsr initALL
|
|||
lda MO$1
|
||||
bne :900
|
||||
|
||||
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
|
||||
@print #strJENECOMPRENDS
|
||||
jmp :100
|
||||
|
||||
*-----------------------------------
|
||||
|
|
@ -756,17 +747,7 @@ tbl1800 da :1800,:1900
|
|||
|
||||
*-------- B
|
||||
|
||||
:1900 lda S
|
||||
cmp #nbOaP ; nombre d'objets ˆ porter
|
||||
bcc :1930
|
||||
|
||||
@print #strEVIDENT
|
||||
|
||||
:1920 lda #1
|
||||
sta BREAK
|
||||
rts
|
||||
|
||||
:1930 ldx N
|
||||
:1900 ldx N
|
||||
lda O,x
|
||||
cmp #-1
|
||||
bne :1960
|
||||
|
|
@ -937,15 +918,16 @@ tbl1800 da :1800,:1900
|
|||
* 4000 - LES REPONSES
|
||||
*-----------------------------------
|
||||
|
||||
tbl4000 da $bdbd
|
||||
da :4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
|
||||
tbl4000 da $bdbd,: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
|
||||
da :4400,:4410,:4420,:4430,:4440,:4450,:4460,:4470,:4480,:4490
|
||||
da :4500,:4510,:4520,:4530,:4540,:4550,:4560,:4570,:4580,:4590
|
||||
da :4600,:4610,:4620,:4630,:4640,:4650,:4660,:4670,:4680,:4690
|
||||
da :4700,:4710,:4720,:4730,:4740,:4750
|
||||
da :4700,:4710,:4720,:4730,:4740,:4750,:4760,:4770,:4780,:4790
|
||||
da :4800,:4810,:4820,:4830,:4840,:4850,:4860,:4870,:4880,:4890
|
||||
da :4900,:4910,:4920
|
||||
|
||||
*--------
|
||||
|
||||
|
|
@ -1043,6 +1025,7 @@ tbl4000 da $bdbd
|
|||
rts
|
||||
|
||||
:4320 @print #str4320
|
||||
@print #str4321
|
||||
rts
|
||||
|
||||
:4330 @print #str4330
|
||||
|
|
@ -1094,6 +1077,7 @@ tbl4000 da $bdbd
|
|||
rts
|
||||
|
||||
:4490 @print #str4490
|
||||
#print #str4491
|
||||
rts
|
||||
|
||||
:4500 @print #str4500
|
||||
|
|
@ -1112,6 +1096,8 @@ tbl4000 da $bdbd
|
|||
rts
|
||||
|
||||
:4550 @print #str4550
|
||||
@print #str4552
|
||||
@print #str4558
|
||||
rts
|
||||
|
||||
:4560 @print #str4560
|
||||
|
|
@ -1130,6 +1116,7 @@ tbl4000 da $bdbd
|
|||
rts
|
||||
|
||||
:4610 @print #str4610
|
||||
#print #str4615
|
||||
rts
|
||||
|
||||
:4620 @print #str4620
|
||||
|
|
@ -1142,49 +1129,93 @@ tbl4000 da $bdbd
|
|||
rts
|
||||
|
||||
:4650 @print #str4650
|
||||
@print #str4655
|
||||
@print #str4656
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
:4660 lda VBL ; LOGO - Use a better RND?
|
||||
eor VERTCNT
|
||||
and #7
|
||||
clc
|
||||
adc #1
|
||||
:4665 asl
|
||||
tax
|
||||
ldy tbl4660,x
|
||||
lda tbl4660+1,x
|
||||
tax
|
||||
jsr printCSTRING
|
||||
:4660 @print #str4660
|
||||
rts
|
||||
|
||||
:4670 lda #1
|
||||
bne :4665
|
||||
|
||||
:4680 lda #2
|
||||
bne :4665
|
||||
|
||||
:4690 lda #3
|
||||
bne :4665
|
||||
|
||||
:4700 lda #4
|
||||
bne :4665
|
||||
|
||||
:4710 lda #5
|
||||
bne :4665
|
||||
:4670 @print #str4670
|
||||
rts
|
||||
|
||||
:4720 lda #6
|
||||
bne :4665
|
||||
|
||||
:4730 lda #7
|
||||
bne :4665
|
||||
|
||||
:4740 lda #8
|
||||
bne :4665
|
||||
|
||||
:4750 lda #9
|
||||
bne :4665
|
||||
:4680 @print #str4680
|
||||
rts
|
||||
|
||||
:4690 @print #str4690
|
||||
@print #str4692
|
||||
rts
|
||||
|
||||
:4700 @print #str4700
|
||||
rts
|
||||
|
||||
:4710 @print #str4710
|
||||
rts
|
||||
|
||||
:4720 @print #str4720
|
||||
rts
|
||||
|
||||
:4730 @print #str4730
|
||||
rts
|
||||
|
||||
:4740 @print #str4740
|
||||
rts
|
||||
|
||||
:4750 @print #str4750
|
||||
rts
|
||||
|
||||
:4760 @print #str4760
|
||||
rts
|
||||
|
||||
:4770 @print #str4770
|
||||
rts
|
||||
|
||||
:4780 @print #str4780
|
||||
rts
|
||||
|
||||
:4790 @print #str4790
|
||||
rts
|
||||
|
||||
:4800 @print #str4800
|
||||
rts
|
||||
|
||||
:4810 @print #str4810
|
||||
rts
|
||||
|
||||
:4820 @print #str4820
|
||||
rts
|
||||
|
||||
:4830 @print #str4830
|
||||
rts
|
||||
|
||||
:4840 @print #str4840
|
||||
rts
|
||||
|
||||
:4850 @print #str4850
|
||||
rts
|
||||
|
||||
:4860 @print #str4860
|
||||
rts
|
||||
|
||||
:4870 @print #str4870
|
||||
@print #str4874
|
||||
rts
|
||||
|
||||
:4880 @print #str4880
|
||||
rts
|
||||
|
||||
:4890 @print #str4890
|
||||
@print #str4891
|
||||
rts
|
||||
|
||||
:4900 @print #str4900
|
||||
rts
|
||||
|
||||
:4910 @print #str4910
|
||||
rts
|
||||
|
||||
:4920 @print #str4920
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* 6000 - ANALYSE DU MOT
|
||||
|
|
@ -2318,4 +2349,11 @@ tblD2H dfb 0,10,20,30,40,50,60,70,80,90
|
|||
put ../common/images.s
|
||||
put ../common/musiques.s
|
||||
|
||||
*--- It's the end
|
||||
*--- It's the end
|
||||
|
||||
tblIMAGES da L423B,L786F,L7974,L4F61,L4E95,L7CC8,L6BDC,L5EFA,L7DE2,L7F38
|
||||
da L62EF,L57EA,L5925,L63F6,L47C3,L5A21,L5021,L4DFF,L64EF,L4700
|
||||
da L5D77,L52CA,L4E41,L6AF2,L81EA,L827B,L61DF,L497F,L4C16,L4A8D
|
||||
da L4CEE,L5B40,L6FDD,L6F05,L65FF,L8088,L7A40,L774C,L7B63,L5CC6
|
||||
da L5BEE,L50F6,L6D58,L6C6E,L74D2,L70F6,L487A,L71E0,L4DAB,L55C8
|
||||
da L72CA,L6958,$0000,L5F6B,L60EB,L6812,L6E33,L8367
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,102 @@
|
|||
80 l'index du premier mot
|
||||
400 0, 1, 2 - dŽfinit le cadre dessinŽ
|
||||
401 pointeurs sur les 57 images du jeu
|
||||
480 P - les pointeurs
|
||||
4A0 C - les conditions
|
||||
4C0 O - les objets
|
||||
4FB 32 = 50 = "2" - les 20 minutes...
|
||||
4FC 30 = 48 = "0"
|
||||
4FD 64 = 100
|
||||
4FE 30 = 48 = "0"
|
||||
4FF 31 = 49 = "1"
|
||||
9100 la musique
|
||||
BFF0
|
||||
BFFF SALLE
|
||||
|
||||
CALL
|
||||
---------------------------
|
||||
86F5 ; init d'entree
|
||||
90F9 ; met le pointeur de tempo
|
||||
9245 ; le fill des images
|
||||
9292 ; affiche image
|
||||
9500 ; verifie mot saisi
|
||||
9533 ; recopie action A$
|
||||
96C9 ; installe notre tempo
|
||||
96FC ; remet le tempo standard
|
||||
|
||||
FIRMWARE
|
||||
--------------------------- PAGE 2
|
||||
MODEKEY := $0209
|
||||
CAPSLOCK := $020C ; $7F = not locked, $FF = locked
|
||||
PATTERN := $0213
|
||||
IRQVec := $0245 ; "fast" interrupt vector
|
||||
JOINFLAG := $025A ; 0 = don't joiu, $4A = join BASIC programs
|
||||
VERIFYFLAG := $025B ; 0 = load, 1 = verify
|
||||
CURS_Y := $0268
|
||||
CURS_X := $0269
|
||||
STATUS := $026A
|
||||
BACKGRND := $026B
|
||||
FOREGRND := $026C
|
||||
TIMER3 := $0276
|
||||
CFILE_NAME := $027F
|
||||
CFOUND_NAME := $0293
|
||||
FILESTART := $02A9
|
||||
FILEEND := $02AB
|
||||
AUTORUN := $02AD ; $00 = only load, $C7 = autorun
|
||||
LANGFLAG := $02AE ; $00 = BASIC, $80 = machine code
|
||||
LOADERR := $02B1
|
||||
KEYBUF := $02DF
|
||||
PARMERR := $02E0
|
||||
PARAM1 := $02E1 ; & $02E2
|
||||
PARAM2 := $02E3 ; & $02E4
|
||||
PARAM3 := $02E5 ; & $02E6
|
||||
BANGVEC := $02F5
|
||||
|
||||
--------------------------- PAGE 3
|
||||
PRB .byte ; Port Register B
|
||||
PRA .byte ; Port Register A
|
||||
DDRB .byte ; Data Direction Register B
|
||||
DDRA .byte ; Data Direction Register A
|
||||
T1 .word ; Timer 1
|
||||
T1L .word ; Timer 1 Latch
|
||||
T2 .word ; Timer 2
|
||||
SR .byte ; Shift Register
|
||||
ACR .byte ; Auxiliary Control Register
|
||||
PCR .byte ; Peripheral Control Register
|
||||
IFR .byte ; Interrupt Flags Register
|
||||
IER .byte ; Interrupt Enable Register
|
||||
PRA2 .byte ; Port Register A without handshaking
|
||||
|
||||
.res $031C
|
||||
DATA .byte
|
||||
STATUS .byte
|
||||
CMD .byte ; Command register
|
||||
CTRL .byte ; Control register
|
||||
|
||||
--------------------------- FIRMWARE
|
||||
GETLINE := $C592
|
||||
TEXT := $EC21
|
||||
HIRES := $EC33
|
||||
CURSET := $F0C8
|
||||
CURMOV := $F0FD
|
||||
DRAW := $F110
|
||||
CHAR := $F12D
|
||||
CHAR_ALT := $F15D
|
||||
POINT := $F1C8
|
||||
PAPER := $F204
|
||||
INK := $F210
|
||||
FILL := $F268
|
||||
PRINT := $F77C
|
||||
|
||||
PING := $FA9F
|
||||
PING1 := $FA85
|
||||
SHOOT := $FAB5
|
||||
SHOOT1 := $FA9B
|
||||
EXPLODE := $FACB
|
||||
EXPLODE1 := $FAB1
|
||||
ZAP := $FAE1
|
||||
ZAP1 := $FAC7
|
||||
TICK := $FB14
|
||||
TICK1 := $FAFA
|
||||
TOCK := $FB2A
|
||||
TOCK1 := $FB10
|
||||
Binary file not shown.
Loading…
Reference in New Issue