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

data/events/special_pointers.asm

@@ -189,3 +189,5 @@ SpecialsPointers::
 
 ; Restoring naming the mother.
 	add_special NameMom
+	add_special ShoveSafariBallsDownKrissThroat
+	add_special GiveKrisSneakers

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

maps/SafariZoneFuchsiaGateBeta.asm

@@ -24,7 +24,11 @@ SafariZoneEntry:
 	waitbutton
 	closetext
 	opentext
-	verbosegiveitem SAFARI_BALL, 30
+	
+	; please shut up
+	special GiveKrisSneakers
+	special ShoveSafariBallsDownKrissThroat
+	
 	opentext 
 	writetext SafariZoneEntranceText3
 	waitbutton
@@ -35,13 +39,6 @@ SafariZoneEntry:
 	warpfacing UP, SAFARI_ZONE_BETA, 9,  23
 	setevent EVENT_IN_SAFARI_ZONE
 	
-	; 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
-	
 	sjump .done
 .cantafford
 	opentext