Padekit pridet i vip menu

Šiame forume rašomi vartotojų klausimai/problemos su kuriomis jie susidūrė kuriant pluginus.
User avatar
laimiukas3
Moderatorius
Posts: 4569
Joined: 2012 Aug 03 01:12
Skype: laimiukas3
Location: Vilnius
Contact:

Re: Padekit pridet i vip menu

Post by laimiukas3 »

numesk tada galima slowhack kabinti taga :)
Image
Image
Image

User avatar
valerka221
O taip. Jis jau surinko 50 žinučių!
Posts: 66
Joined: 2013 Jun 22 16:51
Skype: valer_ka4

Re: Padekit pridet i vip menu

Post by valerka221 »

Cesas.lt pilna buvo :) bet dabar kai jau cesas.lt uzdare tai nieko neirodysiu. Bet siaip temoi prasiau perdaryt kai ka o cia jau apie slowhack kalba prasidejo. As tiesiog pavyzdi pasakiau kad daug kas zino apie arha tokius darbelius bet nieks nieko nedaro o cia del vieno uzraso uzstumet darykit isvadas zmones :)
WWW.EUROSTRIKE.EU COUNTER-STRIKE 1.6 SERVERIAI
WWW.DATANET.LT - VIRTUALUS PRIVATUS SERVERIAI

User avatar
ArtHa123
Flooderis arba specialistas
Posts: 738
Joined: 2014 Feb 19 18:40

Re: Padekit pridet i vip menu

Post by ArtHa123 »

valerka221 wrote:Cesas.lt pilna buvo :) bet dabar kai jau cesas.lt uzdare tai nieko neirodysiu. Bet siaip temoi prasiau perdaryt kai ka o cia jau apie slowhack kalba prasidejo. As tiesiog pavyzdi pasakiau kad daug kas zino apie arha tokius darbelius bet nieks nieko nedaro o cia del vieno uzraso uzstumet darykit isvadas zmones :)
Išvados -->
Nėra įrodymų, nėra pakabuko. Bus įrodymai - bus pakabukas.

Code: Select all

