pokecrystal/engine/events/unown_walls.asm

268 lines
3.5 KiB
NASM

HoOhChamber: ; 0x8addb
ld hl, wPartySpecies
ld a, [hl]
cp HO_OH ; is Ho-oh the first Pokémon in the party?
jr nz, .done ; if not, we're done
call GetMapAttributesPointer ; pointless?
ld de, EVENT_WALL_OPENED_IN_HO_OH_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.done
ret
; 0x8adef
OmanyteChamber: ; 8adef
call GetMapAttributesPointer ; pointless?
ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
ld b, CHECK_FLAG
call EventFlagAction
ld a, c
and a
jr nz, .nope
ld a, WATER_STONE
ld [wCurItem], a
ld hl, wNumItems
call CheckItem
jr c, .open
ld a, [wPartyCount]
ld b, a
inc b
.loop
dec b
jr z, .nope
ld a, b
dec a
ld [wCurPartyMon], a
push bc
ld a, MON_ITEM
call GetPartyParamLocation
pop bc
ld a, [hl]
cp WATER_STONE
jr nz, .loop
.open
call GetMapAttributesPointer ; pointless?
ld de, EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.nope
ret
; 8ae30
SpecialAerodactylChamber: ; 8ae30
push de
push bc
call GetMapAttributesPointer
ld a, h
cp HIGH(RuinsOfAlphAerodactylChamber_MapAttributes)
jr nz, .nope
ld a, l
cp LOW(RuinsOfAlphAerodactylChamber_MapAttributes)
jr nz, .nope
ld de, EVENT_WALL_OPENED_IN_AERODACTYL_CHAMBER
ld b, SET_FLAG
call EventFlagAction
scf
jr .done
.nope
and a
.done
pop bc
pop de
ret
; 8ae4e
SpecialKabutoChamber: ; 8ae4e
push hl
push de
call GetMapAttributesPointer
ld a, h
cp HIGH(RuinsOfAlphKabutoChamber_MapAttributes)
jr nz, .done
ld a, l
cp LOW(RuinsOfAlphKabutoChamber_MapAttributes)
jr nz, .done
ld de, EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
ld b, SET_FLAG
call EventFlagAction
.done
pop de
pop hl
ret
; 8ae68
DisplayUnownWords: ; 8ae68
ld a, [wScriptVar]
ld hl, MenuHeaders_UnownWalls
and a
jr z, .load
ld d, $0
ld e, $5
.loop
add hl, de
dec a
jr nz, .loop
.load
call LoadMenuHeader
xor a
ld [hBGMapMode], a
call MenuBox
call UpdateSprites
call ApplyTilemap
call MenuBoxCoord2Tile
inc hl
ld d, 0
ld e, SCREEN_WIDTH
add hl, de
add hl, de
ld a, [wScriptVar]
ld c, a
ld de, UnownWalls
and a
jr z, .copy
.loop2
ld a, [de]
inc de
cp -1
jr nz, .loop2
dec c
jr nz, .loop2
.copy
call _DisplayUnownWords_CopyWord
ld bc, wAttrMap - wTileMap
add hl, bc
call _DisplayUnownWords_FillAttr
call WaitBGMap2
call JoyWaitAorB
call PlayClickSFX
call CloseWindow
ret
; 8aebc
INCLUDE "data/events/unown_walls.asm"
_DisplayUnownWords_FillAttr: ; 8aee9
ld a, [de]
cp $ff
ret z
cp $60
ld a, VRAM_BANK_1 | PAL_BG_BROWN
jr c, .got_pal
ld a, PAL_BG_BROWN
.got_pal
call .PlaceSquare
inc hl
inc hl
inc de
jr _DisplayUnownWords_FillAttr
; 8aefd
.PlaceSquare: ; 8aefd
push hl
ld [hli], a
ld [hld], a
ld b, 0
ld c, SCREEN_WIDTH
add hl, bc
ld [hli], a
ld [hl], a
pop hl
ret
; 8af09
_DisplayUnownWords_CopyWord: ; 8af09
push hl
push de
.word_loop
ld a, [de]
cp $ff
jr z, .word_done
ld c, a
call .ConvertChar
inc hl
inc hl
inc de
jr .word_loop
.word_done
pop de
pop hl
ret
; 8af1c
.ConvertChar: ; 8af1c
push hl
ld a, c
cp $60
jr z, .Tile60
cp $62
jr z, .Tile62
cp $64
jr z, .Tile64
ld [hli], a
inc a
ld [hld], a
dec a
ld b, 0
ld c, SCREEN_WIDTH
add hl, bc
ld c, $10
add c
ld [hli], a
inc a
ld [hl], a
pop hl
ret
.Tile60:
ld [hl], $5b
inc hl
ld [hl], $5c
ld bc, SCREEN_WIDTH - 1
add hl, bc
ld [hl], $4d
inc hl
ld [hl], $5d
pop hl
ret
.Tile62:
ld [hl], $4e
inc hl
ld [hl], $4f
ld bc, SCREEN_WIDTH - 1
add hl, bc
ld [hl], $5e
inc hl
ld [hl], $5f
pop hl
ret
.Tile64:
ld [hl], $2
inc hl
ld [hl], $3
ld bc, SCREEN_WIDTH - 1
add hl, bc
ld [hl], $3
inc hl
ld [hl], $2
pop hl
ret
; 8af6b