From 04ff45ee4efdd934699ac659eb6e29de5a165965 Mon Sep 17 00:00:00 2001
From: IIMarckus <iimarckus@gmail.com>
Date: Wed, 21 Dec 2011 03:08:33 -0700
Subject: [PATCH] =?UTF-8?q?Add=20Pokedex=20number=20=E2=86=94=20index=20nu?=
 =?UTF-8?q?mber=20conversion=20functions.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

hg-commit-id: 39d1a9be9251
---
 pokered.asm | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/pokered.asm b/pokered.asm
index 0417df3c..31842c00 100644
--- a/pokered.asm
+++ b/pokered.asm
@@ -10438,7 +10438,42 @@ MissingNoDexEntry:
 	db 100 ; 10.0 kg
 	db 0,"コメント さくせいちゅう@" ; コメント作成中 (Comment to be written)
 
-INCBIN "baserom.gbc",$40FF9,$1024 - $FF9
+PokedexToIndex:
+	; converts the Pokédex number at $D11E to an index
+	push bc
+	push hl
+	ld a,[$D11E]
+	ld b,a
+	ld c,0
+	ld hl,PokedexOrder
+
+.loop\@ ; go through the list until we find an entry with a matching dex number
+	inc c
+	ld a,[hli]
+	cp b
+	jr nz,.loop\@
+
+	ld a,c
+	ld [$D11E],a
+	pop hl
+	pop bc
+	ret
+
+IndexToPokedex:
+	; converts the indexédex number at $D11E to a Pokédex number
+	push bc
+	push hl
+	ld a,[$D11E]
+	dec a
+	ld hl,PokedexOrder
+	ld b,0
+	ld c,a
+	add hl,bc
+	ld a,[hl]
+	ld [$D11E],a
+	pop hl
+	pop bc
+	ret
 
 PokedexOrder: ; 5024
 	db DEX_RHYDON