In the script section "PField_BerryPlants", under "def pbBerryPlant", paste the following code directly ABOVE the line "interp.setVariable(berryData)":

meta=pbGetMetadata(0,MetadataPlayerA+$PokemonGlobal.playerID)
if meta
  trainer=$Trainer if !trainer
  outfit=trainer ? trainer.outfit : 0
  if outfit==0
    $game_player.setDefaultCharName(BerryWateringSprites::WateringSprites[$PokemonGlobal.playerID], $game_player.fullPattern)
  else
    $game_player.setDefaultCharName(BerryWateringSprites::WateringSprites[$PokemonGlobal.playerID]+"_"+outfit.to_s, $game_player.fullPattern)
  end
  $game_player.step_anime = true
end


------------
Inside the same function, after:

if NEWBERRYPLANTS
  Kernel.pbMessage(_INTL("There! All happy!"))
else
  Kernel.pbMessage(_INTL("The plant seemed to be delighted."))
end


...Paste the following code:

if meta
  $game_player.setDefaultCharName(pbGetPlayerCharset(meta,1), $game_player.fullPattern)
  $game_player.step_anime = false
end


------------
Lastly, somewhere in the same script section, paste the following code:

class Game_Player
  attr_accessor :step_anime
end

module BerryWateringSprites
  WateringSprites = [
    "boy_watering",   # Player A
    "girl_watering",  # Player B
  ]
end

*This can go anywhere as long as it's outside of any other functions or classes. I put it at the very bottom of the script section myself.
**If you have more than 2 playable characters, make sure to add them to the array!