Gym Scaling proof of concept

pokecrystal requires a very different approach to gym scaling. This is based on the phone code.

Could absolutely be revised in a myriad of ways.

constants/trainer_constants.asm

@@ -30,6 +30,9 @@ DEF NUM_NONTRAINER_PHONECONTACTS EQU const_value - 1
 DEF KRIS EQU __trainer_class__
 	trainerclass FALKNER ; 1
 	const FALKNER1
+	const FALKNER2
+	const FALKNER3
+	const FALKNER4
 
 	trainerclass WHITNEY ; 2
 	const WHITNEY1

data/trainers/parties.asm

@@ -13,11 +13,56 @@ FalknerGroup:
 	next_list_item ; FALKNER (1)
 	db "FALKNER@", TRAINERTYPE_MOVES
 	db 7
-	dw PIDGEY
+	dw HOOTHOOT
-	dw TACKLE, MUD_SLAP, NO_MOVE, NO_MOVE
+	dw TACKLE, GROWL, FORESIGHT, NO_MOVE
 	db 9
 	dw PIDGEOTTO
-	dw TACKLE, MUD_SLAP, GUST, NO_MOVE
+	dw TACKLE, SAND_ATTACK, GUST, MUD_SLAP
+	db -1 ; end
+	
+	next_list_item ; FALKNER (2)
+	db "FALKNER@", TRAINERTYPE_MOVES
+	db 14
+	dw HOOTHOOT
+	dw TACKLE, PECK, FORESIGHT, MUD_SLAP
+	db 14
+	dw SPEAROW
+	dw PECK, MUD_SLAP, LEER, FURY_ATTACK
+	db 18
+	dw PIDGEOTTO
+	dw SWIFT, SAND_ATTACK, GUST, MUD_SLAP
+	db -1 ; end
+	
+	next_list_item ; FALKNER (3)
+	db "FALKNER@", TRAINERTYPE_MOVES
+	db 18
+	dw HOOTHOOT
+	dw TACKLE, PECK, HYPNOSIS, MUD_SLAP
+	db 18
+	dw SPEAROW
+	dw PECK, MUD_SLAP, LEER, FURY_ATTACK
+	db 19
+	dw MURKROW
+	dw PECK, PURSUIT, HAZE, MUD_SLAP
+	db 21
+	dw PIDGEOTTO
+	dw SWIFT, SAND_ATTACK, GUST, MUD_SLAP
+	db -1 ; end
+	
+	next_list_item ; FALKNER (4)
+	db "FALKNER@", TRAINERTYPE_MOVES
+	db 21
+	dw NOCTOWL
+	dw TACKLE, PECK, HYPNOSIS, MUD_SLAP
+	db 21
+	dw FEAROW
+	dw PECK, MUD_SLAP, LEER, FURY_ATTACK
+	db 22
+	dw MURKROW
+	dw PECK, PURSUIT, HAZE, MUD_SLAP
+	db 24
+	dw PIDGEOTTO
+	dw SWIFT, SAND_ATTACK, GUST, MUD_SLAP
 	db -1 ; end
 	
 	end_list_items
@@ -28,6 +73,9 @@ WhitneyGroup:
 	db 18
 	dw CLEFAIRY
 	dw DOUBLESLAP, MIMIC, ENCORE, METRONOME
+	db 18
+	dw SNUBBULL
+	dw TACKLE, TAIL_WHIP, CHARM, BITE ; It learns Scary Face, but I don't think Whitney would like it, and it does need Tackle...
 	db 20
 	dw MILTANK
 	dw ROLLOUT, ATTRACT, STOMP, MILK_DRINK
@@ -39,11 +87,11 @@ BugsyGroup:
 	next_list_item ; BUGSY (1)
 	db "BUGSY@", TRAINERTYPE_MOVES
 	db 14
-	dw METAPOD
+	dw METAPOD ; I think keeping this is important considering what Bugsy is doing - researching move retention
 	dw TACKLE, STRING_SHOT, HARDEN, NO_MOVE
 	db 14
-	dw KAKUNA
+	dw YANMA
-	dw POISON_STING, STRING_SHOT, HARDEN, NO_MOVE
+	dw LEECH_LIFE, FORESIGHT, QUICK_ATTACK, DOUBLE_TEAM
 	db 16
 	dw SCYTHER
 	dw QUICK_ATTACK, LEER, FURY_CUTTER, NO_MOVE

maps/VioletGym.asm

@@ -18,8 +18,26 @@ VioletGymFalknerScript:
 	waitbutton
 	closetext
 	winlosstext FalknerWinLossText, 0
+	
+	; Gym Scaling code
+	; This is incredibly inefficient, but so is the phone code that does a similar thing, so...cope. Seethe. Mald. Sue me.
+	; Also, this code has a flaw in that it presumes you went through the default gym order...
+	
+	loadtrainer FALKNER, FALKNER2
+	checkflag EVENT_BEAT_BUGSY
+	iftrue .okyoucanloadnow
+	loadtrainer FALKNER, FALKNER3
+	checkflag EVENT_BEAT_WHITNEY
+	iftrue .okyoucanloadnow
+	loadtrainer FALKNER, FALKNER4
+	checkflag EVENT_BEAT_MORTY
+	iftrue .okyoucanloadnow
+	
+	; If nothing else has been beaten, then Falkner hasn't been fought before, so we can load this now. It's slow, though.
 	loadtrainer FALKNER, FALKNER1
-	startbattle
+
+.okyoucanloadnow
+	startbattle ; Now start the battle.
 	reloadmapafterbattle
 	setevent EVENT_BEAT_FALKNER
 	opentext