pokered/engine/battle/ghost_marowak_anim.asm

MarowakAnim:
; animate the ghost being unveiled as a Marowak
	ld a, $e4
	ldh [rOBP1], a
	call CopyMonPicFromBGToSpriteVRAM ; cover the BG ghost pic with a sprite ghost pic that looks the same
; now that the ghost pic is being displayed using sprites, clear the ghost pic from the BG tilemap
	hlcoord 12, 0
	lb bc, 7, 7
	call ClearScreenArea
	call Delay3
	xor a
	ldh [hAutoBGTransferEnabled], a ; disable BG transfer so we don't see the Marowak too soon
; replace ghost pic with Marowak in BG
	ld a, RESTLESS_SOUL
	ld [wChangeMonPicEnemyTurnSpecies], a
	ld a, $1
	ldh [hWhoseTurn], a
	callfar ChangeMonPic
 ; alternate between black and light grey 8 times.
 ; this makes the ghost's body appear to flash
	ld d, $80
	call FlashSprite8Times
.fadeOutGhostLoop
	ld c, 10
	call DelayFrames
	ldh a, [rOBP1]
	sla a
	sla a
	ldh [rOBP1], a
	jr nz, .fadeOutGhostLoop
	call ClearSprites
	call CopyMonPicFromBGToSpriteVRAM ; copy Marowak pic from BG to sprite VRAM
	ld b, $e4
.fadeInMarowakLoop
	ld c, 10
	call DelayFrames
	ldh a, [rOBP1]
	srl b
	rra
	srl b
	rra
	ldh [rOBP1], a
	ld a, b
	and a
	jr nz, .fadeInMarowakLoop
	ld a, $1
	ldh [hAutoBGTransferEnabled], a ; enable BG transfer so the BG Marowak pic will be visible after the sprite one is cleared
	call Delay3
	jp ClearSprites

; copies a mon pic's  from background VRAM to sprite VRAM and sets up OAM
CopyMonPicFromBGToSpriteVRAM:
	ld de, vFrontPic
	ld hl, vSprites
	ld bc, 7 * 7
	call CopyVideoData
	ld a, $10
	ld [wBaseCoordY], a
	ld a, $70
	ld [wBaseCoordX], a
	ld hl, wOAMBuffer
	lb bc, 6, 6
	ld d, $8
.oamLoop
	push bc
	ld a, [wBaseCoordY]
	ld e, a
.oamInnerLoop
	ld a, e
	add $8
	ld e, a
	ld [hli], a
	ld a, [wBaseCoordX]
	ld [hli], a
	ld a, d
	ld [hli], a
	ld a, OAM_OBP1
	ld [hli], a
	inc d
	dec c
	jr nz, .oamInnerLoop
	inc d
	ld a, [wBaseCoordX]
	add $8
	ld [wBaseCoordX], a
	pop bc
	dec b
	jr nz, .oamLoop
	ret
remove address comments 2016-06-12 00:24:04 +00:00			`MarowakAnim:`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`; animate the ghost being unveiled as a Marowak`
			`ld a, $e4`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`call CopyMonPicFromBGToSpriteVRAM ; cover the BG ghost pic with a sprite ghost pic that looks the same`
			`; now that the ghost pic is being displayed using sprites, clear the ghost pic from the BG tilemap`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 12, 0`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 7, 7`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`call ClearScreenArea`
			`call Delay3`
			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hAutoBGTransferEnabled], a ; disable BG transfer so we don't see the Marowak too soon`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`; replace ghost pic with Marowak in BG`
Replace ghost Marowak's ambiguous constant 2020-09-22 17:38:29 +00:00			`ld a, RESTLESS_SOUL`
named animation functions/variables 2015-07-24 21:39:45 +00:00			`ld [wChangeMonPicEnemyTurnSpecies], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld a, $1`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hWhoseTurn], a`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`callfar ChangeMonPic`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`; alternate between black and light grey 8 times.`
			`; this makes the ghost's body appear to flash`
			`ld d, $80`
			`call FlashSprite8Times`
			`.fadeOutGhostLoop`
			`ld c, 10`
			`call DelayFrames`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rOBP1]`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`sla a`
			`sla a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`jr nz, .fadeOutGhostLoop`
			`call ClearSprites`
			`call CopyMonPicFromBGToSpriteVRAM ; copy Marowak pic from BG to sprite VRAM`
			`ld b, $e4`
			`.fadeInMarowakLoop`
			`ld c, 10`
			`call DelayFrames`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [rOBP1]`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`srl b`
			`rra`
			`srl b`
			`rra`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP1], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld a, b`
			`and a`
			`jr nz, .fadeInMarowakLoop`
			`ld a, $1`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hAutoBGTransferEnabled], a ; enable BG transfer so the BG Marowak pic will be visible after the sprite one is cleared`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`call Delay3`
			`jp ClearSprites`

			`; copies a mon pic's from background VRAM to sprite VRAM and sets up OAM`
remove address comments 2016-06-12 00:24:04 +00:00			`CopyMonPicFromBGToSpriteVRAM:`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld de, vFrontPic`
			`ld hl, vSprites`
			`ld bc, 7 * 7`
			`call CopyVideoData`
			`ld a, $10`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wBaseCoordY], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld a, $70`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wBaseCoordX], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld hl, wOAMBuffer`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 6, 6`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld d, $8`
			`.oamLoop`
			`push bc`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wBaseCoordY]`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld e, a`
			`.oamInnerLoop`
			`ld a, e`
			`add $8`
			`ld e, a`
			`ld [hli], a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wBaseCoordX]`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld [hli], a`
			`ld a, d`
			`ld [hli], a`
Sync more with pokeyellow 2020-11-05 21:55:39 +00:00			`ld a, OAM_OBP1`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`ld [hli], a`
			`inc d`
			`dec c`
			`jr nz, .oamInnerLoop`
			`inc d`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wBaseCoordX]`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`add $8`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wBaseCoordX], a`
Rename battle files and split move effects Part 5 15.asm, 16.asm, 1a.asm, 1c.asm 2015-04-01 15:03:05 +00:00			`pop bc`
			`dec b`
			`jr nz, .oamLoop`
			`ret`