pokered/engine/overworld/ledges.asm

HandleLedges: ; 1a672 (6:6672)
	ld a, [wd736]
	bit 6, a
	ret nz
	ld a, [W_CURMAPTILESET] ; W_CURMAPTILESET
	and a ; OVERWORLD
	ret nz
	predef Func_c586
	ld a, [wSpriteStateData1 + 9]
	ld b, a
	aCoord 8, 9
	ld c, a
	ld a, [wcfc6]
	ld d, a
	ld hl, LedgeTiles ; $66cf
.asm_1a691
	ld a, [hli]
	cp $ff
	ret z
	cp b
	jr nz, .asm_1a6a4
	ld a, [hli]
	cp c
	jr nz, .asm_1a6a5
	ld a, [hli]
	cp d
	jr nz, .asm_1a6a6
	ld a, [hl]
	ld e, a
	jr .asm_1a6a9
.asm_1a6a4
	inc hl
.asm_1a6a5
	inc hl
.asm_1a6a6
	inc hl
	jr .asm_1a691
.asm_1a6a9
	ld a, [hJoyHeld]
	and e
	ret z
	ld a, $ff
	ld [wJoyIgnore], a
	ld hl, wd736
	set 6, [hl]
	call Func_3486
	ld a, e
	ld [wccd3], a
	ld [wccd4], a
	ld a, $2
	ld [wcd38], 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 $00,$2C,$37,$80
	db $00,$39,$36,$80
	db $00,$39,$37,$80
	db $08,$2C,$27,$20
	db $08,$39,$27,$20
	db $0C,$2C,$0D,$10
	db $0C,$2C,$1D,$10
	db $0C,$39,$0D,$10
	db $FF

LoadHoppingShadowOAM: ; 1a6f0 (6:66f0)
	ld hl, vChars1 + $7f0
	ld de, LedgeHoppingShadow ; $6708
	ld bc, (BANK(LedgeHoppingShadow) << 8) + $01
	call CopyVideoDataDouble
	ld a, $9
	ld bc, $5448 ; b, c = y, x coordinates of shadow
	ld de, LedgeHoppingShadowOAM ; $6710
	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]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`bit 6, a`
			`ret nz`
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, [W_CURMAPTILESET] ; 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`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef Func_c586`
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`
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, [wcfc6]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, a`
			`ld hl, LedgeTiles ; $66cf`
			`.asm_1a691`
			`ld a, [hli]`
			`cp $ff`
			`ret z`
			`cp b`
			`jr nz, .asm_1a6a4`
			`ld a, [hli]`
			`cp c`
			`jr nz, .asm_1a6a5`
			`ld a, [hli]`
			`cp d`
			`jr nz, .asm_1a6a6`
			`ld a, [hl]`
			`ld e, a`
			`jr .asm_1a6a9`
			`.asm_1a6a4`
			`inc hl`
			`.asm_1a6a5`
			`inc hl`
			`.asm_1a6a6`
			`inc hl`
			`jr .asm_1a691`
			`.asm_1a6a9`
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`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`call Func_3486`
			`ld a, e`
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 [wccd3], a`
			`ld [wccd4], 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`
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 [wcd38], 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)`
			`db $00,$2C,$37,$80`
			`db $00,$39,$36,$80`
			`db $00,$39,$37,$80`
			`db $08,$2C,$27,$20`
			`db $08,$39,$27,$20`
			`db $0C,$2C,$0D,$10`
			`db $0C,$2C,$1D,$10`
			`db $0C,$39,$0D,$10`
			`db $FF`

			`LoadHoppingShadowOAM: ; 1a6f0 (6:66f0)`
Use VRAM constants where applicable. 2014-05-29 08:31:46 +00:00			`ld hl, vChars1 + $7f0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld de, LedgeHoppingShadow ; $6708`
			`ld bc, (BANK(LedgeHoppingShadow) << 8) + $01`
			`call CopyVideoDataDouble`
			`ld a, $9`
			`ld bc, $5448 ; b, c = y, x coordinates of shadow`
			`ld de, LedgeHoppingShadowOAM ; $6710`
			`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`