From a082f314b362d86f1a82f6a413abf15c1df964f3 Mon Sep 17 00:00:00 2001
From: yenatch <yenatch@gmail.com>
Date: Mon, 18 Nov 2013 20:48:00 -0500
Subject: [PATCH] evolution animation

---
 main.asm | 53 +++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 39 insertions(+), 14 deletions(-)

diff --git a/main.asm b/main.asm
index db66076a6..582a3393d 100644
--- a/main.asm
+++ b/main.asm
@@ -54256,7 +54256,7 @@ asm_421f5
 	ld a, $1
 	ld [hBGMapMode], a
 	call ClearSprites
-	callba Function4e5e1
+	callba EvolutionAnimation
 	push af
 	call ClearSprites
 	pop af
@@ -63228,7 +63228,7 @@ Function4e5b7: ; 4e5b7 (13:65b7)
 INCBIN "baserom.gbc",$4e5da,$4e5e1 - $4e5da
 
 
-Function4e5e1: ; 4e5e1
+EvolutionAnimation: ; 4e5e1
 	push hl
 	push de
 	push bc
@@ -63238,7 +63238,9 @@ Function4e5e1: ; 4e5e1
 	push af
 	ld a, [BaseDexNo]
 	push af
-	call Function4e607
+
+	call _EvolutionAnimation
+
 	pop af
 	ld [BaseDexNo], a
 	pop af
@@ -63248,40 +63250,49 @@ Function4e5e1: ; 4e5e1
 	pop bc
 	pop de
 	pop hl
+
 	ld a, [$d1ed]
 	and a
 	ret z
+
 	scf
 	ret
 ; 4e607
 
-Function4e607: ; 4e607
+_EvolutionAnimation: ; 4e607
 	ld a, $e4
 	ld [rOBP0], a
-	ld de, $0000
+
+	ld de, MUSIC_NONE
 	call PlayMusic
+
 	callba Function8cf53
-	ld de, $6831
+
+	ld de, EvolutionGFX
 	ld hl, VTiles0
-	ld bc, $1308
+	ld bc, BANK(EvolutionGFX) << 8 + 8
 	call Request2bpp
+
 	xor a
 	ld [Danger], a
 	call WaitBGMap
 	xor a
 	ld [hBGMapMode], a
-	ld a, [MagikarpLength]
+	ld a, [Buffer1]
 	ld [PlayerHPPal], a
+
 	ld c, $0
 	call Function4e703
-	ld a, [MagikarpLength]
+	ld a, [Buffer1]
 	ld [CurPartySpecies], a
 	ld [CurSpecies], a
 	call Function4e708
+
 	ld de, VTiles2
 	ld hl, $9310
 	ld bc, $0031
 	call Request2bpp
+
 	ld a, $31
 	ld [$d1ec], a
 	call Function4e755
@@ -63289,44 +63300,54 @@ Function4e607: ; 4e607
 	ld [CurPartySpecies], a
 	ld [CurSpecies], a
 	call Function4e711
-	ld a, [MagikarpLength]
+	ld a, [Buffer1]
 	ld [CurPartySpecies], a
 	ld [CurSpecies], a
+
 	ld a, $1
 	ld [hBGMapMode], a
 	call Function4e794
 	jr c, .asm_4e67c
-	ld a, [MagikarpLength]
+
+	ld a, [Buffer1]
 	call Function37ce
 
 .asm_4e67c
-	ld de, $0022
+	ld de, MUSIC_EVOLUTION
 	call PlayMusic
-	ld c, $50
+
+	ld c, 80
 	call DelayFrames
+
 	ld c, $1
 	call Function4e703
 	call Function4e726
 	jr c, .asm_4e6df
+
 	ld a, $cf
 	ld [$d1ec], a
+
 	call Function4e755
 	xor a
 	ld [$d1ed], a
+
 	ld a, [Buffer2]
 	ld [PlayerHPPal], a
+
 	ld c, $0
 	call Function4e703
 	call Function4e7a6
 	callba Function8cf53
 	call Function4e794
 	jr c, .asm_4e6de
+
 	ld a, [$c2c6]
 	push af
 	ld a, $1
 	ld [$c2c6], a
 	ld a, [CurPartySpecies]
 	push af
+
 	ld a, [PlayerHPPal]
 	ld [CurPartySpecies], a
 	ld hl, $c4cf
@@ -63334,6 +63355,7 @@ Function4e607: ; 4e607
 	ld e, $4
 	ld a, $47
 	call Predef
+
 	pop af
 	ld [CurPartySpecies], a
 	pop af
@@ -63346,14 +63368,17 @@ Function4e607: ; 4e607
 .asm_4e6df
 	ld a, $1
 	ld [$d1ed], a
-	ld a, [MagikarpLength]
+
+	ld a, [Buffer1]
 	ld [PlayerHPPal], a
+
 	ld c, $0
 	call Function4e703
 	call Function4e7a6
 	callba Function8cf53
 	call Function4e794
 	ret c
+
 	ld a, [PlayerHPPal]
 	call Function37ce
 	ret