/*
    This file is part of the HeavenMS MapleStory Server
    Copyleft (L) 2016 - 2018 RonanLana

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU Affero General Public License as
    published by the Free Software Foundation version 3 as published by
    the Free Software Foundation. You may not use, modify or distribute
    this program under any other version of the GNU Affero General Public
    License.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Affero General Public License for more details.

    You should have received a copy of the GNU Affero General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

/**
 * @author: Ronan
 * @event: Holiday PQ
*/

// GMS-like event string data thanks to iHealForLove

importPackage(Packages.client.inventory);
importPackage(Packages.server.life);

var isPq = true;
var minPlayers = 3, maxPlayers = 6;
var minLevel = 41, maxLevel = 50;
var entryMap = 889100021;
var exitMap = 889100022;
var recruitMap = 889100020;
var clearMap = 889100022;

var minMapId = 889100021;
var maxMapId = 889100021;

var eventTime = 25;     // 25 minutes

var lobbyRange = [0, 0];

function init() {
        setEventRequirements();
}

function setLobbyRange() {
        return lobbyRange;
}

function setEventRequirements() {
        var reqStr = "";
        
        reqStr += "\r\n    Number of players: ";
        if(maxPlayers - minPlayers >= 1) reqStr += minPlayers + " ~ " + maxPlayers;
        else reqStr += minPlayers;
        
        reqStr += "\r\n    Level range: ";
        if(maxLevel - minLevel >= 1) reqStr += minLevel + " ~ " + maxLevel;
        else reqStr += minLevel;
        
        reqStr += "\r\n    Time limit: ";
        reqStr += eventTime + " minutes";
        
        em.setProperty("party", reqStr);
}

function setEventExclusives(eim) {
        var itemSet = [4032094, 4032095];
        eim.setExclusiveItems(itemSet);
}

function setEventRewards(eim) {
        var itemSet, itemQty, evLevel, expStages;

        evLevel = 3;    //Rewards at Hard difficulty
        itemSet = [1302080, 1002033, 2022153, 2022042, 2020006, 2020009, 2020016, 2020024, 4010006, 4010007, 4020004, 4020005, 4003002];
        itemQty = [1, 1, 1, 5, 20, 15, 10, 10, 2, 4, 4, 4, 1];
        eim.setEventRewards(evLevel, itemSet, itemQty);
        
        evLevel = 2;    //Rewards at Normal difficulty
        itemSet = [1302080, 1002033, 2012005, 2012006, 2020002, 2020025, 2020026, 4010003, 4010004, 4010005, 4020002, 4020003, 4020007];
        itemQty = [1, 1, 15, 15, 15, 10, 10, 3, 3, 3, 3, 3, 3];
        eim.setEventRewards(evLevel, itemSet, itemQty);
        
        evLevel = 1;    //Rewards at Easy difficulty
        itemSet = [1002033, 2012005, 2012006, 2020002, 2022006, 2022002, 4010000, 4010001, 4010002, 4020000, 4020001, 4020006];
        itemQty = [1, 15, 15, 10, 5, 5, 2, 2, 2, 2, 2, 2];
        eim.setEventRewards(evLevel, itemSet, itemQty);
        
        expStages = [210, 620, 500, 1400, 950, 2200];    //bonus exp given on CLEAR stage signal
        eim.setEventClearStageExp(expStages);
}

function getEligibleParty(party) {      //selects, from the given party, the team that is allowed to attempt this event
        var eligible = [];
        var hasLeader = false;
        
        if(party.size() > 0) {
                var partyList = party.toArray();

                for(var i = 0; i < party.size(); i++) {
                        var ch = partyList[i];

                        if(ch.getMapId() == recruitMap && ch.getLevel() >= minLevel && ch.getLevel() <= maxLevel) {
                                if(ch.isLeader()) hasLeader = true;
                                eligible.push(ch);
                        }
                }
        }
        
        if(!(hasLeader && eligible.length >= minPlayers && eligible.length <= maxPlayers)) eligible = [];
        return eligible;
}

function setup(level, lobbyid) {
        var eim = em.newInstance("Holiday3_" + lobbyid);
        eim.setProperty("level", level);
        eim.setProperty("stage", "0");
        eim.setProperty("statusStg1", "-1");
        eim.setProperty("missingDrops", "0");
        eim.setProperty("snowmanLevel", "0");
        eim.setProperty("snowmanStep", "0");
        eim.setProperty("spawnedBoss", "0");
        
        var mapobj = eim.getInstanceMap(entryMap);
        mapobj.resetPQ(level);
        mapobj.allowSummonState(false);
        
        respawnStages(eim);
        eim.startEventTimer(eventTime * 60000);
        setEventRewards(eim);
        setEventExclusives(eim);
        return eim;
}

function afterSetup(eim) {}

function respawnStages(eim) {
        eim.getInstanceMap(entryMap).instanceMapRespawn();
        eim.schedule("respawnStages", 10 * 1000);
}

function snowmanHeal(eim) {
        var difficulty = eim.getIntProperty("level");
        var snowman = eim.getInstanceMap(entryMap).getMonsterById(9400316 + (5 * difficulty) + 5);
        
        snowman.heal(200 + 200 * difficulty, 0);
        eim.schedule("snowmanHeal", 10 * 1000);
}

function playerEntry(eim, player) {
        var map = eim.getMapInstance(entryMap);
        player.changeMap(map, map.getPortal(0));
}

function scheduledTimeout(eim) {
        end(eim);
}

function playerUnregistered(eim, player) {}

function playerExit(eim, player) {
        eim.unregisterPlayer(player);
        player.changeMap(exitMap, 0);
}

function playerLeft(eim, player) {
        if(!eim.isEventCleared()) {
                playerExit(eim, player);
        }
}

function changedMap(eim, player, mapid) {
        if (mapid < minMapId || mapid > maxMapId) {
                if (eim.isEventTeamLackingNow(true, minPlayers, player)) {
                        eim.unregisterPlayer(player);
                        end(eim);
                }
                else
                        eim.unregisterPlayer(player);
        }
}

function changedLeader(eim, leader) {
        var mapid = leader.getMapId();
        if (!eim.isEventCleared() && (mapid < minMapId || mapid > maxMapId)) {
                end(eim);
        }
}

function playerDead(eim, player) {}

function playerRevive(eim, player) { // player presses ok on the death pop up.
        if (eim.isEventTeamLackingNow(true, minPlayers, player)) {
                eim.unregisterPlayer(player);
                end(eim);
        }
        else
                eim.unregisterPlayer(player);
}

function playerDisconnected(eim, player) {
        if (eim.isEventTeamLackingNow(true, minPlayers, player)) {
                eim.unregisterPlayer(player);
                end(eim);
        }
        else
                eim.unregisterPlayer(player);
}

function leftParty(eim, player) {
        if (eim.isEventTeamLackingNow(false, minPlayers, player)) {
                end(eim);
        }
        else
                playerLeft(eim, player);
}

function disbandParty(eim) {
        if (!eim.isEventCleared()) {
                end(eim);
        }
}

function monsterValue(eim, mobId) {
        return 1;
}

function end(eim) {
        var party = eim.getPlayers();
        for (var i = 0; i < party.size(); i++) {
                playerExit(eim, party.get(i));
        }
        eim.dispose();
}

function giveRandomEventReward(eim, player) {
        eim.giveEventReward(player);
}

function clearPQ(eim) {
        eim.stopEventTimer();
        eim.setEventCleared();
        
        eim.applyEventPlayersItemBuff(2022438);
}

function isScrooge(mob) {
        var mobid = mob.getId();
        return mobid >= 9400319 && mobid <= 9400321;
}

function monsterKilled(mob, eim) {
        try {
                if(eim.isEventCleared()) return;
                else if(isScrooge(mob)) {
                        eim.giveEventPlayersStageReward(2 * eim.getIntProperty("level"));
                        eim.showClearEffect();
                        eim.clearPQ();
                        return;
                }

                var rnd = Math.random();
                var forceDrop = false;
                if(rnd >= 0.42) {   // 42% chance of dropping token
                        var miss = eim.getIntProperty("missingDrops");
                        if(miss < 5) {
                                eim.setIntProperty("missingDrops", miss + 1);
                                return;
                        }
                        
                        forceDrop = true;
                }
                
                var mapObj = mob.getMap();
                var itemObj = new Item((forceDrop || Math.random() < 0.77) ? 4032094 : 4032095, 0, 1);   // 77% chance of not fake
                var dropper = eim.getPlayers().get(0);

                mapObj.spawnItemDrop(mob, dropper, itemObj, mob.getPosition(), true, false);
                eim.setIntProperty("missingDrops", 0);
        } catch(err) {} // PQ not started yet
}

function allMonstersDead(eim) {}

function friendlyKilled(mob, eim) {
        eim.setIntProperty("snowmanStep", 0);
        var snowmanLevel = eim.getIntProperty("snowmanLevel");
        
        if(snowmanLevel <= 1) {
                end(eim);
        } else {
                eim.setIntProperty("snowmanLevel", snowmanLevel - 1);
        }
}

function snowmanEvolve(eim, curLevel) {
        var mapobj = eim.getInstanceMap(entryMap);
        var difficulty = eim.getIntProperty("level");
        var snowman = mapobj.getMonsterById(9400317 + (5 * difficulty) + (curLevel - 1));
    
        eim.setIntProperty("snowmanLevel", curLevel + 2);   // increment by 2 to decrement by 1 on friendlyKilled
        mapobj.killMonster(snowman, null, false, 2);
        
        var snowman = MapleLifeFactory.getMonster(9400317 + (5 * difficulty) + curLevel);
        mapobj.spawnMonsterOnGroundBelow(snowman, new java.awt.Point(-180, 15));
        
        if(curLevel >= 4) {
                mapobj.allowSummonState(false);
                mapobj.killAllMonstersNotFriendly();
                mapobj.setReactorState();
                
                eim.giveEventPlayersStageReward(2 * difficulty - 1);
                eim.showClearEffect();
        }
}

function snowmanSnack(eim) {
        if(eim.getIntProperty("snowmanLevel") >= 5) return;
    
        var step = eim.getIntProperty("snowmanStep");
        var snowmanLevel = eim.getIntProperty("snowmanLevel");
        
        if(step >= 2 + (eim.getIntProperty("level") * snowmanLevel)) {
                step = 0;
                snowmanEvolve(eim, snowmanLevel);
        } else {
                var mapobj = eim.getInstanceMap(entryMap);
                var difficulty = eim.getIntProperty("level");
                var snowman = mapobj.getMonsterById(9400316 + (5 * difficulty) + snowmanLevel);
                
                snowman.heal(200 + (200 * snowmanLevel), 0);
                step += 1;
        }
        
        eim.setIntProperty("snowmanStep", step);
}

function snowmanSnackFake(eim) {
        if(eim.getIntProperty("snowmanLevel") >= 5) return;
    
        var step = eim.getIntProperty("snowmanStep");
        if(step > 0) {
                eim.setIntProperty("snowmanStep", step - 1);
        }
        
        eim.dropMessage(5, "The snowman absorbed a Fake Snow Vigor!");
}


function cancelSchedule() {}

function dispose(eim) {}