Check Pkmn or Move Type

#Checks whether a Pokémon in party has a certain Type
def pbHasPokemonType?(type)
  if type.is_a?(String) || type.is_a?(Symbol)
    type=getID(PBTypes,type)
  end
  for pokemon in $Trainer.party
    next if pokemon.isEgg?
    if pokemon.hasType?(type)
      pbSet(1,$Trainer.party.index(pokemon))
      pbSet(3,pokemon.name)
      return true
    end
  end
  pbSet(1,-1)
  pbSet(3,"")
  return false
end

#Checks whether the selected Pokémon knows a Move of a certain Type
#MUST BE USED after pbChoosePokemon or pbChooseNonEggPokemon or similar
def pbHasMoveType?(type)
  if type.is_a?(String) || type.is_a?(Symbol)
    type=getID(PBTypes,type)
  end
  pokemon = pbGetPokemon(1)
  for move in pokemon.moves
    if move.type == type && move.id != 0
      pbSet(2,pokemon.moves.index(move))
      pbSet(4,PBMoves.getName(move.id))
      return true
    end
  end
  pbSet(2,-1)
  pbSet(4,"")
  return false
end

#Checks whether a Pokémon in party knows a Move of a certain Type
def pbPartyHasMoveType?(type)
  if type.is_a?(String) || type.is_a?(Symbol)
    type=getID(PBTypes,type)
  end
  for pokemon in $Trainer.party
    next if pokemon.isEgg?
    for move in pokemon.moves
      if move.type == type && move.id != 0
        pbSet(1,$Trainer.party.index(pokemon))
        pbSet(2,pokemon.moves.index(move))
        pbSet(3,pokemon.name)
        pbSet(4,PBMoves.getName(move.id))
        return true
      end
    end
  end
  pbSet(1,-1)
  pbSet(2,-1)
  pbSet(3,"")
  pbSet(4,"")
  return false
end

#Checks whether a Pokémon in party has a certain Type or knows a Move
#of a certain Type
def pbPartyHasTypeOrMoveType?(type)
  if pbHasPokemonType?(type)
    ret = 0
  else
    if pbPartyHasMoveType?(type)
      ret = 1
    else
      ret = -1
    end
  end
  return ret
end

#Checks a Pokémon's Moves and stores their names in variables 30, 31, 32 and 33
#MUST BE USED after pbChoosePokemon or pbChooseNonEggPokemon or similar
def pbMoveNames
  pokemon = pbGetPokemon(1)
  i = 0
  for move in pokemon.moves
    pbSet((30 + i),(move.id != 0 ? PBMoves.getName(move.id) : ""))
    i += 1
  end
end

#Easier and shorter method to get infos of a Move
#MUST BE USED after pbChoosePokemon or pbChooseNonEggPokemon or similar
#AND MUST BE USED after pbChooseMove
def pbMoveInfo
  return PokeBattle_Move.new(nil,pbGetPokemon(1).moves[pbGet(2)])
end