Core/src/main/java/eu/univento/core/api/player/CustomPlayer.java

package eu.univento.core.api.player;

import com.mojang.authlib.GameProfile;
import com.mongodb.BasicDBObject;
import eu.univento.commons.player.DatabasePlayer;
import eu.univento.commons.player.Rank;
import eu.univento.commons.player.warn.WarnReason;
import eu.univento.core.Core;
import eu.univento.core.api.Hologram;
import eu.univento.core.api.Utils;
import eu.univento.core.api.chat.DefaultFontInfo;
import eu.univento.core.api.effects.Blackscreen;
import eu.univento.core.api.effects.Effects;
import eu.univento.core.api.gui.hologram.HologramData;
import eu.univento.core.api.languages.Messages;
import eu.univento.core.api.server.ServerSettings;
import eu.univento.core.api.shop.ShopItem;
import io.netty.buffer.ByteBuf;
import io.netty.buffer.Unpooled;
import lombok.Getter;
import net.minecraft.server.v1_11_R1.*;
import org.bukkit.*;
import org.bukkit.Material;
import org.bukkit.World;
import org.bukkit.attribute.Attribute;
import org.bukkit.attribute.AttributeInstance;
import org.bukkit.attribute.AttributeModifier;
import org.bukkit.boss.BarColor;
import org.bukkit.boss.BarFlag;
import org.bukkit.boss.BarStyle;
import org.bukkit.boss.BossBar;
import org.bukkit.craftbukkit.v1_11_R1.CraftServer;
import org.bukkit.craftbukkit.v1_11_R1.CraftWorld;
import org.bukkit.craftbukkit.v1_11_R1.entity.CraftPlayer;
import org.bukkit.craftbukkit.v1_11_R1.inventory.CraftItemStack;
import org.bukkit.entity.Player;
import org.bukkit.inventory.ItemStack;
import org.bukkit.scoreboard.Scoreboard;
import org.bukkit.scoreboard.Team;

import java.io.ByteArrayOutputStream;
import java.io.DataOutputStream;
import java.io.IOException;
import java.io.ObjectOutputStream;
import java.lang.reflect.Field;
import java.util.*;

public class CustomPlayer extends CraftPlayer {


    private static final HashMap<UUID, CustomPlayer> PLAYERS = new HashMap<>();
    private static final Map<UUID, NickedPlayer> nickedPlayers = new HashMap<>();
    private final Player PLAYER;
    private final DatabasePlayer DATABASE_PLAYER;

    private boolean openInventory;

    private final GameProfile gameProfile;

    @Getter
    private HologramData hologramData;

    private CustomPlayer(Player player) {
        super((CraftServer) Bukkit.getServer(), ((CraftPlayer) player).getHandle());
        DATABASE_PLAYER = new DatabasePlayer(Core.getCommons(), player.getUniqueId());
        PLAYERS.put(player.getUniqueId(), this);
        PLAYER = player;
        gameProfile = ((CraftPlayer) player).getProfile();
        hologramData = new HologramData(this);
    }

    public void onLeave() {
        Date date = new Date();
        DATABASE_PLAYER.setInDatabase("lastOnline", date);

        HashMap<String, Object> location = new HashMap<>();
        location.put("X", getLocation().getX());
        location.put("Y", getLocation().getY());
        location.put("Z", getLocation().getZ());
        location.put("Yaw", getLocation().getYaw());
        location.put("Pitch", getLocation().getPitch());

        if (ServerSettings.isLobby()) DATABASE_PLAYER.setInDatabase("Pos", new BasicDBObject(location));

        if (PLAYERS.containsKey(getUniqueId())) PLAYERS.remove(getUniqueId());
    }

    public static CustomPlayer getPlayer(String player) {
        Player p = Bukkit.getPlayer(player);
        if (PLAYERS.containsKey(p.getUniqueId())) {
            return PLAYERS.get(p.getUniqueId());
        } else {
            return new CustomPlayer(p);
        }
    }

    public static CustomPlayer getPlayer(UUID player) {
        if(PLAYERS.containsKey(player)) {
            return PLAYERS.get(player);
        }
        else {
            Player p = Bukkit.getPlayer(player);
            return p == null ? null : new CustomPlayer(p);
        }
    }

    public static CustomPlayer getPlayer(Player player) {
        return getPlayer(player.getUniqueId());
    }

    public Player getPlayer() {
        return PLAYER;
    }

    public DatabasePlayer getDatabasePlayer() {
        return DATABASE_PLAYER;
    }

    @Override
    public boolean hasPlayedBefore() {
        return DATABASE_PLAYER.hasPlayedBefore();
    }

    public void buy(ShopItem item) {
        Map<ShopItem, Boolean> map = getBoughtItems();
        map.put(item, false);
        setBoughtItems(map);
    }

    public Map<ShopItem, Boolean> getBoughtItems() {
        Map<ShopItem, Boolean> map = new HashMap<>();
        for (Map.Entry<String, Object> entry : DATABASE_PLAYER.getMapFromDatabase("bought").entrySet())
            map.put(ShopItem.valueOf(String.valueOf(entry.getKey())), Boolean.valueOf(String.valueOf(entry.getValue())));
        return map;
    }

    private void setBoughtItems(Map<ShopItem, Boolean> map) {
        Map<String, Boolean> items = new HashMap<>();
        for (Map.Entry<ShopItem, Boolean> entry : map.entrySet()) items.put(String.valueOf(entry.getKey()), entry.getValue());
        DATABASE_PLAYER.setInDatabase("bought", items);
    }

    public Location getLastLocation() {
        Map<String, Object> map = DATABASE_PLAYER.getMapFromDatabase("Pos");
        return new Location(Bukkit.getWorld("world"), (double) map.get("X"), (double) map.get("Y"), (double) map.get("Z"), (float) map.get("Yaw"), (float) map.get("Pitch"));
    }

    public void connectToServer(String server) {
        ByteArrayOutputStream b = new ByteArrayOutputStream();
        DataOutputStream out = new DataOutputStream(b);
        try {
            out.writeUTF("Connect");
            out.writeUTF(server);
        } catch (IOException el) {
            el.printStackTrace();
        }
        sendPluginMessage(Core.getInstance(), "BungeeCord", b.toByteArray());
    }

    public void warn(WarnReason reason, CustomPlayer warner, String proof) {
        DATABASE_PLAYER.warn(reason, warner.getUniqueId(), proof);
    }

    public boolean hasEmptyInventory() {
        return Utils.hasEmptyInventory(PLAYER);
    }

    public void clearPotionEffects() {
        Utils.clearPotionEffects(PLAYER);
    }

    public boolean hasOpenInventory() {
        return openInventory;
    }


    public void setOpenInventory(boolean openInventory) {
        this.openInventory = openInventory;
    }

    public void sendActionBar(String text) {
        IChatBaseComponent cbc = IChatBaseComponent.ChatSerializer.a("{\"text\": \"" + text + "\"}");
        PacketPlayOutChat ppoc = new PacketPlayOutChat(cbc, (byte) 2);
        sendPacket(ppoc);
    }

    public void sendTitle(int fadeIn, int stay, int fadeOut, String title, String subtitle) {
        PacketPlayOutTitle packetPlayOutTimes = new PacketPlayOutTitle(PacketPlayOutTitle.EnumTitleAction.TIMES, null, fadeIn, stay, fadeOut);
        sendPacket(packetPlayOutTimes);

        if (subtitle != null) {
            subtitle = ChatColor.translateAlternateColorCodes('&', subtitle);
            IChatBaseComponent titleSub = IChatBaseComponent.ChatSerializer.a("{\"text\": \"" + subtitle + "\"}");
            PacketPlayOutTitle packetPlayOutSubTitle = new PacketPlayOutTitle(PacketPlayOutTitle.EnumTitleAction.SUBTITLE, titleSub);
            sendPacket(packetPlayOutSubTitle);
        }

        if (title != null) {
            title = ChatColor.translateAlternateColorCodes('&', title);
            IChatBaseComponent titleMain = IChatBaseComponent.ChatSerializer.a("{\"text\": \"" + title + "\"}");
            PacketPlayOutTitle packetPlayOutTitle = new PacketPlayOutTitle(PacketPlayOutTitle.EnumTitleAction.TITLE, titleMain);
            sendPacket(packetPlayOutTitle);
        }
    }

    public BossBar sendBossBar(String text, BarColor color, BarStyle style, BarFlag flag) {
        BossBar bar = Bukkit.createBossBar(text, color, style, flag);
        bar.addPlayer(PLAYER);
        return bar;
    }

    public Hologram sendHologram(ItemStack item, Location location, String... text) {
        Hologram hologram = new Hologram(item, text, location);
        hologram.showPlayer(this);
        return hologram;
    }

    public void sendTabHeaderAndFooter(String header, String footer) {
        if (header == null)
            header = "";
        header = ChatColor.translateAlternateColorCodes('&', header);

        if (footer == null)
            footer = "";
        footer = ChatColor.translateAlternateColorCodes('&', footer);

        header = header.replaceAll("%player%", getDisplayName());
        footer = footer.replaceAll("%player%", getDisplayName());

        IChatBaseComponent tabTitle = IChatBaseComponent.ChatSerializer.a("{\"text\": \"" + header + "\"}");
        IChatBaseComponent tabFoot = IChatBaseComponent.ChatSerializer.a("{\"text\": \"" + footer + "\"}");
        PacketPlayOutPlayerListHeaderFooter headerPacket = new PacketPlayOutPlayerListHeaderFooter(tabTitle);
        try {
            Field field = headerPacket.getClass().getDeclaredField("b");
            field.setAccessible(true);
            field.set(headerPacket, tabFoot);
        } catch (Exception e) {
            e.printStackTrace();
        } finally {
            sendPacket(headerPacket);
        }
    }

    public void setNickName(String name) {
        if(name.length() > 16) {
            sendMessage("Disguised name can only be less the 16 characters.");
            return;
        }
        if(nickedPlayers.containsKey(getUniqueId())) {
            sendMessage("You are already disguised!");
            return;
        }
        if(Bukkit.getOnlinePlayers().stream().filter(p -> p.getName().equals(name)).count() != 0) {
            sendMessage("The name you chose is online.");
            return;
        }
        nickedPlayers.put(getUniqueId(), new NickedPlayer(this, name));
        setGameProfile(name, new GameProfile(getUniqueId(), name));
    }

    private void setGameProfile(String name, GameProfile profile) {
        getHandle().playerConnection.sendPacket(new PacketPlayOutPlayerInfo(PacketPlayOutPlayerInfo.EnumPlayerInfoAction.REMOVE_PLAYER, getHandle()));
        setDisplayName(name);
        setPlayerListName(name);
        try {
            Field gp2 = getHandle().getClass().getSuperclass().getDeclaredField("bT");
            gp2.setAccessible(true);
            gp2.set(getHandle(), profile);
            gp2.setAccessible(false);
        } catch (Exception e) {
            e.printStackTrace();
            removeNickName();
            return;
        }
        Core.getOnlinePlayers().stream().filter(p -> p.getUniqueId() != getUniqueId()).forEach(p -> {
            p.sendPacket(new PacketPlayOutEntityDestroy(getEntityId()));
            p.sendPacket(new PacketPlayOutNamedEntitySpawn(getHandle()));
            Bukkit.getServer().getScheduler().runTask(Core.getInstance(), () -> p.hidePlayer(this));
            Bukkit.getServer().getScheduler().runTaskLater(Core.getInstance(), () -> p.showPlayer(this), 5);
        });
    }

    public void removeNickName() {
        if(isNicked()) {
            nickedPlayers.remove(getUniqueId());
            setGameProfile(getName(), gameProfile);
        }
    }

    public boolean isNicked() {
        return nickedPlayers.containsKey(getUniqueId());
    }

    public void addExperience(int experience) {
        DATABASE_PLAYER.setExperience(DATABASE_PLAYER.getExperience() + experience);
        setExp(0F);
        giveExp(DATABASE_PLAYER.getExperience());
        playSound(getLocation(), Sound.ENTITY_PLAYER_LEVELUP, 1.0F, 1.0F);
    }

    public void substractExperience(int experience) {
        DATABASE_PLAYER.setExperience(DATABASE_PLAYER.getExperience() - experience);
        setExp(0F);
        giveExp(DATABASE_PLAYER.getExperience());
    }

    public void refreshExperience() {
        setLevel(0);
        setExp(0F);
        giveExp(DATABASE_PLAYER.getExperience());
    }

    @Deprecated
    public void playParticle(Location loc, EnumParticle ep, float f, int count) {
        if (DATABASE_PLAYER.getSettings().hasEffectsEnabled()) Effects.playEffectToPlayer(PLAYER, loc, ep, f, count);
    }

    public void setAttackSpeed(double speed) {
        AttributeModifier modifier = new AttributeModifier("Core", speed, AttributeModifier.Operation.ADD_NUMBER);
        getAttribute(Attribute.GENERIC_ATTACK_SPEED).addModifier(modifier);
    }

    private double getAttackSpeed() {
        return getAttribute(Attribute.GENERIC_ATTACK_SPEED).getValue();
    }

    public void resetAttackSpeed() {
        AttributeModifier modifier = new AttributeModifier("Core", getAttackSpeed(), AttributeModifier.Operation.ADD_NUMBER);
        getAttribute(Attribute.GENERIC_ATTACK_SPEED).removeModifier(modifier);
        AttributeInstance instance = getAttribute(Attribute.GENERIC_ATTACK_SPEED);
        instance.setBaseValue(16.0D);
    }

    @Deprecated
    public Messages getMessages() {
        return new Messages(this);
    }

    public void sendCentredMessage(Player player, String message) {
        if(message == null || message.equals("")) {
            player.sendMessage("");
            return;
        }
        message = ChatColor.translateAlternateColorCodes('&', message);

        int messagePxSize = 0;
        boolean previousCode = false;
        boolean isBold = false;

        for(char c : message.toCharArray()){
            if(c == '§'){
                previousCode = true;
            }else if(previousCode){
                previousCode = false;
                isBold = c == 'l' || c == 'L';
            }else{
                DefaultFontInfo dFI = DefaultFontInfo.getDefaultFontInfo(c);
                messagePxSize += isBold ? dFI.getBoldLength() : dFI.getLength();
                messagePxSize++;
            }
        }
        int CENTER_PX = 154;
        int halvedMessageSize = messagePxSize / 2;
        int toCompensate = CENTER_PX - halvedMessageSize;
        int spaceLength = DefaultFontInfo.SPACE.getLength() + 1;
        int compensated = 0;
        StringBuilder sb = new StringBuilder();
        while(compensated < toCompensate){
            sb.append(" ");
            compensated += spaceLength;
        }
        sendMessage(sb.toString() + message);
    }

    public void strikeLightning(Location loc) {
        World nmsWorld = (World) ((CraftWorld) loc.getWorld()).getHandle();
        EntityLightning lightning = new EntityLightning((net.minecraft.server.v1_11_R1.World) nmsWorld, loc.getX(), loc.getY(), loc.getZ(), true);
        sendPacket(new PacketPlayOutSpawnEntityWeather(lightning));
        playSound(loc, Sound.ENTITY_LIGHTNING_IMPACT, 20.0F, 1.0F);
        playSound(loc, Sound.ENTITY_LIGHTNING_THUNDER, 20.0F, 1.0F);
    }

    public void setBlackScreen(int seconds) {
        Blackscreen.setBlack(PLAYER, seconds);
    }

    public void setStoryResourcePack() {
        setResourcePack("http://univento.eu/storyPack.zip");
    }

    public void initScoreboard() {
        Scoreboard board = getScoreboard();
        board.getTeams().forEach(Team::unregister);

        for (Rank rank : Rank.values()) {
            Team team = board.registerNewTeam(rank.getTeam());
            team.setPrefix(rank.getTab());
            team.setOption(Team.Option.NAME_TAG_VISIBILITY, Team.OptionStatus.ALWAYS);
        }
    }

    public void setLabyModFeatures(HashMap<LabyMod, Boolean> list) {
        HashMap<String, Boolean> temp = new HashMap<>();
        for (LabyMod feature : list.keySet())
            temp.put(feature.name(), list.get(feature));

        ByteArrayOutputStream byteOut = new ByteArrayOutputStream();
        try {
            ObjectOutputStream out = new ObjectOutputStream(byteOut);
            out.writeObject(temp);
            ByteBuf byteBuf = Unpooled.copiedBuffer(byteOut.toByteArray());
            PacketDataSerializer packetDataSerializer = new PacketDataSerializer(byteBuf);
            PacketPlayOutCustomPayload packet = new PacketPlayOutCustomPayload("LABYMOD", packetDataSerializer);
            getHandle().playerConnection.sendPacket(packet);
        } catch (IOException e) {
            e.printStackTrace();
        }

    }

    /**
     * crash's the players client
     */
    public void crashClient() {
        sendPacket(new PacketPlayOutExplosion(9999999999D,
                9999999999D, 9999999999D, 9999999999F,
                new ArrayList<>(), new Vec3D(9999999999D,
                9999999999D, 9999999999D)));
    }

    public void sendPacket(Packet<?> packet) {
        getHandle().playerConnection.sendPacket(packet);
    }


    private Field getField(Class<?> clazz, String name) {
        try {
            Field field = clazz.getDeclaredField(name);
            field.setAccessible(true);
            return field;
        } catch (Exception ex) {
            ex.printStackTrace();
        }
        return null;
    }

    @Deprecated
    public void refreshTablist() {
        for (CustomPlayer player : Core.getOnlinePlayers()) {
            setScoreboard(Bukkit.getScoreboardManager().getNewScoreboard());
            getScoreboard().getTeam(DATABASE_PLAYER.getRank().getTeam()).addEntry(player.getDisplayName());
        }
    }

    /**
     *
     * @param location location for effect
     * @param effect particle effect
     * @param id the id
     * @param data the data
     * @param offsetX offset in x direction
     * @param offsetY offset in y direction
     * @param offsetZ offset in z direction
     * @param speed particle speed
     * @param particleCount count of showed particles
     * @param radius effect radius
     */
    public void playEffect(Location location, Effect effect, int id, int data, float offsetX, float offsetY, float offsetZ, float speed, int particleCount, int radius) {
        if(DATABASE_PLAYER.getSettings().hasEffectsEnabled()) {
            PLAYER.spigot().playEffect(location, effect, id, data, offsetX, offsetY, offsetZ, speed, particleCount, radius);
        }
    }

    /**
     * open or close chests for player
     * @param loc location, block at location must be a type of chest
     * @param open open or close the chest
     */
    public void changeChestState(Location loc, boolean open) {
        if(loc.getBlock().getType() != Material.CHEST) return;
        byte dataByte = (open) ? (byte) 1 : 0;
        BlockPosition position = new BlockPosition(loc.getBlockX(), loc.getBlockY(), loc.getBlockZ());
        PacketPlayOutBlockAction blockActionPacket = new PacketPlayOutBlockAction(position, net.minecraft.server.v1_11_R1.Block.getById(loc.getBlock().getTypeId()), (byte) 1, dataByte);
        sendPacket(blockActionPacket);
    }

    /**
     * sets the amount of arrows that are in the body of the player
     * @param count arrow count
     */
    public void setArrowsInBody(int count) {
        getHandle().getDataWatcher().set(new DataWatcherObject<>(10, DataWatcherRegistry.b), count);
    }

    public int getArrowsInBody() {
        return getHandle().getDataWatcher().get(new DataWatcherObject<>(10, DataWatcherRegistry.b));
    }

    /**
     * sends packets for item cooldown, items won't be disabled
     * @param item item to have a cooldown
     * @param time time in seconds
     */
    public void setItemCooldown(ItemStack item, int time) {
        sendPacket(new PacketPlayOutSetCooldown(CraftItemStack.asNMSCopy(item).getItem(), time));
    }

}