defeated female leaves

this makes the step counter and safari ball giving processes work but it still doesn't have the process of kicking the player out, nor does it display in the menu.

I also lost my mind trying to figure out how the screen flash bug works and gave up

engine/battle/core.asm

@@ -577,10 +577,6 @@ DetermineMoveOrder:
 	ret
 
 CheckSafariBattleOver:
-IF DEF(_DEBUG) ; Use to test the Safari Game in the Debug Room.
-	ld a, 20
-	ld [wSafariBallsRemaining], a
-ENDC
 	ld a, [wSafariBallsRemaining]
 	and a
 	ret nz
@@ -5060,7 +5056,7 @@ BattleMenu_SafariBall:
 	ld a, [wInBattleTowerBattle]
 	and a
 	jp nz, .ItemsCantBeUsed
-
+	
 	call LoadStandardMenuHeader
 
 	ld a, [wBattleType]
@@ -5120,10 +5116,12 @@ BattleMenu_SafariBall:
 	ld a, [wWildMon]
 	and a
 	jr nz, .run
+	
 	callfar CheckItemPocket
 	ld a, [wItemAttributeValue]
 	cp BALL
 	jr z, .ball
+	
 	call ClearBGPalettes
 	call ClearTilemap
 

engine/events/specials.asm

@@ -439,6 +439,16 @@ TradebackNPC:
 	farcall TradebackGuy
 	ret
 
-;FossilScientist:
-;	farcall FossilScientistGuy
-;	ret
+ShoveSafariBallsDownKrissThroat:
+	ld a, 20
+	ld [wSafariBallsRemaining], a
+	ret
+
+GiveKrisSneakers:
+	; Give the player 500 steps...I think.
+	;ld a, 250
+	ld a, 10 ; just to test the PA.
+	ld [wSafariZoneStepCount], a
+	ld [wSafariZoneStepCount+1], a
+	xor a
+	ret

engine/items/item_effects.asm

@@ -736,6 +736,7 @@ BallMultiplierFunctionTable:
 	dbw PARK_BALL,   ParkBallMultiplier
 	db -1 ; end
 
+SafariBallMultiplier:
 UltraBallMultiplier:
 ; multiply catch rate by 2
 	sla b
@@ -743,7 +744,6 @@ UltraBallMultiplier:
 	ld b, $ff
 	ret
 
-SafariBallMultiplier:
 GreatBallMultiplier:
 ParkBallMultiplier:
 ; multiply catch rate by 1.5

engine/pokedex/pokedex_2.asm

@@ -223,9 +223,6 @@ DisplayDexEntry:
 	call PlaceFarString
 	ret
 
-POKeString: ; unreferenced
-	db "#@"
-
 GetDexEntryPointer:
 ; return dex entry pointer b:de
 	push hl