mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
739a60b33c
These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name.
260 lines
3.8 KiB
NASM
260 lines
3.8 KiB
NASM
MAP_NAME_SIGN_START EQU $60
|
|
|
|
InitMapNameSign::
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
farcall .inefficient_farcall ; this is a waste of 6 ROM bytes and 6 stack bytes
|
|
ret
|
|
|
|
; should have just been a fallthrough
|
|
.inefficient_farcall
|
|
ld a, [wMapGroup]
|
|
ld b, a
|
|
ld a, [wMapNumber]
|
|
ld c, a
|
|
call GetWorldMapLocation
|
|
ld [wCurLandmark], a
|
|
call .CheckNationalParkGate
|
|
jr z, .gate
|
|
|
|
call GetMapEnvironment
|
|
cp GATE
|
|
jr nz, .not_gate
|
|
|
|
.gate
|
|
ld a, -1
|
|
ld [wCurLandmark], a
|
|
|
|
.not_gate
|
|
ld hl, wEnteredMapFromContinue
|
|
bit 1, [hl]
|
|
res 1, [hl]
|
|
jr nz, .dont_do_map_sign
|
|
|
|
call .CheckMovingWithinLandmark
|
|
jr z, .dont_do_map_sign
|
|
ld a, [wCurLandmark]
|
|
ld [wPrevLandmark], a
|
|
|
|
call .CheckSpecialMap
|
|
jr z, .dont_do_map_sign
|
|
|
|
; Display for 60 frames
|
|
ld a, 60
|
|
ld [wLandmarkSignTimer], a
|
|
call LoadMapNameSignGFX
|
|
call InitMapNameFrame
|
|
farcall HDMATransfer_OnlyTopFourRows
|
|
ret
|
|
|
|
.dont_do_map_sign
|
|
ld a, [wCurLandmark]
|
|
ld [wPrevLandmark], a
|
|
ld a, $90
|
|
ldh [rWY], a
|
|
ldh [hWY], a
|
|
xor a
|
|
ldh [hLCDCPointer], a
|
|
ret
|
|
|
|
.CheckMovingWithinLandmark:
|
|
ld a, [wCurLandmark]
|
|
ld c, a
|
|
ld a, [wPrevLandmark]
|
|
cp c
|
|
ret z
|
|
cp SPECIAL_MAP
|
|
ret
|
|
|
|
.CheckSpecialMap:
|
|
; These landmarks do not get pop-up signs.
|
|
cp -1
|
|
ret z
|
|
cp SPECIAL_MAP ; redundant check
|
|
ret z
|
|
cp RADIO_TOWER
|
|
ret z
|
|
cp LAV_RADIO_TOWER
|
|
ret z
|
|
cp UNDERGROUND_PATH
|
|
ret z
|
|
cp INDIGO_PLATEAU
|
|
ret z
|
|
cp POWER_PLANT
|
|
ret z
|
|
ld a, 1
|
|
and a
|
|
ret
|
|
|
|
.CheckNationalParkGate:
|
|
ld a, [wMapGroup]
|
|
cp GROUP_ROUTE_35_NATIONAL_PARK_GATE
|
|
ret nz
|
|
ld a, [wMapNumber]
|
|
cp MAP_ROUTE_35_NATIONAL_PARK_GATE
|
|
ret z
|
|
cp MAP_ROUTE_36_NATIONAL_PARK_GATE
|
|
ret
|
|
|
|
PlaceMapNameSign::
|
|
ld hl, wLandmarkSignTimer
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .disappear
|
|
dec [hl]
|
|
cp 60
|
|
ret z
|
|
cp 59
|
|
jr nz, .already_initialized
|
|
call InitMapNameFrame
|
|
call PlaceMapNameCenterAlign
|
|
farcall HDMATransfer_OnlyTopFourRows
|
|
.already_initialized
|
|
ld a, $80
|
|
ld a, $70
|
|
ldh [rWY], a
|
|
ldh [hWY], a
|
|
ret
|
|
|
|
.disappear
|
|
ld a, $90
|
|
ldh [rWY], a
|
|
ldh [hWY], a
|
|
xor a
|
|
ldh [hLCDCPointer], a
|
|
ret
|
|
|
|
LoadMapNameSignGFX:
|
|
ld de, MapEntryFrameGFX
|
|
ld hl, vTiles2 tile MAP_NAME_SIGN_START
|
|
lb bc, BANK(MapEntryFrameGFX), 14
|
|
call Get2bpp
|
|
ret
|
|
|
|
InitMapNameFrame:
|
|
hlcoord 0, 0
|
|
ld b, 2
|
|
ld c, 18
|
|
call InitMapSignAttrMap
|
|
call PlaceMapNameFrame
|
|
ret
|
|
|
|
PlaceMapNameCenterAlign:
|
|
ld a, [wCurLandmark]
|
|
ld e, a
|
|
farcall GetLandmarkName
|
|
call .GetNameLength
|
|
ld a, SCREEN_WIDTH
|
|
sub c
|
|
srl a
|
|
ld b, $0
|
|
ld c, a
|
|
hlcoord 0, 2
|
|
add hl, bc
|
|
ld de, wStringBuffer1
|
|
call PlaceString
|
|
ret
|
|
|
|
.GetNameLength:
|
|
ld c, 0
|
|
push hl
|
|
ld hl, wStringBuffer1
|
|
.loop
|
|
ld a, [hli]
|
|
cp "@"
|
|
jr z, .stop
|
|
cp "%"
|
|
jr z, .loop
|
|
inc c
|
|
jr .loop
|
|
.stop
|
|
pop hl
|
|
ret
|
|
|
|
InitMapSignAttrMap:
|
|
ld de, wAttrMap - wTileMap
|
|
add hl, de
|
|
inc b
|
|
inc b
|
|
inc c
|
|
inc c
|
|
ld a, PAL_BG_TEXT | PRIORITY
|
|
.loop
|
|
push bc
|
|
push hl
|
|
.inner_loop
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .inner_loop
|
|
pop hl
|
|
ld de, SCREEN_WIDTH
|
|
add hl, de
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
|
|
PlaceMapNameFrame:
|
|
hlcoord 0, 0
|
|
; top left
|
|
ld a, MAP_NAME_SIGN_START + 1
|
|
ld [hli], a
|
|
; top row
|
|
ld a, MAP_NAME_SIGN_START + 2
|
|
call .FillTopBottom
|
|
; top right
|
|
ld a, MAP_NAME_SIGN_START + 4
|
|
ld [hli], a
|
|
; left, first line
|
|
ld a, MAP_NAME_SIGN_START + 5
|
|
ld [hli], a
|
|
; first line
|
|
call .FillMiddle
|
|
; right, first line
|
|
ld a, MAP_NAME_SIGN_START + 11
|
|
ld [hli], a
|
|
; left, second line
|
|
ld a, MAP_NAME_SIGN_START + 6
|
|
ld [hli], a
|
|
; second line
|
|
call .FillMiddle
|
|
; right, second line
|
|
ld a, MAP_NAME_SIGN_START + 12
|
|
ld [hli], a
|
|
; bottom left
|
|
ld a, MAP_NAME_SIGN_START + 7
|
|
ld [hli], a
|
|
; bottom
|
|
ld a, MAP_NAME_SIGN_START + 8
|
|
call .FillTopBottom
|
|
; bottom right
|
|
ld a, MAP_NAME_SIGN_START + 10
|
|
ld [hl], a
|
|
ret
|
|
|
|
.FillMiddle:
|
|
ld c, SCREEN_WIDTH - 2
|
|
ld a, MAP_NAME_SIGN_START + 13
|
|
.loop
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
.FillTopBottom:
|
|
ld c, (SCREEN_WIDTH - 2) / 4 + 1
|
|
jr .enterloop
|
|
|
|
.continueloop
|
|
ld [hli], a
|
|
ld [hli], a
|
|
|
|
.enterloop
|
|
inc a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
dec a
|
|
dec c
|
|
jr nz, .continueloop
|
|
ret
|