Playthrough von mir, es lohnt sich
Exits done: 42, Overworld: 80%
To do list: Castle #5... fast fertig... Danach gibts endlich die Demo
Checkpoints105:
dw $0105,$0000,$0610,$0160,$0900,$00C0,$0900,$00C0
dw $0105,$0000,$0710,$0160,$0900,$00C0,$0900,$00C0
dw $0105,$0000,$0810,$0160,$0900,$00C0,$0900,$00C0
Checkpoints106:
[...]
db $42
JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP MarioFireball : JMP TopCorner : JMP HeadInside : JMP BodyInside
!OWLevelNum = $13BF
!CheckpointRAM = $7FA040
!CheckpointNumber = $01
MarioAbove:
MarioBelow:
MarioSide:
TopCorner:
HeadInside:
BodyInside:
LDX !OWLevelNum
LDA #!CheckpointNumber
STA !CheckpointRAM,x
LDA #$05
STA $1DF9
LDA #$02
STA $9C
PHY
JSL $80BEB0
PLY
SpriteV:
SpriteH:
MarioCape:
MarioFireball:
RTL
LABEL03 dcb $08
LABEL04 dcb $00,$08
dcb "INIT"
INC $D8,X
BNE LABEL01
INC $14D4,X
LABEL01 LDA $E4,X
LDY #$00
AND #%00010000
STA $151C,X
BNE LABEL02
INY
LABEL02 LDA LABEL03,Y
STA $B6,X
LDA LABEL04,Y
STA $AA,X
INC.W $164A,X
LDA $151C,X
EOR #%00010000
STA $151C,X
LSR A
LSR A
STA $C2,X
RTL
LABEL18 dcb $08,$00,$F8,$00,$F8,$00,$08,$00
LABEL17 dcb $00,$08,$00,$F8,$00,$08,$00,$F8
LABEL10 dcb $01,$FF,$FF,$01,$FF,$01,$01,$FF
LABEL09 dcb $01,$01,$FF,$FF,$01,$01,$FF,$FF
LABEL13 dcb $01,$04,$02,$08,$02,$04,$01,$08
LABEL20 dcb $00,$01,$02,$01
dcb "MAIN"
PHB
PHK
PLB
JSR SPRITE_CODE_START
PLB
RTL
SPRITE_CODE_START
JSL $018032
JSL $01ACF9
AND #%11111111
ORA $9D
BNE LABEL05
LDA #$0C
STA $1558,X
LABEL05 JSR SUB_GFX
LDA $14C8,X
CMP #$08
BEQ LABEL06
STZ $1528,X
LDA #$FF
STA $1558,X
LABEL07 RTS
LABEL06 LDA $9D
BNE LABEL07
JSR SUB_OFF_SCREEN_X0
JSL $01A7DC
LDA $1540,X
BNE LABEL08
LDY $C2,X
LDA LABEL09,Y
STA $AA,X
LDA LABEL10,Y
STA $B6,X
JSL $019138
LDA $1588,X
AND #%00001111
BNE LABEL08
LDA #$08
STA $1564,X
LDA #$38
STA $1540,X
LABEL08 LDA #$20
CMP $1540,X
BNE LABEL11
INC $C2,X
LDA $C2,X
CMP #$04
BNE LABEL12
STZ $C2,X
LABEL12 CMP #$08
BNE LABEL11
LDA #$04
STA $C2,X
LABEL11 LDY $C2,X
LDA $1588,X
AND LABEL13,Y
BEQ LABEL14
LDA #$08
STA $1564,X
DEC $C2,X
LDA $C2,X
BPL LABEL15
LDA #$03
BRA LABEL16
LABEL15 CMP #$03
BNE LABEL14
LDA #$07
LABEL16 STA $C2,X
LABEL14 LDY $C2,X
LDA LABEL17,Y
STA $AA,X
LDA LABEL18,Y
STA $B6,X
JSL $018022
JSL $01801A
RTS
UrchinXPos dcb $08,$00,$10,$00,$10
UrchinYPos dcb $08,$00,$00,$10,$10
UrchinProp dcb $37,$37,$77,$B7,$F7
UrchinTiles dcb $C4,$C6,$C8,$C6
SUB_GFX LDA $163E,X
BNE LABEL19
INC $1528,X
LDA #$0C
STA $163E,X
LABEL19 LDA $1528,X
AND #%00000011
TAY
LDA LABEL20,Y
STA $1602,X
JSR GET_DRAW_INFO
STZ $05
LDA $1602,X
STA $02
LDA $1558,X
STA $03
LABEL24 LDX $05
LDA $00
CLC
ADC UrchinXPos,X
STA $0300,Y
LDA $01
CLC
ADC UrchinYPos,X
STA $0301,Y
LDA UrchinProp,X
STA $0303,Y
CPX #$00
BNE LABEL21
LDA #$CA
LDX $03
BEQ LABEL22
LDA #$CC
LABEL22 BRA LABEL23
LABEL21 LDX $02
LDA UrchinTiles,X
LABEL23 STA $0302,Y
INY
INY
INY
INY
INC $05
LDA $05
CMP #$05
BNE LABEL24
LDX $15E9
LDY #$02
LDA #$04
JSL $01B7B3
RTS