pokered/engine/overworld/cut2.asm

AnimCut:
	ld a, [wCutTile]
	cp $52
	jr z, .grass
	ld c, $8
.cutTreeLoop
	push bc
	ld hl, wOAMBuffer + $91
	ld a, 1
	ld [wCoordAdjustmentAmount], a
	ld c, 2
	call AdjustOAMBlockXPos2
	ld hl, wOAMBuffer + $99
	ld a, -1
	ld [wCoordAdjustmentAmount], a
	ld c, 2
	call AdjustOAMBlockXPos2
	ld a, [rOBP1]
	xor $64
	ld [rOBP1], a
	call DelayFrame
	pop bc
	dec c
	jr nz, .cutTreeLoop
	ret
.grass
	ld c, 2
.cutGrassLoop
	push bc
	ld c, $8
	call AnimCutGrass_UpdateOAMEntries
	call AnimCutGrass_SwapOAMEntries
	ld c, $8
	call AnimCutGrass_UpdateOAMEntries
	call AnimCutGrass_SwapOAMEntries
	ld hl, wOAMBuffer + $90
	ld a, 2
	ld [wCoordAdjustmentAmount], a
	ld c, 4
	call AdjustOAMBlockYPos2
	pop bc
	dec c
	jr nz, .cutGrassLoop
	ret

AnimCutGrass_UpdateOAMEntries:
	push bc
	ld hl, wOAMBuffer + $91
	ld a, 1
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wOAMBuffer + $95
	ld a, 2
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wOAMBuffer + $99
	ld a, -2
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wOAMBuffer + $9d
	ld a, -1
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld a, [rOBP1]
	xor $64
	ld [rOBP1], a
	call DelayFrame
	pop bc
	dec c
	jr nz, AnimCutGrass_UpdateOAMEntries
	ret

AnimCutGrass_SwapOAMEntries:
	ld hl, wOAMBuffer + $90
	ld de, wBuffer
	ld bc, $8
	call CopyData
	ld hl, wOAMBuffer + $98
	ld de, wOAMBuffer + $90
	ld bc, $8
	call CopyData
	ld hl, wBuffer
	ld de, wOAMBuffer + $98
	ld bc, $8
	jp CopyData
remove address comments 2016-06-12 00:24:04 +00:00			`AnimCut:`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld a, [wCutTile]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp $52`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`jr z, .grass`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, $8`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`.cutTreeLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
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 + $91`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, 1`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 2`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
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 + $99`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, -1`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 2`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
$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, [rOBP1]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor $64`
$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 [rOBP1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrame`
			`pop bc`
			`dec c`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`jr nz, .cutTreeLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`.grass`
			`ld c, 2`
			`.cutGrassLoop`
$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, $8`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`call AnimCutGrass_UpdateOAMEntries`
			`call AnimCutGrass_SwapOAMEntries`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, $8`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`call AnimCutGrass_UpdateOAMEntries`
			`call AnimCutGrass_SwapOAMEntries`
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`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, 2`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 4`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockYPos2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop bc`
			`dec c`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`jr nz, .cutGrassLoop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`AnimCutGrass_UpdateOAMEntries:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
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 + $91`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, 1`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
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 + $95`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, 2`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
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 + $99`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, -2`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
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 + $9d`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld a, -1`
			`ld [wCoordAdjustmentAmount], a`
			`ld c, 1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call AdjustOAMBlockXPos2`
$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, [rOBP1]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor $64`
$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 [rOBP1], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrame`
			`pop bc`
			`dec c`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`jr nz, AnimCutGrass_UpdateOAMEntries`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`AnimCutGrass_SwapOAMEntries:`
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`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld de, wBuffer`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $8`
			`call CopyData`
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 + $98`
			`ld de, wOAMBuffer + $90`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $8`
			`call CopyData`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld hl, wBuffer`
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 de, wOAMBuffer + $98`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $8`
			`jp CopyData`