ref: 289d3dea86b82c4ce7eb7268ef33980688306587
dir: /home/map_objects.asm/
; 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 GetSpriteVTile:: ; 180e push hl push bc ld hl, UsedSprites + 2 ld c, SPRITE_GFX_LIST_CAPACITY - 1 ld b, a ld a, [hMapObjectIndexBuffer] 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 DoesSpriteHaveFacings:: ; 1836 push de push hl ld b, a ld 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 ; 184a Function184a:: ; 184a ld a, [PlayerNextTile] call GetTileCollision ld b, a ret ; 1852 CheckOnWater:: ; 1852 ld a, [PlayerNextTile] 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 CheckGrassTile:: ; 1875 ; and %00110111 ; cp $10 ; ret c ; cp $30 ; jr nc, .okay ; scf ; ret ; .okay ; xor a ; ret 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 ; For some reason, the above code is duplicated down here. .ok_20 ld a, d and 7 ret z scf ret ; 188e CheckSuperTallGrassTile:: ; 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, [PlayerNextTile] 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 CheckObjectVisibility:: ; 18de ; Sets carry if the object is not visible on the screen. ld [hMapObjectIndexBuffer], a call GetMapObject ld hl, MAPOBJECT_OBJECT_STRUCT_ID add hl, bc ld a, [hl] cp -1 jr z, .not_visible ld [hObjectStructIndexBuffer], a call GetObjectStruct and a ret .not_visible scf ret ; 18f5 CheckObjectTime:: ; 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 [hMapObjectIndexBuffer], a call GetMapObject call CopyObjectStruct ret ; 1956 _CopyObjectStruct:: ; 1956 ld [hMapObjectIndexBuffer], a call UnmaskObject ld a, [hMapObjectIndexBuffer] call GetMapObject callba CopyObjectStruct ret ; 1967 Function1967:: ; 1967 ld [hMapObjectIndexBuffer], 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 Function1985 pop af call GetObjectStruct callba DeleteMapObject ret ; 1985 Function1985:: ; 1985 ld hl, wObjectFollow_Leader cp [hl] jr z, .ok ld hl, wObjectFollow_Follower cp [hl] ret nz .ok callba StopFollow ld a, -1 ld [wObjectFollow_Leader], a ld [wObjectFollow_Follower], a ret ; 199f DeleteObjectStruct:: ; 199f call Function1967 call MaskObject 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, [wObjectFollow_Leader] cp b jr nz, .ok ld a, -1 ld [wObjectFollow_Leader], a .ok ld a, b call GetObjectStruct callba DeleteMapObject ret ; 19e9 LoadMovementDataPointer:: ; 19e9 ; Load the movement data pointer for person a. ld [wMovementPerson], a ld a, [hROMBank] ld [wMovementDataPointer], a ld a, l ld [wMovementDataPointer + 1], a ld a, h ld [wMovementDataPointer + 2], a ld a, [wMovementPerson] call CheckObjectVisibility ret c ld hl, OBJECT_MOVEMENTTYPE add hl, bc ld [hl], SPRITEMOVEDATA_SCRIPTED ld hl, OBJECT_STEP_TYPE add hl, bc ld [hl], STEP_TYPE_00 ld hl, VramState set 7, [hl] and a ret ; 1a13 FindFirstEmptyObjectStruct:: ; 1a13 ; 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, ObjectStructs ld de, OBJECT_STRUCT_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 ; 1a2f GetSpriteMovementFunction:: ; 1a2f ld hl, OBJECT_MOVEMENTTYPE add hl, bc ld a, [hl] cp NUM_SPRITEMOVEDATA jr c, .ok xor a .ok ld hl, SpriteMovementData ld e, a ld d, 0 rept SPRITEMOVEDATA_FIELDS add hl,de endr ld a, [hl] ret ; 1a47 GetInitialFacing:: ; 1a47 push bc push de ld e, a ld d, 0 ld hl, SpriteMovementData + 1 ; init facing rept SPRITEMOVEDATA_FIELDS add hl,de endr ld a, BANK(SpriteMovementData) call GetFarByte rept 2 add a endr and $c pop de pop bc ret ; 1a61 CopySpriteMovementData:: ; 1a61 ld l, a ld a, [hROMBank] push af ld a, BANK(SpriteMovementData) rst Bankswitch ld a, l push bc call .CopyData pop bc pop af rst Bankswitch ret ; 1a71 .CopyData ; 1a71 ld hl, OBJECT_MOVEMENTTYPE add hl, de ld [hl], a push de ld e, a ld d, 0 ld hl, SpriteMovementData + 1 ; init facing rept SPRITEMOVEDATA_FIELDS add hl, de endr ld b, h ld c, l pop de ld a, [bc] inc bc rlca rlca and %00001100 ld hl, OBJECT_FACING 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 ; 1aae _GetMovementByte:: ; 1aae ; Switch to the movement data bank ld a, [hROMBank] push af ld a, [hli] rst Bankswitch ; Load the current script byte as given by OBJECT_MOVEMENT_BYTE_INDEX, and increment OBJECT_MOVEMENT_BYTE_INDEX ld a, [hli] ld d, [hl] ld hl, OBJECT_MOVEMENT_BYTE_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 ; 1ac6 SetVramState_Bit0:: ; 1ac6 ld hl, VramState set 0, [hl] ret ; 1acc ResetVramState_Bit0:: ; 1acc ld hl, VramState res 0, [hl] ret ; 1ad2 UpdateSprites:: ; 1ad2 ld a, [VramState] bit 0, a ret z callba Function55e0 callba _UpdateSprites 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 ; preserves other flags 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