diff options
Diffstat (limited to 'home/map.asm')
| -rw-r--r-- | home/map.asm | 1859 |
1 files changed, 1859 insertions, 0 deletions
diff --git a/home/map.asm b/home/map.asm index 8ec34be..7244fb1 100644 --- a/home/map.asm +++ b/home/map.asm @@ -26,6 +26,11 @@ RunMapScript:: ; 20ff pop hl ret +; TODO: is this used? +WriteIntod637:: ; 2117 + push af + ; TODO: figure out what variables are concerned here + SECTION "ClearMapBuffer", ROM0[$2123] ClearMapBuffer:: ; 00:2123 ld hl, wMapBuffer @@ -33,3 +38,1857 @@ ClearMapBuffer:: ; 00:2123 ld a, 0 call ByteFill ret + +SetUpMapBuffer:: ; 212f + call ClearMapBuffer + ldh a, [hROMBank] + push af + ld a, BANK(UnknownMapBufferPointers) + call Bankswitch + ld hl, UnknownMapBufferPointers + ld a, [wMapGroup] + ld b, a + ld a, [wMapId] + ld c, a +.search + ld a, [hli] + cp $FF + jr z, .done + cp b + jr nz, .next_with_id + ld a, [hli] + cp c + jr nz, .next_without_id + + ; Match found! + ld de, wMapScriptNumberLocation + call GetMapScriptNumber ; Read map script from pointed location + call CopyWord ; Copy map script pointer + ld de, wUnknownMapPointer + call CopyWord + +.done + pop af + call Bankswitch + ret + +.next_with_id + ld de, 7 + add hl, de + jr .search + +.next_without_id + ld de, 6 + add hl, de + jr .search + +GetMapScriptNumber:: ; 2171 + push hl + ld a, [hli] + ld h, [hl] + ld l, a + ld a, [hl] + ld [wMapScriptNumber], a + pop hl + ret + +CopyWord:: ; 217b + ld a, [hli] + ld [de], a + ld a, [hli] + inc de + ld [de], a + ret + + +SetMapScriptNumber:: ; 2181 + ld [wMapScriptNumber], a + ret + +IncMapScriptNumber:: ; 2185 + ld hl, wMapScriptNumber + inc [hl] + ret + +DecMapScriptNumber:: ; 218a + ld hl, wMapScriptNumber + dec [hl] + ret + +WriteBackMapScriptNumber:: ; 218f + ld a, [wMapScriptNumberLocation] + ld l, a + ld a, [wMapScriptNumberLocation + 1] + ld h, a + ld a, [wMapScriptNumber] + ld [hl], a + ret + + +GetMapPointer:: ; 219c + ld a, [wMapGroup] + ld b, a + ld a, [wMapId] + ld c, a +GetAnyMapPointer:: ; 21a4 + push bc + 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 + dec c + ld b, 0 + ld a, 8 + call AddNTimes + ret + + +SwitchToMapBank:: ; 21bb + ld a, [wMapGroup] + ld b, a + ld a, [wMapId] + ld c, a +SwitchToAnyMapBank:: ; 21c3 + push hl + ld a, BANK(MapGroupPointers) + call Bankswitch + call GetAnyMapPointer + ld a, [hl] + call Bankswitch + pop hl + ret + + +CopyMapPartial:: ; 213d + ldh a, [hROMBank] + push af + ld a, BANK(MapGroupPointers) + call Bankswitch + call GetMapPointer + ld de, wMapPartial + ld bc, wMapPartialEnd - wMapPartial + call CopyBytes + pop af + call Bankswitch + ret + +GetMapAttributesPointer:: ; 21eb + push bc + ldh a, [hROMBank] + push af + ld a, BANK(MapGroupPointers) + call Bankswitch + ld a, [wMapGroup] + ld b, a + ld a, [wMapId] + ld c, a + call GetAnyMapPointer + ld bc, 3 ; TODO: constantify this + add hl, bc + ld a, [hli] + ld h, [hl] + ld l, a + pop af + call Bankswitch + pop bc + ret + +GetMapEnvironment:: ; 220c + push hl + push bc + ldh a, [hROMBank] + push af + ld a, BANK(MapGroupPointers) + call Bankswitch + call GetMapPointer + ld bc, 2 ; TODO: constantify this + add hl, bc + ld b, [hl] + pop af + call Bankswitch + ld a, b + pop bc + pop hl + ret + +GetAnyMapEnvironment:: ; 2226 + ldh a, [hROMBank] + push af + ld a, BANK(MapGroupPointers) + call Bankswitch + call GetAnyMapPointer + ld bc, 2 ; TODO: constantify this + add hl, bc + ld b, [hl] + pop af + call Bankswitch + ld a, b + ret + +GetWorldMapLocation:: ; 223c + ldh a, [hROMBank] + push af + ld a, BANK(MapGroupPointers) + call Bankswitch + call GetAnyMapPointer + ld bc, 5 ; TODO: constantify this + add hl, bc + ld b, [hl] + pop af + call Bankswitch + ld a, b + ret + + +EmptyFunction2252:: ; 2252 + ret + + +LoadMap:: ; 2253 + ldh a, [hMapEntryMethod] + and a ; Possible bug: if the entry method is $X0, this will overflow + ret z + and $0F + dec a + ld hl, .jumptable + call CallJumptable + xor a + ldh [hMapEntryMethod], a + scf + ret + +.jumptable + dw MapSetup_Continue + dw MapSetup_22af ; TODO + dw MapSetup_Reload + dw MapSetup_22de ; TODO + dw MapSetup_22de ; TODO + dw MapSetup_Warp + dw MapSetup_Connection + dw MapSetup_2275 ; TODO + + +MapSetup_2275:: ; 2275 + ldh a, [hROMBank] + push af + call MapSetup_22af ; TODO + pop af + call Bankswitch + ret + +MapSetup_Reload:: ; 2280 + call DisableLCD + call DisableAudio + call VolumeOff + call SwitchToMapBank + call LoadGraphics + call ChangeMap + call SaveScreen + call LoadMapTimeOfDay + call EnableLCD + call PlayMapMusic + ld a, $88 ; TODO: constantify this + ld [wMusicFade], a + ld b, 9 ; TODO: constantify this + call GetSGBLayout + call LoadWildMons + call FadeIn + ret + +MapSetup_22af:: ; 22af + call DisableLCD + call DisableAudio + call VolumeOff + call SwitchToMapBank + call SetUpMapBuffer + call InitUnknownBuffercc9e + call LoadGraphics + call ChangeMap + call LoadMapTimeOfDay + call EnableLCD + call PlayMapMusic + ld a, $88 ; TODO: constantify this + ld [wMusicFade], a + ld b, 9 ; TODO: constantify this + call GetSGBLayout + call FadeIn + ret + +MapSetup_22de:: ; 22de + callab OverworldFadeOut + +MapSetup_Continue:: ; 22e6 + call DisableLCD + call DisableAudio + call VolumeOff + callab DebugWarp + call CopyMapPartialAndAttributes + call SetUpMapBuffer + call InitUnknownBuffercc9e + call RefreshPlayerCoords + call GetCoordOfUpperLeftCorner + call LoadGraphics + call ChangeMap + call LoadMapTimeOfDay + call InitializeVisibleSprites + call EnableLCD + call PlayMapMusic + ld a, $88 ; TODO: constantify this + ld [wMusicFade], a + ld b, 9 ; TODO: constantify this + call GetSGBLayout + call LoadWildMons + call $242C ; TODO + call FadeIn + ret + +MapSetup_Warp:: ; 232c + callab OverworldFadeOut + call DisableLCD + call Function27C7 ; TODO + ld a, [wNextWarp] + ld [wWarpNumber], a + ld a, [wNextMapGroup] + ld [wMapGroup], a + ld a, [wNextMapId] + ld [wMapId], a + call CopyMapPartialAndAttributes + call SetUpMapBuffer + call InitUnknownBuffercc9e + call RestoreFacingAfterWarp + call RefreshPlayerCoords + call LoadGraphics + call ChangeMap + call LoadMapTimeOfDay + call InitializeVisibleSprites + call EnableLCD + call PlayMapMusic + ld b, 9 ; TODO: constantify this + call GetSGBLayout + call LoadWildMons + call FadeIn + call Function2407 ; TODO + ret + +LoadMapTimeOfDay:: ; 237c + callab ReplaceTimeOfDayPals + call LoadMapPart + call .ClearBGMap + call .PushAttrMap + ret + +.ClearBGMap ; 238e + ld a, HIGH(vBGMap0) + ld [wBGMapAnchor + 1], a + xor a ; LOW(vBGMap0) + ld [wBGMapAnchor], a + ldh [hSCY], a + ldh [hSCX], a + + ld a, "■" + ld bc, vBGMap1 - vBGMap0 + hlbgcoord 0, 0 + call ByteFill + ret + +.PushAttrMap ; 23a7 + decoord 0, 0 + hlbgcoord 0, 0 + ld c, SCREEN_WIDTH + ld b, SCREEN_HEIGHT +.row + push bc +.column + ld a, [de] + inc de + ld [hli], a + dec c + jr nz, .column + ld bc, BG_MAP_WIDTH - SCREEN_WIDTH + add hl, bc + pop bc + dec b + jr nz, .row + ret + +LoadWildMons:: ; 23c1 + callab _LoadWildMons + ret + +LoadGraphics:: ; 23ca + call LoadTileset + call LoadTilesetGFX + callba RefreshSprites + call LoadFontExtra + ret + +InitializeVisibleSprites:: ; 23dc + callab _InitializeVisibleSprites + ret + +FadeIn:: ; 23e5 ; This is not OverworldFadeIn, but I don't know what it is + call Function202c ; TODO + call RefreshTiles + ld hl, wVramState + set 0, [hl] + call Function2407 + callab _UpdateSprites + call DelayFrame + callab OverworldFadeIn + ret + +Function2407:: ; 2407 + ; TODO + + +SECTION "Map stuff", ROM0[$2439] +MapSetup_Connection:: ; 2439 + call EnterMapConnection + call CopyMapPartialAndAttributes + call SetUpMapBuffer + call InitUnknownBuffercc9e + call RefreshPlayerCoords + call InitializeVisibleSprites + call ChangeMap + call SaveScreen + call FadeToMapMusic + ld b, 9 ; TODO: constantify this + call GetSGBLayout + call LoadWildMons + scf + ret + +CheckMovingOffEdgeOfMap:: ; 245e + ld a, [wPlayerStepDirection] + cp STANDING + ret z + and a ; DOWN + jr z, .down + cp UP + jr z, .up + cp LEFT + jr z, .left + cp RIGHT + jr z, .right + and a + ret + +.down + ld a, [wPlayerStandingMapY] + sub 4 + ld b, a + ld a, [wMapHeight] + add a + cp b + jr z, .ok + and a + ret + +.up + ld a, [wPlayerStandingMapY] + sub 4 + cp -1 + jr z, .ok + and a + ret + +.left + ld a, [wPlayerStandingMapX] + sub 4 + cp -1 + jr z, .ok + and a + ret + +.right + ld a, [wPlayerStandingMapX] + sub 4 + ld b, a + ld a, [wMapWidth] + add a + cp b + jr z, .ok + and a + ret + +.ok + ld a, MAPSETUP_CONNECTION + ldh [hMapEntryMethod], a + scf + ret + +EnterMapConnection: ; 24af +; Return carry if a connection has been entered. + ld a, [wPlayerStepDirection] + and a + jp z, .south + cp UP + jp z, .north + cp LEFT + jp z, .west + cp RIGHT + jp z, .east + ret + +.west + ld a, [wWestConnectedMapGroup] + ld [wMapGroup], a + ld a, [wWestConnectedMapNumber] + ld [wMapId], a + ld a, [wWestConnectionStripXOffset] + ld [wXCoord], a + ld a, [wWestConnectionStripYOffset] + ld hl, wYCoord + add [hl] + ld [hl], a + ld c, a + ld hl, wWestConnectionWindow + ld a, [hli] + ld h, [hl] + ld l, a + srl c + jr z, .skip_to_load + ld a, [wWestConnectedMapWidth] + add 6 + ld e, a + ld d, 0 + +.loop + add hl, de + dec c + jr nz, .loop + +.skip_to_load + ld a, l + ld [wOverworldMapAnchor], a + ld a, h + ld [wOverworldMapAnchor + 1], a + jp .done + +.east + ld a, [wEastConnectedMapGroup] + ld [wMapGroup], a + ld a, [wEastConnectedMapNumber] + ld [wMapId], a + ld a, [wEastConnectionStripXOffset] + ld [wXCoord], a + ld a, [wEastConnectionStripYOffset] + ld hl, wYCoord + add [hl] + ld [hl], a + ld c, a + ld hl, wEastConnectionWindow + ld a, [hli] + ld h, [hl] + ld l, a + srl c + jr z, .skip_to_load2 + ld a, [wEastConnectedMapWidth] + add 6 + ld e, a + ld d, 0 + +.loop2 + add hl, de + dec c + jr nz, .loop2 + +.skip_to_load2 + ld a, l + ld [wOverworldMapAnchor], a + ld a, h + ld [wOverworldMapAnchor + 1], a + jp .done + +.north + ld a, [wNorthConnectedMapGroup] + ld [wMapGroup], a + ld a, [wNorthConnectedMapNumber] + ld [wMapId], a + ld a, [wNorthConnectionStripYOffset] + ld [wYCoord], a + ld a, [wNorthConnectionStripXOffset] + ld hl, wXCoord + add [hl] + ld [hl], a + ld c, a + ld hl, wNorthConnectionWindow + ld a, [hli] + ld h, [hl] + ld l, a + ld b, 0 + srl c + add hl, bc + ld a, l + ld [wOverworldMapAnchor], a + ld a, h + ld [wOverworldMapAnchor + 1], a + jp .done + +.south + ld a, [wSouthConnectedMapGroup] + ld [wMapGroup], a + ld a, [wSouthConnectedMapNumber] + ld [wMapId], a + ld a, [wSouthConnectionStripYOffset] + ld [wYCoord], a + ld a, [wSouthConnectionStripXOffset] + ld hl, wXCoord + add [hl] + ld [hl], a + ld c, a + ld hl, wSouthConnectionWindow + ld a, [hli] + ld h, [hl] + ld l, a + ld b, 0 + srl c + add hl, bc + ld a, l + ld [wOverworldMapAnchor], a + ld a, h + ld [wOverworldMapAnchor + 1], a +.done + scf + ret + + +WarpCheck:: ; 259f + call GetDestinationWarpPointer + ret nc + ld a, [hli] + ld [wNextWarp], a + ld a, [hli] + ld [wNextMapGroup], a + ld a, [hli] + ld [wNextMapId], a + ld a, c + ld [wPrevWarp], a + ld a, MAPSETUP_WARP + ldh [hMapEntryMethod], a + scf + ret + +GetDestinationWarpPointer: ; 25b9 + ld a, [wPlayerStandingMapY] + sub 4 + ld d, a + ld a, [wPlayerStandingMapX] + sub 4 + ld e, a + ld a, [wCurrMapWarpCount] + ld c, a + and a + ret z + + ld hl, wCurrMapWarps +.next + ld a, [hli] + cp d + jr nz, .nope + ld a, [hl] + cp e + jr z, .found_warp +.nope + push de + ld de, 4 ; TODO: constantify this + add hl, de + pop de + dec c + jr nz, .next + xor a + ret + +.found_warp + ld a, [wCurrMapWarpCount] + inc a + sub c + ld c, a + inc hl + scf + ret + + +CopyMapPartialAndAttributes:: ; 25ea + call SwitchToMapBank + call CopyAndReadHeaders + call ReadObjectEvents + ret + +CopyAndReadHeaders:: ; 25f4 + call CopyMapPartial + call GetMapAttributesPointer + ld hl, wMapAttributesPtr + ld a, [hli] + ld h, [hl] + ld l, a + ld de, wMapAttributes + ld c, wMapAttributesEnd - wMapAttributes +.copy + ld a, [hli] + ld [de], a + inc de + dec c + jr nz, .copy + call GetMapConnections + ld hl, wMapObjectsPtr + ld a, [hli] + ld h, [hl] + ld l, a + inc hl + inc hl + call ReadWarps + call ReadSigns + ret + +GetMapConnections:: ; 261d + ld a, $ff + ld [wNorthConnectedMapGroup], a + ld [wSouthConnectedMapGroup], a + ld [wWestConnectedMapGroup], a + ld [wEastConnectedMapGroup], a + + ld a, [wMapConnections] + ld b, a + bit 3, b + jr z, .no_north + ld de, wNorthMapConnection + call GetMapConnection +.no_north + + bit 2, b + jr z, .no_south + ld de, wSouthMapConnection + call GetMapConnection +.no_south + + bit 1, b + jr z, .no_west + ld de, wWestMapConnection + call GetMapConnection +.no_west + + bit 0, b + jr z, .no_east + ld de, wEastMapConnection + call GetMapConnection +.no_east + + ret + +GetMapConnection:: ; 2658 + ld c, wSouthMapConnection - wNorthMapConnection +.copy + ld a, [hli] + ld [de], a + inc de + dec c + jr nz, .copy + ret + + +ReadWarps:: ; 2661 + ld a, [hli] + ld [wCurrMapWarpCount], a + and a + ret z + ld c, a + ld de, wCurrMapWarps +.next + ld b, 5 ; TODO: constantify this +.copy + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .copy + inc hl + inc hl + dec c + jr nz, .next + ret + + +ReadSigns:: ; 2679 + ld a, [hli] + ld [wCurrMapSignCount], a + and a + ret z + ld c, a + ld de, wCurrMapSigns +.next + ld b, 4 +.copy + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .copy + dec c + jr nz, .next + ret + + +ReadObjectEvents:: ; 268f + push hl + call ClearObjectStructs + pop de + ld hl, wMap2Object + ld a, [de] + inc de + ld [wCurrMapObjectCount], a + and a + jr z, .skip + + ld c, a +.next + push bc + push hl + ld a, $ff + ld [hli], a + ld b, wMap2ObjectUnused - wMap2ObjectSprite +.copy + ld a, [de] + inc de + ld [hli], a + dec b + jr nz, .copy + pop hl + ld bc, wMap3Object - wMap2Object + add hl, bc + pop bc + dec c + jr nz, .next + +.skip + ld a, [wCurrMapObjectCount] + ld c, a + ld a, 16 ; 16 objects -- but this causes an overflow, since we only start from object 2 + sub c + jr z, .finish + ld bc, 1 + add hl, bc ; Very thorough optimization. Don't do this at home, kids. + ld bc, wMap3Object - wMap2Object +.clear + ld [hl], 0 + add hl, bc + dec a + jr nz, .clear + +.finish + ld h, d + ld l, e + ret + +ClearObjectStructs:: ; 26cf + xor a + ld [$CE7F], a ; TODO + ld hl, wObject1Struct + ld de, wObject2Struct - wObject1Struct + ld c, 7 +.clear_struct + ld [hl], a + add hl, de + dec c + jr nz, .clear_struct + + ld hl, $D00F ; TODO + ld de, 16 + ld c, 4 + xor a +.clear_unk ; TODO + ld [hl], a + add hl, de + dec c + jr nz, .clear_unk + ret + + +ReadWord:: ; 26ef ; TODO: is this used? + ld e, [hl] + inc hl + ld d, [hl] + inc hl + ret + + +InitUnknownBuffercc9e:: ; 26f4 + xor a + ld hl, wUnknownWordcc9c + ld [hli], a + ld [hli], a + ld hl, wUnknownBuffercc9e ; useless + ld bc, 14 ; TODO: constantify this + ld a, $ff + call ByteFill + ld hl, wUnknownMapPointer + ld e, [hl] + inc hl + ld d, [hl] + ld a, e + or d + jr z, .null + + ld a, [wMapBuffer] + ld l, a + ld h, 0 + add hl, hl + add hl, hl + add hl, de + inc hl + inc hl + ld c, [hl] + inc hl + ld b, [hl] + ld de, wUnknownBuffercc9e - 2 +.next + ld a, [bc] + inc bc + cp $ff ; Could have used one of the `inc a` below + jr z, .done + inc a + inc a + and $0f + ld l, a + ld h, 0 + add hl, de + ld [hl], 0 + jr .next + +.null + ld hl, wUnknownBuffercc9e + ld bc, 14 ; TODO: constantify this + xor a + call ByteFill +.done + ret + + +RestoreFacingAfterWarp:: ; 273d + ld hl, wMapObjectsPtr + ld a, [hli] + ld h, [hl] + ld l, a + ; Point to 1st warp + inc hl + inc hl + inc hl + ld a, [wWarpNumber] + dec a + ld c, a + ld b, 0 + ld a, 7 ; Size of warp ; TODO: constantify this + call AddNTimes + ld a, [hli] + ld [wYCoord], a + ld a, [hli] + ld [wXCoord], a + call GetCoordOfUpperLeftCorner + ret + + +Function275e:: ; 275e ; TODO: is this used? + inc hl + inc hl + inc hl + ld a, [hli] + ld [wOverworldMapAnchor], a + ld a, [hl] + ld [wOverworldMapAnchor + 1], a + ld a, [wYCoord] + and 1 + ld [wMetatileStandingY], a + ld a, [wXCoord] + and 1 + ld [wMetatileStandingX], a + ret + + +GetCoordOfUpperLeftCorner:: ; 277a + ld hl, wOverworldMap + ld a, [wXCoord] + bit 0, a + jr nz, .increment_then_halve1 + srl a + add a, 1 + jr .resume + +.increment_then_halve1 + add a, 1 + srl a + +.resume + ld c, a + ld b, 0 + add hl, bc + ld a, [wMapWidth] + add a, 6 + ld c, a + ld b, 0 + ld a, [wYCoord] + bit 0, a + jr nz, .increment_then_halve2 + srl a + add a, 1 + jr .resume2 + +.increment_then_halve2 + add a, 1 + srl a + +.resume2 + call AddNTimes + ld a, l + ld [wOverworldMapAnchor], a + ld a, h + ld [wOverworldMapAnchor + 1], a + ld a, [wYCoord] + and 1 + ld [wMetatileStandingY], a + ld a, [wXCoord] + and 1 + ld [wMetatileStandingX], a + ret + +Function27C7:: ; 27c7 ; TODO + call GetMapEnvironment + cp 2 + jr z, .interior + cp 1 + jr z, .interior + ret +.interior + ld a, [wNextMapGroup] + ld b, a + ld a, [wNextMapId] + ld c, a + call GetAnyMapEnvironment + cp 3 + jr z, .exterior + cp 4 + jr z, .exterior + cp 6 + jr z, .exterior + ret + +.exterior + ld hl, $D4B2 ; TODO: figure out what this is + ld a, [wPrevWarp] + ld [hli], a + ld a, [wMapGroup] + ld [hli], a + ld a, [wMapId] + ld [hli], a + ret + +LoadMapPart:: ; 27fb + callab UpdateTimeOfDayPal + + ldh a, [hROMBank] + push af + ld a, [wTilesetBank] + call Bankswitch + + call LoadMetatiles + ld a, "■" + hlcoord 0, 0 + ld bc, SCREEN_WIDTH * SCREEN_HEIGHT + call ByteFill + + call ApplyFlashlight + + pop af + call Bankswitch + ret + +LoadMetatiles:: ; 2822 + ld a, [wOverworldMapAnchor] + ld e, a + ld a, [wOverworldMapAnchor + 1] + ld d, a + ld hl, wTileMapBackup + ld b, 5 ; TODO: constantify this +.row + push de + push hl + ld c, 6 ; TODO: constantify this +.tile + push bc + push de + push hl + ld a, [de] + ld c, a + call DrawMetatile + pop hl + ld bc, 4 + add hl, bc + pop de + inc de + pop bc + dec c + jr nz, .tile + pop hl + ld de, BG_MAP_WIDTH * 3 + add hl, de + pop de + ld a, [wMapWidth] + add a, 6 + add a, e + ld e, a + jr nc, .nocarry + inc d +.nocarry + dec b + jr nz, .row + ret + +ApplyFlashlight:: ; 285a + ld hl, wTileMapBackup + ld a, [wMetatileStandingY] + and a + jr z, .top_row + ld bc, $30 ; TODO: constantify this + add hl, bc +.top_row + ld a, [wMetatileStandingX] + and a + jr z, .left_col + inc hl + inc hl +.left_col + + ldh a, [hOverworldFlashlightEffect] + and a + jr z, .no_flashlight + cp 1 + jr z, .force_1 + cp 2 + jr z, .force_2 + cp 3 + jr z, .force_3 + jp .force_9001 + +.no_flashlight + ld de, wTileMap + ld b, SCREEN_HEIGHT ; TODO: constantify this +.row + ld c, SCREEN_WIDTH +.tile + ld a, [hli] + ld [de], a + inc de + dec c + jr nz, .tile + + ld a, l + add a, 4 + ld l, a + jr nc, .nocarry + inc h +.nocarry + dec b + jr nz, .row + ret + +; redraw_with_flashlight force +; force = 1, 2 or 3 +; 0 and 4 have special handling, see above and below +redraw_with_flashlight: MACRO + decoord \1 * 2, \1 * 2 + ld bc, \1 * $32 ; TODO: constantify the $32 + add hl, bc + ld c, SCREEN_HEIGHT - \1 * 4 +.row\1 + ld b, SCREEN_HEIGHT - \1 * 4 +.tile\1 + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .tile\1 + ld a, l + add a, 6 + \1 * 4 + ld l, a + jr nc, .nohlcarry\1 + inc h +.nohlcarry\1 + ld a, e + add a, 2 + \1 * 4 + ld e, a + jr nc, .nodecarry\1 + inc d +.nodecarry\1 + dec c + jr nz, .row\1 +ENDM + +.force_1 ; 289b + redraw_with_flashlight 1 + ret + +.force_2 ; 28be + redraw_with_flashlight 2 + ret + +.force_3 ; 28e1 + redraw_with_flashlight 3 + ret + +.force_9001 ; 2904 + ; Actually force 4, but this also applies to larger values + decoord 4 * 2, 4 * 2 + ld bc, 4 * $32 ; TODO: constantify the $32 + add hl, bc + ld a, [hli] + ld [de], a + inc de + ld a, [hli] + ld [de], a + ld bc, 6 + 4 * 4 + add hl, bc + ld a, e + add a, 2 + 4 * 4 + 1 ; Compensate missing `inc de` + ld e, a + jr nc, .nocarry9001 + inc d +.nocarry9001 + ld a, [hli] + ld [de], a + inc de + ld a, [hli] + ld [de], a + ret + +DrawMetatile:: ; 2921 + push hl + ld hl, wTilesetBlocksAddress + ld a, [hli] + ld h, [hl] + ld l, a + swap c + ld a, c + and $0f + ld b, a + ld a, c + and $f0 + ld c, a + add hl, bc + pop de + lb bc, $14, 4 ; TODO: constantify $14 +.row +REPT 4 + ld a, [hli] + ld [de], a + inc de +ENDR + ld a, e + add a, b + ld e, a + jr nc, .nocarry + inc d +.nocarry + dec c + jr nz, .row + ret + + +ChangeMap:: ; 294d + ld hl, wOverworldMap + ld bc, wOverworldMapEnd - wOverworldMap + ld a, 0 + call ByteFill + + ld hl, wOverworldMap + ld a, [wMapWidth] + ldh [hConnectedMapWidth], a + add a, 6 + ldh [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, [wMapBlocksPointer] + ld e, a + ld a, [wMapBlocksPointer + 1] + ld d, a + ld a, [wMapHeight] + ld b, a +.row + push hl + ldh a, [hConnectedMapWidth] + ld c, a +.col + ld a, [de] + inc de + ld [hli], a + dec c + jr nz, .col + pop hl + ldh a, [hConnectionStripLength] + add l + ld l, a + jr nc, .okay + inc h +.okay + dec b + jr nz, .row + +; FillMapConnections:: ; 298e + + ld a, [wNorthConnectedMapGroup] + cp $ff + jr z, .south + ld b, a + ld a, [wNorthConnectedMapNumber] + ld c, a + call SwitchToAnyMapBank + + ld a, [wNorthConnectionStripPointer] + ld l, a + ld a, [wNorthConnectionStripPointer + 1] + ld h, a + ld a, [wNorthConnectionStripLocation] + ld e, a + ld a, [wNorthConnectionStripLocation + 1] + ld d, a + ld a, [wNorthConnectionStripLength] + ldh [hConnectionStripLength], a + ld a, [wNorthConnectedMapWidth] + ldh [hConnectedMapWidth], a + call FillNorthConnectionStrip + +.south + ld a, [wSouthConnectedMapGroup] + cp $ff + jr z, .west + ld b, a + ld a, [wSouthConnectedMapNumber] + ld c, a + call SwitchToAnyMapBank + + ld a, [wSouthConnectionStripPointer] + ld l, a + ld a, [wSouthConnectionStripPointer + 1] + ld h, a + ld a, [wSouthConnectionStripLocation] + ld e, a + ld a, [wSouthConnectionStripLocation + 1] + ld d, a + ld a, [wSouthConnectionStripLength] + ldh [hConnectionStripLength], a + ld a, [wSouthConnectedMapWidth] + ldh [hConnectedMapWidth], a + call FillSouthConnectionStrip + +.west + ld a, [wWestConnectedMapGroup] + cp $ff + jr z, .east + ld b, a + ld a, [wWestConnectedMapNumber] + ld c, a + call SwitchToAnyMapBank + + ld a, [wWestConnectionStripPointer] + ld l, a + ld a, [wWestConnectionStripPointer + 1] + ld h, a + ld a, [wWestConnectionStripLocation] + ld e, a + ld a, [wWestConnectionStripLocation + 1] + ld d, a + ld a, [wWestConnectionStripLength] + ld b, a + ld a, [wWestConnectedMapWidth] + ldh [hConnectionStripLength], a + call FillWestConnectionStrip + +.east + ld a, [wEastConnectedMapGroup] + cp $ff + jr z, .done + ld b, a + ld a, [wEastConnectedMapNumber] + ld c, a + call SwitchToAnyMapBank + + ld a, [wEastConnectionStripPointer] + ld l, a + ld a, [wEastConnectionStripPointer + 1] + ld h, a + ld a, [wEastConnectionStripLocation] + ld e, a + ld a, [wEastConnectionStripLocation + 1] + ld d, a + ld a, [wEastConnectionStripLength] + ld b, a + ld a, [wEastConnectedMapWidth] + ldh [hConnectionStripLength], a + call FillEastConnectionStrip + +.done + ret + +FillNorthConnectionStrip:: +FillSouthConnectionStrip:: ; 2a3d + + ld c, 3 +.y + push de + + push hl + ldh a, [hConnectionStripLength] + ld b, a +.x + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .x + pop hl + + ldh a, [hConnectedMapWidth] + ld e, a + ld d, 0 + add hl, de + pop de + + ld a, [wMapWidth] + add a, 6 + add e + ld e, a + jr nc, .okay + inc d +.okay + dec c + jr nz, .y + ret +; 25f6 + +FillWestConnectionStrip:: +FillEastConnectionStrip:: ; 2a60 + +.loop + ld a, [wMapWidth] + add a, 6 + ldh [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 + + ldh a, [hConnectionStripLength] + ld e, a + ld d, 0 + add hl, de + pop de + + ldh a, [hConnectedMapWidth] + add e + ld e, a + jr nc, .okay + inc d +.okay + dec b + jr nz, .loop + ret + + +SECTION "LoadTilesetGFX", ROM0[$2D26] +LoadTilesetGFX:: ; 2d26 + call GetMapEnvironment + cp 1 ; TODO: constantify this + jr z, .exterior + cp 2 ; TODO: constantify this + jr z, .exterior + ld a, [wMapTileset] + cp $1B ; TODO: constantify this + jr z, .exterior + + ld a, [wTilesetTilesAddress] + ld e, a + ld a, [wTilesetTilesAddress + 1] + ld d, a + ld hl, vTileset + ld a, [wTilesetBank] + ld b, a + ld c, $60 + call Get2bpp + xor a + ldh [hTileAnimFrame], a + ret + +.exterior + ld de, CommonExteriorTiles ; TODO: maybe find a better name + ld hl, vTileset + lb bc, BANK(CommonExteriorTiles), $20 + call Get2bpp + + ld a, [wTilesetTilesAddress] + ld e, a + ld a, [wTilesetTilesAddress + 1] + ld d, a + ld hl, vExteriorTileset + ld a, [wTilesetBank] + ld b, a + ld c, $40 + call Get2bpp + xor a + ldh [hTileAnimFrame], a + ret + + +RefreshPlayerCoords:: ; 2d74 + ld a, [wXCoord] + add a, 4 + ld d, a + ld hl, wPlayerStandingMapX + sub [hl] + ld [hl], d + ld hl, wPlayerObjectXCoord + ld [hl], d + ld hl, wPlayerLastMapX + ld [hl], d + ld d, a + ld a, [wYCoord] + add a, 4 + ld e, a + ld hl, wPlayerStandingMapY + sub [hl] + ld [hl], e + ld hl, wPlayerObjectYCoord + ld [hl], e + ld hl, wPlayerLastMapY + ld [hl], e + ld e, a + + ld a, [wObjectFollow_Leader] + cp 1 + ret nz + ld a, [wObjectFollow_Follower] + and a + ret z + + ; This piece of code has been removed in pokegold (note that the conditions above were altered, as well) + call GetObjectStruct + ld hl, 16 ; TODO: constantify this + add hl, bc + ld a, [hl] + add a, d + ld [hl], a + ld [wMap1ObjectXCoord], a + ld hl, 18 ; TODO: constantify this + add hl, bc + ld a, [hl] + add a, d + ld [hl], a + ld hl, 17 ; TODO: constantify this + add hl, bc + ld a, [hl] + add a, e + ld [hl], a + ld [wMap1ObjectYCoord], a + ld hl, 19 + add hl, bc + ld a, [hl] + add a, e + ld [hl], a + ret + + +BufferScreen:: ; 2dcd + ld hl, wOverworldMapAnchor + ld a, [hli] + ld h, [hl] + ld l, a + ld de, wScreenSave + ld c, 5 + ld b, 6 +.row + push bc + push hl +.col + ld a, [hli] + ld [de], a + inc de + dec b + jr nz, .col + pop hl + ld a, [wMapWidth] + add a, 6 + ld c, a + ld b, 0 + add hl, bc + pop bc + dec c + jr nz, .row + ret + +SaveScreen:: ; 2df1 + ld hl, wOverworldMapAnchor + ld a, [hli] + ld h, [hl] + ld l, a + ld de, wScreenSave + ld a, [wMapWidth] + add 6 + ldh [hMapObjectIndexBuffer], a + ld a, [wPlayerStepDirection] + and a + jr z, .down + cp UP + jr z, .up + cp LEFT + jr z, .left + cp RIGHT + jr z, .right + ret + +.up + ld de, wScreenSave + 6 + ldh a, [hMapObjectIndexBuffer] + ld c, a + ld b, 0 + add hl, bc + jr .vertical + +.down + ld de, wScreenSave +.vertical + ld b, 6 + ld c, 4 + jr .load_neighbor + +.left + ld de, wScreenSave + 1 + inc hl + jr .horizontal + +.right + ld de, wScreenSave +.horizontal + ld b, 5 + ld c, 5 + +.load_neighbor ; 2e35 +.row + push bc + push hl + push de +.col + ld a, [de] + inc de + ld [hli], a + dec b + jr nz, .col + pop de + ld a, e + add a, 6 + ld e, a + jr nc, .okay + inc d + +.okay + pop hl + ldh a, [hConnectionStripLength] + ld c, a + ld b, 0 + add hl, bc + pop bc + dec c + jr nz, .row + ret + + +RefreshTiles:: ; 2e52 + call .left_right + call .up_down + ld a, [wPlayerStandingMapX] + ld d, a + ld a, [wPlayerStandingMapY] + ld e, a + call GetCoordTile + ld [wPlayerStandingTile], a + ret + +.up_down ; 2e67 + ld a, [wPlayerStandingMapX] + ld d, a + ld a, [wPlayerStandingMapY] + ld e, a + push de + inc e + call GetCoordTile + ld [wTileDown], a + pop de + dec e + call GetCoordTile + ld [wTileUp], a + ret + +.left_right ; 2e80 + ld a, [wPlayerStandingMapX] + ld d, a + ld a, [wPlayerStandingMapY] + ld e, a + push de + dec d + call GetCoordTile + ld [wTileLeft], a + pop de + inc d + call GetCoordTile + ld [wTileRight], a + ret + + +GetFacingTileCoord:: ; 2e99 + ld a, [wPlayerWalking] ; TODO: wPlayerDirection in Crystal. Not here? + 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, [wPlayerStandingMapX] + add a, d + ld d, a + ld a, [wPlayerStandingMapY] + add a, e + ld e, a + ld a, [hl] + ret + +.directions + db 0, 1 + dw wTileDown + + db 0, -1 + dw wTileUp + + db -1, 0 + dw wTileLeft + + db 1, 0 + dw wTileRight + +GetCoordTile:: ; 2ece +; Get the collision byte for tile d, e + call GetBlockLocation + ld a, [hl] + and a + jr z, .nope + ld l, a + ld h, 0 + add hl, hl + add hl, hl + ld a, [wTilesetCollisionAddress] + ld c, a + ld a, [wTilesetCollisionAddress + 1] + ld b, a + add hl, bc + rr d + jr nc, .nocarry + inc hl + +.nocarry + rr e + jr nc, .nocarry2 + inc hl + inc hl + +.nocarry2 + ld a, [wTilesetBank] + call GetFarByte + ret + +.nope + ld a, -1 + ret + +GetBlockLocation:: ; 2ef8 + ld a, [wMapWidth] + add a, 6 + ld c, a + ld b, 0 + ld hl, wOverworldMap + 1 + add hl, bc + ld a, e + srl a + jr z, .nope + and a +.loop + srl a + jr nc, .ok + add hl, bc + +.ok + sla c + rl b + and a + jr nz, .loop + +.nope + ld c, d + srl c + ld b, 0 + add hl, bc + ret + + +SECTION "LoadTileset", ROM0[$2F48] +LoadTileset:: ; 2f48 + push hl + push bc + + ld hl, Tilesets + ld bc, wTilesetEnd - wTileset + ld a, [wMapTileset] + call AddNTimes + + ld de, wTileset + ld bc, wTilesetEnd - wTileset + + ld a, BANK(Tilesets) + call FarCopyBytes + + ld a, 1 + ldh [hMapAnims], a + xor a + ldh [hTileAnimFrame], a + + pop bc + pop hl + ret |