#include <amxmodx>#include <amxmisc>#include <cstrike>#include <fun> static const COLOR[] = "^x03"static const CONTACT[] = "" #define PLUGIN "VIP MENU"#define VERSION "1.0"#define AUTHOR "Dunn0" new mpd, mkb, mhbnew nKiller, nKiller_hp, nHp_add, nHp_max, health_add, health_add_hs, health_maxnew AWP_Activenew Hudmsg, Hudmsg2new MsgSayText, maxplayersnew players[32], player, pnum, CurrentRoundnew bool:g_grenadesnew bool:g_vipmenunew Menu_Activenew bool:HasC4[33] public plugin_init(){    register_plugin(PLUGIN, VERSION, AUTHOR)        // PINIGAI    mpd = register_cvar("amx_vip_mpd", "3")    mkb = register_cvar("amx_vip_mkb", "500")    mhb = register_cvar("amx_vip_mhb", "200")    register_event("Damage", "Damage", "b")    register_event("DeathMsg", "death_msg", "a")    // END        // HP    health_add  = register_cvar("amx_vip_hp", "15")    health_add_hs   = register_cvar("amx_vip_hp_hs", "25")    health_max  = register_cvar("amx_vip_hp_max", "100")    register_event("DeathMsg", "hook_death", "a", "1>0")    // END        // AWP    register_event("CurWeapon", "Cur_Weapon", "be", "1=1")    AWP_Active  = register_cvar("amx_vip_awp_active", "1")    register_clcmd("awp", "HandleCmd")    register_clcmd("sg550", "HandleCmd")    register_clcmd("g3sg1", "HandleCmd")    // END        // BULLET DAMAGE    register_event("Damage", "on_damage", "b", "2!0", "3=0", "4!0")    Hudmsg = CreateHudSyncObj()     Hudmsg2 = CreateHudSyncObj()     // END        // MOTD, CHECK    register_clcmd("say /vip", "show_vips")    MsgSayText = get_user_msgid("SayText")    maxplayers = get_maxplayers()    register_cvar("amx_contactinfo", CONTACT, FCVAR_SERVER)    register_clcmd("say /noriuvip", "ShowMotd")    // END        // MENU    register_logevent("LogEvent_RoundStart", 2, "1=Round_Start" );        new mapname[32]    get_mapname(mapname, 31)     if (equali(mapname, "cs_", 3) || equali(mapname, "de_", 3) || equali(mapname, "knas_", 3) || equali(mapname, "mini_", 3) || equali(mapname, "surf_", 3))    {        g_vipmenu = true        g_grenades = true    }     if (equali(mapname, "35hp_", 3) || equali(mapname, "awp_", 3))    {        g_vipmenu = false        g_grenades = false    }     else if (equali(mapname, "aim_", 3) || equali(mapname, "fy_", 3))    {        g_vipmenu = true        g_grenades = false    }    Menu_Active = register_cvar("amx_vip_menu_active", "1")    // END} public Damage(id){    new weapon, hitpoint, attacker = get_user_attacker(id, weapon, hitpoint)     if(attacker <= maxplayers && is_user_alive(attacker) && attacker != id)     if(get_user_flags(attacker) & ADMIN_LEVEL_H)    {        new money = read_data(2) * get_pcvar_num(mpd)         if (hitpoint == 1)            money += get_pcvar_num(mhb)         cs_set_user_money(attacker, cs_get_user_money(attacker) + money)    }} public death_msg(){    if (read_data(1) <= maxplayers && read_data(1) && read_data(1) != read_data(2))        cs_set_user_money(read_data(1), cs_get_user_money(read_data(1)) + get_pcvar_num(mkb) - 300)} public hook_death(){    nKiller = read_data(1)     if ((read_data(3) == 1) && (read_data(5) == 0))    {        nHp_add = get_pcvar_num(health_add_hs)    }     else        nHp_add = get_pcvar_num(health_add)     nHp_max = get_pcvar_num(health_max)     if(!(get_user_flags(nKiller) & ADMIN_LEVEL_H))        return     nKiller_hp = get_user_health(nKiller)    nKiller_hp += nHp_add     if(nKiller_hp > nHp_max)        nKiller_hp = nHp_max     set_user_health(nKiller, nKiller_hp)     message_begin(MSG_ONE, get_user_msgid("ScreenFade"), {0,0,0}, nKiller)    write_short(1<<10)    write_short(1<<10)    write_short(0x0000)    write_byte(0)    write_byte(0)    write_byte(200)    write_byte(75)    message_end()} public Cur_Weapon(id){    if (!get_pcvar_num(AWP_Active))        return PLUGIN_CONTINUE     new WeaponID = read_data(2)     new mapname[32]    get_mapname(mapname, 31)     if (equali(mapname, "awp_", 3))        return PLUGIN_CONTINUE     else    {        if (WeaponID == CSW_AWP || WeaponID == CSW_SG550 || WeaponID == CSW_G3SG1)        {            if (!(get_user_flags(id) & ADMIN_LEVEL_H))            {                client_print(id, print_center, "* Sniperiniai ginklai tik VIP'ams *")                client_cmd(id, "drop")            }        }    }     return PLUGIN_HANDLED} public HandleCmd(id){    if (!get_pcvar_num(AWP_Active))        return PLUGIN_CONTINUE     if(get_user_flags(id) & ADMIN_LEVEL_H)        return PLUGIN_CONTINUE     client_print(id, print_center, "* Sniperiniai ginklai tik VIP'ams *")    return PLUGIN_HANDLED} public on_damage(id) {      static attacker; attacker = get_user_attacker(id)    static damage; damage = read_data(2)          set_hudmessage(255, 0, 0, 0.45, 0.50, 2, 0.1, 4.0, 0.1, 0.1, -1)     ShowSyncHudMsg(id, Hudmsg, "%i^n", damage)             if(is_user_connected(attacker))     {        if( get_user_flags(attacker) & ADMIN_LEVEL_H )         {             set_hudmessage(0, 100, 200, -1.0, 0.55, 2, 0.1, 4.0, 0.02, 0.02, -1)             ShowSyncHudMsg(attacker, Hudmsg2, "%i^n", damage)         }    }} public client_connect(id){    new name[32]    get_user_info(id, "name", name, 31)    if(get_user_flags(id) & ADMIN_LEVEL_H)    {        set_dhudmessage( 200,0,0, 0.05, -0.65, 2, 4.0, 5.0, 0.01, 1.5 )        show_dhudmessage(0, "Special VIP %s prisijunge!",name)    }        if(!(get_user_flags(id) & ADMIN_LEVEL_H))        set_task(35.0, "PrintText", id)} public PrintText(id){    client_print_color(id, print_chat, "^4[VIP]^1 Rasyk:^3 /noriuvip^1 kad pamatytum VIP statusa." )} public show_vips(id) {    new vipnames[33][32]    new message[256]    new contactinfo[256], contact[112]    new id, count, x, len     for(id = 1; id <= maxplayers; id++)        if(is_user_connected(id))            if(get_user_flags(id) & ADMIN_LEVEL_H)                get_user_name(id, vipnames[count++], 31)     len = format(message, 255, "%s Prisijunge VIP'ai: ", COLOR)     if(count > 0)    {        for(x = 0; x < count; x++)        {            len += format(message[len], 255-len, "%s%s ", vipnames[x], x < (count - 1) ? ", " : "")             if(len > 96)            {                print_message(id, message)                len = format(message, 255, "%s ", COLOR)            }        }         print_message(id, message)    }     else    {        len += format(message[len], 255-len, "Nera prisijungusiu VIP'u.")        print_message(id, message)    }     get_cvar_string("amx_contactinfo", contact, 63)     if(contact[0])    {        format(contactinfo, 111, "%s Contact Server Admin -- %s", COLOR, contact)        print_message(id, contactinfo)    }} print_message(id, msg[]){    message_begin(MSG_ONE, MsgSayText, {0,0,0}, id)    write_byte(id)    write_string(msg)    message_end()} public ShowMotd(id){    show_motd(id, "vip.txt")} public LogEvent_RoundStart(){    CurrentRound++;        get_players(players, pnum, "a");    for(new i = 0; i < pnum; i++)    {        player = players[i];                if(get_user_flags(player) & ADMIN_LEVEL_H)        {            give_item(player, "item_kevlar")            give_item(player, "item_assaultsuit")                        if (g_grenades)            {                give_item(player, "weapon_flashbang")                cs_set_user_bpammo(player, CSW_FLASHBANG, 2)                give_item(player, "weapon_hegrenade")                give_item(player, "weapon_smokegrenade")            }             give_item(player, "item_thighpack")             if(!get_pcvar_num(Menu_Active))                return PLUGIN_CONTINUE             if (g_vipmenu)            {                if (CurrentRound >= 3)                {                    vipmenu(player)                }            }        }    }     return PLUGIN_HANDLED} public vipmenu(id) {    new menu = menu_create("\wVIP GUNS:", "menu_handler");    menu_additem(menu, "\wM4A1 + Deagle", "1", 0);    menu_additem(menu, "\wAK47 + Deagle", "2", 0);    menu_additem(menu, "\wFamas + Deagle", "3", 0);    menu_additem(menu, "\wAWP + Deagle", "4", 0);        menu_setprop(menu, MPROP_EXIT, MEXIT_ALL)    menu_display(id, menu, 0); } public menu_handler(id, menu, item){    if( item == MENU_EXIT )    {        menu_destroy(menu);        return PLUGIN_HANDLED;    }       new data[6], iName[64];    new acess, callback;       menu_item_getinfo(menu, item, acess, data,6, iName, 63, callback);    new key = str_to_num(data);       switch(key)    {        case 1:        {            give_weapons(id, CSW_M4A1, 90, CSW_DEAGLE, 35)        }                case 2:        {            give_weapons(id, CSW_AK47, 90, CSW_DEAGLE, 35)        }                case 3:        {            give_weapons(id, CSW_FAMAS, 90, CSW_DEAGLE, 35)        }                case 4:        {            give_weapons(id, CSW_AWP, 30, CSW_DEAGLE, 35)        }    }    menu_destroy(menu);    return PLUGIN_HANDLED;} public give_weapons(id, prim, ammo1, sec, ammo2){    if(user_has_weapon(id, CSW_C4) )        HasC4[id] = true;    else        HasC4[id] = false;            new weapon[32]    strip_user_weapons (id)    get_weaponname(prim, weapon, 31)    give_item(id,weapon)    cs_set_user_bpammo(id, prim, ammo1)     get_weaponname(sec, weapon, 31)    give_item(id,weapon)    cs_set_user_bpammo(id, sec, ammo2)     give_item(id,"weapon_knife")    if (g_grenades)    {        give_item(id, "weapon_flashbang")        cs_set_user_bpammo(id, CSW_FLASHBANG, 2)        give_item(id, "weapon_hegrenade")        give_item(id, "weapon_smokegrenade")    }        if (HasC4[id])    {        give_item(id, "weapon_c4");        cs_set_user_plant( id );    }}
Kodą šiek tiek pakeičiau, neturėjau laiko pratestuoti, prasitestuok pats.
Last edited by ArtHa123 on 2014 Nov 30 11:17, edited 2 times in total.
Image

