les sont sont arrivés
This commit is contained in:
parent
00da822c3b
commit
ae90d28849
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -400,6 +400,48 @@ RND rep #$30
|
|||
|
||||
VBLCounter0 ds 2
|
||||
|
||||
*-----------------------------------
|
||||
* LES SONS DE L'ORIC
|
||||
*-----------------------------------
|
||||
|
||||
ext sndEXPLODE
|
||||
ext sndZAP
|
||||
|
||||
EXPLODE rep #$30
|
||||
ldx #^sndEXPLODE
|
||||
ldy #sndEXPLODE
|
||||
lda #139
|
||||
bra playSOUND
|
||||
|
||||
ZAP rep #$30
|
||||
ldx #^sndZAP
|
||||
ldy #sndZAP
|
||||
lda #22
|
||||
|
||||
playSOUND sty waveSTART
|
||||
stx waveSTART+2
|
||||
sta waveSIZE
|
||||
|
||||
PushWord #%0000_0000_1000_0000
|
||||
_FFStopSound
|
||||
|
||||
PushWord #$0701
|
||||
PushLong #waveSTART
|
||||
_FFStartSound
|
||||
|
||||
sep #$30
|
||||
rts
|
||||
|
||||
*--- Donnees Sound Tool Set
|
||||
|
||||
waveSTART ds 4 ; waveStart
|
||||
waveSIZE ds 2 ; waveSize
|
||||
dw 428 ; freqOffset
|
||||
dw $0000 ; docBuffer
|
||||
dw $0000 ; bufferSize
|
||||
ds 4 ; nextWavePtr
|
||||
dw 255 ; volSetting
|
||||
|
||||
*-----------------------------------
|
||||
* RECOPIE ACTION A$
|
||||
*-----------------------------------
|
||||
|
|
|
@ -690,7 +690,7 @@ str4900 asc 'Sur le laser, vous voyez trois boutons : jaune, rouge et bleu.'00
|
|||
str4910 asc 'Vous etes entre dans le desintegrateur de particules...'00
|
||||
str4920 asc 'Vous etes entre dans le vaisseau par le sas a l'27'ouest qui ne s'27'ouvre pas de'0d'l'27'interieur.'00
|
||||
|
||||
str5500 asc 0d'Etes-vous sur (O/N) ?'00
|
||||
str5500 asc 0d'Etes-vous sur (O/N) ? '00
|
||||
|
||||
str19050 asc ' Merci d'27'avoir essaye...!'00
|
||||
str19060 asc ' Reveillez-vous , c'27'est fini !'00
|
||||
|
|
Binary file not shown.
|
@ -24,6 +24,7 @@
|
|||
use 4/Misc.Macs
|
||||
use 4/QD.Macs
|
||||
use 4/QDAux.Macs
|
||||
use 4/Sound.Macs
|
||||
use 4/Util.Macs
|
||||
use 4/Window.Macs
|
||||
|
||||
|
@ -381,7 +382,7 @@ toolTBL dw $0000 ; flags
|
|||
dw $C000 ; videoMode (shadowing + fast port)
|
||||
dw $0000 ; resFileID
|
||||
ADRL $00000000 ; dPageHandle
|
||||
dw $0010
|
||||
dw $0011
|
||||
dw $0003 ; Miscellaneous Tool
|
||||
dw $0300
|
||||
dw $0004 ; QuickDraw II
|
||||
|
@ -390,6 +391,8 @@ toolTBL dw $0000 ; flags
|
|||
dw $0302
|
||||
dw $0006 ; Event Manager
|
||||
dw $0300
|
||||
dw $0008 ; Sound Tool Set
|
||||
dw $0100
|
||||
dw $000B ; Integer Math Tool Set
|
||||
dw $0200
|
||||
dw $000E ; Window Manager
|
||||
|
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
@ -47,12 +47,6 @@ idxTIMER = 200
|
|||
jsr EXPLODE
|
||||
eom
|
||||
|
||||
@play mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
jsr playMUSIC
|
||||
eom
|
||||
|
||||
@print mac
|
||||
ldx #>]1
|
||||
ldy #<]1
|
||||
|
@ -77,6 +71,10 @@ idxTIMER = 200
|
|||
jsr waitMS
|
||||
eom
|
||||
|
||||
@zap mac
|
||||
jsr ZAP
|
||||
eom
|
||||
|
||||
*-----------------------------------
|
||||
* CODE BASIC EN ASM :-)
|
||||
*-----------------------------------
|
||||
|
@ -898,6 +896,8 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
|
|||
rts
|
||||
|
||||
:4230 @explode
|
||||
@wait #100
|
||||
@explode
|
||||
@print #str4230
|
||||
rts
|
||||
|
||||
|
@ -1107,9 +1107,11 @@ MDP$ asc 'MANOIR'
|
|||
jmp :gagne
|
||||
|
||||
:4615 @print #str4615
|
||||
@explode
|
||||
@zap
|
||||
@wait #100
|
||||
@print #str4616
|
||||
@wait #400
|
||||
@zap
|
||||
@wait #300
|
||||
@print #str4618_1
|
||||
@wait #200
|
||||
@print #str4618_2
|
||||
|
@ -1117,7 +1119,8 @@ MDP$ asc 'MANOIR'
|
|||
@print #str4618_3
|
||||
jmp :perdu
|
||||
|
||||
:4620 @print #str4620
|
||||
:4620 @explode
|
||||
@print #str4620
|
||||
rts
|
||||
|
||||
:4630 @print #str4630
|
||||
|
@ -1165,14 +1168,18 @@ MDP$ asc 'MANOIR'
|
|||
rts
|
||||
|
||||
:4740 @explode
|
||||
@wait #100
|
||||
@explode
|
||||
@print #str4740
|
||||
jmp :perdu
|
||||
|
||||
:4750 @explode
|
||||
@wait #100
|
||||
@print #str4750
|
||||
jmp :perdu
|
||||
|
||||
:4760 @explode
|
||||
@wait #100
|
||||
@print #str4760
|
||||
jmp :perdu
|
||||
|
||||
|
@ -1268,6 +1275,7 @@ MDP$ asc 'MANOIR'
|
|||
jsr GETLN1
|
||||
cpx #1
|
||||
bne :5500
|
||||
jsr rewriteSTRING
|
||||
lda TEXTBUFFER
|
||||
cmp #chrOUI
|
||||
beq :5510
|
||||
|
@ -1541,10 +1549,10 @@ initALL
|
|||
* 20000 - PERDU
|
||||
*-----------------------------------
|
||||
|
||||
:perdu @explode
|
||||
:perdu @wait #200
|
||||
@explode
|
||||
jsr setTEXTFULL
|
||||
@print #strPERDU
|
||||
* @play #zikPERDU
|
||||
|
||||
:20050 ; commun avec gagne
|
||||
]lp @print #strREPLAY
|
||||
|
@ -1564,15 +1572,8 @@ initALL
|
|||
:gagne
|
||||
jsr setTEXTFULL
|
||||
@print #strGAGNE
|
||||
* @play #zikINTRODUCTION
|
||||
jmp :20050
|
||||
|
||||
*-----------------------------------
|
||||
* ORIC
|
||||
*-----------------------------------
|
||||
|
||||
EXPLODE rts
|
||||
|
||||
*-----------------------------------
|
||||
* CODE 6502
|
||||
*-----------------------------------
|
||||
|
|
|
@ -14,5 +14,11 @@
|
|||
|
||||
ASM iigs.s
|
||||
KND $0000
|
||||
SNA IIgs
|
||||
SNA LeRetour
|
||||
|
||||
* Assemble files
|
||||
|
||||
ASM ../common/sons.s
|
||||
KND $0000
|
||||
SNA DrGenius
|
||||
|
||||
|
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue