pokered/engine/overworld/ssanne.asm

AnimateBoulderDust: ; 79f54 (1e:5f54)
	ld a, $1
	ld [wWhichAnimationOffsets], a ; select the boulder dust offsets
	ld a, [wUpdateSpritesEnabled]
	push af
	ld a, $ff
	ld [wUpdateSpritesEnabled], a
	ld a, %11100100
	ld [rOBP1], a
	call LoadSmokeTileFourTimes
	callba WriteCutTreeBoulderDustAnimationOAMBlock
	ld c, 8 ; number of steps in animation
.loop
	push bc
	call GetMoveBoulderDustFunctionPointer
	ld bc, .returnAddress
	push bc
	ld c, $4
	jp [hl]
.returnAddress
	ld a, [rOBP1]
	xor %01100100
	ld [rOBP1], a
	call Delay3
	pop bc
	dec c
	jr nz, .loop
	pop af
	ld [wUpdateSpritesEnabled], a
	jp LoadPlayerSpriteGraphics

GetMoveBoulderDustFunctionPointer: ; 79f92 (1e:5f92)
	ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction
	ld hl, MoveBoulderDustFunctionPointerTable
	ld c, a
	ld b, $0
	add hl, bc
	ld a, [hli]
	ld [wd08a], a
	ld a, [hli]
	ld e, a
	ld a, [hli]
	ld h, [hl]
	ld l, a
	push hl
	ld hl, wOAMBuffer + $90
	ld d, $0
	add hl, de
	ld e, l
	ld d, h
	pop hl
	ret

MoveBoulderDustFunctionPointerTable: ; 79fb0 (1e:5fb0)
; facing down
	db $FF,$00
	dw AdjustOAMBlockYPos

; facing up
	db $01,$00
	dw AdjustOAMBlockYPos

; facing left
	db $01,$01
	dw AdjustOAMBlockXPos

; facing right
	db $FF,$01
	dw AdjustOAMBlockXPos

LoadSmokeTileFourTimes: ; 79fc0 (1e:5fc0)
	ld hl, vChars1 + $7c0
	ld c, $4
.loop
	push bc
	push hl
	call LoadSmokeTile
	pop hl
	ld bc, $10
	add hl, bc
	pop bc
	dec c
	jr nz, .loop
	ret

LoadSmokeTile: ; 79fd4 (1e:5fd4)
	ld de, SSAnneSmokePuffTile
	ld bc, (BANK(SSAnneSmokePuffTile) << 8) + $01
	jp CopyVideoData

SSAnneSmokePuffTile: ; 79fdd (1e:5fdd)
	INCBIN "gfx/ss_anne_smoke_puff.2bpp"
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`AnimateBoulderDust: ; 79f54 (1e:5f54)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $1`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`ld [wWhichAnimationOffsets], a ; select the boulder dust offsets`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld a, [wUpdateSpritesEnabled]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
			`ld a, $ff`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, %11100100`
			`ld [rOBP1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call LoadSmokeTileFourTimes`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`callba WriteCutTreeBoulderDustAnimationOAMBlock`
			`ld c, 8 ; number of steps in animation`
			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call GetMoveBoulderDustFunctionPointer`
			`ld bc, .returnAddress`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
			`ld c, $4`
			`jp [hl]`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`.returnAddress`
			`ld a, [rOBP1]`
			`xor %01100100`
			`ld [rOBP1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call Delay3`
			`pop bc`
			`dec c`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`jr nz, .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop af`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp LoadPlayerSpriteGraphics`

Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`GetMoveBoulderDustFunctionPointer: ; 79f92 (1e:5f92)`
			`ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction`
			`ld hl, MoveBoulderDustFunctionPointerTable`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
			`ld b, $0`
			`add hl, bc`
			`ld a, [hli]`
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 [wd08a], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`ld e, a`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`push hl`
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, wOAMBuffer + $90`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld d, $0`
			`add hl, de`
			`ld e, l`
			`ld d, h`
			`pop hl`
			`ret`

Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`MoveBoulderDustFunctionPointerTable: ; 79fb0 (1e:5fb0)`
			`; facing down`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $FF,$00`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`dw AdjustOAMBlockYPos`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`; facing up`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $01,$00`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`dw AdjustOAMBlockYPos`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`; facing left`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $01,$01`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`dw AdjustOAMBlockXPos`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`; facing right`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $FF,$01`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`dw AdjustOAMBlockXPos`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`LoadSmokeTileFourTimes: ; 79fc0 (1e:5fc0)`
Use VRAM constants where applicable. 2014-05-29 08:31:46 +00:00			`ld hl, vChars1 + $7c0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, $4`
			`.loop`
			`push bc`
			`push hl`
			`call LoadSmokeTile`
			`pop hl`
			`ld bc, $10`
			`add hl, bc`
			`pop bc`
			`dec c`
			`jr nz, .loop`
			`ret`

			`LoadSmokeTile: ; 79fd4 (1e:5fd4)`
$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 de, SSAnneSmokePuffTile`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, (BANK(SSAnneSmokePuffTile) << 8) + $01`
			`jp CopyVideoData`

			`SSAnneSmokePuffTile: ; 79fdd (1e:5fdd)`
			`INCBIN "gfx/ss_anne_smoke_puff.2bpp"`