ref: e2ac753da178063877a06f1cd577888a5337d6e8
dir: /engine/events/unown_walls.asm/
Special_HoOhChamber: ; 0x8addb ld hl, PartySpecies 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 GetMapDataPointer ; pointless? ld de, EVENT_WALL_OPENED_IN_HO_OH_CHAMBER ld b, SET_FLAG call EventFlagAction .done ret ; 0x8adef Special_OmanyteChamber: ; 8adef call GetMapDataPointer ; 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 [CurItem], a ld hl, NumItems call CheckItem jr c, .open ld a, [PartyCount] ld b, a inc b .loop dec b jr z, .nope ld a, b dec a ld [CurPartyMon], a push bc ld a, MON_ITEM call GetPartyParamLocation pop bc ld a, [hl] cp WATER_STONE jr nz, .loop .open call GetMapDataPointer ; 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 GetMapDataPointer ld a, h cp HIGH(RuinsOfAlphAerodactylChamber_MapData) jr nz, .nope ld a, l cp LOW(RuinsOfAlphAerodactylChamber_MapData) 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 GetMapDataPointer ld a, h cp HIGH(RuinsOfAlphKabutoChamber_MapData) jr nz, .done ld a, l cp LOW(RuinsOfAlphKabutoChamber_MapData) jr nz, .done ld de, EVENT_WALL_OPENED_IN_KABUTO_CHAMBER ld b, SET_FLAG call EventFlagAction .done pop de pop hl ret ; 8ae68 Special_DisplayUnownWords: ; 8ae68 ld a, [ScriptVar] ld hl, MenuDataHeaders_UnownWalls and a jr z, .load ld d, $0 ld e, $5 .loop add hl, de dec a jr nz, .loop .load call LoadMenuDataHeader 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, [ScriptVar] 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, AttrMap - TileMap add hl, bc call _DisplayUnownWords_FillAttr call WaitBGMap2 call JoyWaitAorB call PlayClickSFX call CloseWindow ret ; 8aebc INCLUDE "data/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