1 files changed, 409 insertions, 0 deletions
diff --git a/engine/pikachu_emotions.asm b/engine/pikachu_emotions.asm
new file mode 100755
index 00000000..9040e612
--- /dev/null
+++ b/engine/pikachu_emotions.asm
@@ -0,0 +1,409 @@
+IsPlayerTalkingToPikachu:: ; fcf0c (3f:4f0c)
+	ld a, [wd436]
+	and a
+	ret z
+	ld a, [hSpriteIndexOrTextID]
+	cp $f
+	ret nz
+	call InitializePikachuTextID
+	xor a
+	ld [hSpriteIndexOrTextID], a
+	ld [wd436], a
+	ret
+	
+InitializePikachuTextID: ; fcf20 (3f:4f20)
+	ld a, $d4 ; display 
+	ld [hSpriteIndexOrTextID], a
+	xor a
+	ld [wPlayerMovingDirection], a
+	ld a, $1
+	ld [wAutoTextBoxDrawingControl], a
+	call DisplayTextID
+	xor a
+	ld [wAutoTextBoxDrawingControl], a
+	ret
+
+DoStarterPikachuEmotions: ; fcf35 (3f:4f35)
+	ld e, a
+	ld d, $0
+	add hl, de
+	add hl, de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+.loop
+	ld a, [de]
+	inc de
+	cp $ff
+	jr z, .done
+	ld c, a
+	ld b, $0
+	ld hl, StarterPikachuEmotionsJumptable
+	add hl, bc
+	add hl, bc
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call JumpToAddress
+	jr .loop
+.done
+	ret
+	
+StarterPikachuEmotionsJumptable: ; fcf54 (3f:4f54)
+	dw StarterPikachuEmotionCommand_nop ; 0
+	dw StarterPikachuEmotionCommand_text ; 1
+	dw StarterPikachuEmotionCommand_pcm ; 2
+	dw StarterPikachuEmotionCommand_emote ; 3
+	dw StarterPikachuEmotionCommand_movement ; 4
+	dw StarterPikachuEmotionCommand_pikapic ; 5
+	dw StarterPikachuEmotionCommand_subcmd ; 6
+	dw StarterPikachuEmotionCommand_delay ; 7
+	dw StarterPikachuEmotionCommand_nop2 ; 8
+	dw StarterPikachuEmotionCommand_9 ; 9
+	dw StarterPikachuEmotionCommand_nop3 ; a
+	
+StarterPikachuEmotionCommand_nop: ; fcf6a (3f:4f6a)
+StarterPikachuEmotionCommand_nop3: ; fcf6a (3f:4f6a)
+	ret
+
+StarterPikachuEmotionCommand_text: ; fcf6b (3f:4f6b)
+	ld a, [de]
+	ld l, a
+	inc de
+	ld a, [de]
+	ld h, a
+	inc de
+	push de
+	call PrintText
+	pop de
+	ret
+	
+StarterPikachuEmotionCommand_pcm: ; fcf77 (3f:4f77)
+	ld a, [de]
+	inc de
+	push de
+	ld e, a
+	nop
+	call PlayPikachuSoundClip_
+	pop de
+	ret
+
+PlayPikachuSoundClip_: ; fcf81 (3f:4f81)
+	cp $ff
+	ret z
+	callab PlayPikachuSoundClip
+	ret
+	
+StarterPikachuEmotionCommand_emote: ; fcf8d (3f:4f8d)
+	ld a, [wUpdateSpritesEnabled]
+	push af
+	ld a, $ff
+	ld [wUpdateSpritesEnabled], a
+	ld a, [de]
+	inc de
+	push de
+	call ShowPikachuEmoteBubble
+	pop de
+	pop af
+	ld [wUpdateSpritesEnabled], a
+	ret
+	
+ShowPikachuEmoteBubble: ; fcfa2 (3f:4fa2)
+	ld [wWhichEmotionBubble], a
+	ld a, $f
+	ld [wEmotionBubbleSpriteIndex], a
+	predef EmotionBubble
+	ret
+	
+StarterPikachuEmotionCommand_movement: ; fcfb0 (3f:4fb0)
+	ld a, [de]
+	inc de
+	ld l, a
+	ld a, [de]
+	inc de
+	ld h, a
+	push de
+	ld b, BANK(DoStarterPikachuEmotions)
+	call ApplyPikachuMovementData_
+	pop de
+	ret
+	
+StarterPikachuEmotionCommand_delay: ; fcfbe (3f:4fbe)
+	ld a, [de]
+	inc de
+	push de
+	ld c, a
+	call DelayFrames
+	pop de
+	ret
+	
+StarterPikachuEmotionCommand_subcmd: ; fcfc7 (3f:4fc7)
+	ld a, [de]
+	inc de
+	push de
+	ld e, a
+	ld d, $0
+	ld hl, Jumptable_fcfda
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call JumpToAddress
+	pop de
+	ret
+
+Jumptable_fcfda:
+	dw LoadPikachuSpriteIntoVRAM
+	dw LoadFontTilePatterns
+	dw Pikachu_LoadCurrentMapViewUpdateSpritesAndDelay3
+	dw WaitForTextScrollButtonPress
+	dw PikachuPewterPokecenterCheck
+	dw PikachuFanClubCheck
+	dw PikachuBillsHouseCheck
+	
+StarterPikachuEmotionCommand_nop2: ; fcfe8 (3f:4fe8)
+	ret
+	
+StarterPikachuEmotionCommand_9: ; fcfe9 (3f:4fe9)
+	push de
+	call StarterPikachuEmotionCommand_turnawayfromplayer
+	call UpdateSprites
+	pop de
+	ret
+
+StarterPikachuEmotionCommand_turnawayfromplayer: ; fcff2 (3f:4ff2)
+	ld a, [wPlayerFacingDirection]
+	xor $4
+	ld [wPikachuFacingDirection], a
+	ret
+	
+DeletedFunction_fcffb: ; fcffb (3f:4ffb)
+; Inexplicably empty.
+	rept 5
+	nop
+	endr
+	ret
+
+Func_fd001:: ; fd001 (3f:5001)
+	ld a, e
+	jr load_expression
+
+Func_fd004:: ; fd004 (3f:5004)
+	call MapSpecificPikachuExpression
+	jr c, load_expression
+	call GetPikaPicAnimationScriptIndex
+	call DeletedFunction_fcffb
+load_expression: ; fd00f (3f:500f)
+	ld [wExpressionNumber], a
+	ld hl, PikachuEmotionTable
+	call DoStarterPikachuEmotions
+	ret
+	
+PikachuEmotionTable: ; fd019 (3f:4019)
+	dw PikachuEmotion0_fd115
+	dw PikachuEmotion1_fd141
+	dw PikachuEmotion2_fd116
+	dw PikachuEmotion3_fd160
+	dw PikachuEmotion4_fd136
+	dw PikachuEmotion5_fd14d
+	dw PikachuEmotion6_fd153
+	dw PikachuEmotion7_fd128
+	dw PikachuEmotion8_fd147
+	dw PikachuEmotion9_fd166
+	dw PikachuEmotion10_fd11e
+	dw PikachuEmotion11_fd173
+	dw PikachuEmotion12_fd17a
+	dw PikachuEmotion13_fd180
+	dw PikachuEmotion14_fd189
+	dw PikachuEmotion15_fd191
+	dw PikachuEmotion16_fd197
+	dw PikachuEmotion17_fd19d
+	dw PikachuEmotion18_fd1a3
+	dw PikachuEmotion19_fd1a9
+	dw PikachuEmotion20_fd1b1
+	dw PikachuEmotion21_fd1b9 ; used a fishing rod
+	dw PikachuEmotion22_fd1c1
+	dw PikachuEmotion23_fd1c7
+	dw PikachuEmotion24_fd1cf
+	dw PikachuEmotion25_fd1d7
+	dw PikachuEmotion26_fd1df ; wake up pikachu in pewter pokemon center
+	dw PikachuEmotion27_fd1eb
+	dw PikachuEmotion28_fd1f1
+	dw PikachuEmotion29_fd1f7
+	dw PikachuEmotion30_fd1fc
+	dw PikachuEmotion31_fd20a
+	dw PikachuEmotion32_fd213
+	dw PikachuEmotion33_fd05d
+	
+PikachuEmotion33_fd05d: ; fd05d (3f:505d)
+	db $ff
+	
+MapSpecificPikachuExpression: ; fd05e (3f:505e)
+	ld a, [wCurMap]
+	cp POKEMON_FAN_CLUB
+	jr nz, .notFanClub
+	ld hl, wd492
+	bit 7, [hl]
+	ld a, $1d
+	jr z, .set_carry
+	call CheckPikachuFollowingPlayer
+	ld a, $1e
+	jr nz, .set_carry
+	jr .check_pikachu_status
+
+.notFanClub
+	ld a, [wCurMap]
+	cp PEWTER_POKECENTER
+	jr nz, .notPewterPokecenter
+	call CheckPikachuFollowingPlayer
+	ld a, $1a
+	jr nz, .set_carry
+	jr .check_pikachu_status
+
+.notPewterPokecenter
+	callab Func_f24ae
+	ld a, e
+	cp $ff
+	jr nz, .set_carry
+	jr .check_pikachu_status ; useless
+
+.check_pikachu_status
+	call IsPlayerPikachuAsleepInParty
+	ld a, $b
+	jr c, .set_carry
+	callab CheckPikachuFaintedOrStatused ; same bank
+	ld a, $1c
+	jr c, .set_carry
+	ld a, [wCurMap]
+	cp POKEMONTOWER_1
+	jr c, .notInLavenderTower
+	cp POKEMONTOWER_7 + 1
+	ld a, $16
+	jr c, .set_carry
+.notInLavenderTower
+	ld a, [wd49c]
+	and a
+	jr z, .no_carry
+	dec a
+	ld c, a
+	ld b, $0
+	ld hl, Pointer_fd0cb
+	add hl, bc
+	ld a, [hl]
+	jr .set_carry
+
+.no_carry
+	and a
+	ret
+
+.set_carry
+	scf
+	ret
+	
+Pointer_fd0cb:
+	db $12, $15, $17, $18, $19
+	
+IsPlayerPikachuAsleepInParty:: ; fd0d0 (3f:50d0)
+	xor a
+	ld [wWhichPokemon], a
+.loop
+	ld a, [wWhichPokemon]
+	ld c, a
+	ld b, $0
+	ld hl, wPartySpecies
+	add hl, bc
+	ld a, [hl]
+	cp $ff
+	jr z, .done
+	cp PIKACHU
+	jr nz, .curMonNotStarterPikachu
+	callab IsThisPartymonStarterPikachu
+	jr nc, .curMonNotStarterPikachu
+	ld a, [wWhichPokemon]
+	ld hl, wPartyMon1Status
+	ld bc, wPartyMon2 - wPartyMon1
+	call AddNTimes
+	ld a, [hl]
+	and SLP
+	jr z, .done
+	jr .curMonSleepingPikachu
+.curMonNotStarterPikachu
+	ld a, [wWhichPokemon]
+	cp PARTY_LENGTH - 1
+	jr z, .done
+	inc a
+	ld [wWhichPokemon], a
+	jr .loop
+.curMonSleepingPikachu
+	scf
+	ret
+.done
+	and a
+	ret
+	
+INCLUDE "data/pikachu_emotions.asm"
+
+Func_fd252: ; fd252 (3f:5252)
+	ld a, $40
+	ld [h_0xFFFC], a
+	call LoadPikachuSpriteIntoVRAM
+	call Func_fd266
+	and a
+	jr z, .asm_fd262
+	call ApplyPikachuMovementData
+.asm_fd262
+	xor a
+	ld [h_0xFFFC], a
+	ret
+
+Func_fd266:
+	ld a, [wSpriteStateData2 + 15 * 16 + 4]
+	ld e, a
+	ld a, [wSpriteStateData2 + 15 * 16 + 5]
+	ld d, a
+	ld a, [wYCoord]
+	add 4
+	cp e
+	jr z, .asm_fd280
+	jr nc, .asm_fd27e
+	ld hl, Data_fd294
+	ld a, 1
+	ret
+
+.asm_fd27e
+	xor a
+	ret
+
+.asm_fd280
+	ld a, [wXCoord]
+	add 4
+	cp d
+	jr c, .asm_fd28e
+	ld hl, Data_fd299
+	ld a, 2
+	ret
+
+.asm_fd28e
+	ld hl, Data_fd29d
+	ld a, 3
+	ret
+
+Data_fd294:
+	db $00
+	db $36
+	db $2b
+	db $34
+	db $3f
+
+Data_fd299:
+	db $00
+	db $36
+	db $34
+	db $3f
+
+Data_fd29d:
+	db $00
+	db $36
+	db $33
+	db $3f