Komandu suligintuvas

Šiame forume vartotojai gali prašyti jiems reikiamo plugino.
Forum rules
Šiame forume galite siūlyti idėjas ar prašyti jums reikalingų pluginų. Jei kas nors pradės jį kurti, tai pasirašys Jūsų sukurtoje temoje. Niekada nepykite, jei niekas neatsako į Jūsų prašymą. Gal tai tiesiog per sudėtinga, arba reikalauja per daug darbo.
Post Reply
Keistas
Jau po truputį tampa savu
Posts: 144
Joined: 2011 Feb 23 19:44
Skype: mindzekas.nu

Komandu suligintuvas

Post by Keistas »

Sveiki, gal žinot labai gera sulygintuva komandų? CSDM serveriui reikia, kad normaliai sulygintu žmones. Ačiū iš anksto.

User avatar
psychical
Viršininkas
Posts: 2094
Joined: 2011 Mar 12 22:19
Skype: tautvydas11
Location: Linksmakalnis
Contact:

Re: Komandu suligintuvas

Post 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

Keistas
Jau po truputį tampa savu
Posts: 144
Joined: 2011 Feb 23 19:44
Skype: mindzekas.nu

Re: Komandu suligintuvas

Post 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.

User avatar
beast
AMX Mod X ekspertai
Posts: 509
Joined: 2011 Jan 08 18:44
Skype: thefurious4
Contact:

Re: Komandu suligintuvas

Post by beast »


Keistas
Jau po truputį tampa savu
Posts: 144
Joined: 2011 Feb 23 19:44
Skype: mindzekas.nu

Re: Komandu suligintuvas

Post 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.

User avatar
psychical
Viršininkas
Posts: 2094
Joined: 2011 Mar 12 22:19
Skype: tautvydas11
Location: Linksmakalnis
Contact:

Re: Komandu suligintuvas

Post 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

Keistas
Jau po truputį tampa savu
Posts: 144
Joined: 2011 Feb 23 19:44
Skype: mindzekas.nu

Re: Komandu suligintuvas

Post by Keistas »

Work my friend :caca:

Post Reply

Who is online

Users browsing this forum: No registered users and 4 guests