Update yellow pokeball requirements, "report" Mt. Moon Zubat findings

ai/control.lua

@@ -205,6 +205,9 @@ function Control.canCatch(partySize)
 	local pokeballs = Inventory.count("pokeball")
 	local minimumCount = (yellow and 3 or 4) - partySize
 	if pokeballs < minimumCount then
+		if yellow and Pokemon.inParty("nidoran") and Pokemon.inParty("pidgey", "spearow") then
+			return false
+		end
 		Strategies.reset("Not enough PokeBalls", pokeballs)
 		return false
 	end
@@ -310,6 +313,9 @@ function Control.encounter(battleState)
 					Paint.wildEncounters(encounters)
 					Bridge.encounter()
 					if Control.moonEncounters then
+						if Pokemon.isOpponent("zubat") then
+							Bridge.chat("NightBat")
+						end
 						Control.moonEncounters = Control.moonEncounters + 1
 					end
 				end