LOTS of things

- Replaces the Old Rod with the Candy Sack, an item to evolve Meltan into Melmetal. Meltan and Melmetal aren't in yet.
- Improves Gym Leader and Elite Four AI by a lot. They still use items, they're just better. Fixes XSpecial use while we're at it; before, it didn't actually increase the stat...
- The Scarlet Book now takes up both shelves, one section for each Paradox Pokemon. I also moved the bookshelf so it looks nicer.
- Text in Celadon University has been reduced significantly, taking up less memory and being a bit more RBY-like. It has also been made more accurate (thanks to Daiginjo for translating my booklet!)
- The Magikarp researcher in Celadon University now gives TM Dragon Rage (no longer unused!)
- Added a guard for Mt. Moon Crater.
- Removed TrainerNamePointers, Blank Leader Name Code, and Dakutens/Hakutens using a guide published by YakiNeen.
- PP no longer uses a shitty graphic and is instead properly implemented into the font, optimising the status screen. Also displays in-battle which is kinda cool.
- Lorelei, Bruno, and Agatha now play the Gym Leader theme, not just Lance.

Still unsure how to fix Celadon University's trainers, all I know is a lot of the information should be taken from the Oak fight I did. The code is radically different and doesn't call trainer headers at all. You'll likely want to start from scratch.

The Mt. Moon Crater Guard's text is a little wonky, not sure what's up there. May have been from the way I accessed Mt. Moon in testing. Anyway, if you want to mess around feel free.

scripts/CeladonUniversityInside.asm

@@ -34,7 +34,28 @@ CeladonUniversityInsideText3:
 	text_end
 
 CeladonUniversityInsideText4:
-	text_far _CeladonUniversityInsideText4
+	text_asm
+	CheckEvent EVENT_GOT_TM23
+	jr nz, .got_item
+	ld hl, KHRP
+	call PrintText
+	lb bc, TM_DRAGON_RAGE, 1
+	call GiveItem
+	jr nc, .bag_full
+	ld hl, ReceivedTM23Text
+	call PrintText
+	SetEvent EVENT_GOT_TM23
+	jr .done
+.bag_full
+	ld hl, TM23NoRoomText
+	call PrintText
+	jr .done
+.got_item
+	ld hl, TM23ExplanationText
+	call PrintText
+.done
+	jp TextScriptEnd
+	
 	text_end
 
 CeladonUniversityInsideBookcaseText1:
@@ -73,4 +94,21 @@ CeladonUniversityPCScreen:
 	text_far _ComputerScreen
 	text_end
 
+KHRP:
+	text_far _KHRP
+	text_end
+
+ReceivedTM23Text:
+	text_far _ReceivedTM23Text
+	sound_get_item_1
+	text_end
+
+TM23ExplanationText:
+	text_far _TM23ExplanationText
+	text_end
+
+TM23NoRoomText:
+	text_far _TM23NoRoomText
+	text_end
+
 	text_end ; unused

scripts/HallOfFame.asm

@@ -97,6 +97,9 @@ HallofFameRoomScript1:
 	ld a, HS_CERULEAN_CAVE_GUY
 	ld [wMissableObjectIndex], a
 	predef HideObject
+	ld a, HS_MT_MOON_CRATER_GUARD
+	ld [wMissableObjectIndex], a
+	predef HideObject
 	ld a, HS_ROUTE_1_OAK
 	ld [wMissableObjectIndex], a
 	predef ShowObject

scripts/MtMoonB2F.asm

@@ -164,6 +164,7 @@ MtMoonB2F_TextPointers:
 	dw MtMoon3Text7
 	dw PickUpItemText
 	dw PickUpItemText
+	dw MtMoonCraterGuard
 	dw MtMoon3Text_49f99
 
 MtMoon3TrainerHeaders:
@@ -379,3 +380,7 @@ MtMoon3EndBattleText5:
 MtMoon3AfterBattleText5:
 	text_far _MtMoon3AfterBattleText5
 	text_end
+
+MtMoonCraterGuard:
+	text_far _MtMoonCraterGuard
+	text_end

scripts/VermilionOldRodHouse.asm

@@ -15,7 +15,7 @@ VermilionHouse2Text1:
 	ld a, [wCurrentMenuItem]
 	and a
 	jr nz, .refused
-	lb bc, OLD_ROD, 1
+	lb bc, CANDY_SACK, 1 ; used to be the old rod, but since I've replaced it, for now he'll give you this. I believe this house is currently unused, so no issues..? ~ PvK
 	call GiveItem
 	jr nc, .bag_full
 	ld hl, wd728