mirror of https://github.com/pret/pokecrystal.git
675 lines
7.4 KiB
NASM
675 lines
7.4 KiB
NASM
; Functions handling map objects.
|
|
|
|
|
|
GetSpritePalette:: ; 17ff
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld c, a
|
|
callba _GetSpritePalette
|
|
ld a, c
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 180e
|
|
|
|
|
|
Function180e:: ; 180e
|
|
push hl
|
|
push bc
|
|
ld hl, UsedSprites + 2
|
|
ld c, SPRITE_GFX_LIST_CAPACITY - 1
|
|
ld b, a
|
|
ld a, [hConnectionStripLength]
|
|
cp 0
|
|
jr z, .nope
|
|
ld a, b
|
|
.loop
|
|
cp [hl]
|
|
jr z, .found
|
|
rept 2
|
|
inc hl
|
|
endr
|
|
dec c
|
|
jr nz, .loop
|
|
ld a, [UsedSprites + 1]
|
|
scf
|
|
jr .done
|
|
|
|
.nope
|
|
ld a, [UsedSprites + 1]
|
|
jr .done
|
|
|
|
.found
|
|
inc hl
|
|
xor a
|
|
ld a, [hl]
|
|
|
|
.done
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 1836
|
|
|
|
Function1836:: ; 1836
|
|
push de
|
|
push hl
|
|
|
|
ld b, a
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(Function142a7)
|
|
rst Bankswitch
|
|
|
|
ld a, b
|
|
call Function142a7
|
|
ld c, a
|
|
|
|
pop de
|
|
ld a, d
|
|
rst Bankswitch
|
|
|
|
pop hl
|
|
pop de
|
|
ret
|
|
; 184a
|
|
|
|
|
|
|
|
Function184a:: ; 184a
|
|
ld a, [StandingTile]
|
|
call GetTileCollision
|
|
ld b, a
|
|
ret
|
|
; 1852
|
|
|
|
Function1852:: ; 1852
|
|
ld a, [StandingTile]
|
|
call GetTileCollision
|
|
sub 1
|
|
ret z
|
|
and a
|
|
ret
|
|
; 185d
|
|
|
|
|
|
GetTileCollision:: ; 185d
|
|
; Get the collision type of tile a.
|
|
|
|
push de
|
|
push hl
|
|
|
|
ld hl, TileCollisionTable
|
|
ld e, a
|
|
ld d, 0
|
|
add hl, de
|
|
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(TileCollisionTable)
|
|
rst Bankswitch
|
|
ld e, [hl]
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
ld a, e
|
|
and $f ; lo nybble only
|
|
|
|
pop hl
|
|
pop de
|
|
ret
|
|
; 1875
|
|
|
|
|
|
Function1875:: ; 1875
|
|
ld d, a
|
|
and $f0
|
|
cp $10
|
|
jr z, .ok_10
|
|
cp $20
|
|
jr z, .ok_20
|
|
scf
|
|
ret
|
|
|
|
.ok_10
|
|
ld a, d
|
|
and 7
|
|
ret z
|
|
scf
|
|
ret
|
|
|
|
.ok_20
|
|
ld a, d
|
|
and 7
|
|
ret z
|
|
scf
|
|
ret
|
|
; 188e
|
|
|
|
Function188e:: ; 188e
|
|
cp $14
|
|
ret z
|
|
cp $1c
|
|
ret
|
|
; 1894
|
|
|
|
CheckCutTreeTile:: ; 1894
|
|
cp $12
|
|
ret z
|
|
cp $1a
|
|
ret
|
|
; 189a
|
|
|
|
CheckHeadbuttTreeTile:: ; 189a
|
|
cp $15
|
|
ret z
|
|
cp $1d
|
|
ret
|
|
; 18a0
|
|
|
|
CheckCounterTile:: ; 18a0
|
|
cp $90
|
|
ret z
|
|
cp $98
|
|
ret
|
|
; 18a6
|
|
|
|
CheckPitTile:: ; 18a6
|
|
cp $60
|
|
ret z
|
|
cp $68
|
|
ret
|
|
; 18ac
|
|
|
|
CheckIceTile:: ; 18ac
|
|
cp $23
|
|
ret z
|
|
cp $2b
|
|
ret z
|
|
scf
|
|
ret
|
|
; 18b4
|
|
|
|
CheckWhirlpoolTile:: ; 18b4
|
|
nop
|
|
cp $24
|
|
ret z
|
|
cp $2c
|
|
ret z
|
|
scf
|
|
ret
|
|
; 18bd
|
|
|
|
CheckWaterfallTile:: ; 18bd
|
|
cp $33
|
|
ret z
|
|
cp $3b
|
|
ret
|
|
; 18c3
|
|
|
|
CheckStandingOnEntrance:: ; 18c3
|
|
ld a, [StandingTile]
|
|
cp $71 ; door
|
|
ret z
|
|
cp $79
|
|
ret z
|
|
cp $7a ; stairs
|
|
ret z
|
|
cp $7b ; cave
|
|
ret
|
|
; 18d2
|
|
|
|
|
|
GetMapObject:: ; 18d2
|
|
; Return the location of map object a in bc.
|
|
ld hl, MapObjects
|
|
ld bc, OBJECT_LENGTH
|
|
call AddNTimes
|
|
ld b, h
|
|
ld c, l
|
|
ret
|
|
; 18de
|
|
|
|
|
|
Function18de:: ; 18de
|
|
; Sets carry if the object is not visible on the screen.
|
|
ld [hConnectionStripLength], a
|
|
call GetMapObject
|
|
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp -1
|
|
jr z, .not_visible
|
|
ld [hConnectedMapWidth], a
|
|
call GetObjectStruct
|
|
and a
|
|
ret
|
|
|
|
.not_visible
|
|
scf
|
|
ret
|
|
; 18f5
|
|
|
|
Function18f5:: ; 18f5
|
|
ld hl, MAPOBJECT_HOUR
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp -1
|
|
jr nz, .check_hour
|
|
ld hl, MAPOBJECT_TIMEOFDAY
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp -1
|
|
jr z, .timeofday_always
|
|
ld hl, .TimeOfDayValues_191e
|
|
ld a, [TimeOfDay]
|
|
add l
|
|
ld l, a
|
|
jr nc, .ok
|
|
inc h
|
|
|
|
.ok
|
|
ld a, [hl]
|
|
ld hl, MAPOBJECT_TIMEOFDAY
|
|
add hl, bc
|
|
and [hl]
|
|
jr nz, .timeofday_always
|
|
scf
|
|
ret
|
|
|
|
.timeofday_always
|
|
and a
|
|
ret
|
|
|
|
.TimeOfDayValues_191e
|
|
db 1 << MORN ; 1
|
|
db 1 << DAY ; 2
|
|
db 1 << NITE ; 4
|
|
|
|
.check_hour
|
|
ld hl, MAPOBJECT_HOUR
|
|
add hl, bc
|
|
ld d, [hl]
|
|
ld hl, MAPOBJECT_TIMEOFDAY
|
|
add hl, bc
|
|
ld e, [hl]
|
|
ld hl, hHours
|
|
ld a, d
|
|
cp e
|
|
jr z, .yes
|
|
jr c, .check_timeofday
|
|
ld a, [hl]
|
|
cp d
|
|
jr nc, .yes
|
|
cp e
|
|
jr c, .yes
|
|
jr z, .yes
|
|
jr .no
|
|
|
|
.check_timeofday
|
|
ld a, e
|
|
cp [hl]
|
|
jr c, .no
|
|
ld a, [hl]
|
|
cp d
|
|
jr nc, .yes
|
|
jr .no
|
|
|
|
.yes
|
|
and a
|
|
ret
|
|
|
|
.no
|
|
scf
|
|
ret
|
|
; 194d
|
|
|
|
Function194d:: ; 194d
|
|
ld [hConnectionStripLength], a
|
|
call GetMapObject
|
|
call CopyObjectStruct
|
|
ret
|
|
; 1956
|
|
|
|
|
|
|
|
_CopyObjectStruct:: ; 1956
|
|
ld [hConnectionStripLength], a
|
|
call Function271e
|
|
ld a, [hConnectionStripLength]
|
|
call GetMapObject
|
|
callba CopyObjectStruct
|
|
ret
|
|
; 1967
|
|
|
|
Function1967:: ; 1967
|
|
ld [hConnectionStripLength], a
|
|
call GetMapObject
|
|
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp -1
|
|
ret z
|
|
ld [hl], -1
|
|
push af
|
|
call Function1985
|
|
pop af
|
|
call GetObjectStruct
|
|
callba Function4357
|
|
ret
|
|
; 1985
|
|
|
|
Function1985:: ; 1985
|
|
ld hl, wd4cd
|
|
cp [hl]
|
|
jr z, .ok
|
|
ld hl, wd4ce
|
|
cp [hl]
|
|
ret nz
|
|
|
|
.ok
|
|
callba Function581f
|
|
ld a, -1
|
|
ld [wd4cd], a
|
|
ld [wd4ce], a
|
|
ret
|
|
; 199f
|
|
|
|
DeleteObjectStruct:: ; 199f
|
|
call Function1967
|
|
call Function2712
|
|
ret
|
|
; 19a6
|
|
|
|
Function19a6:: ; 19a6
|
|
push hl
|
|
call GetMapObject
|
|
ld d, b
|
|
ld e, c
|
|
ld a, -1
|
|
ld [de], a
|
|
inc de
|
|
pop hl
|
|
ld bc, OBJECT_LENGTH - 1
|
|
call CopyBytes
|
|
ret
|
|
; 19b8
|
|
|
|
Function19b8:: ; 19b8
|
|
call GetMapObject
|
|
ld hl, MAPOBJECT_OBJECT_STRUCT_ID
|
|
add hl, bc
|
|
ld a, [hl]
|
|
push af
|
|
ld [hl], -1
|
|
inc hl
|
|
ld bc, OBJECT_LENGTH - 1
|
|
xor a
|
|
call ByteFill
|
|
pop af
|
|
cp -1
|
|
ret z
|
|
cp $d
|
|
ret nc
|
|
ld b, a
|
|
ld a, [wd4cd]
|
|
cp b
|
|
jr nz, .ok
|
|
ld a, -1
|
|
ld [wd4cd], a
|
|
|
|
.ok
|
|
ld a, b
|
|
call GetObjectStruct
|
|
callba Function4357
|
|
ret
|
|
; 19e9
|
|
|
|
|
|
|
|
Function19e9:: ; 19e9
|
|
ld [wc2e2], a
|
|
ld a, [hROMBank]
|
|
ld [wc2e3], a
|
|
ld a, l
|
|
ld [wc2e3 + 1], a
|
|
ld a, h
|
|
ld [wc2e3 + 2], a
|
|
ld a, [wc2e2]
|
|
call Function18de
|
|
ret c
|
|
ld hl, OBJECT_03
|
|
add hl, bc
|
|
ld [hl], $14
|
|
ld hl, OBJECT_09
|
|
add hl, bc
|
|
ld [hl], 0
|
|
ld hl, VramState
|
|
set 7, [hl]
|
|
and a
|
|
ret
|
|
; 1a13
|
|
|
|
|
|
|
|
Function1a13:: ; 1a13
|
|
push bc
|
|
push de
|
|
ld hl, ObjectStructs
|
|
ld de, OBJECT_STRUCT_LENGTH
|
|
ld c, NUM_OBJECT_STRUCTS
|
|
.loop
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .empty
|
|
add hl, de
|
|
dec c
|
|
jr nz, .loop
|
|
xor a
|
|
jr .done
|
|
|
|
.empty
|
|
ld a, $d
|
|
sub c
|
|
scf
|
|
|
|
.done
|
|
pop de
|
|
pop bc
|
|
ret
|
|
; 1a2f
|
|
|
|
|
|
|
|
Function1a2f:: ; 1a2f
|
|
ld hl, OBJECT_03
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp OBJECT_STRUCT_3_DATA_HEIGHT
|
|
jr c, .ok
|
|
xor a
|
|
|
|
.ok
|
|
ld hl, ObjectStruct3_Data
|
|
ld e, a
|
|
ld d, 0
|
|
rept OBJECT_STRUCT_3_DATA_WIDTH
|
|
add hl,de
|
|
endr
|
|
ld a, [hl]
|
|
ret
|
|
; 1a47
|
|
|
|
Function1a47:: ; 1a47
|
|
push bc
|
|
push de
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, ObjectStruct3_Data + 1
|
|
rept OBJECT_STRUCT_3_DATA_WIDTH
|
|
add hl,de
|
|
endr
|
|
ld a, BANK(ObjectStruct3_Data)
|
|
call GetFarByte
|
|
rept 2
|
|
add a
|
|
endr
|
|
and $c
|
|
pop de
|
|
pop bc
|
|
ret
|
|
; 1a61
|
|
|
|
|
|
Function1a61:: ; 1a61
|
|
ld l, a
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(ObjectStruct3_Data)
|
|
rst Bankswitch
|
|
ld a, l
|
|
push bc
|
|
|
|
call Function1a71
|
|
|
|
pop bc
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
ret
|
|
; 1a71
|
|
|
|
Function1a71:: ; 1a71
|
|
ld hl, OBJECT_03
|
|
add hl, de
|
|
ld [hl], a
|
|
push de
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, ObjectStruct3_Data + 1
|
|
rept OBJECT_STRUCT_3_DATA_WIDTH
|
|
add hl,de
|
|
endr
|
|
ld b, h
|
|
ld c, l
|
|
pop de
|
|
ld a, [bc]
|
|
inc bc
|
|
rlca
|
|
rlca
|
|
and $c
|
|
ld hl, OBJECT_FACING
|
|
add hl, de
|
|
ld [hl], a
|
|
ld a, [bc]
|
|
inc bc
|
|
ld hl, OBJECT_11
|
|
add hl, de
|
|
ld [hl], a
|
|
ld a, [bc]
|
|
inc bc
|
|
ld hl, OBJECT_04
|
|
add hl, de
|
|
ld [hl], a
|
|
ld a, [bc]
|
|
inc bc
|
|
ld hl, OBJECT_FLAGS
|
|
add hl, de
|
|
ld [hl], a
|
|
ld a, [bc]
|
|
inc bc
|
|
ld hl, OBJECT_PALETTE
|
|
add hl, de
|
|
ld [hl], a
|
|
ret
|
|
; 1aae
|
|
|
|
Function1aae:: ; 1aae
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, [hli]
|
|
rst Bankswitch
|
|
|
|
ld a, [hli]
|
|
ld d, [hl]
|
|
ld hl, OBJECT_27
|
|
add hl, bc
|
|
add [hl]
|
|
ld e, a
|
|
ld a, d
|
|
adc 0
|
|
ld d, a
|
|
inc [hl]
|
|
ld a, [de]
|
|
ld h, a
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
ld a, h
|
|
ret
|
|
; 1ac6
|
|
|
|
SetVramState_Bit0:: ; 1ac6
|
|
ld hl, VramState
|
|
set 0, [hl]
|
|
ret
|
|
; 1acc
|
|
|
|
ResetVramState_Bit0:: ; 1acc
|
|
ld hl, VramState
|
|
res 0, [hl]
|
|
ret
|
|
; 1ad2
|
|
|
|
|
|
DrawOnMap:: ; 1ad2
|
|
ld a, [VramState]
|
|
bit 0, a
|
|
ret z
|
|
callba Function55e0
|
|
callba RefreshMapAppearDisappear
|
|
ret
|
|
; 1ae5
|
|
|
|
|
|
GetObjectStruct:: ; 1ae5
|
|
ld bc, OBJECT_STRUCT_LENGTH
|
|
ld hl, ObjectStructs
|
|
call AddNTimes
|
|
ld b, h
|
|
ld c, l
|
|
ret
|
|
; 1af1
|
|
|
|
GetObjectSprite:: ; 1af1
|
|
ld hl, OBJECT_SPRITE
|
|
add hl, bc
|
|
ld a, [hl]
|
|
and a
|
|
ret
|
|
; 1af8
|
|
|
|
SetSpriteDirection:: ; 1af8
|
|
push af
|
|
ld hl, OBJECT_FACING
|
|
add hl, bc
|
|
ld a, [hl]
|
|
and %11110011
|
|
ld e, a
|
|
pop af
|
|
and %00001100
|
|
or e
|
|
ld [hl], a
|
|
ret
|
|
; 1b07
|
|
|
|
|
|
GetSpriteDirection:: ; 1b07
|
|
ld hl, OBJECT_FACING
|
|
add hl, bc
|
|
ld a, [hl]
|
|
and %00001100
|
|
ret
|
|
; 1b0f
|