ref: ec10d9dd6f8db685270529b49f0b3007a7242dcc
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 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