library AlliancesLib {
//    Made by -::Check~out::-
//    vJass 0.9.1.2, cJass 1.4
#include "cj_types_priv.j"
    
    globals 
        private force PlayingForce
        private boolexpr filter = null
        private integer count, rnd, rndc
        private player rndp
    endglobals
    
    #define private exw = exitwhen
        
    private boolean filter_c () {return GetPlayerSlotState(GetFilterPlayer()) == PLAYER_SLOT_STATE_PLAYING and GetPlayerId(GetFilterPlayer()) < 12}
    
    void SetAllianceForPlayersWithAspects(player p1, player p2,boolean ally,boolean vision,boolean control, boolean advcontrol) {
        SetPlayerAlliance(p1, p2, ALLIANCE_PASSIVE,       ally)
        SetPlayerAlliance(p1, p2, ALLIANCE_HELP_REQUEST,  ally)
        SetPlayerAlliance(p1, p2, ALLIANCE_HELP_RESPONSE, ally)
        SetPlayerAlliance(p1, p2, ALLIANCE_SHARED_XP,     ally)
        SetPlayerAlliance(p1, p2, ALLIANCE_SHARED_SPELLS, ally)
        SetPlayerAlliance(p1, p2, ALLIANCE_SHARED_VISION, vision)
        SetPlayerAlliance(p1, p2, ALLIANCE_SHARED_CONTROL, control) 
        SetPlayerAlliance(p1, p2, ALLIANCE_SHARED_ADVANCED_CONTROL, advcontrol)
    }
    
    #define SetAlliance( p1,  p2, ally, vision, control,  advcontrol) = {
        SetAllianceForPlayersWithAspects( p1,  p2, ally, vision, control,  advcontrol)
    }
    #define SetAlliance( p1,  p2, ally, vision, control,  advcontrol, db) = {
        SetAllianceForPlayersWithAspects( p1,  p2, ally, vision, control,  advcontrol)
        SetAllianceForPlayersWithAspects( p2,  p1, ally, vision, control,  advcontrol)
    }
    
    private void Count_cb() {count ++}
    
    #define private CountForce(frc) = {count = 0; ForForce(frc,function Count_cb)}
    #define private <GetForceCount()> = count
    
    private void GetRndPl_cb() {if rnd == rndc {rndp = GetEnumPlayer()};rndc ++}
    
    player GetRandomPlayerFromForce(force frc) {
        rndp = null
        CountForce(frc)
        rndc = 1
        rnd = GetRandomInt(1,GetForceCount())
        ForForce(PlayingForce,function GetRndPl_cb)
        return rndp
    }
    
    private void AllInAlliance_cb () {
        integer i = 0
        loop { exw i == GetForceCount()
            if IsPlayerInForce(Player(i),PlayingForce) and Player(i) != GetEnumPlayer() 
                {SetAlliance(GetEnumPlayer(), Player(i), true, true, false, false)};i ++}
    }
    
    void AllInAlliance () {
        if filter == null {
            filter = Condition(function filter_c)
            PlayingForce = CreateForce()
        }
        ForceEnumPlayers(PlayingForce,filter)
        CountForce(PlayingForce)
        ForForce(PlayingForce,function AllInAlliance_cb)
        ForceClear(PlayingForce)
        DisplayTextToPlayer(Player(0), 0, 0, I2S(GetForceCount()))
    }
    
    private void MakeEnemies_cb () {
        SetAlliance(GetEnumPlayer(), rndp, false, false, false, false, d)
    }
    
    void MakeEnemies (integer cnt) {
        if cnt < 1 {return}
        if filter == null {
            filter = Condition(function filter_c)
            PlayingForce = CreateForce()
        }
        ForceEnumPlayers(PlayingForce,filter)
        integer i = 0
        loop { exw i == cnt
            GetRandomPlayerFromForce(PlayingForce)
            ForceRemovePlayer(PlayingForce,rndp)
            ForForce(PlayingForce,function MakeEnemies_cb)
            i ++
        }
        ForceClear(PlayingForce)
    }
}