Auto Shadow Shading

#Put under PSystem_Utilities
def drawShadowPoke(bitmap)
  colorsheet=Bitmap.new(bitmap.width,bitmap.height)
  color=Color.new(67,0,255)
  colorsheet.fill_rect(colorsheet.rect,color)
  bitmap.blt(0,0,colorsheet,colorsheet.rect,113)
  color.alpha=113
  blankcolor=Color.new(0,0,0,0)
  for x in 0...bitmap.width
     for y in 0...bitmap.height
       if bitmap.get_pixel(x,y) == color
         bitmap.set_pixel(x,y,blankcolor)
       end
     end
  end
end

alias _shadow_pbLoadPokemonBitmapSpecies pbLoadPokemonBitmapSpecies
def pbLoadPokemonBitmapSpecies(pokemon, species, back=false)
  ret=_shadow_pbLoadPokemonBitmapSpecies(pokemon, species, back)
  if (pokemon.isShadow? rescue false)
    animatedBitmap=ret
    copiedBitmap=animatedBitmap.copy
    animatedBitmap.dispose
    copiedBitmap.each {|bitmap|
       drawShadowPoke(bitmap)
    }
    ret=copiedBitmap
  end
  return ret
end