2014-05-18 18:19:10 +00:00
|
|
|
SeafoamIslands4Script: ; 4658d (11:658d)
|
|
|
|
call EnableAutoTextBoxDrawing
|
|
|
|
ld hl, wFlags_0xcd60
|
|
|
|
bit 7, [hl]
|
|
|
|
res 7, [hl]
|
|
|
|
jr z, .asm_465dc ; 0x46597 $43
|
|
|
|
ld hl, Seafoam4HolesCoords
|
|
|
|
call CheckBoulderCoords
|
|
|
|
ret nc
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wd881
|
|
|
|
ld a, [wWhichTrade]
|
2014-05-18 18:19:10 +00:00
|
|
|
cp $1
|
|
|
|
jr nz, .asm_465b8 ; 0x465a8 $e
|
|
|
|
set 0, [hl]
|
|
|
|
ld a, $dd
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd079], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $e1
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd07a], a
|
2014-05-18 18:19:10 +00:00
|
|
|
jr .asm_465c4 ; 0x465b6 $c
|
|
|
|
.asm_465b8
|
|
|
|
set 1, [hl]
|
|
|
|
ld a, $de
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd079], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $e2
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd07a], a
|
2014-05-18 18:19:10 +00:00
|
|
|
.asm_465c4
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd079]
|
|
|
|
ld [wcc4d], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $11
|
|
|
|
call Predef
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd07a]
|
|
|
|
ld [wcc4d], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld a, $15
|
|
|
|
call Predef
|
|
|
|
jr .asm_465ed ; 0x465da $11
|
|
|
|
.asm_465dc
|
|
|
|
ld a, $a2
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wd71d], a
|
2014-05-18 18:19:10 +00:00
|
|
|
ld hl, Seafoam4HolesCoords
|
|
|
|
call Func_46981
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd732]
|
2014-05-18 18:19:10 +00:00
|
|
|
bit 4, a
|
|
|
|
ret nz
|
|
|
|
.asm_465ed
|
|
|
|
ld hl, SeafoamIslands4ScriptPointers
|
|
|
|
ld a, [W_SEAFOAMISLANDS4CURSCRIPT]
|
|
|
|
jp CallFunctionInTable
|
|
|
|
|
|
|
|
Seafoam4HolesCoords: ; 465f6 (11:65f6)
|
|
|
|
db $10,$03
|
|
|
|
db $10,$06
|
|
|
|
db $ff
|
|
|
|
|
|
|
|
SeafoamIslands4ScriptPointers: ; 465fb (11:65fb)
|
|
|
|
dw SeafoamIslands4Script0
|
|
|
|
dw SeafoamIslands4Script1
|
|
|
|
dw SeafoamIslands4Script2
|
|
|
|
dw SeafoamIslands4Script3
|
|
|
|
|
|
|
|
SeafoamIslands4Script0: ; 46603 (11:6603)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd880]
|
2014-05-18 18:19:10 +00:00
|
|
|
and $3
|
|
|
|
cp $3
|
|
|
|
ret z
|
|
|
|
ld a, [W_YCOORD]
|
|
|
|
cp $8
|
|
|
|
ret nz
|
|
|
|
ld a, [W_XCOORD]
|
|
|
|
cp $f
|
|
|
|
ret nz
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wccd3
|
2014-05-18 18:19:10 +00:00
|
|
|
ld de, RLEMovement46632
|
|
|
|
call DecodeRLEList
|
|
|
|
dec a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcd38], a
|
2014-05-18 18:19:10 +00:00
|
|
|
call Func_3486
|
|
|
|
ld hl, W_FLAGS_D733
|
|
|
|
set 2, [hl]
|
|
|
|
ld a, $1
|
|
|
|
ld [W_SEAFOAMISLANDS4CURSCRIPT], a
|
|
|
|
ret
|
|
|
|
|
|
|
|
RLEMovement46632: ; 46632 (11:6632)
|
|
|
|
db $80,6
|
|
|
|
db $10,5
|
|
|
|
db $80,3
|
|
|
|
db $ff
|
|
|
|
|
|
|
|
SeafoamIslands4Script1: ; 46639 (11:6639)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wcd38]
|
2014-05-18 18:19:10 +00:00
|
|
|
and a
|
|
|
|
ret nz
|
|
|
|
ld a, $0
|
|
|
|
ld [W_SEAFOAMISLANDS4CURSCRIPT], a
|
|
|
|
ret
|
|
|
|
|
|
|
|
SeafoamIslands4Script2: ; 46644 (11:6644)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wd880]
|
2014-05-18 18:19:10 +00:00
|
|
|
and $3
|
|
|
|
cp $3
|
|
|
|
ret z
|
|
|
|
ld a, [W_XCOORD]
|
|
|
|
cp $12
|
|
|
|
jr z, .asm_4665e
|
|
|
|
cp $13
|
|
|
|
ld a, $0
|
|
|
|
jr nz, .asm_4667b
|
|
|
|
ld de, RLEData_4667f
|
|
|
|
jr .asm_46661
|
|
|
|
.asm_4665e
|
|
|
|
ld de, RLEData_46688
|
|
|
|
.asm_46661
|
2014-05-26 21:04:56 +00:00
|
|
|
ld hl, wccd3
|
2014-05-18 18:19:10 +00:00
|
|
|
call DecodeRLEList
|
|
|
|
dec a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wcd38], a
|
2014-05-18 18:19:10 +00:00
|
|
|
xor a
|
2014-05-26 21:04:56 +00:00
|
|
|
ld [wSpriteStateData2 + $06], a
|
|
|
|
ld hl, wd730
|
2014-05-18 18:19:10 +00:00
|
|
|
set 7, [hl]
|
|
|
|
ld hl, W_FLAGS_D733
|
|
|
|
set 2, [hl]
|
|
|
|
ld a, $3
|
|
|
|
.asm_4667b
|
|
|
|
ld [W_SEAFOAMISLANDS4CURSCRIPT], a
|
|
|
|
ret
|
|
|
|
|
|
|
|
RLEData_4667f: ; 4667f (11:667f)
|
|
|
|
db $80,$06,$10,$02,$80,$04,$20,$01,$FF
|
|
|
|
|
|
|
|
RLEData_46688: ; 46688 (11:6688)
|
|
|
|
db $80,$06,$10,$02,$80,$04,$FF
|
|
|
|
|
|
|
|
SeafoamIslands4Script3: ; 4668f (11:668f)
|
2014-05-26 21:04:56 +00:00
|
|
|
ld a, [wcd38]
|
2014-05-18 18:19:10 +00:00
|
|
|
and a
|
|
|
|
ret nz
|
|
|
|
ld a, $0
|
|
|
|
ld [W_SEAFOAMISLANDS4CURSCRIPT], a
|
|
|
|
ret
|
|
|
|
|
|
|
|
SeafoamIslands4TextPointers: ; 4669a (11:669a)
|
|
|
|
dw BoulderText
|
|
|
|
dw BoulderText
|
|
|
|
dw BoulderText
|
|
|
|
dw BoulderText
|
|
|
|
dw BoulderText
|
|
|
|
dw BoulderText
|