pokered/engine/overworld/emotion_bubbles.asm

EmotionBubble:
	ld a, [wWhichEmotionBubble]
	ld c, a
	ld b, 0
	ld hl, EmotionBubblesPointerTable
	add hl, bc
	add hl, bc
	ld e, [hl]
	inc hl
	ld d, [hl]
	ld hl, vChars1 tile $78
	lb bc, BANK(EmotionBubbles), 4
	call CopyVideoData
	ld a, [wUpdateSpritesEnabled]
	push af
	ld a, $ff
	ld [wUpdateSpritesEnabled], a
	ld a, [wd736]
	bit 6, a ; are the last 4 OAM entries reserved for a shadow or fishing rod?
	ld hl, wOAMBuffer + 4 * 35 + $3 ; $8f
	ld de, wOAMBuffer + 4 * 39 + $3 ; $9f
	jr z, .next
	ld hl, wOAMBuffer + 4 * 31 + $3 ; $7f
	ld de, wOAMBuffer + 4 * 35 + $3 ; $8f

; Copy OAM data 16 bytes forward to make room for emotion bubble OAM data at the
; start of the OAM buffer.
.next
	ld bc, $90
.loop
	ld a, [hl]
	ld [de], a
	dec hl
	dec de
	dec bc
	ld a, c
	or b
	jr nz, .loop

; get the screen coordinates of the sprite the bubble is to be displayed above
	ld hl, wSpritePlayerStateData1YPixels
	ld a, [wEmotionBubbleSpriteIndex]
	swap a
	ld c, a
	ld b, 0
	add hl, bc
	ld a, [hli]
	ld b, a
	inc hl
	ld a, [hl]
	add $8
	ld c, a

	ld de, EmotionBubblesOAM
	xor a
	call WriteOAMBlock
	ld c, 60
	call DelayFrames
	pop af
	ld [wUpdateSpritesEnabled], a
	call DelayFrame
	jp UpdateSprites

EmotionBubblesPointerTable:
; entries correspond to *_BUBBLE constants
	dw ShockEmote
	dw QuestionEmote
	dw HappyEmote

EmotionBubblesOAM:
	dbsprite  0, -1,  0,  0, $f9, 0
	dbsprite  0, -1,  0,  2, $fb, 0

EmotionBubbles:
ShockEmote:    INCBIN "gfx/emotes/shock.2bpp"
QuestionEmote: INCBIN "gfx/emotes/question.2bpp"
HappyEmote:    INCBIN "gfx/emotes/happy.2bpp"
remove address comments 2016-06-12 00:24:04 +00:00			`EmotionBubble:`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`ld a, [wWhichEmotionBubble]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`ld b, 0`
$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 hl, EmotionBubblesPointerTable`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`add hl, bc`
			`add hl, bc`
			`ld e, [hl]`
			`inc hl`
			`ld d, [hl]`
Use 'tile' and 'tiles' macros 2020-07-07 19:09:54 +00:00			`ld hl, vChars1 tile $78`
			`lb bc, BANK(EmotionBubbles), 4`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call CopyVideoData`
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`
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]`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`bit 6, a ; are the last 4 OAM entries reserved for a shadow or fishing rod?`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`ld hl, wOAMBuffer + 4 * 35 + $3 ; $8f`
			`ld de, wOAMBuffer + 4 * 39 + $3 ; $9f`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`jr z, .next`
sync engine code with pokeyellow 2016-06-12 04:30:05 +00:00			`ld hl, wOAMBuffer + 4 * 31 + $3 ; $7f`
			`ld de, wOAMBuffer + 4 * 35 + $3 ; $8f`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00
			`; Copy OAM data 16 bytes forward to make room for emotion bubble OAM data at the`
			`; start of the OAM buffer.`
			`.next`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $90`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
			`ld [de], a`
			`dec hl`
			`dec de`
			`dec bc`
			`ld a, c`
			`or b`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`jr nz, .loop`

			`; get the screen coordinates of the sprite the bubble is to be displayed above`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld hl, wSpritePlayerStateData1YPixels`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`ld a, [wEmotionBubbleSpriteIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`swap a`
			`ld c, a`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`ld b, 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`add hl, bc`
			`ld a, [hli]`
			`ld b, a`
			`inc hl`
			`ld a, [hl]`
			`add $8`
			`ld c, a`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00
$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, EmotionBubblesOAM`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`xor a`
			`call WriteOAMBlock`
$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 c, 60`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DelayFrames`
			`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			`call DelayFrame`
			`jp UpdateSprites`

remove address comments 2016-06-12 00:24:04 +00:00			`EmotionBubblesPointerTable:`
Add comments associating constants with data, and identify some more data 2020-07-20 16:23:31 +00:00			`; entries correspond to *_BUBBLE constants`
Organize gfx/ 2020-06-27 20:27:30 +00:00			`dw ShockEmote`
			`dw QuestionEmote`
			`dw HappyEmote`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`EmotionBubblesOAM:`
Port dbsprite macro for OAM y,x,tile,attr data from pokecrystal 2020-07-17 19:58:06 +00:00			`dbsprite 0, -1, 0, 0, $f9, 0`
			`dbsprite 0, -1, 0, 2, $fb, 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`EmotionBubbles:`
Organize gfx/ 2020-06-27 20:27:30 +00:00			`ShockEmote: INCBIN "gfx/emotes/shock.2bpp"`
			`QuestionEmote: INCBIN "gfx/emotes/question.2bpp"`
			`HappyEmote: INCBIN "gfx/emotes/happy.2bpp"`