mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-28 15:55:04 +00:00
works and works
This commit is contained in:
parent
2cd5537f56
commit
117225fea4
@ -338,12 +338,6 @@ PROCEDURE initialisation_tableaux
|
||||
CASE "#" !UN MOT CLICABLE?
|
||||
scene|=ASC(LEFT$(ligne$,1)) !ON LIT LE NUMERO DE LA SCENE
|
||||
'
|
||||
|
||||
0 1 2 3 4
|
||||
01234567890123456789012345678901234567890
|
||||
#1suite +1G0
|
||||
#2plage +13Fred retourne sur la plage0
|
||||
|
||||
INC pointeur_mots|(scene|) !ET UN MOT EN PLUS!
|
||||
espace%=INSTR(ligne$," ",2) !ON REPERE LE CARACTERE ESPACE
|
||||
fonction_mot$(scene|,pointeur_mots|(scene|))=MID$(ligne$,2,espace%-2)
|
||||
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -1 +1 @@
|
||||
ToutADisparu=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
ToutADisparu=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
|
@ -809,7 +809,6 @@ doECOMM jsr next_index
|
||||
|
||||
doDIESE jsr next_index
|
||||
dec
|
||||
sta localSCENE
|
||||
tax ; la scene
|
||||
|
||||
sep #$20 ; un mot en plus
|
||||
@ -847,7 +846,7 @@ doDIESE jsr next_index
|
||||
|
||||
jsr next_index
|
||||
|
||||
*--- Maintenant, on parcout le tableau jusqu'ˆ l'espace
|
||||
*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
|
||||
|
||||
]lp jsr next_index
|
||||
cmp #instrSPACE
|
||||
@ -879,6 +878,25 @@ doDIESE jsr next_index
|
||||
jsr next_index
|
||||
|
||||
lda localOFFSET ; 0/25/50 => 0/50/100
|
||||
asl
|
||||
clc
|
||||
adc localPOINT ; +=
|
||||
tax
|
||||
|
||||
sep #$20
|
||||
lda [dpINDEX] ; prend le mot sur 8-bit
|
||||
sta aiguillage,x
|
||||
rep #$20
|
||||
|
||||
jsr next_index
|
||||
|
||||
*--- Recopie la phrase si elle existe
|
||||
|
||||
jsr next_index
|
||||
bne doDIESE1 ; on a une cha”ne
|
||||
rts
|
||||
|
||||
doDIESE1 lda localOFFSET ; 0/25/50 => 0/50/100
|
||||
asl
|
||||
pha
|
||||
lda localPOINT ; 0/1/2 => 0/2/4
|
||||
@ -889,14 +907,17 @@ doDIESE jsr next_index
|
||||
pla
|
||||
|
||||
lda [dpINDEX] ; prend le mot sur 16-bit
|
||||
sta condition,x
|
||||
sta phrase,x
|
||||
|
||||
jsr next_index
|
||||
*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
|
||||
|
||||
]lp jsr next_index
|
||||
cmp #instrSPACE
|
||||
bne ]lp
|
||||
rts
|
||||
|
||||
*--- Local data
|
||||
|
||||
localSCENE ds 2 ; index de la scene
|
||||
localOFFSET ds 2 ; offset de chaque rangŽe
|
||||
localPOINT ds 2 ; index du mot
|
||||
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user