pokered/engine/overworld/emotion_bubbles.asm

EmotionBubble: ; 17c47 (5:7c47)
	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 + $780
	lb bc, BANK(EmotionBubblesPointerTable), $04
	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 + $8f
	ld de, wOAMBuffer + $9f
	jr z, .next
	ld hl, wOAMBuffer + $7f
	ld de, wOAMBuffer + $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, wSpriteStateData1 + 4
	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: ; 17caf (5:7caf)
	dw EmotionBubbles
	dw EmotionBubbles + $40
	dw EmotionBubbles + $80

EmotionBubblesOAM: ; 17cb5 (5:7cb5)
	db $F8,$00,$F9,$00
	db $FA,$00,$FB,$00

EmotionBubbles: ; 17cbd (5:7cbd)
	INCBIN "gfx/emotion_bubbles.2bpp"
Rename predef functions so they aren't excessive in length. This is mostly because of an rgbasm bug that prevents macro arguments from exceeding 16 characters, but the names were bad anyway. 2014-06-16 20:03:05 +00:00			`EmotionBubble: ; 17c47 (5:7c47)`
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 VRAM constants where applicable. 2014-05-29 08:31:46 +00:00			`ld hl, vChars1 + $780`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, BANK(EmotionBubblesPointerTable), $04`
$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?`
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 + $8f`
			`ld de, wOAMBuffer + $9f`
player animations, emotion bubbles, etc. 2015-07-14 21:32:49 +00:00			`jr z, .next`
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 + $7f`
			`ld de, wOAMBuffer + $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`
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, wSpriteStateData1 + 4`
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`

			`EmotionBubblesPointerTable: ; 17caf (5:7caf)`
			`dw EmotionBubbles`
			`dw EmotionBubbles + $40`
			`dw EmotionBubbles + $80`

			`EmotionBubblesOAM: ; 17cb5 (5:7cb5)`
			`db $F8,$00,$F9,$00`
			`db $FA,$00,$FB,$00`

			`EmotionBubbles: ; 17cbd (5:7cbd)`
Remove redundant dimensions in image filenames. 2014-05-30 08:30:10 +00:00			`INCBIN "gfx/emotion_bubbles.2bpp"`