First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

home/map_objects.asm

@@ -0,0 +1,575 @@
+; Functions handling map objects.
+
+GetSpritePalette::
+	push hl
+	push de
+	push bc
+	ld c, a
+
+	farcall _GetSpritePalette
+
+	ld a, c
+	pop bc
+	pop de
+	pop hl
+	ret
+
+GetSpriteVTile::
+	push hl
+	push bc
+	ld hl, wUsedSprites + 2
+	ld c, SPRITE_GFX_LIST_CAPACITY - 1
+	ld b, a
+	ldh a, [hMapObjectIndex]
+	cp 0
+	jr z, .nope
+	ld a, b
+.loop
+	cp [hl]
+	jr z, .found
+	inc hl
+	inc hl
+	dec c
+	jr nz, .loop
+	ld a, [wUsedSprites + 1]
+	scf
+	jr .done
+
+.nope
+	ld a, [wUsedSprites + 1]
+	jr .done
+
+.found
+	inc hl
+	xor a
+	ld a, [hl]
+
+.done
+	pop bc
+	pop hl
+	ret
+
+DoesSpriteHaveFacings::
+	push de
+	push hl
+
+	ld b, a
+	ldh a, [hROMBank]
+	push af
+	ld a, BANK(_DoesSpriteHaveFacings)
+	rst Bankswitch
+
+	ld a, b
+	call _DoesSpriteHaveFacings
+	ld c, a
+
+	pop de
+	ld a, d
+	rst Bankswitch
+
+	pop hl
+	pop de
+	ret
+
+GetPlayerTile::
+	ld a, [wPlayerTile]
+	call GetTileCollision
+	ld b, a
+	ret
+
+CheckOnWater::
+	ld a, [wPlayerTile]
+	call GetTileCollision
+	sub WATER_TILE
+	ret z
+	and a
+	ret
+
+GetTileCollision::
+; Get the collision type of tile a.
+
+	push de
+	push hl
+
+	ld hl, TileCollisionTable
+	ld e, a
+	ld d, 0
+	add hl, de
+
+	ldh 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
+
+CheckGrassTile::
+	ld d, a
+	and $f0
+	cp HI_NYBBLE_TALL_GRASS
+	jr z, .check
+	cp HI_NYBBLE_WATER
+	jr nz, .nope
+.check
+	ld a, d
+	and LO_NYBBLE_GRASS
+	ret z
+.nope
+	scf
+	ret
+
+CheckSuperTallGrassTile::
+	cp COLL_LONG_GRASS
+	ret z
+	cp COLL_LONG_GRASS_1C
+	ret
+
+CheckCutTreeTile::
+	cp COLL_CUT_TREE
+	ret z
+	cp COLL_CUT_TREE_1A
+	ret
+
+CheckHeadbuttTreeTile::
+	cp COLL_HEADBUTT_TREE
+	ret z
+	cp COLL_HEADBUTT_TREE_1D
+	ret
+
+CheckCounterTile::
+	cp COLL_COUNTER
+	ret z
+	cp COLL_COUNTER_98
+	ret
+
+CheckPitTile::
+	cp COLL_PIT
+	ret z
+	cp COLL_PIT_68
+	ret
+
+CheckIceTile::
+	cp COLL_ICE
+	ret z
+	cp COLL_ICE_2B
+	ret z
+	scf
+	ret
+
+CheckWhirlpoolTile::
+	nop
+	cp COLL_WHIRLPOOL
+	ret z
+	cp COLL_WHIRLPOOL_2C
+	ret z
+	scf
+	ret
+
+CheckWaterfallTile::
+	cp COLL_WATERFALL
+	ret z
+	cp COLL_CURRENT_DOWN
+	ret
+
+CheckStandingOnEntrance::
+	ld a, [wPlayerTile]
+	cp COLL_DOOR
+	ret z
+	cp COLL_DOOR_79
+	ret z
+	cp COLL_STAIRCASE
+	ret z
+	cp COLL_CAVE
+	ret
+
+GetMapObject::
+; Return the location of map object a in bc.
+	ld hl, wMapObjects
+	ld bc, MAPOBJECT_LENGTH
+	call AddNTimes
+	ld b, h
+	ld c, l
+	ret
+
+CheckObjectVisibility::
+; Sets carry if the object is not visible on the screen.
+	ldh [hMapObjectIndex], a
+	call GetMapObject
+	ld hl, MAPOBJECT_OBJECT_STRUCT_ID
+	add hl, bc
+	ld a, [hl]
+	cp -1
+	jr z, .not_visible
+	ldh [hObjectStructIndex], a
+	call GetObjectStruct
+	and a
+	ret
+
+.not_visible
+	scf
+	ret
+
+CheckObjectTime::
+	ld hl, MAPOBJECT_HOUR_1
+	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, .TimesOfDay
+	ld a, [wTimeOfDay]
+	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
+
+.TimesOfDay:
+; entries correspond to TimeOfDay values
+	db MORN
+	db DAY
+	db NITE
+
+.check_hour
+	ld hl, MAPOBJECT_HOUR_1
+	add hl, bc
+	ld d, [hl]
+	ld hl, MAPOBJECT_HOUR_2
+	add hl, bc
+	ld e, [hl]
+	ld hl, hHours
+	ld a, d
+	cp e
+	ret z
+	jr c, .check_timeofday
+	ld a, [hl]
+	cp d
+	ret nc
+	cp e
+	ret z
+	ccf
+	ret
+
+.check_timeofday
+	ld a, e
+	cp [hl]
+	ret c
+	ld a, [hl]
+	cp d
+	ret
+
+UnmaskCopyMapObjectStruct::
+	ldh [hMapObjectIndex], a
+	call UnmaskObject
+	ldh a, [hMapObjectIndex]
+	call GetMapObject
+	farcall CopyObjectStruct
+	ret
+
+ApplyDeletionToMapObject::
+	ldh [hMapObjectIndex], a
+	call GetMapObject
+	ld hl, MAPOBJECT_OBJECT_STRUCT_ID
+	add hl, bc
+	ld a, [hl]
+	cp -1
+	ret z ; already hidden
+	ld [hl], -1
+	push af
+	call .CheckStopFollow
+	pop af
+	call GetObjectStruct
+	farcall DeleteMapObject
+	ret
+
+.CheckStopFollow:
+	ld hl, wObjectFollow_Leader
+	cp [hl]
+	jr z, .ok
+	ld hl, wObjectFollow_Follower
+	cp [hl]
+	ret nz
+.ok
+	farcall StopFollow
+	ld a, -1
+	ld [wObjectFollow_Leader], a
+	ld [wObjectFollow_Follower], a
+	ret
+
+DeleteObjectStruct::
+	call ApplyDeletionToMapObject
+	jp MaskObject
+
+CopyPlayerObjectTemplate::
+	push hl
+	call GetMapObject
+	ld d, b
+	ld e, c
+	ld a, -1
+	ld [de], a
+	inc de
+	pop hl
+	ld bc, MAPOBJECT_LENGTH - 1
+	jp CopyBytes
+
+LoadMovementDataPointer::
+; Load the movement data pointer for object a.
+	ld [wMovementObject], a
+	ldh a, [hROMBank]
+	ld [wMovementDataBank], a
+	ld a, l
+	ld [wMovementDataAddress], a
+	ld a, h
+	ld [wMovementDataAddress + 1], a
+	ld a, [wMovementObject]
+	call CheckObjectVisibility
+	ret c
+
+	ld hl, OBJECT_MOVEMENT_TYPE
+	add hl, bc
+	ld [hl], SPRITEMOVEDATA_SCRIPTED
+
+	ld hl, OBJECT_STEP_TYPE
+	add hl, bc
+	ld [hl], STEP_TYPE_RESET
+
+	ld hl, wVramState
+	set 7, [hl]
+	and a
+	ret
+
+FindFirstEmptyObjectStruct::
+; Returns the index of the first empty object struct in A and its address in HL, then sets carry.
+; If all object structs are occupied, A = 0 and Z is set.
+; Preserves BC and DE.
+	push bc
+	push de
+	ld hl, wObjectStructs
+	ld de, OBJECT_LENGTH
+	ld c, NUM_OBJECT_STRUCTS
+.loop
+	ld a, [hl]
+	and a
+	jr z, .break
+	add hl, de
+	dec c
+	jr nz, .loop
+	xor a
+	jr .done
+
+.break
+	ld a, NUM_OBJECT_STRUCTS
+	sub c
+	scf
+
+.done
+	pop de
+	pop bc
+	ret
+
+GetSpriteMovementFunction::
+	ld hl, OBJECT_MOVEMENT_TYPE
+	add hl, bc
+	ld a, [hl]
+	cp NUM_SPRITEMOVEDATA
+	jr c, .ok
+	xor a
+
+.ok
+	ld hl, SpriteMovementData + SPRITEMOVEATTR_MOVEMENT
+	ld e, a
+	ld d, 0
+rept NUM_SPRITEMOVEDATA_FIELDS
+	add hl, de
+endr
+	ld a, [hl]
+	ret
+
+GetInitialFacing::
+	push bc
+	push de
+	ld e, a
+	ld d, 0
+	ld hl, SpriteMovementData + SPRITEMOVEATTR_FACING
+rept NUM_SPRITEMOVEDATA_FIELDS
+	add hl, de
+endr
+	ld a, BANK(SpriteMovementData)
+	call GetFarByte
+	add a
+	add a
+	maskbits NUM_DIRECTIONS, 2
+	pop de
+	pop bc
+	ret
+
+CopySpriteMovementData::
+	ld l, a
+	ldh a, [hROMBank]
+	push af
+	ld a, BANK(SpriteMovementData)
+	rst Bankswitch
+	ld a, l
+	push bc
+
+	call .CopyData
+
+	pop bc
+	pop af
+	rst Bankswitch
+
+	ret
+
+.CopyData:
+	ld hl, OBJECT_MOVEMENT_TYPE
+	add hl, de
+	ld [hl], a
+
+	push de
+	ld e, a
+	ld d, 0
+	ld hl, SpriteMovementData + SPRITEMOVEATTR_FACING
+rept NUM_SPRITEMOVEDATA_FIELDS
+	add hl, de
+endr
+	ld b, h
+	ld c, l
+	pop de
+
+	ld a, [bc]
+	inc bc
+	rlca
+	rlca
+	maskbits NUM_DIRECTIONS, 2
+	ld hl, OBJECT_DIRECTION
+	add hl, de
+	ld [hl], a
+
+	ld a, [bc]
+	inc bc
+	ld hl, OBJECT_ACTION
+	add hl, de
+	ld [hl], a
+
+	ld a, [bc]
+	inc bc
+	ld hl, OBJECT_FLAGS1
+	add hl, de
+	ld [hl], a
+
+	ld a, [bc]
+	inc bc
+	ld hl, OBJECT_FLAGS2
+	add hl, de
+	ld [hl], a
+
+	ld a, [bc]
+	inc bc
+	ld hl, OBJECT_PALETTE
+	add hl, de
+	ld [hl], a
+	ret
+
+_GetMovementIndex::
+; Switch to the movement data bank
+	ldh a, [hROMBank]
+	push af
+	ld a, [hli]
+	rst Bankswitch
+; Load the current script byte as given by OBJECT_MOVEMENT_INDEX, and increment OBJECT_MOVEMENT_INDEX
+	ld a, [hli]
+	ld d, [hl]
+	ld hl, OBJECT_MOVEMENT_INDEX
+	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
+
+SetVramState_Bit0:: ; unreferenced
+	ld hl, wVramState
+	set 0, [hl]
+	ret
+
+ResetVramState_Bit0:: ; unreferenced
+	ld hl, wVramState
+	res 0, [hl]
+	ret
+
+UpdateSprites::
+	ld a, [wVramState]
+	bit 0, a
+	ret z
+
+	farcall UpdateAllObjectsFrozen
+	farcall _UpdateSprites
+	ret
+
+GetObjectStruct::
+	ld bc, OBJECT_LENGTH
+	ld hl, wObjectStructs
+	call AddNTimes
+	ld b, h
+	ld c, l
+	ret
+
+DoesObjectHaveASprite::
+	ld hl, OBJECT_SPRITE
+	add hl, bc
+	ld a, [hl]
+	and a
+	ret
+
+SetSpriteDirection::
+	; preserves other flags
+	push af
+	ld hl, OBJECT_DIRECTION
+	add hl, bc
+	ld a, [hl]
+	and %11110011
+	ld e, a
+	pop af
+	maskbits NUM_DIRECTIONS, 2
+	or e
+	ld [hl], a
+	ret
+
+GetSpriteDirection::
+	ld hl, OBJECT_DIRECTION
+	add hl, bc
+	ld a, [hl]
+	maskbits NUM_DIRECTIONS, 2
+	ret