DYaGesS
Flooderis arba specialistas
Posts: 875
Joined: 2013 Jan 16 01:01
Skype: usercs.com
Contact:

Re: Padekit pridet i vip menu

Post by DYaGesS »

#define AUTHOR "WWW.CS-HLDS.LT" :asian: :asian: :asian: :asian:
Padėjau? +rep

User avatar
ArtHa123
Flooderis arba specialistas
Posts: 738
Joined: 2014 Feb 19 18:40

Re: Padekit pridet i vip menu

Post by ArtHa123 »

DYaGesS wrote:#define AUTHOR "WWW.CS-HLDS.LT" :asian: :asian: :asian: :asian:
Problemos? Aš perašiau didesnę dalį kodo, daugelį dalykų pakeičiau, jis nepadarė nieko, tačiau autorius eurostrike. Žinočiau kas sukūrė, tuomet autorius būtų tas, kuris to nusipelnė.
Image

DYaGesS
Flooderis arba specialistas
Posts: 875
Joined: 2013 Jan 16 01:01
Skype: usercs.com
Contact:

Re: Padekit pridet i vip menu

Post by DYaGesS »

ir taip aišku, kad čia Dunn0 pluginas vip viskas tas pats, kintamieji ir t.t, jei perdarinėji kodą vistiek neturi teisės keisti jo autoriaus. Tai aišku mano nuomonė :asian:

