pokered/engine/overworld/cut2.asm

AnimCut:
	ld a, [wCutTile]
	cp $52
	jr z, .grass
	ld c, $8
.cutTreeLoop
	push bc
	ld hl, wShadowOAMSprite36XCoord
	ld a, 1
	ld [wCoordAdjustmentAmount], a
	ld c, 2
	call AdjustOAMBlockXPos2
	ld hl, wShadowOAMSprite38XCoord
	ld a, -1
	ld [wCoordAdjustmentAmount], a
	ld c, 2
	call AdjustOAMBlockXPos2
	ldh a, [rOBP1]
	xor $64
	ldh [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, wShadowOAMSprite36YCoord
	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, wShadowOAMSprite36XCoord
	ld a, 1
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wShadowOAMSprite37XCoord
	ld a, 2
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wShadowOAMSprite38XCoord
	ld a, -2
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ld hl, wShadowOAMSprite39XCoord
	ld a, -1
	ld [wCoordAdjustmentAmount], a
	ld c, 1
	call AdjustOAMBlockXPos2
	ldh a, [rOBP1]
	xor $64
	ldh [rOBP1], a
	call DelayFrame
	pop bc
	dec c
	jr nz, AnimCutGrass_UpdateOAMEntries
	ret

AnimCutGrass_SwapOAMEntries:
	ld hl, wShadowOAMSprite36
	ld de, wBuffer
	ld bc, $8
	call CopyData
	ld hl, wShadowOAMSprite38
	ld de, wShadowOAMSprite36
	ld bc, $8
	call CopyData
	ld hl, wBuffer
	ld de, wShadowOAMSprite38
	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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite36XCoord`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite38XCoord`
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`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh 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`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite36YCoord`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite36XCoord`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite37XCoord`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite38XCoord`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite39XCoord`
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`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh 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`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [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:`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite36`
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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld hl, wShadowOAMSprite38`
			`ld de, wShadowOAMSprite36`
$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`
wOAMBuffer -> wShadowOAM (#370) 2022-07-09 21:18:18 +00:00			`ld de, wShadowOAMSprite38`
$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`