First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

home/region.asm

@@ -0,0 +1,32 @@
+IsInJohto::
+; Return 0 if the player is in Johto, and 1 in Kanto.
+
+	ld a, [wMapGroup]
+	ld b, a
+	ld a, [wMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+
+	cp LANDMARK_FAST_SHIP
+	jr z, .Johto
+
+	cp LANDMARK_SPECIAL
+	jr nz, .CheckRegion
+
+	ld a, [wBackupMapGroup]
+	ld b, a
+	ld a, [wBackupMapNumber]
+	ld c, a
+	call GetWorldMapLocation
+
+.CheckRegion:
+	cp KANTO_LANDMARK
+	jr nc, .Kanto
+
+.Johto:
+	xor a ; JOHTO_REGION
+	ret
+
+.Kanto:
+	ld a, KANTO_REGION
+	ret