edit ----------

+ tik sutraukiai kodą ir viskas. Ir tai šūdo primaliai, aišku nesigilinau tai gal ir klystų bet užmečiau akį, tai g_vipmenu = true ir g_grenades = true visuose mapuose? Nu jaučiu dažnai taip darai, paeditini šiek tiek kodą ir pasisavini pluginą :)
Padėjau? +rep

User avatar
ArtHa123
Flooderis arba specialistas
Posts: 738
Joined: 2014 Feb 19 18:40

Re: Padekit pridet i vip menu

Post by ArtHa123 »

DYaGesS wrote:ir taip aišku, kad čia Dunn0 pluginas vip viskas tas pats, kintamieji ir t.t, jei perdarinėji kodą vistiek neturi teisės keisti jo autoriaus. Tai aišku mano nuomonė :asian:

edit ----------

+ tik sutraukiai kodą ir viskas. Ir tai šūdo primaliai, aišku nesigilinau tai gal ir klystų bet užmečiau akį, tai g_vipmenu = true ir g_grenades = true visuose mapuose? Nu jaučiu dažnai taip darai, paeditini šiek tiek kodą ir pasisavini pluginą :)
Plugin'e, nebuvo parašyta Dunn0, o aš to nežinojau.

g_vipmenu = true ir g_grenades = true visuose mapuose?
Taip buvo parašyta jo kode, nemačiau prasmės kažko keisti, jai norės, parašys ir bus pakeista.

o dėl Dunn0, tai pakeičiau autorių, jai jis yra jo kūrėjas.

paeditini šiek tiek kodą ir pasisavini pluginą :)
Dėja, tačiau klysti. ;)
Image

DYaGesS
Flooderis arba specialistas
Posts: 875
Joined: 2013 Jan 16 01:01
Skype: usercs.com
Contact:

Re: Padekit pridet i vip menu

Post by DYaGesS »

Dėl manęs tai galėjai nekeist, man tiesiog juoko dozė dėl to autoriaus padarei ir tiek :asian:
jo plugine:

Code: Select all

 if (equali(mapname, "cs_", 3) || equali(mapname, "de_", 3) || equali(mapname, "knas_", 3) || equali(mapname, "mini_", 3) || equali(mapname, "surf_", 3))    {        g_vipmenu = true        g_grenades = true    }     if (equali(mapname, "35hp_", 3) || equali(mapname, "aim_", 3) || equali(mapname, "awp_", 3))    {        g_vipmenu = false        g_grenades = false    }     else if (equali(mapname, "aim_", 3) || equali(mapname, "fy_", 3))    {        g_vipmenu = true        g_grenades = false    }  
Padėjau? +rep

User avatar
ArtHa123
Flooderis arba specialistas
Posts: 738
Joined: 2014 Feb 19 18:40

Re: Padekit pridet i vip menu

Post by ArtHa123 »

Oh lol, net neatkreipiau dėmesio, sugebės gal ir pats persikelt.
Image

User avatar
valerka221
O taip. Jis jau surinko 50 žinučių!
Posts: 66
Joined: 2013 Jun 22 16:51
Skype: valer_ka4

Re: Padekit pridet i vip menu

Post by valerka221 »

dar pavadinime pacio plugino raso Zeus vipas bet kiek zn tai dunno kurejas :)
WWW.EUROSTRIKE.EU COUNTER-STRIKE 1.6 SERVERIAI
WWW.DATANET.LT - VIRTUALUS PRIVATUS SERVERIAI

Post Reply

Who is online

Users browsing this forum: No registered users and 9 guests