pokered/engine/overworld/ledges.asm

HandleLedges: ; 1a672 (6:6672)
	ld a, [wd736]
	bit 6, a ; already jumping down ledge
	ret nz
	ld a, [W_CURMAPTILESET]
	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_02_4e - SFX_Headers_02) / 3
	call PlaySound
	ret

	; (player direction) (tile player standing on) (ledge tile) (input required)
LedgeTiles: ; 1a6cf (6:66cf)
	db SPRITE_FACING_DOWN, $2C,$37,D_DOWN
	db SPRITE_FACING_DOWN, $39,$36,D_DOWN
	db SPRITE_FACING_DOWN, $39,$37,D_DOWN
	db SPRITE_FACING_LEFT, $2C,$27,D_LEFT
	db SPRITE_FACING_LEFT, $39,$27,D_LEFT
	db SPRITE_FACING_RIGHT,$2C,$0D,D_RIGHT
	db SPRITE_FACING_RIGHT,$2C,$1D,D_RIGHT
	db SPRITE_FACING_RIGHT,$39,$0D,D_RIGHT
	db $FF

LoadHoppingShadowOAM: ; 1a6f0 (6:66f0)
	ld hl, vChars1 + $7f0
	ld de, LedgeHoppingShadow
	ld bc, (BANK(LedgeHoppingShadow) << 8) + $01
	call CopyVideoDataDouble
	ld a, $9
	ld bc, $5448 ; b, c = y, x coordinates of shadow
	ld de, LedgeHoppingShadowOAM
	call WriteOAMBlock
	ret

LedgeHoppingShadow: ; 1a708 (6:6708)
	INCBIN "gfx/ledge_hopping_shadow.1bpp"

LedgeHoppingShadowOAM: ; 1a710 (6:6710)
	db $FF,$10,$FF,$20
	db $FF,$40,$FF,$60
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`HandleLedges: ; 1a672 (6:6672)`
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`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld a, [W_CURMAPTILESET]`
$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`
			`ld a, (SFX_02_4e - SFX_Headers_02) / 3`
			`call PlaySound`
			`ret`

			`; (player direction) (tile player standing on) (ledge tile) (input required)`
			`LedgeTiles: ; 1a6cf (6:66cf)`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`db SPRITE_FACING_DOWN, $2C,$37,D_DOWN`
			`db SPRITE_FACING_DOWN, $39,$36,D_DOWN`
			`db SPRITE_FACING_DOWN, $39,$37,D_DOWN`
			`db SPRITE_FACING_LEFT, $2C,$27,D_LEFT`
			`db SPRITE_FACING_LEFT, $39,$27,D_LEFT`
			`db SPRITE_FACING_RIGHT,$2C,$0D,D_RIGHT`
			`db SPRITE_FACING_RIGHT,$2C,$1D,D_RIGHT`
			`db SPRITE_FACING_RIGHT,$39,$0D,D_RIGHT`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $FF`

			`LoadHoppingShadowOAM: ; 1a6f0 (6:66f0)`
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`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, (BANK(LedgeHoppingShadow) << 8) + $01`
			`call CopyVideoDataDouble`
			`ld a, $9`
			`ld bc, $5448 ; 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`

			`LedgeHoppingShadow: ; 1a708 (6:6708)`
			`INCBIN "gfx/ledge_hopping_shadow.1bpp"`

			`LedgeHoppingShadowOAM: ; 1a710 (6:6710)`
			`db $FF,$10,$FF,$20`
			`db $FF,$40,$FF,$60`