ref: 85698ddbdb959f06594d8fa6a431d261b1a698a5
dir: /home/map.asm/
; Functions dealing with rendering and interacting with maps. Function210f:: ; 210f ld hl, $c7e8 ld bc, $0018 ld a, $0 call ByteFill ret ; 211b Function211b:: ; 211b push hl ld hl, $dbf7 ld a, [hli] ld h, [hl] ld l, a or h ld a, [hl] jr nz, .asm_2128 ld a, $ff .asm_2128 pop hl ret ; 212a Function212a:: ; 212a ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a xor a ld [$dbf7], a ld [$dbf8], a call Function2147 ret c ld a, e ld [$dbf7], a ld a, d ld [$dbf8], a xor a ret ; 2147 Function2147:: ; 2147 push bc ld a, [hROMBank] push af ld a, $13 rst Bankswitch ld hl, $501e .asm_2151 push hl ld a, [hli] cp $ff jr z, .asm_2167 cp b jr nz, .asm_2160 ld a, [hli] cp c jr nz, .asm_2160 jr .asm_216a .asm_2160 pop hl ld de, $0004 add hl, de jr .asm_2151 .asm_2167 scf jr .asm_216d .asm_216a ld e, [hl] inc hl ld d, [hl] .asm_216d pop hl pop bc ld a, b rst Bankswitch pop bc ret ; 2173 Function2173:: ; 2173 call Function217a call Functiondb1 ret ; 217a Function217a:: ; 217a ld a, [hROMBank] push af ld a, [TilesetBlocksBank] rst Bankswitch call Function2198 ld a, $60 ld hl, TileMap ld bc, TileMapEnd - TileMap call ByteFill ld a, $13 rst Bankswitch call $515b pop af rst Bankswitch ret ; 2198 Function2198:: ; 2198 ld a, [$d194] ld e, a ld a, [$d195] ld d, a ld hl, EnemyMoveAnimation ld b, $5 .asm_21a5 push de push hl ld c, $6 .asm_21a9 push de push hl ld a, [de] and a jr nz, .asm_21b2 ld a, [$d19d] .asm_21b2 ld e, l ld d, h add a ld l, a ld h, $0 add hl, hl add hl, hl add hl, hl ld a, [TilesetBlocksAddress] add l ld l, a ld a, [TilesetBlocksAddress + 1] adc h ld h, a rept 3 ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, e add 20 ld e, a jr nc, .next\@ inc d .next\@ endr ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de pop hl ld de, $0004 add hl, de pop de inc de dec c jp nz, .asm_21a9 pop hl ld de, $0060 add hl, de pop de ld a, [MapWidth] add $6 add e ld e, a jr nc, .asm_2225 inc d .asm_2225 dec b jp nz, .asm_21a5 ret ; 222a Function222a:: ; 222a ld a, $fa ld [$ff9f], a callba RunMapSetupScript xor a ld [$ff9f], a ret ; 2238 Function2238:: ; 2238 call Function2252 ret nc push bc callba Function149af pop bc ret nc call Function22a7 scf ret ; 224a Function224a:: ; 224a call Function2252 ret nc call Function22a7 ret ; 2252 Function2252:: ; 2252 callba Function1499a ret nc ld a, [hROMBank] push af call Function2c52 call Function2266 pop de ld a, d rst Bankswitch ret ; 2266 Function2266:: ; 2266 ld a, [MapY] sub $4 ld e, a ld a, [MapX] sub $4 ld d, a ld a, [$dbfb] and a ret z ld c, a ld hl, $dbfc ld a, [hli] ld h, [hl] ld l, a .asm_227e push hl ld a, [hli] cp e jr nz, .asm_2289 ld a, [hli] cp d jr nz, .asm_2289 jr .asm_2296 .asm_2289 pop hl ld a, $5 add l ld l, a jr nc, .asm_2291 inc h .asm_2291 dec c jr nz, .asm_227e xor a ret .asm_2296 pop hl call Function22a3 ret nc ld a, [$dbfb] inc a sub c ld c, a scf ret ; 22a3 Function22a3:: ; 22a3 inc hl inc hl scf ret ; 22a7 Function22a7:: ; 22a7 ld a, [hROMBank] push af call Function2c52 call Function22b4 pop af rst Bankswitch scf ret ; 22b4 Function22b4:: ; 22b4 push bc ld hl, $dbfc ld a, [hli] ld h, [hl] ld l, a ld a, c dec a ld bc, $0005 call AddNTimes ld bc, $0002 add hl, bc ld a, [hli] cp $ff jr nz, .asm_22d0 ld hl, $dcac ld a, [hli] .asm_22d0 pop bc ld [$d146], a ld a, [hli] ld [$d147], a ld a, [hli] ld [$d148], a ld a, c ld [$d149], a ld a, [MapGroup] ld [$d14a], a ld a, [MapNumber] ld [$d14b], a scf ret ; 22ee CheckOutdoorMap:: ; 22ee cp ROUTE ret z cp TOWN ret ; 22f4 CheckIndoorMap:: ; 22f4 cp INDOOR ret z cp CAVE ret z cp DUNGEON ret z cp GATE ret ; 2300 Function2300:: ; 2300 cp INDOOR ret z cp GATE ret z cp $5 ret ; 2309 Function2309:: ; 2309 call Function2326 call Function2c52 call Function234f xor a call Function2336 ret ; 2317 Function2317:: ; 2317 call Function2326 call Function2c52 call Function234f ld a, $1 call Function2336 ret ; 2326 Function2326:: ; 2326 call Function2c3d call SwitchToMapBank call GetSecondaryMapHeaderPointer call Function235c call Function2368 ret ; 2336 Function2336:: ; 2336 push af ld hl, MapEventHeaderPointer ld a, [hli] ld h, [hl] ld l, a inc hl inc hl call Function23da call Function23f1 call Function2408 pop af and a ret nz call Function241f ret ; 234f Function234f:: ; 234f ld hl, MapScriptHeaderPointer ld a, [hli] ld h, [hl] ld l, a call Function23ac call Function23c3 ret ; 235c Function235c:: ; 235c ld de, $d19d ld c, $c .asm_2361 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_2361 ret ; 2368 Function2368:: ; 2368 ld a, $ff ld [NorthConnectedMapGroup], a ld [SouthConnectedMapGroup], a ld [WestConnectedMapGroup], a ld [EastConnectedMapGroup], a ld a, [MapConnections] ld b, a bit 3, b jr z, .asm_2384 ld de, NorthMapConnection call GetMapConnection .asm_2384 bit 2, b jr z, .asm_238e ld de, SouthMapConnection call GetMapConnection .asm_238e bit 1, b jr z, .asm_2398 ld de, WestMapConnection call GetMapConnection .asm_2398 bit 0, b jr z, .asm_23a2 ld de, EastMapConnection call GetMapConnection .asm_23a2 ret ; 23a3 GetMapConnection:: ; 23a3 ; Load map connection struct at hl into de. ld c, SouthMapConnection - NorthMapConnection .loop ld a, [hli] ld [de], a inc de dec c jr nz, .loop ret ; 23ac Function23ac:: ; 23ac ld a, [hli] ld c, a ld [$dc07], a ld a, l ld [$dc08], a ld a, h ld [$dc09], a ld a, c and a ret z ld bc, $0004 call AddNTimes ret ; 23c3 Function23c3:: ; 23c3 ld a, [hli] ld c, a ld [$dc0a], a ld a, l ld [$dc0b], a ld a, h ld [$dc0c], a ld a, c and a ret z ld bc, $0003 call AddNTimes ret ; 23da Function23da:: ; 23da ld a, [hli] ld c, a ld [$dbfb], a ld a, l ld [$dbfc], a ld a, h ld [$dbfd], a ld a, c and a ret z ld bc, $0005 call AddNTimes ret ; 23f1 Function23f1:: ; 23f1 ld a, [hli] ld c, a ld [$dbfe], a ld a, l ld [$dbff], a ld a, h ld [$dc00], a ld a, c and a ret z ld bc, $0008 call AddNTimes ret ; 2408 Function2408:: ; 2408 ld a, [hli] ld c, a ld [$dc01], a ld a, l ld [$dc02], a ld a, h ld [$dc03], a ld a, c and a ret z ld bc, $0005 call AddNTimes ret ; 241f Function241f:: ; 241f push hl call Function2471 pop de ld hl, $d72e ld a, [de] inc de ld [$dc04], a ld a, e ld [$dc05], a ld a, d ld [$dc06], a ld a, [$dc04] call Function2457 ld a, [$dc04] ld c, a ld a, $10 sub c jr z, .asm_2454 ld bc, $0001 add hl, bc ld bc, $0010 .asm_244a ld [hl], $0 inc hl ld [hl], $ff dec hl add hl, bc dec a jr nz, .asm_244a .asm_2454 ld h, d ld l, e ret ; 2457 Function2457:: ; 2457 and a ret z ld c, a .asm_245a push bc push hl ld a, $ff ld [hli], a ld b, $d .asm_2461 ld a, [de] inc de ld [hli], a dec b jr nz, .asm_2461 pop hl ld bc, $0010 add hl, bc pop bc dec c jr nz, .asm_245a ret ; 2471 Function2471:: ; 2471 ld hl, $d4fe ld bc, $01e0 xor a call ByteFill ld hl, $d4fe ld de, $0028 ld c, $c xor a .asm_2484 ld [hl], a add hl, de dec c jr nz, .asm_2484 ret ; 248a Function248a:: ; 248a call GetMapScriptHeaderBank rst Bankswitch ld hl, MapEventHeaderPointer ld a, [hli] ld h, [hl] ld l, a inc hl inc hl inc hl ld a, [WarpNumber] dec a ld c, a ld b, $0 ld a, $5 call AddNTimes ld a, [hli] ld [YCoord], a ld a, [hli] ld [XCoord], a ld a, [hli] cp $ff jr nz, .asm_24b3 call Function24ba .asm_24b3 callba Function10486d ret ; 24ba Function24ba:: ; 24ba ld a, [$d149] ld [$dcac], a ld a, [$d14a] ld [BackupMapGroup], a ld a, [$d14b] ld [BackupMapNumber], a ret ; 24cd Function24cd:: ; 24cd ld hl, OverworldMap ld bc, OverworldMapEnd - OverworldMap ld a, 0 call ByteFill call Function24e4 call FillMapConnections ld a, $1 call Function263b ret ; 24e4 Function24e4:: ; 24e4 ld a, [hROMBank] push af ld hl, OverworldMap ld a, [MapWidth] ld [hConnectedMapWidth], a add $6 ld [hConnectionStripLength], a ld c, a ld b, 0 add hl, bc add hl, bc add hl, bc ld c, 3 add hl, bc ld a, [MapBlockDataBank] rst Bankswitch ld a, [MapBlockDataPointer] ld e, a ld a, [MapBlockDataPointer+1] ld d, a ld a, [MapHeight] ld b, a .asm_250c push hl ld a, [hConnectedMapWidth] ld c, a .asm_2510 ld a, [de] inc de ld [hli], a dec c jr nz, .asm_2510 pop hl ld a, [hConnectionStripLength] add l ld l, a jr nc, .asm_251e inc h .asm_251e dec b jr nz, .asm_250c pop af rst Bankswitch ret ; 2524 FillMapConnections:: ; 2524 ; North ld a, [NorthConnectedMapGroup] cp $ff jr z, .South ld b, a ld a, [NorthConnectedMapNumber] ld c, a call GetAnyMapBlockdataBank ld a, [NorthConnectionStripPointer] ld l, a ld a, [NorthConnectionStripPointer + 1] ld h, a ld a, [NorthConnectionStripLocation] ld e, a ld a, [NorthConnectionStripLocation + 1] ld d, a ld a, [NorthConnectionStripLength] ld [hConnectionStripLength], a ld a, [NorthConnectedMapWidth] ld [hConnectedMapWidth], a call FillNorthConnectionStrip .South ld a, [SouthConnectedMapGroup] cp $ff jr z, .West ld b, a ld a, [SouthConnectedMapNumber] ld c, a call GetAnyMapBlockdataBank ld a, [SouthConnectionStripPointer] ld l, a ld a, [SouthConnectionStripPointer + 1] ld h, a ld a, [SouthConnectionStripLocation] ld e, a ld a, [SouthConnectionStripLocation + 1] ld d, a ld a, [SouthConnectionStripLength] ld [hConnectionStripLength], a ld a, [SouthConnectedMapWidth] ld [hConnectedMapWidth], a call FillSouthConnectionStrip .West ld a, [WestConnectedMapGroup] cp $ff jr z, .East ld b, a ld a, [WestConnectedMapNumber] ld c, a call GetAnyMapBlockdataBank ld a, [WestConnectionStripPointer] ld l, a ld a, [WestConnectionStripPointer + 1] ld h, a ld a, [WestConnectionStripLocation] ld e, a ld a, [WestConnectionStripLocation + 1] ld d, a ld a, [WestConnectionStripLength] ld b, a ld a, [WestConnectedMapWidth] ld [hConnectionStripLength], a call FillWestConnectionStrip .East ld a, [EastConnectedMapGroup] cp $ff jr z, .Done ld b, a ld a, [EastConnectedMapNumber] ld c, a call GetAnyMapBlockdataBank ld a, [EastConnectionStripPointer] ld l, a ld a, [EastConnectionStripPointer + 1] ld h, a ld a, [EastConnectionStripLocation] ld e, a ld a, [EastConnectionStripLocation + 1] ld d, a ld a, [EastConnectionStripLength] ld b, a ld a, [EastConnectedMapWidth] ld [hConnectionStripLength], a call FillEastConnectionStrip .Done ret ; 25d3 FillNorthConnectionStrip:: FillSouthConnectionStrip:: ; 25d3 ld c, 3 .y push de push hl ld a, [hConnectionStripLength] ld b, a .x ld a, [hli] ld [de], a inc de dec b jr nz, .x pop hl ld a, [hConnectedMapWidth] ld e, a ld d, 0 add hl, de pop de ld a, [MapWidth] add 6 add e ld e, a jr nc, .asm_25f2 inc d .asm_25f2 dec c jr nz, .y ret ; 25f6 FillWestConnectionStrip:: FillEastConnectionStrip:: ; 25f6 .asm_25f6 ld a, [MapWidth] add 6 ld [hConnectedMapWidth], a push de push hl ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de pop hl ld a, [hConnectionStripLength] ld e, a ld d, 0 add hl, de pop de ld a, [hConnectedMapWidth] add e ld e, a jr nc, .asm_2617 inc d .asm_2617 dec b jr nz, .asm_25f6 ret ; 261b Function261b:: ; 261b ld [$d432], a ret ; 261f CallScript:: ; 261f ; Call a script at a:hl. ld [ScriptBank], a ld a, l ld [ScriptPos], a ld a, h ld [ScriptPos + 1], a ld a, $ff ld [ScriptRunning], a scf ret ; 2631 Function2631:: ; 2631 ld a, [ScriptRunning] and a ret nz call GetMapScriptHeaderBank jr CallScript ; 263b Function263b:: ; 263b ld b, a ld a, [hROMBank] push af call Function2c52 call Function2653 jr nc, .done call GetMapScriptHeaderBank ld b, a ld d, h ld e, l call Function2674 .done pop af rst Bankswitch ret ; 2653 Function2653:: ; 2653 ld a, [$dc0a] ld c, a and a ret z ld hl, $dc0b ld a, [hli] ld h, [hl] ld l, a or h ret z ld de, $0003 .asm_2664 ld a, [hl] cp b jr z, .asm_266e add hl, de dec c jr nz, .asm_2664 xor a ret .asm_266e inc hl ld a, [hli] ld h, [hl] ld l, a scf ret ; 2674 Function2674:: ; 2674 callba Unknown_0x974f3 ld a, [ScriptMode] push af ld hl, ScriptFlags ld a, [hl] push af set 1, [hl] callba Function96c56 callba ScriptEvents pop af ld [ScriptFlags], a pop af ld [ScriptMode], a ret ; 269a Function269a:: ; 269a ld a, [hROMBank] push af ld a, b rst Bankswitch push hl call SpeechTextBox call Function2e31 ld a, 1 ld [hOAMUpdate], a call Function321c pop hl call PrintTextBoxText xor a ld [hOAMUpdate], a pop af rst Bankswitch ret ; 26b7 Function26b7:: ; 26b7 ; Call a:de. ld [hBuffer], a ld a, [hROMBank] push af ld a, [hBuffer] rst Bankswitch call .de pop af rst Bankswitch ret .de push de ret ; 26c7 Function26c7:: ; 26c7 ld a, [hROMBank] push af ld a, b rst Bankswitch ld a, c call Function19e9 pop hl ld a, h rst Bankswitch ret ; 26d4 GetScriptByte:: ; 0x26d4 ; Return byte at ScriptBank:ScriptPos in a. push hl push bc ld a, [hROMBank] push af ld a, [ScriptBank] rst Bankswitch ld hl, ScriptPos ld c, [hl] inc hl ld b, [hl] ld a, [bc] inc bc ld [hl], b dec hl ld [hl], c ld b, a pop af rst Bankswitch ld a, b pop bc pop hl ret ; 0x26ef ObjectEvent:: ; 0x26ef jumptextfaceplayer ObjectEventText ; 0x26f2 ObjectEventText:: TX_FAR _ObjectEventText db "@" ; 0x26f7 BGEvent:: ; 26f7 jumptext BGEventText ; 26fa BGEventText:: ; 26fa text_jump UnknownText_0x1c46fc db "@" ; 26ff CoordinatesEvent:: ; 26ff jumptext CoordinatesEventText ; 2702 CoordinatesEventText:: ; 2702 text_jump UnknownText_0x1c4706 db "@" ; 2707 Function2707:: ; 2707 ld a, [hConnectionStripLength] ld e, a ld d, $0 ld hl, $d81e add hl, de ld a, [hl] ret ; 2712 Function2712:: ; 2712 ld a, [hConnectionStripLength] ld e, a ld d, $0 ld hl, $d81e add hl, de ld [hl], $ff ret ; 271e Function271e:: ; 271e ld a, [hConnectionStripLength] ld e, a ld d, $0 ld hl, $d81e add hl, de ld [hl], $0 ret ; 272a Function272a:: ; 272a ld hl, TileMap ld de, BGMapBuffer call Function27b7 ld c, $28 call Functiondbd ld a, [$d152] ld e, a ld a, [$d153] ld d, a call Function27d3 ld a, $1 ld [hBGMapUpdate], a ret ; 2748 Function2748:: ; 2748 ld hl, $c5e0 ld de, BGMapBuffer call Function27b7 ld c, $28 call Functiondbd ld a, [$d152] ld l, a ld a, [$d153] ld h, a ld bc, $0200 add hl, bc ld a, h and $3 or $98 ld e, l ld d, a call Function27d3 ld a, $1 ld [hBGMapUpdate], a ret ; 2771 Function2771:: ; 2771 ld hl, TileMap ld de, BGMapBuffer call Function27c0 ld c, $24 call Functiondbd ld a, [$d152] ld e, a ld a, [$d153] ld d, a call Function27f8 ld a, $1 ld [hBGMapUpdate], a ret ; 278f Function278f:: ; 278f ld hl, $c4b2 ld de, BGMapBuffer call Function27c0 ld c, $24 call Functiondbd ld a, [$d152] ld e, a and $e0 ld b, a ld a, e add $12 and $1f or b ld e, a ld a, [$d153] ld d, a call Function27f8 ld a, $1 ld [hBGMapUpdate], a ret ; 27b7 Function27b7:: ; 27b7 ld c, $28 .asm_27b9 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_27b9 ret ; 27c0 Function27c0:: ; 27c0 ld c, $12 .asm_27c2 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld a, $13 add l ld l, a jr nc, .asm_27cf inc h .asm_27cf dec c jr nz, .asm_27c2 ret ; 27d3 Function27d3:: ; 27d3 ld hl, BGMapBufferPtrs push de call .asm_27df pop de ld a, $20 add e ld e, a .asm_27df ld c, $a .asm_27e1 ld a, e ld [hli], a ld a, d ld [hli], a ld a, e inc a inc a and $1f ld b, a ld a, e and $e0 or b ld e, a dec c jr nz, .asm_27e1 ld a, $14 ld [$ffdc], a ret ; 27f8 Function27f8:: ; 27f8 ld hl, BGMapBufferPtrs ld c, $12 .asm_27fd ld a, e ld [hli], a ld a, d ld [hli], a ld a, $20 add e ld e, a jr nc, .asm_280e inc d ld a, d and $3 or $98 ld d, a .asm_280e dec c jr nz, .asm_27fd ld a, $12 ld [$ffdc], a ret ; 2816 Function2816:: ; 2816 ld hl, BGMapBuffer ld bc, $0078 xor a call ByteFill ret ; 2821 Function2821:: ; 2821 ld hl, TilesetAddress ld a, [hli] ld h, [hl] ld l, a ld a, [TilesetBank] ld e, a ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld a, e ld de, $d000 call FarDecompress ld hl, $d000 ld de, VTiles2 ld bc, $0600 call CopyBytes ld a, [rVBK] push af ld a, $1 ld [rVBK], a ld hl, $d600 ld de, VTiles2 ld bc, $0600 call CopyBytes pop af ld [rVBK], a pop af ld [rSVBK], a ld a, [$d199] cp $1 jr z, .asm_286f cp $2 jr z, .asm_286f cp $4 jr z, .asm_286f jr .asm_2875 .asm_286f callba LoadMapGroupRoof .asm_2875 xor a ld [hTileAnimFrame], a ret ; 2879 Function2879:: ; 2879 ld hl, $d194 ld a, [hli] ld h, [hl] ld l, a ld de, $dcb9 ld c, $5 ld b, $6 .asm_2886 push bc push hl .asm_2888 ld a, [hli] ld [de], a inc de dec b jr nz, .asm_2888 pop hl ld a, [MapWidth] add $6 ld c, a ld b, $0 add hl, bc pop bc dec c jr nz, .asm_2886 ret ; 289d Function289d:: ; 289d ld hl, $d194 ld a, [hli] ld h, [hl] ld l, a ld de, $dcb9 ld a, [MapWidth] add $6 ld [hConnectionStripLength], a ld a, [$d151] and a jr z, .asm_28cb cp $1 jr z, .asm_28c0 cp $2 jr z, .asm_28d4 cp $3 jr z, .asm_28da ret .asm_28c0 ld de, $dcbf ld a, [hConnectionStripLength] ld c, a ld b, $0 add hl, bc jr .asm_28ce .asm_28cb ld de, $dcb9 .asm_28ce ld b, $6 ld c, $4 jr Function28f7 .asm_28d4 ld de, $dcba inc hl jr .asm_28dd .asm_28da ld de, $dcb9 .asm_28dd ld b, $5 ld c, $5 jr Function28f7 Function28e3:: ; 28e3 ld hl, $d194 ld a, [hli] ld h, [hl] ld l, a ld a, [MapWidth] add $6 ld [hConnectionStripLength], a ld de, $dcb9 ld b, $6 ld c, $5 Function28f7:: ; 28f7 .asm_28f7 push bc push hl push de .asm_28fa ld a, [de] inc de ld [hli], a dec b jr nz, .asm_28fa pop de ld a, e add $6 ld e, a jr nc, .asm_2908 inc d .asm_2908 pop hl ld a, [hConnectionStripLength] ld c, a ld b, $0 add hl, bc pop bc dec c jr nz, .asm_28f7 ret ; 2914 Function2914:: ; 2914 xor a ld [TilePermissions], a call Function296c call Function294d ld a, [MapX] ld d, a ld a, [MapY] ld e, a call Function2a3c ld [StandingTile], a call Function29ff ret nz ld a, [StandingTile] and 7 ld hl, .data_2945 add l ld l, a ld a, 0 adc h ld h, a ld a, [hl] ld hl, TilePermissions or [hl] ld [hl], a ret ; 2945 .data_2945 ; 2945 db 1, 2, 4, 8, 9, 10, 5, 6 ; 294d Function294d:: ; 294d ld a, [MapX] ld d, a ld a, [MapY] ld e, a push de inc e call Function2a3c ld [TileDown], a call Function298b pop de dec e call Function2a3c ld [TileUp], a call Function29a8 ret ; 296c Function296c:: ; 296c ld a, [MapX] ld d, a ld a, [MapY] ld e, a push de dec d call Function2a3c ld [TileLeft], a call Function29e2 pop de inc d call Function2a3c ld [TileRight], a call Function29c5 ret ; 298b Function298b:: ; 298b call Function29ff ret nz ld a, [TileDown] and $7 cp $2 jr z, .asm_299f cp $6 jr z, .asm_299f cp $7 ret nz .asm_299f ld a, [TilePermissions] or $8 ld [TilePermissions], a ret ; 29a8 Function29a8:: ; 29a8 call Function29ff ret nz ld a, [TileUp] and $7 cp $3 jr z, .asm_29bc cp $4 jr z, .asm_29bc cp $5 ret nz .asm_29bc ld a, [TilePermissions] or $4 ld [TilePermissions], a ret ; 29c5 Function29c5:: ; 29c5 call Function29ff ret nz ld a, [TileRight] and $7 cp $1 jr z, .asm_29d9 cp $5 jr z, .asm_29d9 cp $7 ret nz .asm_29d9 ld a, [TilePermissions] or $1 ld [TilePermissions], a ret ; 29e2 Function29e2:: ; 29e2 call Function29ff ret nz ld a, [TileLeft] and $7 cp $0 jr z, .asm_29f6 cp $4 jr z, .asm_29f6 cp $6 ret nz .asm_29f6 ld a, [TilePermissions] or $2 ld [TilePermissions], a ret ; 29ff Function29ff:: ; 29ff and $f0 cp $b0 ret z cp $c0 ret ; 2a07 GetFacingTileCoord:: ; 2a07 ; Return map coordinates in (d, e) and tile id in a ; of the tile the player is facing. ld a, [PlayerDirection] and %1100 srl a srl a ld l, a ld h, 0 add hl, hl add hl, hl ld de, .Directions add hl, de ld d, [hl] inc hl ld e, [hl] inc hl ld a, [hli] ld h, [hl] ld l, a ld a, [MapX] add d ld d, a ld a, [MapY] add e ld e, a ld a, [hl] ret .Directions ; x, y db 0, 1 dw TileDown db 0, -1 dw TileUp db -1, 0 dw TileLeft db 1, 0 dw TileRight ; 2a3c Function2a3c:: ; 2a3c call Function2a66 ld a, [hl] and a jr z, .asm_2a63 ld l, a ld h, $0 add hl, hl add hl, hl ld a, [TilesetCollisionAddress] ld c, a ld a, [$d1e1] ld b, a add hl, bc rr d jr nc, .asm_2a56 inc hl .asm_2a56 rr e jr nc, .asm_2a5c inc hl inc hl .asm_2a5c ld a, [TilesetCollisionBank] call GetFarByte ret .asm_2a63 ld a, $ff ret ; 2a66 Function2a66:: ; 2a66 ld a, [MapWidth] add $6 ld c, a ld b, $0 ld hl, $c801 add hl, bc ld a, e srl a jr z, .asm_2a84 and a .asm_2a78 srl a jr nc, .asm_2a7d add hl, bc .asm_2a7d sla c rl b and a jr nz, .asm_2a78 .asm_2a84 ld c, d srl c ld b, $0 add hl, bc ret ; 2a8b CheckFacingSign:: ; 2a8b call GetFacingTileCoord ld b, a ld a, d sub 4 ld d, a ld a, e sub 4 ld e, a ld a, [$dc01] and a ret z ld c, a ld a, [hROMBank] push af call Function2c52 call Function2aaa pop hl ld a, h rst Bankswitch ret ; 2aaa Function2aaa:: ; 2aaa ld hl, $dc02 ld a, [hli] ld h, [hl] ld l, a .asm_2ab0 push hl ld a, [hli] cp e jr nz, .asm_2abb ld a, [hli] cp d jr nz, .asm_2abb jr .asm_2ac8 .asm_2abb pop hl ld a, 5 add l ld l, a jr nc, .asm_2ac3 inc h .asm_2ac3 dec c jr nz, .asm_2ab0 xor a ret .asm_2ac8 pop hl ld de, EngineBuffer1 ld bc, 5 call CopyBytes scf ret ; 2ad4 Function2ad4:: ; 2ad4 ld a, [$dbfe] and a ret z ld c, a ld a, [hROMBank] push af call Function2c52 call Function2ae7 pop hl ld a, h rst Bankswitch ret ; 2ae7 Function2ae7:: ; 2ae7 ld hl, $dbff ld a, [hli] ld h, [hl] ld l, a call Function211b ld b, a ld a, [MapX] sub $4 ld d, a ld a, [MapY] sub $4 ld e, a .asm_2afd push hl ld a, [hli] cp b jr z, .asm_2b06 cp $ff jr nz, .asm_2b10 .asm_2b06 ld a, [hli] cp e jr nz, .asm_2b10 ld a, [hli] cp d jr nz, .asm_2b10 jr .asm_2b1d .asm_2b10 pop hl ld a, $8 add l ld l, a jr nc, .asm_2b18 inc h .asm_2b18 dec c jr nz, .asm_2afd xor a ret .asm_2b1d pop hl ld de, EngineBuffer1 ld bc, $0008 call CopyBytes scf ret ; 2b29 FadeToMenu:: ; 2b29 xor a ld [hBGMapMode], a call Function1d6e callba Function8c084 call ClearSprites call Function2ed3 ret ; 2b3c Function2b3c:: ; 2b3c call WhiteBGMap call Function2bae call Function1ad2 call Function1d7d call Functiond90 jr Function2b5c ; 2b4d Function2b4d:: ; 2b4d call WhiteBGMap call Function1d7d call Function2bae call Function1ad2 call Functiond90 ; 2b5c Function2b5c:: ; 2b5c ld b, $9 call GetSGBLayout callba Function49409 call Function3200 callba Function8c079 call Function2ee4 ret ; 2b74 Function2b74:: ; 0x2b74 push af ld a, $1 ld [$c2ce], a call WhiteBGMap call ClearSprites call Function2bae ld hl, $c590 ; tile 0, 12 ld bc, $0412 call TextBox ld hl, VramState set 0, [hl] call Function1ad2 call Function3200 ld b, $9 call GetSGBLayout callba Function49409 call UpdateTimePals call DelayFrame ld a, $1 ld [$ffde], a pop af ret ; 0x2bae Function2bae:: ; 2bae call DisableLCD call ClearSprites callba Function14168 call Functione51 call Functione5f ld a, [hROMBank] push af ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call SwitchToAnyMapBank callba Function8c001 call Function2173 call Function2821 ld a, $9 call Function3cb4 pop af rst Bankswitch call EnableLCD ret ; 2be5 GetMapHeaderPointer:: ; 2be5 ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a ; 2bed GetAnyMapHeaderPointer:: ; 0x2bed ; Prior to calling this function, you must have switched banks so that ; MapGroupPointers is visible. ; inputs: ; b = map group, c = map number ; XXX de = ??? ; outputs: ; hl points to the map header push bc ; save map number for later ; get pointer to map group dec b ld c, b ld b, $0 ld hl, MapGroupPointers add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a pop bc ; restore map number ; find the cth map header dec c ld b, $0 ld a, OlivineGym_MapHeader - OlivinePokeCenter1F_MapHeader call AddNTimes ret ; 0x2c04 GetMapHeaderMember:: ; 0x2c04 ; Extract data from the current map's header. ; inputs: ; de = offset of desired data within the mapheader ; outputs: ; bc = data from the current map's header ; (e.g., de = $0003 would return a pointer to the secondary map header) ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a ; fallthrough GetAnyMapHeaderMember:: ; 0x2c0c ; bankswitch ld a, [hROMBank] push af ld a, BANK(MapGroupPointers) rst Bankswitch call GetAnyMapHeaderPointer add hl, de ld c, [hl] inc hl ld b, [hl] ; bankswitch back pop af rst Bankswitch ret ; 0x2c1c SwitchToMapBank:: ; 2c1c ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a ; 2c24 SwitchToAnyMapBank:: ; 2c24 call GetAnyMapBank rst Bankswitch ret ; 2c29 GetMapBank:: ; 2c29 ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a ; 2c31 GetAnyMapBank:: ; 2c31 push hl push de ld de, $0000 call GetAnyMapHeaderMember ld a, c pop de pop hl ret ; 2c3d Function2c3d:: ; 2c3d ld a, [hROMBank] push af ld a, $25 rst Bankswitch call GetMapHeaderPointer ld de, $d198 ld bc, $0005 call CopyBytes pop af rst Bankswitch ret ; 2c52 Function2c52:: ; 2c52 ld a, [MapScriptHeaderBank] rst Bankswitch ret ; 2c57 GetMapScriptHeaderBank:: ; 2c57 ld a, [MapScriptHeaderBank] ret ; 2c5b GetAnyMapBlockdataBank:: ; 2c5b ; Return the blockdata bank for group b map c. push hl push de push bc push bc ld de, 3 ; second map header pointer call GetAnyMapHeaderMember ld l, c ld h, b pop bc push hl ld de, 0 ; second map header bank call GetAnyMapHeaderMember pop hl ld de, 3 ; blockdata bank add hl, de ld a, c call GetFarByte rst Bankswitch pop bc pop de pop hl ret ; 2c7d GetSecondaryMapHeaderPointer:: ; 0x2c7d ; returns the current map's secondary map header pointer in hl. push bc push de ld de, $0003 ; secondary map header pointer (offset within header) call GetMapHeaderMember ld l, c ld h, b pop de pop bc ret ; 2c8a GetMapPermission:: ; 2c8a push hl push de push bc ld de, 2 call GetMapHeaderMember ld a, c pop bc pop de pop hl ret ; 2c98 Function2c98:: ; 2c98 ret ; 2c99 GetAnyMapPermission:: ; 2c99 push hl push de push bc ld de, $0002 call GetAnyMapHeaderMember ld a, c pop bc pop de pop hl ret ; 2ca7 GetAnyMapTileset:: ; 2ca7 ld de, $0001 call GetAnyMapHeaderMember ld a, c ret ; 2caf GetWorldMapLocation:: ; 0x2caf ; given a map group/id in bc, return its location on the Pokégear map. push hl push de push bc ld de, 5 call GetAnyMapHeaderMember ld a, c pop bc pop de pop hl ret ; 0x2cbd Function2cbd:: ; 2cbd push hl push bc ld de, $0006 call GetMapHeaderMember ld a, c cp $64 jr z, .asm_2cee bit 7, c jr nz, .asm_2cda callba Function8b342 ld e, c ld d, $0 .asm_2cd7 pop bc pop hl ret .asm_2cda ld a, [StatusFlags2] bit 0, a jr z, .asm_2ce6 ld de, $0056 jr .asm_2cd7 .asm_2ce6 ld a, c and $7f ld e, a ld d, $0 jr .asm_2cd7 .asm_2cee ld a, [StatusFlags2] bit 7, a jr z, .asm_2cfa ld de, $0048 jr .asm_2cd7 .asm_2cfa ld de, $0026 jr .asm_2cd7 ; 2cff Function2cff:: ; 2cff call Function2d0d and $f ret ; 2d05 Function2d05:: ; 2d05 call Function2d0d and $f0 swap a ret ; 2d0d Function2d0d:: ; 2d0d push hl push bc ld de, $0007 call GetMapHeaderMember ld a, c pop bc pop hl ret ; 2d19 Function2d19:: ; 2d19 push de push hl push bc ld de, $0008 call GetMapHeaderMember ld a, c pop bc pop hl pop de ret ; 2d27 LoadTilesetHeader:: ; 2d27 push hl push bc ld hl, Tilesets ld bc, Tileset01 - Tileset00 ld a, [$d199] call AddNTimes ld de, TilesetBank ld bc, Tileset01 - Tileset00 ld a, BANK(Tilesets) call FarCopyBytes pop bc pop hl ret ; 2d43