mirror of https://github.com/pret/pokecrystal.git
2394 lines
34 KiB
NASM
2394 lines
34 KiB
NASM
; Functions dealing with rendering and interacting with maps.
|
|
|
|
Clearwc7e8:: ; 210f
|
|
ld hl, wc7e8
|
|
ld bc, wc7e8_End - wc7e8
|
|
ld a, 0
|
|
call ByteFill
|
|
ret
|
|
; 211b
|
|
|
|
CheckScenes:: ; 211b
|
|
; Checks wCurrMapSceneScriptPointer. If it's empty, returns -1 in a. Otherwise, returns the active scene ID in a.
|
|
push hl
|
|
ld hl, wCurrMapSceneScriptPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
or h
|
|
ld a, [hl]
|
|
jr nz, .scene_exists
|
|
ld a, -1
|
|
|
|
.scene_exists
|
|
pop hl
|
|
ret
|
|
; 212a
|
|
|
|
GetCurrentMapSceneID:: ; 212a
|
|
; Grabs the wram map scene script pointer for the current map and loads it into wCurrMapSceneScriptPointer.
|
|
; If there is no scene, both bytes of wCurrMapSceneScriptPointer are wiped clean.
|
|
; Copy the current map group and number into bc. This is needed for GetMapSceneID.
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
; Blank out wCurrMapSceneScriptPointer; this is the default scenario.
|
|
xor a
|
|
ld [wCurrMapSceneScriptPointer], a
|
|
ld [wCurrMapSceneScriptPointer + 1], a
|
|
call GetMapSceneID
|
|
ret c ; The map is not in the scene script table
|
|
; Load the scene script pointer from de into wCurrMapSceneScriptPointer
|
|
ld a, e
|
|
ld [wCurrMapSceneScriptPointer], a
|
|
ld a, d
|
|
ld [wCurrMapSceneScriptPointer + 1], a
|
|
xor a
|
|
ret
|
|
; 2147
|
|
|
|
GetMapSceneID:: ; 2147
|
|
; Searches the scene script table for the map group and number loaded in bc, and returns the wram pointer in de.
|
|
; If the map is not in the scene script table, returns carry.
|
|
push bc
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(MapScenes)
|
|
rst Bankswitch
|
|
|
|
ld hl, MapScenes
|
|
.loop
|
|
push hl
|
|
ld a, [hli] ; map group, or terminator
|
|
cp -1
|
|
jr z, .end ; the current map is not in the scene script table
|
|
cp b
|
|
jr nz, .next ; map group did not match
|
|
ld a, [hli] ; map number
|
|
cp c
|
|
jr nz, .next ; map number did not match
|
|
jr .found ; we found our map
|
|
|
|
.next
|
|
pop hl
|
|
ld de, 4 ; scene_script size
|
|
add hl, de
|
|
jr .loop
|
|
|
|
.end
|
|
scf
|
|
jr .done
|
|
|
|
.found
|
|
ld e, [hl]
|
|
inc hl
|
|
ld d, [hl]
|
|
|
|
.done
|
|
pop hl
|
|
pop bc
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
pop bc
|
|
ret
|
|
; 2173
|
|
|
|
OverworldTextModeSwitch:: ; 2173
|
|
call LoadMapPart
|
|
call FarCallSwapTextboxPalettes
|
|
ret
|
|
; 217a
|
|
|
|
LoadMapPart:: ; 217a
|
|
ld a, [hROMBank]
|
|
push af
|
|
|
|
ld a, [wTilesetBlocksBank]
|
|
rst Bankswitch
|
|
|
|
call LoadMetatiles
|
|
ld a, "■"
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
call ByteFill
|
|
|
|
ld a, BANK(_LoadMapPart)
|
|
rst Bankswitch
|
|
call _LoadMapPart
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 2198
|
|
|
|
LoadMetatiles:: ; 2198
|
|
; de <- wOverworldMapAnchor
|
|
ld a, [wOverworldMapAnchor]
|
|
ld e, a
|
|
ld a, [wOverworldMapAnchor + 1]
|
|
ld d, a
|
|
ld hl, wSurroundingTiles
|
|
ld b, SURROUNDING_HEIGHT / METATILE_WIDTH ; 5
|
|
|
|
.row
|
|
push de
|
|
push hl
|
|
ld c, SURROUNDING_WIDTH / METATILE_WIDTH ; 6
|
|
|
|
.col
|
|
push de
|
|
push hl
|
|
; Load the current map block.
|
|
; If the current map block is a border block, load the border block.
|
|
ld a, [de]
|
|
and a
|
|
jr nz, .ok
|
|
ld a, [wMapBorderBlock]
|
|
|
|
.ok
|
|
; Load the current wSurroundingTiles address into de.
|
|
ld e, l
|
|
ld d, h
|
|
; Set hl to the address of the current metatile data ([wTilesetBlocksAddress] + (a) tiles).
|
|
; This is buggy; it wraps around past 128 blocks.
|
|
; To fix, uncomment the line below.
|
|
add a ; Comment or delete this line to fix the above bug.
|
|
ld l, a
|
|
ld h, 0
|
|
; add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
add hl, hl
|
|
ld a, [wTilesetBlocksAddress]
|
|
add l
|
|
ld l, a
|
|
ld a, [wTilesetBlocksAddress + 1]
|
|
adc h
|
|
ld h, a
|
|
|
|
; copy the 4x4 metatile
|
|
rept METATILE_WIDTH + -1
|
|
rept METATILE_WIDTH
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
endr
|
|
ld a, e
|
|
add SURROUNDING_WIDTH - METATILE_WIDTH
|
|
ld e, a
|
|
jr nc, .next\@
|
|
inc d
|
|
.next\@
|
|
endr
|
|
rept METATILE_WIDTH
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
endr
|
|
; Next metatile
|
|
pop hl
|
|
ld de, METATILE_WIDTH
|
|
add hl, de
|
|
pop de
|
|
inc de
|
|
dec c
|
|
jp nz, .col
|
|
; Next metarow
|
|
pop hl
|
|
ld de, SURROUNDING_WIDTH * METATILE_WIDTH
|
|
add hl, de
|
|
pop de
|
|
ld a, [wMapWidth]
|
|
add 6
|
|
add e
|
|
ld e, a
|
|
jr nc, .ok2
|
|
inc d
|
|
.ok2
|
|
dec b
|
|
jp nz, .row
|
|
ret
|
|
; 222a
|
|
|
|
ReturnToMapFromSubmenu:: ; 222a
|
|
ld a, MAPSETUP_SUBMENU
|
|
ld [hMapEntryMethod], a
|
|
farcall RunMapSetupScript
|
|
xor a
|
|
ld [hMapEntryMethod], a
|
|
ret
|
|
; 2238
|
|
|
|
CheckWarpTile:: ; 2238
|
|
call GetDestinationWarpNumber
|
|
ret nc
|
|
|
|
push bc
|
|
farcall CheckDirectionalWarp
|
|
pop bc
|
|
ret nc
|
|
|
|
call CopyWarpData
|
|
scf
|
|
ret
|
|
; 224a
|
|
|
|
WarpCheck:: ; 224a
|
|
call GetDestinationWarpNumber
|
|
ret nc
|
|
call CopyWarpData
|
|
ret
|
|
; 2252
|
|
|
|
GetDestinationWarpNumber:: ; 2252
|
|
farcall CheckWarpCollision
|
|
ret nc
|
|
|
|
ld a, [hROMBank]
|
|
push af
|
|
|
|
call SwitchToMapScriptsBank
|
|
call .GetDestinationWarpNumber
|
|
|
|
pop de
|
|
ld a, d
|
|
rst Bankswitch
|
|
ret
|
|
; 2266
|
|
|
|
.GetDestinationWarpNumber: ; 2266
|
|
ld a, [wPlayerStandingMapY]
|
|
sub 4
|
|
ld e, a
|
|
ld a, [wPlayerStandingMapX]
|
|
sub 4
|
|
ld d, a
|
|
ld a, [wCurrMapWarpCount]
|
|
and a
|
|
ret z
|
|
|
|
ld c, a
|
|
ld hl, wCurrMapWarpsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
.loop
|
|
push hl
|
|
ld a, [hli]
|
|
cp e
|
|
jr nz, .next
|
|
ld a, [hli]
|
|
cp d
|
|
jr nz, .next
|
|
jr .found_warp
|
|
|
|
.next
|
|
pop hl
|
|
ld a, 5
|
|
add l
|
|
ld l, a
|
|
jr nc, .okay
|
|
inc h
|
|
|
|
.okay
|
|
dec c
|
|
jr nz, .loop
|
|
xor a
|
|
ret
|
|
|
|
.found_warp
|
|
pop hl
|
|
call .IncreaseHLTwice
|
|
ret nc ; never encountered
|
|
|
|
ld a, [wCurrMapWarpCount]
|
|
inc a
|
|
sub c
|
|
ld c, a
|
|
scf
|
|
ret
|
|
|
|
.IncreaseHLTwice:
|
|
inc hl
|
|
inc hl
|
|
scf
|
|
ret
|
|
; 22a7
|
|
|
|
CopyWarpData:: ; 22a7
|
|
ld a, [hROMBank]
|
|
push af
|
|
|
|
call SwitchToMapScriptsBank
|
|
call .CopyWarpData
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
scf
|
|
ret
|
|
; 22b4
|
|
|
|
.CopyWarpData: ; 22b4
|
|
push bc
|
|
ld hl, wCurrMapWarpsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, c
|
|
dec a
|
|
ld bc, 5 ; warp size
|
|
call AddNTimes
|
|
ld bc, 2 ; warp number
|
|
add hl, bc
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr nz, .skip
|
|
ld hl, wBackupWarpNumber
|
|
ld a, [hli]
|
|
|
|
.skip
|
|
pop bc
|
|
ld [wNextWarp], a
|
|
ld a, [hli]
|
|
ld [wNextMapGroup], a
|
|
ld a, [hli]
|
|
ld [wNextMapNumber], a
|
|
|
|
ld a, c
|
|
ld [wPrevWarp], a
|
|
ld a, [wMapGroup]
|
|
ld [wPrevMapGroup], a
|
|
ld a, [wMapNumber]
|
|
ld [wPrevMapNumber], 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
|
|
|
|
; unused
|
|
cp INDOOR
|
|
ret z
|
|
cp GATE
|
|
ret z
|
|
cp ENVIRONMENT_5
|
|
ret
|
|
; 2309
|
|
|
|
LoadMapAttributes:: ; 2309
|
|
call CopyMapPartialAndAttributes
|
|
call SwitchToMapScriptsBank
|
|
call ReadMapScripts
|
|
xor a ; do not skip object_events
|
|
call ReadMapEvents
|
|
ret
|
|
; 2317
|
|
|
|
LoadMapAttributes_SkipPeople:: ; 2317
|
|
call CopyMapPartialAndAttributes
|
|
call SwitchToMapScriptsBank
|
|
call ReadMapScripts
|
|
ld a, TRUE ; skip object events
|
|
call ReadMapEvents
|
|
ret
|
|
; 2326
|
|
|
|
CopyMapPartialAndAttributes:: ; 2326
|
|
call CopyMapPartial
|
|
call SwitchToMapAttributesBank
|
|
call GetMapAttributesPointer
|
|
call CopyMapAttributes
|
|
call GetMapConnections
|
|
ret
|
|
; 2336
|
|
|
|
ReadMapEvents:: ; 2336
|
|
push af
|
|
ld hl, wMapEventsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
inc hl
|
|
inc hl
|
|
call ReadWarps
|
|
call ReadCoordEvents
|
|
call ReadBGEvents
|
|
|
|
pop af
|
|
and a ; skip object events?
|
|
ret nz
|
|
|
|
call ReadObjectEvents
|
|
ret
|
|
; 234f
|
|
|
|
ReadMapScripts:: ; 234f
|
|
ld hl, wMapScriptsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
call ReadMapSceneScripts
|
|
call ReadMapCallbacks
|
|
ret
|
|
; 235c
|
|
|
|
CopyMapAttributes:: ; 235c
|
|
ld de, wMapAttributes
|
|
ld c, wMapAttributesEnd - wMapAttributes
|
|
.loop
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 2368
|
|
|
|
GetMapConnections:: ; 2368
|
|
ld a, $ff
|
|
ld [wNorthConnectedMapGroup], a
|
|
ld [wSouthConnectedMapGroup], a
|
|
ld [wWestConnectedMapGroup], a
|
|
ld [wEastConnectedMapGroup], a
|
|
|
|
ld a, [wMapConnections]
|
|
ld b, a
|
|
|
|
bit NORTH_F, b
|
|
jr z, .no_north
|
|
ld de, wNorthMapConnection
|
|
call GetMapConnection
|
|
.no_north
|
|
|
|
bit SOUTH_F, b
|
|
jr z, .no_south
|
|
ld de, wSouthMapConnection
|
|
call GetMapConnection
|
|
.no_south
|
|
|
|
bit WEST_F, b
|
|
jr z, .no_west
|
|
ld de, wWestMapConnection
|
|
call GetMapConnection
|
|
.no_west
|
|
|
|
bit EAST_F, b
|
|
jr z, .no_east
|
|
ld de, wEastMapConnection
|
|
call GetMapConnection
|
|
.no_east
|
|
|
|
ret
|
|
; 23a3
|
|
|
|
GetMapConnection:: ; 23a3
|
|
; Load map connection struct at hl into de.
|
|
ld c, wSouthMapConnection - wNorthMapConnection
|
|
.loop
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 23ac
|
|
|
|
ReadMapSceneScripts:: ; 23ac
|
|
ld a, [hli] ; scene script count
|
|
ld c, a
|
|
ld [wCurrMapSceneScriptCount], a ; current map scene script count
|
|
ld a, l
|
|
ld [wCurrMapSceneScriptsPointer], a ; map scene script pointer
|
|
ld a, h
|
|
ld [wCurrMapSceneScriptsPointer + 1], a
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
|
|
ld bc, 4 ; scene_script size
|
|
call AddNTimes
|
|
ret
|
|
; 23c3
|
|
|
|
ReadMapCallbacks:: ; 23c3
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld [wCurrMapCallbackCount], a
|
|
ld a, l
|
|
ld [wCurrMapCallbacksPointer], a
|
|
ld a, h
|
|
ld [wCurrMapCallbacksPointer + 1], a
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
|
|
ld bc, 3
|
|
call AddNTimes
|
|
ret
|
|
; 23da
|
|
|
|
ReadWarps:: ; 23da
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld [wCurrMapWarpCount], a
|
|
ld a, l
|
|
ld [wCurrMapWarpsPointer], a
|
|
ld a, h
|
|
ld [wCurrMapWarpsPointer + 1], a
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
ld bc, 5
|
|
call AddNTimes
|
|
ret
|
|
; 23f1
|
|
|
|
ReadCoordEvents:: ; 23f1
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld [wCurrMapCoordEventCount], a
|
|
ld a, l
|
|
ld [wCurrMapCoordEventsPointer], a
|
|
ld a, h
|
|
ld [wCurrMapCoordEventsPointer + 1], a
|
|
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
|
|
ld bc, 8
|
|
call AddNTimes
|
|
ret
|
|
; 2408
|
|
|
|
ReadBGEvents:: ; 2408
|
|
ld a, [hli]
|
|
ld c, a
|
|
ld [wCurrMapBGEventCount], a
|
|
ld a, l
|
|
ld [wCurrMapBGEventsPointer], a
|
|
ld a, h
|
|
ld [wCurrMapBGEventsPointer + 1], a
|
|
|
|
ld a, c
|
|
and a
|
|
ret z
|
|
|
|
ld bc, 5
|
|
call AddNTimes
|
|
ret
|
|
; 241f
|
|
|
|
ReadObjectEvents:: ; 241f
|
|
push hl
|
|
call ClearObjectStructs
|
|
pop de
|
|
ld hl, wMap1Object
|
|
ld a, [de]
|
|
inc de
|
|
ld [wCurrMapObjectEventCount], a
|
|
ld a, e
|
|
ld [wCurrMapObjectEventsPointer], a
|
|
ld a, d
|
|
ld [wCurrMapObjectEventsPointer + 1], a
|
|
|
|
ld a, [wCurrMapObjectEventCount]
|
|
call CopyMapObjectEvents
|
|
|
|
; get NUM_OBJECTS - [wCurrMapObjectEventCount]
|
|
ld a, [wCurrMapObjectEventCount]
|
|
ld c, a
|
|
ld a, NUM_OBJECTS ; - 1
|
|
sub c
|
|
jr z, .skip
|
|
; jr c, .skip
|
|
|
|
; stupid waste of time and space
|
|
ld bc, 1
|
|
add hl, bc
|
|
; Fill the remaining sprite IDs and y coords with 0 and -1, respectively.
|
|
; Bleeds into wObjectMasks due to a bug. Uncomment the above subtraction
|
|
; to fix.
|
|
ld bc, OBJECT_LENGTH
|
|
.loop
|
|
ld [hl], 0
|
|
inc hl
|
|
ld [hl], -1
|
|
dec hl
|
|
add hl, bc
|
|
dec a
|
|
jr nz, .loop
|
|
|
|
.skip
|
|
ld h, d
|
|
ld l, e
|
|
ret
|
|
; 2457
|
|
|
|
CopyMapObjectEvents:: ; 2457
|
|
and a
|
|
ret z
|
|
|
|
ld c, a
|
|
.loop
|
|
push bc
|
|
push hl
|
|
ld a, $ff
|
|
ld [hli], a
|
|
ld b, MAPOBJECT_E - MAPOBJECT_SPRITE
|
|
.loop2
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .loop2
|
|
|
|
pop hl
|
|
ld bc, OBJECT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 2471
|
|
|
|
ClearObjectStructs:: ; 2471
|
|
ld hl, wObject1Struct
|
|
ld bc, OBJECT_STRUCT_LENGTH * (NUM_OBJECT_STRUCTS - 1)
|
|
xor a
|
|
call ByteFill
|
|
|
|
; Just to make sure (this is rather pointless)
|
|
ld hl, wObject1Struct
|
|
ld de, OBJECT_STRUCT_LENGTH
|
|
ld c, NUM_OBJECT_STRUCTS - 1
|
|
xor a
|
|
.loop
|
|
ld [hl], a
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 248a
|
|
|
|
RestoreFacingAfterWarp:: ; 248a
|
|
call GetMapScriptsBank
|
|
rst Bankswitch
|
|
|
|
ld hl, wMapEventsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
inc hl ; get to the warp coords
|
|
inc hl ; get to the warp coords
|
|
inc hl ; get to the warp coords
|
|
ld a, [wWarpNumber]
|
|
dec a
|
|
ld c, a
|
|
ld b, 0
|
|
ld a, 5
|
|
call AddNTimes
|
|
ld a, [hli]
|
|
ld [wYCoord], a
|
|
ld a, [hli]
|
|
ld [wXCoord], a
|
|
; destination warp number
|
|
ld a, [hli]
|
|
cp $ff
|
|
jr nz, .skip
|
|
call .backup
|
|
|
|
.skip
|
|
farcall GetCoordOfUpperLeftCorner
|
|
ret
|
|
; 24ba
|
|
|
|
.backup
|
|
ld a, [wPrevWarp]
|
|
ld [wBackupWarpNumber], a
|
|
ld a, [wPrevMapGroup]
|
|
ld [wBackupMapGroup], a
|
|
ld a, [wPrevMapNumber]
|
|
ld [wBackupMapNumber], a
|
|
ret
|
|
; 24cd
|
|
|
|
LoadBlockData:: ; 24cd
|
|
ld hl, wOverworldMapBlocks
|
|
ld bc, wOverworldMapBlocksEnd - wOverworldMapBlocks
|
|
ld a, 0
|
|
call ByteFill
|
|
call ChangeMap
|
|
call FillMapConnections
|
|
ld a, MAPCALLBACK_TILES
|
|
call RunMapCallback
|
|
ret
|
|
; 24e4
|
|
|
|
ChangeMap:: ; 24e4
|
|
ld a, [hROMBank]
|
|
push af
|
|
|
|
ld hl, wOverworldMapBlocks
|
|
ld a, [wMapWidth]
|
|
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, [wMapBlocksBank]
|
|
rst Bankswitch
|
|
|
|
ld a, [wMapBlocksPointer]
|
|
ld e, a
|
|
ld a, [wMapBlocksPointer + 1]
|
|
ld d, a
|
|
ld a, [wMapHeight]
|
|
ld b, a
|
|
.row
|
|
push hl
|
|
ld a, [hConnectedMapWidth]
|
|
ld c, a
|
|
.col
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .col
|
|
pop hl
|
|
ld a, [hConnectionStripLength]
|
|
add l
|
|
ld l, a
|
|
jr nc, .okay
|
|
inc h
|
|
.okay
|
|
dec b
|
|
jr nz, .row
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 2524
|
|
|
|
FillMapConnections:: ; 2524
|
|
|
|
; North
|
|
ld a, [wNorthConnectedMapGroup]
|
|
cp $ff
|
|
jr z, .South
|
|
ld b, a
|
|
ld a, [wNorthConnectedMapNumber]
|
|
ld c, a
|
|
call GetAnyMapBlocksBank
|
|
|
|
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]
|
|
ld [hConnectionStripLength], a
|
|
ld a, [wNorthConnectedMapWidth]
|
|
ld [hConnectedMapWidth], a
|
|
call FillNorthConnectionStrip
|
|
|
|
.South:
|
|
ld a, [wSouthConnectedMapGroup]
|
|
cp $ff
|
|
jr z, .West
|
|
ld b, a
|
|
ld a, [wSouthConnectedMapNumber]
|
|
ld c, a
|
|
call GetAnyMapBlocksBank
|
|
|
|
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]
|
|
ld [hConnectionStripLength], a
|
|
ld a, [wSouthConnectedMapWidth]
|
|
ld [hConnectedMapWidth], a
|
|
call FillSouthConnectionStrip
|
|
|
|
.West:
|
|
ld a, [wWestConnectedMapGroup]
|
|
cp $ff
|
|
jr z, .East
|
|
ld b, a
|
|
ld a, [wWestConnectedMapNumber]
|
|
ld c, a
|
|
call GetAnyMapBlocksBank
|
|
|
|
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]
|
|
ld [hConnectionStripLength], a
|
|
call FillWestConnectionStrip
|
|
|
|
.East:
|
|
ld a, [wEastConnectedMapGroup]
|
|
cp $ff
|
|
jr z, .Done
|
|
ld b, a
|
|
ld a, [wEastConnectedMapNumber]
|
|
ld c, a
|
|
call GetAnyMapBlocksBank
|
|
|
|
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]
|
|
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, [wMapWidth]
|
|
add 6
|
|
add e
|
|
ld e, a
|
|
jr nc, .okay
|
|
inc d
|
|
.okay
|
|
dec c
|
|
jr nz, .y
|
|
ret
|
|
; 25f6
|
|
|
|
FillWestConnectionStrip::
|
|
FillEastConnectionStrip:: ; 25f6
|
|
|
|
.loop
|
|
ld a, [wMapWidth]
|
|
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, .okay
|
|
inc d
|
|
.okay
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
; 261b
|
|
|
|
LoadMapStatus:: ; 261b
|
|
ld [wMapStatus], a
|
|
ret
|
|
; 261f
|
|
|
|
CallScript:: ; 261f
|
|
; Call a script at a:hl.
|
|
|
|
ld [wScriptBank], a
|
|
ld a, l
|
|
ld [wScriptPos], a
|
|
ld a, h
|
|
ld [wScriptPos + 1], a
|
|
|
|
ld a, PLAYEREVENT_MAPSCRIPT
|
|
ld [wScriptRunning], a
|
|
|
|
scf
|
|
ret
|
|
; 2631
|
|
|
|
CallMapScript:: ; 2631
|
|
; Call a script at hl in the current bank if there isn't already a script running
|
|
ld a, [wScriptRunning]
|
|
and a
|
|
ret nz
|
|
call GetMapScriptsBank
|
|
jr CallScript
|
|
; 263b
|
|
|
|
RunMapCallback:: ; 263b
|
|
; Will run the first callback found with execution index equal to a.
|
|
ld b, a
|
|
ld a, [hROMBank]
|
|
push af
|
|
call SwitchToMapScriptsBank
|
|
call .FindCallback
|
|
jr nc, .done
|
|
|
|
call GetMapScriptsBank
|
|
ld b, a
|
|
ld d, h
|
|
ld e, l
|
|
call ExecuteCallbackScript
|
|
|
|
.done
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 2653
|
|
|
|
.FindCallback: ; 2653
|
|
ld a, [wCurrMapCallbackCount]
|
|
ld c, a
|
|
and a
|
|
ret z
|
|
ld hl, wCurrMapCallbacksPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
or h
|
|
ret z
|
|
ld de, 3
|
|
.loop
|
|
ld a, [hl]
|
|
cp b
|
|
jr z, .found
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop
|
|
xor a
|
|
ret
|
|
|
|
.found
|
|
inc hl
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
scf
|
|
ret
|
|
; 2674
|
|
|
|
ExecuteCallbackScript:: ; 2674
|
|
; Do map callback de and return to script bank b.
|
|
farcall CallCallback
|
|
ld a, [wScriptMode]
|
|
push af
|
|
ld hl, wScriptFlags
|
|
ld a, [hl]
|
|
push af
|
|
set 1, [hl]
|
|
farcall EnableScriptMode
|
|
farcall ScriptEvents
|
|
pop af
|
|
ld [wScriptFlags], a
|
|
pop af
|
|
ld [wScriptMode], a
|
|
ret
|
|
; 269a
|
|
|
|
MapTextbox:: ; 269a
|
|
ld a, [hROMBank]
|
|
push af
|
|
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
push hl
|
|
call SpeechTextBox
|
|
call SafeUpdateSprites
|
|
ld a, 1
|
|
ld [hOAMUpdate], a
|
|
call ApplyTilemap
|
|
pop hl
|
|
call PrintTextBoxText
|
|
xor a
|
|
ld [hOAMUpdate], a
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 26b7
|
|
|
|
Call_a_de:: ; 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
|
|
|
|
GetMovementData:: ; 26c7
|
|
; Initialize the movement data for object c at b:hl
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
ld a, c
|
|
call LoadMovementDataPointer
|
|
|
|
pop hl
|
|
ld a, h
|
|
rst Bankswitch
|
|
ret
|
|
; 26d4
|
|
|
|
GetScriptByte:: ; 0x26d4
|
|
; Return byte at wScriptBank:wScriptPos in a.
|
|
|
|
push hl
|
|
push bc
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, [wScriptBank]
|
|
rst Bankswitch
|
|
|
|
ld hl, wScriptPos
|
|
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::
|
|
text_jump _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
|
|
|
|
CheckObjectMask:: ; 2707
|
|
ld a, [hMapObjectIndexBuffer]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wObjectMasks
|
|
add hl, de
|
|
ld a, [hl]
|
|
ret
|
|
; 2712
|
|
|
|
MaskObject:: ; 2712
|
|
ld a, [hMapObjectIndexBuffer]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wObjectMasks
|
|
add hl, de
|
|
ld [hl], -1 ; , masked
|
|
ret
|
|
; 271e
|
|
|
|
UnmaskObject:: ; 271e
|
|
ld a, [hMapObjectIndexBuffer]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, wObjectMasks
|
|
add hl, de
|
|
ld [hl], 0 ; unmasked
|
|
ret
|
|
; 272a
|
|
|
|
ScrollMapDown:: ; 272a
|
|
hlcoord 0, 0
|
|
ld de, wBGMapBuffer
|
|
call BackupBGMapRow
|
|
ld c, 2 * SCREEN_WIDTH
|
|
call FarCallScrollBGMapPalettes
|
|
ld a, [wBGMapAnchor]
|
|
ld e, a
|
|
ld a, [wBGMapAnchor + 1]
|
|
ld d, a
|
|
call UpdateBGMapRow
|
|
ld a, $1
|
|
ld [hBGMapUpdate], a
|
|
ret
|
|
; 2748
|
|
|
|
ScrollMapUp:: ; 2748
|
|
hlcoord 0, SCREEN_HEIGHT - 2
|
|
ld de, wBGMapBuffer
|
|
call BackupBGMapRow
|
|
ld c, 2 * SCREEN_WIDTH
|
|
call FarCallScrollBGMapPalettes
|
|
ld a, [wBGMapAnchor]
|
|
ld l, a
|
|
ld a, [wBGMapAnchor + 1]
|
|
ld h, a
|
|
ld bc, $0200
|
|
add hl, bc
|
|
; cap d at HIGH(vBGMap0)
|
|
ld a, h
|
|
and %00000011
|
|
or HIGH(vBGMap0)
|
|
ld e, l
|
|
ld d, a
|
|
call UpdateBGMapRow
|
|
ld a, $1
|
|
ld [hBGMapUpdate], a
|
|
ret
|
|
; 2771
|
|
|
|
ScrollMapRight:: ; 2771
|
|
hlcoord 0, 0
|
|
ld de, wBGMapBuffer
|
|
call BackupBGMapColumn
|
|
ld c, 2 * SCREEN_HEIGHT
|
|
call FarCallScrollBGMapPalettes
|
|
ld a, [wBGMapAnchor]
|
|
ld e, a
|
|
ld a, [wBGMapAnchor + 1]
|
|
ld d, a
|
|
call UpdateBGMapColumn
|
|
ld a, $1
|
|
ld [hBGMapUpdate], a
|
|
ret
|
|
; 278f
|
|
|
|
ScrollMapLeft:: ; 278f
|
|
hlcoord SCREEN_WIDTH - 2, 0
|
|
ld de, wBGMapBuffer
|
|
call BackupBGMapColumn
|
|
ld c, 2 * SCREEN_HEIGHT
|
|
call FarCallScrollBGMapPalettes
|
|
ld a, [wBGMapAnchor]
|
|
ld e, a
|
|
and %11100000
|
|
ld b, a
|
|
ld a, e
|
|
add SCREEN_HEIGHT
|
|
and %00011111
|
|
or b
|
|
ld e, a
|
|
ld a, [wBGMapAnchor + 1]
|
|
ld d, a
|
|
call UpdateBGMapColumn
|
|
ld a, $1
|
|
ld [hBGMapUpdate], a
|
|
ret
|
|
; 27b7
|
|
|
|
BackupBGMapRow:: ; 27b7
|
|
ld c, 2 * SCREEN_WIDTH
|
|
.loop
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 27c0
|
|
|
|
BackupBGMapColumn:: ; 27c0
|
|
ld c, SCREEN_HEIGHT
|
|
.loop
|
|
ld a, [hli]
|
|
ld [de], a
|
|
inc de
|
|
ld a, [hl]
|
|
ld [de], a
|
|
inc de
|
|
ld a, SCREEN_WIDTH - 1
|
|
add l
|
|
ld l, a
|
|
jr nc, .skip
|
|
inc h
|
|
|
|
.skip
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 27d3
|
|
|
|
UpdateBGMapRow:: ; 27d3
|
|
ld hl, wBGMapBufferPtrs
|
|
push de
|
|
call .iteration
|
|
pop de
|
|
ld a, $20
|
|
add e
|
|
ld e, a
|
|
|
|
.iteration
|
|
ld c, 10
|
|
.loop
|
|
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, .loop
|
|
ld a, SCREEN_WIDTH
|
|
ld [hBGMapTileCount], a
|
|
ret
|
|
; 27f8
|
|
|
|
UpdateBGMapColumn:: ; 27f8
|
|
ld hl, wBGMapBufferPtrs
|
|
ld c, SCREEN_HEIGHT
|
|
.loop
|
|
ld a, e
|
|
ld [hli], a
|
|
ld a, d
|
|
ld [hli], a
|
|
ld a, $20
|
|
add e
|
|
ld e, a
|
|
jr nc, .skip
|
|
inc d
|
|
; cap d at HIGH(vBGMap0)
|
|
ld a, d
|
|
and %11
|
|
or HIGH(vBGMap0)
|
|
ld d, a
|
|
|
|
.skip
|
|
dec c
|
|
jr nz, .loop
|
|
ld a, SCREEN_HEIGHT
|
|
ld [hBGMapTileCount], a
|
|
ret
|
|
; 2816
|
|
|
|
Unreferenced_Function2816::
|
|
ld hl, wBGMapBuffer
|
|
ld bc, wBGMapBufferEnd - wBGMapBuffer
|
|
xor a
|
|
call ByteFill
|
|
ret
|
|
; 2821
|
|
|
|
LoadTilesetGFX:: ; 2821
|
|
ld hl, wTilesetAddress
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [wTilesetBank]
|
|
ld e, a
|
|
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ld [rSVBK], a
|
|
|
|
ld a, e
|
|
ld de, wDecompressScratch
|
|
call FarDecompress
|
|
|
|
ld hl, wDecompressScratch
|
|
ld de, vTiles2
|
|
ld bc, $60 tiles
|
|
call CopyBytes
|
|
|
|
ld a, [rVBK]
|
|
push af
|
|
ld a, $1
|
|
ld [rVBK], a
|
|
|
|
ld hl, wDecompressScratch + $60 tiles
|
|
ld de, vTiles2
|
|
ld bc, $60 tiles
|
|
call CopyBytes
|
|
|
|
pop af
|
|
ld [rVBK], a
|
|
|
|
pop af
|
|
ld [rSVBK], a
|
|
|
|
; These tilesets support dynamic per-mapgroup roof tiles.
|
|
ld a, [wMapTileset]
|
|
cp TILESET_JOHTO
|
|
jr z, .load_roof
|
|
cp TILESET_JOHTO_MODERN
|
|
jr z, .load_roof
|
|
cp TILESET_BATTLE_TOWER_OUTSIDE
|
|
jr z, .load_roof
|
|
jr .skip_roof
|
|
|
|
.load_roof
|
|
farcall LoadMapGroupRoof
|
|
|
|
.skip_roof
|
|
xor a
|
|
ld [hTileAnimFrame], a
|
|
ret
|
|
; 2879
|
|
|
|
BufferScreen:: ; 2879
|
|
ld hl, wOverworldMapAnchor
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld de, wScreenSave
|
|
ld c, SCREEN_META_HEIGHT
|
|
ld b, SCREEN_META_WIDTH
|
|
.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 6
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .row
|
|
ret
|
|
; 289d
|
|
|
|
SaveScreen:: ; 289d
|
|
ld hl, wOverworldMapAnchor
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld de, wScreenSave
|
|
ld a, [wMapWidth]
|
|
add 6
|
|
ld [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 + SCREEN_META_WIDTH
|
|
ld a, [hMapObjectIndexBuffer]
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
jr .vertical
|
|
|
|
.down
|
|
ld de, wScreenSave
|
|
.vertical
|
|
ld b, SCREEN_META_WIDTH
|
|
ld c, SCREEN_META_HEIGHT - 1
|
|
jr SaveScreen_LoadNeighbor
|
|
|
|
.left
|
|
ld de, wScreenSave + 1
|
|
inc hl
|
|
jr .horizontal
|
|
|
|
.right
|
|
ld de, wScreenSave
|
|
.horizontal
|
|
ld b, SCREEN_META_WIDTH - 1
|
|
ld c, SCREEN_META_HEIGHT
|
|
jr SaveScreen_LoadNeighbor
|
|
|
|
LoadNeighboringBlockData:: ; 28e3
|
|
ld hl, wOverworldMapAnchor
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld a, [wMapWidth]
|
|
add 6
|
|
ld [hConnectionStripLength], a
|
|
ld de, wScreenSave
|
|
ld b, SCREEN_META_WIDTH
|
|
ld c, SCREEN_META_HEIGHT
|
|
|
|
SaveScreen_LoadNeighbor:: ; 28f7
|
|
.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 6
|
|
ld e, a
|
|
jr nc, .okay
|
|
inc d
|
|
|
|
.okay
|
|
pop hl
|
|
ld a, [hConnectionStripLength]
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
pop bc
|
|
dec c
|
|
jr nz, .row
|
|
ret
|
|
; 2914
|
|
|
|
GetMovementPermissions:: ; 2914
|
|
xor a
|
|
ld [wTilePermissions], a
|
|
call .LeftRight
|
|
call .UpDown
|
|
; get coords of current tile
|
|
ld a, [wPlayerStandingMapX]
|
|
ld d, a
|
|
ld a, [wPlayerStandingMapY]
|
|
ld e, a
|
|
call GetCoordTile
|
|
ld [wPlayerStandingTile], a
|
|
call .CheckHiNybble
|
|
ret nz
|
|
|
|
ld a, [wPlayerStandingTile]
|
|
and 7
|
|
ld hl, .MovementPermissionsData
|
|
add l
|
|
ld l, a
|
|
ld a, 0
|
|
adc h
|
|
ld h, a
|
|
ld a, [hl]
|
|
ld hl, wTilePermissions
|
|
or [hl]
|
|
ld [hl], a
|
|
ret
|
|
; 2945
|
|
|
|
.MovementPermissionsData: ; 2945
|
|
db DOWN_MASK
|
|
db UP_MASK
|
|
db LEFT_MASK
|
|
db RIGHT_MASK
|
|
db DOWN_MASK | RIGHT_MASK
|
|
db UP_MASK | RIGHT_MASK
|
|
db DOWN_MASK | LEFT_MASK
|
|
db UP_MASK | LEFT_MASK
|
|
; 294d
|
|
|
|
.UpDown:
|
|
ld a, [wPlayerStandingMapX]
|
|
ld d, a
|
|
ld a, [wPlayerStandingMapY]
|
|
ld e, a
|
|
|
|
push de
|
|
inc e
|
|
call GetCoordTile
|
|
ld [wTileDown], a
|
|
call .Down
|
|
|
|
pop de
|
|
dec e
|
|
call GetCoordTile
|
|
ld [wTileUp], a
|
|
call .Up
|
|
ret
|
|
; 296c
|
|
|
|
.LeftRight:
|
|
ld a, [wPlayerStandingMapX]
|
|
ld d, a
|
|
ld a, [wPlayerStandingMapY]
|
|
ld e, a
|
|
|
|
push de
|
|
dec d
|
|
call GetCoordTile
|
|
ld [wTileLeft], a
|
|
call .Left
|
|
|
|
pop de
|
|
inc d
|
|
call GetCoordTile
|
|
ld [wTileRight], a
|
|
call .Right
|
|
ret
|
|
; 298b
|
|
|
|
.Down:
|
|
call .CheckHiNybble
|
|
ret nz
|
|
ld a, [wTileDown]
|
|
and 7
|
|
cp $2
|
|
jr z, .ok_down
|
|
cp $6
|
|
jr z, .ok_down
|
|
cp $7
|
|
ret nz
|
|
|
|
.ok_down
|
|
ld a, [wTilePermissions]
|
|
or FACE_DOWN
|
|
ld [wTilePermissions], a
|
|
ret
|
|
; 29a8
|
|
|
|
.Up:
|
|
call .CheckHiNybble
|
|
ret nz
|
|
ld a, [wTileUp]
|
|
and 7
|
|
cp $3
|
|
jr z, .ok_up
|
|
cp $4
|
|
jr z, .ok_up
|
|
cp $5
|
|
ret nz
|
|
|
|
.ok_up
|
|
ld a, [wTilePermissions]
|
|
or FACE_UP
|
|
ld [wTilePermissions], a
|
|
ret
|
|
; 29c5
|
|
|
|
.Right:
|
|
call .CheckHiNybble
|
|
ret nz
|
|
ld a, [wTileRight]
|
|
and 7
|
|
cp $1
|
|
jr z, .ok_right
|
|
cp $5
|
|
jr z, .ok_right
|
|
cp $7
|
|
ret nz
|
|
|
|
.ok_right
|
|
ld a, [wTilePermissions]
|
|
or FACE_RIGHT
|
|
ld [wTilePermissions], a
|
|
ret
|
|
; 29e2
|
|
|
|
.Left:
|
|
call .CheckHiNybble
|
|
ret nz
|
|
ld a, [wTileLeft]
|
|
and 7
|
|
cp $0
|
|
jr z, .ok_left
|
|
cp $4
|
|
jr z, .ok_left
|
|
cp $6
|
|
ret nz
|
|
|
|
.ok_left
|
|
ld a, [wTilePermissions]
|
|
or FACE_LEFT
|
|
ld [wTilePermissions], a
|
|
ret
|
|
; 29ff
|
|
|
|
.CheckHiNybble:
|
|
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, [wPlayerDirection]
|
|
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 d
|
|
ld d, a
|
|
ld a, [wPlayerStandingMapY]
|
|
add e
|
|
ld e, a
|
|
ld a, [hl]
|
|
ret
|
|
|
|
.Directions:
|
|
; x, y
|
|
db 0, 1
|
|
dw wTileDown
|
|
db 0, -1
|
|
dw wTileUp
|
|
db -1, 0
|
|
dw wTileLeft
|
|
db 1, 0
|
|
dw wTileRight
|
|
; 2a3c
|
|
|
|
GetCoordTile:: ; 2a3c
|
|
; 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, [wTilesetCollisionBank]
|
|
call GetFarByte
|
|
ret
|
|
|
|
.nope
|
|
ld a, -1
|
|
ret
|
|
; 2a66
|
|
|
|
GetBlockLocation:: ; 2a66
|
|
ld a, [wMapWidth]
|
|
add 6
|
|
ld c, a
|
|
ld b, 0
|
|
ld hl, wOverworldMapBlocks + 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
|
|
; 2a8b
|
|
|
|
CheckFacingBGEvent:: ; 2a8b
|
|
call GetFacingTileCoord
|
|
; Load facing into b.
|
|
ld b, a
|
|
; Convert the coordinates at de to within-boundaries coordinates.
|
|
ld a, d
|
|
sub 4
|
|
ld d, a
|
|
ld a, e
|
|
sub 4
|
|
ld e, a
|
|
; If there are no BG events, we don't need to be here.
|
|
ld a, [wCurrMapBGEventCount]
|
|
and a
|
|
ret z
|
|
|
|
ld c, a
|
|
ld a, [hROMBank]
|
|
push af
|
|
call SwitchToMapScriptsBank
|
|
call CheckIfFacingTileCoordIsBGEvent
|
|
pop hl
|
|
ld a, h
|
|
rst Bankswitch
|
|
ret
|
|
; 2aaa
|
|
|
|
CheckIfFacingTileCoordIsBGEvent:: ; 2aaa
|
|
; Checks to see if you are facing a BG event. If so, copies it into wEngineBuffer1 and sets carry.
|
|
ld hl, wCurrMapBGEventsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
.loop
|
|
push hl
|
|
ld a, [hli]
|
|
cp e
|
|
jr nz, .next
|
|
ld a, [hli]
|
|
cp d
|
|
jr nz, .next
|
|
jr .copysign
|
|
|
|
.next
|
|
pop hl
|
|
ld a, 5 ; BG event event length
|
|
add l
|
|
ld l, a
|
|
jr nc, .nocarry
|
|
inc h
|
|
|
|
.nocarry
|
|
dec c
|
|
jr nz, .loop
|
|
xor a
|
|
ret
|
|
|
|
.copysign
|
|
pop hl
|
|
ld de, wCurBGEventYCoord
|
|
ld bc, 5 ; BG event event length
|
|
call CopyBytes
|
|
scf
|
|
ret
|
|
; 2ad4
|
|
|
|
CheckCurrentMapCoordEvents:: ; 2ad4
|
|
; If there are no coord events, we don't need to be here.
|
|
ld a, [wCurrMapCoordEventCount]
|
|
and a
|
|
ret z
|
|
; Copy the coord event count into c.
|
|
ld c, a
|
|
ld a, [hROMBank]
|
|
push af
|
|
call SwitchToMapScriptsBank
|
|
call .CoordEventCheck
|
|
pop hl
|
|
ld a, h
|
|
rst Bankswitch
|
|
ret
|
|
|
|
.CoordEventCheck:
|
|
; Checks to see if you are standing on a coord event. If yes, copies the event to wEngineBuffer1 and sets carry.
|
|
ld hl, wCurrMapCoordEventsPointer
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
; Load the active scene ID into b
|
|
call CheckScenes
|
|
ld b, a
|
|
; Load your current coordinates into de. This will be used to check if your position is in the coord event table for the current map.
|
|
ld a, [wPlayerStandingMapX]
|
|
sub 4
|
|
ld d, a
|
|
ld a, [wPlayerStandingMapY]
|
|
sub 4
|
|
ld e, a
|
|
|
|
.loop
|
|
push hl
|
|
ld a, [hli]
|
|
cp b
|
|
jr z, .got_id
|
|
cp -1
|
|
jr nz, .next
|
|
|
|
.got_id
|
|
ld a, [hli]
|
|
cp e
|
|
jr nz, .next
|
|
ld a, [hli]
|
|
cp d
|
|
jr nz, .next
|
|
jr .copy_coord_event
|
|
|
|
.next
|
|
pop hl
|
|
ld a, $8 ; coord event size
|
|
add l
|
|
ld l, a
|
|
jr nc, .nocarry
|
|
inc h
|
|
|
|
.nocarry
|
|
dec c
|
|
jr nz, .loop
|
|
xor a
|
|
ret
|
|
|
|
.copy_coord_event
|
|
pop hl
|
|
ld de, wCurCoordEventSceneID
|
|
ld bc, 8 ; coord event size
|
|
call CopyBytes
|
|
scf
|
|
ret
|
|
; 2b29
|
|
|
|
FadeToMenu:: ; 2b29
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
call LoadStandardMenuHeader
|
|
farcall FadeOutPalettes
|
|
call ClearSprites
|
|
call DisableSpriteUpdates
|
|
ret
|
|
; 2b3c
|
|
|
|
CloseSubmenu:: ; 2b3c
|
|
call ClearBGPalettes
|
|
call ReloadTilesetAndPalettes
|
|
call UpdateSprites
|
|
call Call_ExitMenu
|
|
call ret_d90
|
|
jr FinishExitMenu
|
|
; 2b4d
|
|
|
|
ExitAllMenus:: ; 2b4d
|
|
call ClearBGPalettes
|
|
call Call_ExitMenu
|
|
call ReloadTilesetAndPalettes
|
|
call UpdateSprites
|
|
call ret_d90
|
|
FinishExitMenu:: ; 2b5c
|
|
ld b, SCGB_MAPPALS
|
|
call GetSGBLayout
|
|
farcall LoadOW_BGPal7
|
|
call WaitBGMap2
|
|
farcall FadeInPalettes
|
|
call EnableSpriteUpdates
|
|
ret
|
|
; 2b74
|
|
|
|
ReturnToMapWithSpeechTextbox:: ; 0x2b74
|
|
push af
|
|
ld a, $1
|
|
ld [wSpriteUpdatesEnabled], a
|
|
call ClearBGPalettes
|
|
call ClearSprites
|
|
call ReloadTilesetAndPalettes
|
|
hlcoord 0, 12
|
|
lb bc, 4, 18
|
|
call TextBox
|
|
ld hl, wVramState
|
|
set 0, [hl]
|
|
call UpdateSprites
|
|
call WaitBGMap2
|
|
ld b, SCGB_MAPPALS
|
|
call GetSGBLayout
|
|
farcall LoadOW_BGPal7
|
|
call UpdateTimePals
|
|
call DelayFrame
|
|
ld a, $1
|
|
ld [hMapAnims], a
|
|
pop af
|
|
ret
|
|
; 0x2bae
|
|
|
|
ReloadTilesetAndPalettes:: ; 2bae
|
|
call DisableLCD
|
|
call ClearSprites
|
|
farcall RefreshSprites
|
|
call LoadStandardFont
|
|
call LoadFontsExtra
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
call SwitchToAnyMapAttributesBank
|
|
farcall UpdateTimeOfDayPal
|
|
call OverworldTextModeSwitch
|
|
call LoadTilesetGFX
|
|
ld a, 9
|
|
call SkipMusic
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
call EnableLCD
|
|
ret
|
|
; 2be5
|
|
|
|
GetMapPointer:: ; 2be5
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
GetAnyMapPointer:: ; 0x2bed
|
|
; Prior to calling this function, you must have switched banks so that
|
|
; MapGroupPointers is visible.
|
|
|
|
; inputs:
|
|
; b = map group, c = map number
|
|
|
|
; outputs:
|
|
; hl points to the map within its group
|
|
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 within the group
|
|
dec c
|
|
ld b, 0
|
|
ld a, 9
|
|
call AddNTimes
|
|
ret
|
|
; 0x2c04
|
|
|
|
GetMapField:: ; 0x2c04
|
|
; Extract data from the current map's group entry.
|
|
|
|
; inputs:
|
|
; de = offset of desired data within the map (a MAP_* constant)
|
|
|
|
; outputs:
|
|
; bc = data from the current map's field
|
|
; (e.g., de = MAP_TILESET would return a pointer to the tileset id)
|
|
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
GetAnyMapField:: ; 0x2c0c
|
|
; bankswitch
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(MapGroupPointers)
|
|
rst Bankswitch
|
|
|
|
call GetAnyMapPointer
|
|
add hl, de
|
|
ld c, [hl]
|
|
inc hl
|
|
ld b, [hl]
|
|
|
|
; bankswitch back
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 0x2c1c
|
|
|
|
SwitchToMapAttributesBank:: ; 2c1c
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
SwitchToAnyMapAttributesBank:: ; 2c24
|
|
call GetAnyMapAttributesBank
|
|
rst Bankswitch
|
|
ret
|
|
; 2c29
|
|
|
|
GetMapAttributesBank:: ; 2c29
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
GetAnyMapAttributesBank:: ; 2c31
|
|
push hl
|
|
push de
|
|
ld de, MAP_MAPATTRIBUTES_BANK
|
|
call GetAnyMapField
|
|
ld a, c
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 2c3d
|
|
|
|
CopyMapPartial:: ; 2c3d
|
|
; Copy map data bank, tileset, environment, and map data address
|
|
; from the current map's entry within its group.
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(MapGroupPointers)
|
|
rst Bankswitch
|
|
|
|
call GetMapPointer
|
|
ld de, wMapPartial
|
|
ld bc, wMapPartialEnd - wMapPartial
|
|
call CopyBytes
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
; 2c52
|
|
|
|
SwitchToMapScriptsBank:: ; 2c52
|
|
ld a, [wMapScriptsBank]
|
|
rst Bankswitch
|
|
ret
|
|
; 2c57
|
|
|
|
GetMapScriptsBank:: ; 2c57
|
|
ld a, [wMapScriptsBank]
|
|
ret
|
|
; 2c5b
|
|
|
|
GetAnyMapBlocksBank:: ; 2c5b
|
|
; Return the blockdata bank for group b map c.
|
|
push hl
|
|
push de
|
|
push bc
|
|
|
|
push bc
|
|
ld de, MAP_MAPATTRIBUTES
|
|
call GetAnyMapField
|
|
ld l, c
|
|
ld h, b
|
|
pop bc
|
|
|
|
push hl
|
|
ld de, MAP_MAPATTRIBUTES_BANK
|
|
call GetAnyMapField
|
|
pop hl
|
|
|
|
ld de, MAP_MAPATTRIBUTES ; blockdata bank
|
|
add hl, de
|
|
ld a, c
|
|
call GetFarByte
|
|
rst Bankswitch
|
|
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 2c7d
|
|
|
|
GetMapAttributesPointer:: ; 0x2c7d
|
|
; returns the current map's data pointer in hl.
|
|
push bc
|
|
push de
|
|
ld de, MAP_MAPATTRIBUTES
|
|
call GetMapField
|
|
ld l, c
|
|
ld h, b
|
|
pop de
|
|
pop bc
|
|
ret
|
|
; 2c8a
|
|
|
|
GetMapEnvironment:: ; 2c8a
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld de, MAP_ENVIRONMENT
|
|
call GetMapField
|
|
ld a, c
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 2c98
|
|
|
|
ret ; unused
|
|
; 2c99
|
|
|
|
GetAnyMapEnvironment:: ; 2c99
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld de, MAP_ENVIRONMENT
|
|
call GetAnyMapField
|
|
ld a, c
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 2ca7
|
|
|
|
GetAnyMapTileset:: ; 2ca7
|
|
ld de, MAP_TILESET
|
|
call GetAnyMapField
|
|
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, MAP_LOCATION
|
|
call GetAnyMapField
|
|
ld a, c
|
|
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 0x2cbd
|
|
|
|
GetMapMusic:: ; 2cbd
|
|
push hl
|
|
push bc
|
|
ld de, MAP_MUSIC
|
|
call GetMapField
|
|
ld a, c
|
|
cp MUSIC_MAHOGANY_MART
|
|
jr z, .mahoganymart
|
|
bit RADIO_TOWER_MUSIC_F, c
|
|
jr nz, .radiotower
|
|
farcall Function8b342
|
|
ld e, c
|
|
ld d, 0
|
|
.done
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
|
|
.radiotower
|
|
ld a, [wStatusFlags2]
|
|
bit STATUSFLAGS2_ROCKETS_IN_RADIO_TOWER_F, a
|
|
jr z, .clearedradiotower
|
|
ld de, MUSIC_ROCKET_OVERTURE
|
|
jr .done
|
|
|
|
.clearedradiotower
|
|
; the rest of the byte
|
|
ld a, c
|
|
and RADIO_TOWER_MUSIC - 1
|
|
ld e, a
|
|
ld d, 0
|
|
jr .done
|
|
|
|
.mahoganymart
|
|
ld a, [wStatusFlags2]
|
|
bit STATUSFLAGS2_ROCKETS_IN_MAHOGANY_F, a
|
|
jr z, .clearedmahogany
|
|
ld de, MUSIC_ROCKET_HIDEOUT
|
|
jr .done
|
|
|
|
.clearedmahogany
|
|
ld de, MUSIC_CHERRYGROVE_CITY
|
|
jr .done
|
|
; 2cff
|
|
|
|
GetMapTimeOfDay:: ; 2cff
|
|
call GetPhoneServiceTimeOfDayByte
|
|
and $f
|
|
ret
|
|
; 2d05
|
|
|
|
GetMapPhoneService:: ; 2d05
|
|
call GetPhoneServiceTimeOfDayByte
|
|
and $f0
|
|
swap a
|
|
ret
|
|
; 2d0d
|
|
|
|
GetPhoneServiceTimeOfDayByte:: ; 2d0d
|
|
push hl
|
|
push bc
|
|
|
|
ld de, MAP_PALETTE
|
|
call GetMapField
|
|
ld a, c
|
|
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 2d19
|
|
|
|
GetFishingGroup:: ; 2d19
|
|
push de
|
|
push hl
|
|
push bc
|
|
|
|
ld de, MAP_FISHGROUP
|
|
call GetMapField
|
|
ld a, c
|
|
|
|
pop bc
|
|
pop hl
|
|
pop de
|
|
ret
|
|
; 2d27
|
|
|
|
LoadTileset:: ; 2d27
|
|
push hl
|
|
push bc
|
|
|
|
ld hl, Tilesets
|
|
ld bc, wTilesetEnd - wTileset
|
|
ld a, [wMapTileset]
|
|
call AddNTimes
|
|
|
|
ld de, wTilesetBank
|
|
ld bc, wTilesetEnd - wTileset
|
|
|
|
ld a, BANK(Tilesets)
|
|
call FarCopyBytes
|
|
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 2d43
|