pokered/engine/overworld/ledges.asm

HandleLedges::
	ld a, [wd736]
	bit 6, a ; already jumping down ledge
	ret nz
	ld a, [wCurMapTileset]
	and a ; OVERWORLD
	ret nz
	predef GetTileAndCoordsInFrontOfPlayer
	ld a, [wSpriteStateData1 + 9]
	ld b, a
	aCoord 8, 9
	ld c, a
	ld a, [wTileInFrontOfPlayer]
	ld d, a
	ld hl, LedgeTiles
.loop
	ld a, [hli]
	cp $ff
	ret z
	cp b
	jr nz, .nextLedgeTile1
	ld a, [hli]
	cp c
	jr nz, .nextLedgeTile2
	ld a, [hli]
	cp d
	jr nz, .nextLedgeTile3
	ld a, [hl]
	ld e, a
	jr .foundMatch
.nextLedgeTile1
	inc hl
.nextLedgeTile2
	inc hl
.nextLedgeTile3
	inc hl
	jr .loop
.foundMatch
	ld a, [hJoyHeld]
	and e
	ret z
	ld a, $ff
	ld [wJoyIgnore], a
	ld hl, wd736
	set 6, [hl] ; jumping down ledge
	call StartSimulatingJoypadStates
	ld a, e
	ld [wSimulatedJoypadStatesEnd], a
	ld [wSimulatedJoypadStatesEnd + 1], a
	ld a, $2
	ld [wSimulatedJoypadStatesIndex], a
	call LoadHoppingShadowOAM
	ld a, SFX_LEDGE
	call PlaySound
	ret

INCLUDE "data/ledge_tiles.asm"

LoadHoppingShadowOAM:
	ld hl, vChars1 + $7f0
	ld de, LedgeHoppingShadow
	lb bc, BANK(LedgeHoppingShadow), (LedgeHoppingShadowEnd - LedgeHoppingShadow) / $8
	call CopyVideoDataDouble
	ld a, $9
	lb bc, $54, $48 ; b, c = y, x coordinates of shadow
	ld de, LedgeHoppingShadowOAM
	call WriteOAMBlock
	ret

LedgeHoppingShadow:
	INCBIN "gfx/overworld/shadow.1bpp"
LedgeHoppingShadowEnd:

LedgeHoppingShadowOAM:
	db $FF,$10,$FF,$20
	db $FF,$40,$FF,$60
Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`HandleLedges::`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd736]`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`bit 6, a ; already jumping down ledge`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret nz`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wCurMapTileset]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a ; OVERWORLD`
			`ret nz`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`predef GetTileAndCoordsInFrontOfPlayer`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wSpriteStateData1 + 9]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
$U-Fish-PC\Daniel$ Use *Coord instead of FuncCoord Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses 2014-06-25 20:58:27 +00:00			`aCoord 8, 9`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld a, [wTileInFrontOfPlayer]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld hl, LedgeTiles`
			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp $ff`
			`ret z`
			`cp b`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr nz, .nextLedgeTile1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp c`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr nz, .nextLedgeTile2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp d`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr nz, .nextLedgeTile3`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
			`ld e, a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr .foundMatch`
			`.nextLedgeTile1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`.nextLedgeTile2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`.nextLedgeTile3`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`jr .loop`
			`.foundMatch`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld a, [hJoyHeld]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and e`
			`ret z`
			`ld a, $ff`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd736`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`set 6, [hl] ; jumping down ledge`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, e`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], a`
			`ld [wSimulatedJoypadStatesEnd + 1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $2`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call LoadHoppingShadowOAM`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_LEDGE`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`
			`ret`

Move more tables from engine/ to data/ This also splits the end of engine/battle/core.asm into engine/battle/effects.asm. 2020-06-23 21:50:50 +00:00			`INCLUDE "data/ledge_tiles.asm"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`LoadHoppingShadowOAM:`
Use VRAM constants where applicable. 2014-05-29 08:31:46 +00:00			`ld hl, vChars1 + $7f0`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld de, LedgeHoppingShadow`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`lb bc, BANK(LedgeHoppingShadow), (LedgeHoppingShadowEnd - LedgeHoppingShadow) / $8`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call CopyVideoDataDouble`
			`ld a, $9`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, $54, $48 ; b, c = y, x coordinates of shadow`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld de, LedgeHoppingShadowOAM`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call WriteOAMBlock`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`LedgeHoppingShadow:`
Organize gfx/ 2020-06-27 20:27:30 +00:00			`INCBIN "gfx/overworld/shadow.1bpp"`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`LedgeHoppingShadowEnd:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`LedgeHoppingShadowOAM:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $FF,$10,$FF,$20`
			`db $FF,$40,$FF,$60`