vive le code !
This commit is contained in:
Antoine Vignau
parent
f20470eed6
commit
db43fecb04
|
|
@ -1,7 +1,7 @@
|
|||
La belle Zohra
|
||||
|
||||
Le but du jeu
|
||||
Terminer les pŽchŽs capitaux
|
||||
Terminer les pŽchŽs capitaux => ben non, faut lire le readme.
|
||||
|
||||
Je clique sur une image de la table
|
||||
=> afficahge d'un pŽchŽ capital
|
||||
|
|
@ -32,6 +32,103 @@ OK 8 argent
|
|||
OK 10 image de fond
|
||||
OK 11 image de fond avec ic™nes
|
||||
|
||||
-------------------------------
|
||||
|
||||
&x est la rŽfŽrence du texte
|
||||
=x donne le texte d'apr<70>s
|
||||
*xy active les deux rŽfŽrences j'imagine
|
||||
|
||||
& ou = ------------------------
|
||||
0
|
||||
1 MYOPE
|
||||
2 APPAREIL
|
||||
3 SEDUCTION LUNETTES
|
||||
4 PLATRE
|
||||
5 HYACINTHE
|
||||
6 JAZZ
|
||||
7 ALLERGIES FELIX
|
||||
8 JOCELYN
|
||||
9 AMOUR SANS LUNETTES
|
||||
10 PETIT DEJEUNER PERE
|
||||
11 IMP FELIX
|
||||
12 FELIX PAS LAIT
|
||||
13 VISIONS JOSEPHINE
|
||||
14 PREMIERE FOIS1
|
||||
15 PREMIERE FOIS2
|
||||
16 RET. JOCELYN
|
||||
17 DOC JOSEPHINE
|
||||
18 STERILITE
|
||||
|
||||
* -----------------------------
|
||||
1 LUNETTES
|
||||
2 CUILLERE
|
||||
3 COEUR
|
||||
4 CARNET
|
||||
5 DICTION
|
||||
6 BIJOUX
|
||||
7 CLES
|
||||
8 ARGENT
|
||||
!
|
||||
! 1 ORGUEIL
|
||||
! 2 AVARICE
|
||||
! 3 GOURMANDISE
|
||||
! 4 ENVIE
|
||||
! 5 LUXURE
|
||||
! 6 COLERE
|
||||
! 7 PARESSE
|
||||
! !
|
||||
\ /
|
||||
vv
|
||||
*11 LUNETTES+ORGUEIL
|
||||
*12 LUNETTES+AVARICE
|
||||
*13 LUNETTES+GOURMANDISE
|
||||
*14 LUNETTES+ENVIE
|
||||
*15 LUNETTES+LUXURE
|
||||
*17 LUNETTES+PARESSE
|
||||
*21 CUILLERE+ORGUEIL
|
||||
*22 CUILLERE+AVARICE
|
||||
*23 CUILLERE+GOURMANDISE
|
||||
*24 CUILLERE+ENVIE
|
||||
*26 CUILLERE+COLERE
|
||||
*27 CUILLERE+PARESSE
|
||||
*31 COEUR+ORGUEIL
|
||||
*32 COEUR+AVARICE
|
||||
*33 COEUR+GOURMANDISE
|
||||
*34 COEUR+ENVIE
|
||||
*35 COEUR+LUXURE
|
||||
*36 COEUR+COLERE
|
||||
*41 CARNET+ORGUEI
|
||||
*42 CARNET+AVARIC
|
||||
*43 CARNET+GOURMA
|
||||
*44 CARNET+ENVIE
|
||||
*45 CARNET+LUXURE
|
||||
*46 CARNET+COLERE
|
||||
*47 CARNET+PARESS
|
||||
*52 DICTI+AVARICE
|
||||
*54 DICTION+ENVIE
|
||||
*55 DICTI+LUXURE
|
||||
*56 DICT+COLERE
|
||||
*57 DICT+PARESSE
|
||||
*61 BIJOUX+ORGUEIL
|
||||
*62 BIJOUX+AVARICE
|
||||
*64 BIJOUX+ENVIE
|
||||
*65 BIJOUX+LUXURE
|
||||
*66 BIJOUX+COLERE
|
||||
*67 BIJOUX+PARESSE
|
||||
*71 CLES+ORGUEIL
|
||||
*72 CLES+AVARICE
|
||||
*73 CLES+GOURMANDISE
|
||||
*74 CLES+ENVIE
|
||||
*75 CLES+LUXURE
|
||||
*76 CLES+COLERE
|
||||
*77 CLES+PARESSE
|
||||
*81 ARGENT+ORGUEIL
|
||||
*82 ARGENT+AVARICE
|
||||
*83 ARGENT+GOUR
|
||||
*84 ARGENT+ENVIE
|
||||
*86 ARGENT+COLERE
|
||||
*87 ARGENT+PARESSE
|
||||
|
||||
SONS
|
||||
1cemonsi
|
||||
1safemme
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
|
@ -12,7 +12,8 @@
|
|||
*-----------------------
|
||||
|
||||
strMENU1 str '1- Musique'
|
||||
strMENU2 str '2- La Belle Zohra'
|
||||
strMENU2 str '2- Pr'8e'sentation'
|
||||
strMENU3 str '3- La Belle Zohra'
|
||||
|
||||
*-----------------------
|
||||
* ATARI
|
||||
|
|
|
|||
|
|
@ -59,20 +59,6 @@ data_error pha
|
|||
* load_texte
|
||||
|
||||
load_texte
|
||||
cmp #nombre_objets+1
|
||||
bcc lt_1
|
||||
rts
|
||||
lt_1 cmp #0
|
||||
bne lt_2
|
||||
brl data_error
|
||||
|
||||
lt_2 sep #$20
|
||||
ora #'0'
|
||||
sta pTXT+22
|
||||
rep #$20
|
||||
|
||||
*---
|
||||
|
||||
lda #pTXT
|
||||
sta proOPEN+4 ; filename
|
||||
|
||||
|
|
@ -101,18 +87,15 @@ lt_2 sep #$20
|
|||
phd
|
||||
tsc
|
||||
tcd
|
||||
lda index
|
||||
dec
|
||||
asl
|
||||
asl
|
||||
tax
|
||||
lda [3]
|
||||
sta ptrTXT1,x
|
||||
sta ptrTEXTES
|
||||
sta proREAD+4
|
||||
stal $300
|
||||
ldy #2
|
||||
lda [3],y
|
||||
sta ptrTXT1+2,x
|
||||
sta ptrTEXTES+2
|
||||
sta proREAD+6
|
||||
stal $302
|
||||
pld
|
||||
pla
|
||||
pla
|
||||
|
|
@ -128,81 +111,6 @@ lt_err1 jsl GSOS
|
|||
clc
|
||||
lt_err2 rts
|
||||
|
||||
*-----------------------
|
||||
* LOAD_REFERENCE - OK
|
||||
*-----------------------
|
||||
* load_reference
|
||||
|
||||
load_reference
|
||||
cmp #nombre_objets+1
|
||||
bcc lr_1
|
||||
rts
|
||||
lr_1 cmp #0
|
||||
bne lr_2
|
||||
brl data_error
|
||||
|
||||
lr_2 sep #$20
|
||||
ora #'0'
|
||||
sta pREF+22
|
||||
rep #$20
|
||||
|
||||
*---
|
||||
|
||||
lda #pREF
|
||||
sta proOPEN+4 ; filename
|
||||
|
||||
jsl GSOS
|
||||
dw $2010
|
||||
adrl proOPEN
|
||||
bcs lr_err2
|
||||
|
||||
lda proOPEN+2
|
||||
sta proREAD+2
|
||||
sta proCLOSE+2
|
||||
|
||||
ldy proEOF
|
||||
sty proREAD+8
|
||||
ldx proEOF+2
|
||||
stx proREAD+10
|
||||
|
||||
pha
|
||||
pha
|
||||
phx
|
||||
phy
|
||||
PushWord myID
|
||||
PushWord #%11000000_00001100
|
||||
PushLong #0
|
||||
_NewHandle
|
||||
phd
|
||||
tsc
|
||||
tcd
|
||||
lda index
|
||||
dec
|
||||
asl
|
||||
asl
|
||||
tax
|
||||
lda [3]
|
||||
sta ptrREF1,x
|
||||
sta proREAD+4
|
||||
ldy #2
|
||||
lda [3],y
|
||||
sta ptrREF1+2,x
|
||||
sta proREAD+6
|
||||
pld
|
||||
pla
|
||||
pla
|
||||
bcs lr_err1
|
||||
|
||||
jsl GSOS
|
||||
dw $2012
|
||||
adrl proREAD
|
||||
|
||||
lr_err1 jsl GSOS
|
||||
dw $2014
|
||||
adrl proCLOSE
|
||||
clc
|
||||
lr_err2 rts
|
||||
|
||||
*-----------------------
|
||||
* GESTION DES ICONES
|
||||
*-----------------------
|
||||
|
|
@ -443,10 +351,9 @@ st_setit sta saveLANGUAGE
|
|||
asl
|
||||
tax
|
||||
lda tblLANG,x
|
||||
sta pREF+16
|
||||
sta pTXT+16
|
||||
|
||||
lda #pREF ; check file exists
|
||||
lda #pTXT ; check file exists
|
||||
sta proOPEN+4
|
||||
|
||||
jsl GSOS
|
||||
|
|
@ -652,26 +559,27 @@ pre_scrolling
|
|||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* SCROLLING - OK
|
||||
*-----------------------
|
||||
|
||||
scrolling
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* VERIF - OK
|
||||
*-----------------------
|
||||
|
||||
verif
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
* CHOIX D'ENTREE
|
||||
* CHOIX D'ENTREE - OK
|
||||
*-----------------------
|
||||
|
||||
antoine
|
||||
@t #strMENU1;#11
|
||||
@t #strMENU2;#14
|
||||
@t #strMENU1;#10
|
||||
@t #strMENU2;#12
|
||||
@t #strMENU3;#14
|
||||
|
||||
]lp pha
|
||||
PushWord #%00000000_00001010
|
||||
|
|
@ -688,10 +596,13 @@ antoine
|
|||
cmp #'1'
|
||||
beq laZIK
|
||||
cmp #'2'
|
||||
beq laPREZ
|
||||
cmp #'3'
|
||||
bne ]lp
|
||||
rts
|
||||
laZIK jmp musique
|
||||
|
||||
laZIK jsr musique
|
||||
laPREZ jmp presentation
|
||||
|
||||
*-----------------------
|
||||
* INIT - OK
|
||||
*-----------------------
|
||||
|
|
@ -714,7 +625,7 @@ init2 jsr init_objets
|
|||
jsr init_indicateurs
|
||||
jsr init_fenetres
|
||||
jsr init_souris
|
||||
jsr init_texte
|
||||
jsr load_texte ; au lieu d'init_texte
|
||||
jsr chargement
|
||||
jmp mouse_on
|
||||
|
||||
|
|
@ -825,23 +736,6 @@ datas_init
|
|||
* init_texte
|
||||
|
||||
init_texte
|
||||
lda #1
|
||||
]lp sta index
|
||||
|
||||
lda index ; fait patienter
|
||||
jsr presentation
|
||||
lda index ; charge le texte
|
||||
jsr load_texte
|
||||
lda index ; charge la rŽfŽrence
|
||||
jsr load_reference
|
||||
|
||||
lda #2
|
||||
jsr nowWAIT
|
||||
|
||||
lda index
|
||||
inc
|
||||
cmp #nombre_objets+1
|
||||
bcc ]lp
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
|
|
@ -878,25 +772,28 @@ lookindex
|
|||
* PRESENTATION - OK
|
||||
*-----------------------
|
||||
* presentation
|
||||
* A: numŽro du texte
|
||||
|
||||
presentation
|
||||
cmp #nombre_objets+1
|
||||
bcc pr_1
|
||||
rts
|
||||
pr_1 cmp #0
|
||||
beq pr_2
|
||||
pha
|
||||
|
||||
lda #1
|
||||
]lp sta index
|
||||
|
||||
PushWord #0
|
||||
_ClearScreen
|
||||
|
||||
pla
|
||||
lda index
|
||||
dec
|
||||
asl
|
||||
tax
|
||||
jsr (tbl_pres,x)
|
||||
pr_2 rts
|
||||
|
||||
lda #2
|
||||
jsr nowWAIT
|
||||
|
||||
lda index
|
||||
inc
|
||||
cmp #nombre_objets+1
|
||||
bcc ]lp
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
|
|
@ -1164,28 +1061,28 @@ palette
|
|||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* HIDE_SCREEN - OK
|
||||
*-----------------------
|
||||
|
||||
hide_screen
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* SHOW_SCREEN - OK
|
||||
*-----------------------
|
||||
|
||||
show_screen
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* HIDE_SCREEN2 - OK
|
||||
*-----------------------
|
||||
|
||||
hide_screen2
|
||||
rts
|
||||
|
||||
*-----------------------
|
||||
*
|
||||
* SHOW_SCREEN2 - OK
|
||||
*-----------------------
|
||||
|
||||
show_screen2
|
||||
|
|
@ -1291,10 +1188,7 @@ init_musique
|
|||
mx %00
|
||||
|
||||
sndINTERRUPT
|
||||
* phb
|
||||
phd
|
||||
* phk
|
||||
* plb
|
||||
|
||||
clc
|
||||
xce
|
||||
|
|
@ -1323,8 +1217,8 @@ sndINTERRUPT
|
|||
cmp #3 ; oscillo 3 (liŽ ˆ 2)
|
||||
bne sndINTERRUPT99
|
||||
|
||||
lda #-1
|
||||
stal fgCLEAR
|
||||
lda #-1 ; dis au programme
|
||||
stal fgCLEAR ; d'effacer le cadre
|
||||
bra sndINTERRUPT99
|
||||
|
||||
sndINTERRUPT1
|
||||
|
|
@ -1340,7 +1234,6 @@ sndINTERRUPT1
|
|||
sndINTERRUPT99
|
||||
sep #$30
|
||||
pld
|
||||
* plb
|
||||
clc
|
||||
rtl
|
||||
|
||||
|
|
@ -1460,13 +1353,13 @@ rj_eof cpx #$ffff
|
|||
cli
|
||||
rts
|
||||
|
||||
mx %10
|
||||
|
||||
*-----------------------
|
||||
* ENSONIQ_BEAT - OK
|
||||
*-----------------------
|
||||
* ensoniq_beat
|
||||
|
||||
mx %10
|
||||
|
||||
ensoniq_beat
|
||||
ldy #0 ; oscillos 0 & 1
|
||||
|
||||
|
|
@ -1684,6 +1577,7 @@ ch_1 sta dpFROM ; pointe sur sndPARTx
|
|||
lda (dpFROM),y
|
||||
cmp #-1 ; fin d'une structure
|
||||
bne ch_2
|
||||
dec j ; corrige l'index j
|
||||
clc
|
||||
rts
|
||||
ch_2 sta dpTO ; pointe sur l'entrŽe de la structure d'un son
|
||||
|
|
@ -1789,8 +1683,6 @@ clavier_sonore
|
|||
cpx #10*2
|
||||
bcc ]lp
|
||||
|
||||
dec j ; correct j
|
||||
|
||||
cl_loop lda fgCLEAR
|
||||
beq cl_noclear
|
||||
jsr paintZIK
|
||||
|
|
@ -1808,7 +1700,7 @@ cl_noclear pha
|
|||
bne cl_loop
|
||||
|
||||
lda taskMESSAGE ; entre 0 et 9 ?
|
||||
cmp #'*'
|
||||
cmp #chrESC
|
||||
beq cl_exit
|
||||
cmp #'0'
|
||||
bne cl_1
|
||||
|
|
@ -1847,19 +1739,22 @@ cl_size sta sj_eof+1
|
|||
lda ptrSND1+1,y
|
||||
sta sj_from+2
|
||||
|
||||
* Une petite diffŽrence avec la version ST
|
||||
|
||||
* lda sndKEY,x ; did we press the key?
|
||||
* cmp #TRUE
|
||||
* bne cl_2 ; no, we can play
|
||||
* brl cl_loop
|
||||
|
||||
cl_2 lda #TRUE
|
||||
sta sndKEY,x
|
||||
*
|
||||
*cl_2 lda #TRUE
|
||||
* sta sndKEY,x
|
||||
|
||||
phx
|
||||
jsr paintZIK
|
||||
|
||||
plx
|
||||
phx
|
||||
|
||||
|
||||
lda tblSTR1,x
|
||||
ldy #22
|
||||
jsr t
|
||||
|
|
@ -1887,6 +1782,8 @@ paintZIK PushLong #curPATTERN
|
|||
_SetPenPat
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
zikRECT dw 150,0,200,320
|
||||
fgCLEAR ds 2 ; -1 set by interrupt
|
||||
|
||||
|
|
|
|||
|
|
@ -73,15 +73,15 @@ mouseDownEvt = $0001
|
|||
mouseUpEvt = $0002
|
||||
keyDownEvt = $0003
|
||||
|
||||
chrRET = $0d
|
||||
chrESC = $1b
|
||||
|
||||
*--------------
|
||||
|
||||
dpFROM = $80
|
||||
dpTO = dpFROM+4
|
||||
|
||||
dpREF = dpFROM+$10 ; pointeur vers les INDEX
|
||||
dpTEXTES = dpREF+4 ; pointeur vers les TEXTES
|
||||
|
||||
Debut = dpREF+$10
|
||||
dpTEXTES = dpTO+4 ; pointeur vers les TEXTES
|
||||
Debut = dpTEXTES+4
|
||||
Arrivee = Debut+4
|
||||
Second = Arrivee+4
|
||||
|
||||
|
|
@ -250,13 +250,6 @@ noSOUND _HideMenuBar
|
|||
pla
|
||||
pla
|
||||
|
||||
* PushLong #0
|
||||
* _GetPort
|
||||
* PullLong mainPORT
|
||||
*
|
||||
* PushLong mainPORT
|
||||
* _SetPort
|
||||
|
||||
pha
|
||||
pha
|
||||
PushLong #0
|
||||
|
|
@ -292,7 +285,7 @@ mainLOOP jsr teste_fin
|
|||
jsr demande_objet
|
||||
|
||||
*----------------------------------------
|
||||
* TASK MASTER (no more)
|
||||
* TASK MASTER
|
||||
*----------------------------------------
|
||||
|
||||
taskLOOP inc VBLCounter0
|
||||
|
|
@ -1193,22 +1186,7 @@ ptrFOND ds 4 ; $0000: fond de jeu
|
|||
ptrICONES adrl $8000 ; $0000: fond d'icônes du jeu
|
||||
ptrUNPACK ds 4 ; $0000: where the background picture is laoded
|
||||
|
||||
ptrREF1 ds 4 ; les pointeurs des references
|
||||
ptrREF2 ds 4
|
||||
ptrREF3 ds 4
|
||||
ptrREF4 ds 4
|
||||
ptrREF5 ds 4
|
||||
ptrREF6 ds 4
|
||||
ptrREF7 ds 4
|
||||
ptrREF8 ds 4
|
||||
ptrTXT1 ds 4 ; les pointeurs des textes
|
||||
ptrTXT2 ds 4
|
||||
ptrTXT3 ds 4
|
||||
ptrTXT4 ds 4
|
||||
ptrTXT5 ds 4
|
||||
ptrTXT6 ds 4
|
||||
ptrTXT7 ds 4
|
||||
ptrTXT8 ds 4
|
||||
ptrTEXTES ds 4 ; les pointeurs des textes
|
||||
|
||||
haBEAT ds 4
|
||||
ptrBEAT ds 4
|
||||
|
|
@ -1527,8 +1505,7 @@ proVERS dw 1 ; pcount
|
|||
pIMAGE strl '1/data/images/PIC1.PIC'
|
||||
pFOND strl '1/data/images/PIC10.PIC'
|
||||
pICONES strl '1/data/images/PIC11.PIC'
|
||||
pREF strl '1/data/textes/fr/REF1.TXT'
|
||||
pTXT strl '1/data/textes/fr/TXT1.TXT'
|
||||
pTXT strl '1/data/textes/fr/TEXTES'
|
||||
pBEAT strl '1/data/musiques/BEAT1.SPL'
|
||||
pSND strl '1/data/musiques/SND10.SND'
|
||||
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
File diff suppressed because one or more lines are too long
Loading…
Reference in New Issue