Page 1 of 1

Komandu suligintuvas

Posted: 2011 Oct 30 15:17
by Keistas
Sveiki, gal žinot labai gera sulygintuva komandų? CSDM serveriui reikia, kad normaliai sulygintu žmones. Ačiū iš anksto.

Re: Komandu suligintuvas

Posted: 2011 Oct 30 17:24
by psychical

Code: Select all

#include <amxmodx>#include <cstrike> #define PLUGIN "Auto Team changer"#define VERSION "1.7"#define AUTHOR "REZ.LT" new cvar_on, cvar_diffnew g_maxPlayers public plugin_init(){    register_plugin(PLUGIN, VERSION, AUTHOR);        cvar_on = register_cvar("atc_on", "1");    cvar_diff = register_cvar("atc_player_diff", "2");        register_event("DeathMsg", "event_deathmsg", "a");        g_maxPlayers = get_maxplayers()} public event_deathmsg(){    if(get_pcvar_num(cvar_on))    {        new cts[32], ts[32], ctsnum, tsnum            for (new id=1; id <= g_maxPlayers; id++)        {            if (!is_user_connected(id))                 continue;                if (cs_get_user_team(id) == CS_TEAM_T) { ts[tsnum++] = id; }             else if (cs_get_user_team(id) == CS_TEAM_CT) { cts[ctsnum++] = id; }         }                 new all1count = tsnum-ctsnum;        new all2count = ctsnum-tsnum;         if(all1count >= get_pcvar_num(cvar_diff) || all2count >= get_pcvar_num(cvar_diff))        {            new rpl, CsTeams:team;                        if(ctsnum > tsnum)            {                rpl = cts[random_num(0, tsnum - 1)];                team = CS_TEAM_T;            }                       else if(tsnum > ctsnum)            {                rpl = ts[random_num(0, ctsnum - 1)];                team = CS_TEAM_CT;            }                        transfer(rpl, team);        }    }} transfer(id, CsTeams:team){    if(is_user_alive(id))        user_silentkill(id);        cs_set_user_team(id, team);     client_print(id, print_chat, "You have been moved to another team.");} 
Labai senai buvau parases toki, taciau manyciau siuo metu butu galimybe ir geresniam ;D

Re: Komandu suligintuvas

Posted: 2011 Oct 30 17:32
by Keistas
Ačiū, pabandysim. :)
EDIT: Patestinau, blemba iškart gal 10 žmonių permeta taip staiga ir miršta dar +. Ar galima, tiesiog permestu po viena, kad lygintu ir nemirdinėtu.

Re: Komandu suligintuvas

Posted: 2011 Oct 30 20:36
by beast

Re: Komandu suligintuvas

Posted: 2011 Oct 31 17:59
by Keistas
Nelabai, jau efektyvus tas auto balance. Būna 7 terai ir 3 mentai nieko nedaro tas pluginas :)
Tai gal žino tikrai gera? Šito dalyko labai reikia.

Re: Komandu suligintuvas

Posted: 2011 Oct 31 22:08
by psychical

Code: Select all

#include <amxmodx>#include <cstrike> #define PLUGIN "Auto Team balancer"#define VERSION "1.7"#define AUTHOR "REZ.LT/beast" new cvar_on, cvar_diffnew g_maxPlayers public plugin_init(){    register_plugin(PLUGIN, VERSION, AUTHOR);       cvar_on = register_cvar("atc_on", "1");    cvar_diff = register_cvar("atc_player_diff", "2");       g_maxPlayers = get_maxplayers()        set_task(60.0, "balance_teams", _, _, _, "b");} public balance_teams(){    if(get_pcvar_num(cvar_on))    {        new cts[32], ts[32], ctsnum, tsnum           for (new id=1; id <= g_maxPlayers; id++)        {            if (!is_user_connected(id))                continue;               if (cs_get_user_team(id) == CS_TEAM_T) { ts[tsnum++] = id; }            else if (cs_get_user_team(id) == CS_TEAM_CT) { cts[ctsnum++] = id; }        }               new all1count = tsnum-ctsnum;        new all2count = ctsnum-tsnum;         if(all1count >= get_pcvar_num(cvar_diff) || all2count >= get_pcvar_num(cvar_diff))        {            new rpl, CsTeams:team;                       if(ctsnum > tsnum)            {                rpl = cts[random_num(0, tsnum - 1)];                team = CS_TEAM_T;            }                      else if(tsnum > ctsnum)            {                rpl = ts[random_num(0, ctsnum - 1)];                team = CS_TEAM_CT;            }            transfer(rpl, team);        }    }} transfer(id, CsTeams:team){    if(is_user_alive(id))        user_silentkill(id);       cs_set_user_team(id, team);    client_print(id, print_chat, "You have been moved to another team.");}
Bandyk taip, pagal viska turetu kas 1min tikrinti ir perkelti jei bus perteklius, daugiau nei 2

Re: Komandu suligintuvas

Posted: 2011 Nov 05 02:47
by Keistas
Work my friend :caca: