/* Script generated by Pawn Studio */

#include <amxmodx>
#include <amxmisc>
#include <colorchat>
#include <nvault>

#define PLUGIN	"[CoD] Magazyn na perki"
#define AUTHOR	"Goliath"
#define VERSION	"2.2"

/*************************************
	* KONFIGURACJA PLUGINU * 
**************************************/

/********************************
Zmień 32 na ilość slotów na twoim serwerze
*********************************/

#define MAX_PLAYERS 17

/********************************
Jeżeli używasz pluginu na wytrzymałość perków, zmień poniższą linijkę na:
#define WYTRZYMALOSC
Jeżeli nie, zmień ją na:
//define WYTRZYMALOSC
*********************************/

#define WYTRZYMALOSC

/********************************
Jeżeli chcesz, aby perki w magazynie przechodziły na następną mapę, zmień poniższą linijkę na:
#define ZAPISUJ
Jeżeli nie, zmień ją na:
//define ZAPISUJ
*********************************/

#define ZAPISUJ

/********************************
Tutaj zmień 3 na ilość slotów, jaką chcesz mieć w magazynie.
*********************************/

#define ILOSC_SLOTOW 3

/* UWAGA! *
* Po jakiejkolwiek zmianie w konfiguracji *
* musisz ponownie skompilować plugin! *
*/

/*************************************
	* KONIEC KONFIGURACJI * 
**************************************/

native cod_get_user_perk(id, &wartosc=0);
native cod_get_perk_name(perk, Return[], len);
native cod_set_user_perk(id, perk, wartosc=-1, pokaz_info=1);
native cod_get_perkid(const perk[]);

#if defined WYTRZYMALOSC
native cod_set_perk_durability(id, set);
native cod_get_perk_durability(id);

new cvar_max_wytrzymalosc,
	Array:aWytrzymalosc,
	max_wytrzymalosc;
#endif

new Array:aPerki, Array:aWartosc;
new Uzyto[MAX_PLAYERS+1];

#if defined ZAPISUJ
new cvar_typ_zapisu,
	typ_zapisu;
new vault;
#endif

#if ILOSC_SLOTOW <= 0
#error Podano błędną ilość slotów w magazynie!
#endif

#if MAX_PLAYERS <= 0 || MAX_PLAYERS > 32
#error Podano błędną ilość slotów na serwerze!
#endif

public plugin_init()
{
	register_plugin(PLUGIN, VERSION, AUTHOR)
	
	aPerki = ArrayCreate();
	aWartosc = ArrayCreate();
	
#if defined WYTRZYMALOSC
	aWytrzymalosc = ArrayCreate();
	cvar_max_wytrzymalosc = get_cvar_pointer("cod_maxperkdurability");
	max_wytrzymalosc = get_pcvar_num(cvar_max_wytrzymalosc);
#endif

#if defined ZAPISUJ
	cvar_typ_zapisu = get_cvar_pointer("cod_savetype");
	typ_zapisu = get_pcvar_num(cvar_typ_zapisu);
	
	vault = nvault_open("CodMagazyn");
#endif
	
	register_clcmd("say /magazyn", "Magazyn");
	
	register_event("HLTV", "NowaRunda", "a", "1=0", "2=0");

	for(new i=0; i<=ILOSC_SLOTOW; i++)
	{
		for(new id=0; id<=MAX_PLAYERS; id++)
		{
			ArrayPushCell(aPerki, 0);
			ArrayPushCell(aWartosc, -1);
#if defined WYTRZYMALOSC
			ArrayPushCell(aWytrzymalosc, 0);
#endif
		}
	}
}

public Magazyn(id)
{
	if(!is_user_alive(id))
		return 0;
	
#if defined ZAPISUJ
	Wczytaj(id);
#endif
	new menu = menu_create("yMagazyn na perki dby rGoliath", "Magazyn_Handler");
	new text[33], perk;
	for(new i=1; i<=ILOSC_SLOTOW; i++)
	{
		perk = ArrayGetCell(aPerki, id*ILOSC_SLOTOW+i)
		if(!perk)
			formatex(text, 32, "Pusty slot");
		else
		{
#if defined WYTRZYMALOSC
			cod_get_perk_name(perk, text, 32);
			format(text, 32, "%s %i/%i", text, ArrayGetCell(aWytrzymalosc, id*ILOSC_SLOTOW+i), max_wytrzymalosc);
#else
			cod_get_perk_name(perk, text, 32);
#endif
		}
		menu_additem(menu, text);
	}
	menu_setprop(menu, MPROP_NEXTNAME, "Dalej");
	menu_setprop(menu, MPROP_EXITNAME, "Wyjdz");
	menu_setprop(menu, MPROP_BACKNAME, "Wstecz");
	menu_display(id, menu);
	return 1;
}

public Magazyn_Handler(id, menu, item)
{
	if(item++ == MENU_EXIT)
		return 0;
	
	new perk = ArrayGetCell(aPerki, id*ILOSC_SLOTOW+item), wartosc = ArrayGetCell(aWartosc, id*ILOSC_SLOTOW+item);
	new wartosc_gracza, perk_gracza = cod_get_user_perk(id, wartosc_gracza);
	
#if defined WYTRZYMALOSC
	new wytrzymalosc = ArrayGetCell(aWytrzymalosc, id*ILOSC_SLOTOW+item);
	new wytrzymalosc_gracza = cod_get_perk_durability(id);
#endif
	if(perk)
	{
		if(Uzyto[id] & (1<<item))
		{
			client_print(id, print_center, "Nie mozesz wyjac perku, ktory dopiero wlozyles!");
			Magazyn(id);
			return 0;
		}
#if defined WYTRZYMALOSC
		if(perk_gracza)
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, perk_gracza);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, wartosc_gracza);
			ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+item, wytrzymalosc_gracza);
			cod_set_user_perk(id, perk, wartosc, 0);
			cod_set_perk_durability(id, wytrzymalosc);
			Uzyto[id] |= (1<<item);
		}
		else
		{
			cod_set_user_perk(id, perk, wartosc, 0);
			cod_set_perk_durability(id, wytrzymalosc);
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, 0);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, 0);
			ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+item, 0);
		}
#else
		if(perk_gracza)
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, perk_gracza);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, wartosc_gracza);
			cod_set_user_perk(id, perk, wartosc, 0);
			Uzyto[id] |= (1<<item);
		}
		else
		{
			cod_set_user_perk(id, perk, wartosc, 0);
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, 0);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, 0);
		}
#endif
	}
	else
	{
#if defined WYTRZYMALOSC
		if(!perk_gracza)
		{
			client_print(id, print_center, "Nie masz zadnego perku!");
			Magazyn(id);
			return 0;
		}
		else
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, perk_gracza);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, wartosc_gracza);
			ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+item, wytrzymalosc_gracza);
			cod_set_user_perk(id, 0, 0, 0);
			cod_set_perk_durability(id, 0);
			Uzyto[id] |= (1<<item);
		}
#else
		if(!perk_gracza)
		{
			client_print(id, print_center, "Nie masz zadnego perku!");
			Magazyn(id);
			return 0;
		}
		else
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+item, perk_gracza);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+item, wartosc_gracza);
			cod_set_user_perk(id, 0, 0, 0);
			Uzyto[id] |= (1<<item);
		}
#endif
	}
#if defined ZAPISUJ
	Zapisz(id);
#endif
	Magazyn(id);
	return 0;
}

#if defined ZAPISUJ && !defined WYTRZYMALOSC
public Zapisz(id)
{
	if(!is_user_connected(id))
		return 0;
	
	new key[40], value[513], identyfikator[33], val_len = 0;
	
	switch(typ_zapisu)
	{
		case 1: get_user_name(id, identyfikator, charsmax(identyfikator));
		case 2: get_user_authid(id, identyfikator, charsmax(identyfikator));
		case 3: get_user_ip(id, identyfikator, charsmax(identyfikator));
	}
	formatex(key, charsmax(key), "%s-%i", identyfikator, typ_zapisu);
	new text[33], perk, wartosc;
	for(new i=1; i<=ILOSC_SLOTOW; i++)
	{
		perk = ArrayGetCell(aPerki, id*ILOSC_SLOTOW+i);
		wartosc = ArrayGetCell(aWartosc, id*ILOSC_SLOTOW+i);
		if(perk)
		{
			cod_get_perk_name(perk, text, charsmax(text));
			replace_all(text, charsmax(text), " ", "_");
			val_len += formatex(value[val_len], charsmax(value)-val_len, "%s#%i#", text, wartosc);
		}
		else
			val_len += formatex(value[val_len], charsmax(value)-val_len, "Brak#-1#");
	}
	nvault_set(vault, key, value);
	return 0;
}

public Wczytaj(id)
{
	if(!is_user_connected(id))
		return 0;
	
	new key[40], identyfikator[33];
	
	switch(typ_zapisu)
	{
		case 1: get_user_name(id, identyfikator, charsmax(identyfikator));
		case 2: get_user_authid(id, identyfikator, charsmax(identyfikator));
		case 3: get_user_ip(id, identyfikator, charsmax(identyfikator));
	}
	formatex(key, charsmax(key), "%s-%i", identyfikator, typ_zapisu);
	new text[2*ILOSC_SLOTOW+2][33], value[513];
	nvault_get(vault, key, value, 512);
	explode(value, '#', text, 2*ILOSC_SLOTOW+1, 32);
	for(new i=0; i<ILOSC_SLOTOW; i++)
	{
		new perk, wartosc;
		replace_all(text[2*i], 32, "_", " ");
		perk = cod_get_perkid(text[2*i]);
		wartosc = str_to_num(text[2*i+1]);
		if(perk)
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+i+1, perk);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+i+1, wartosc);
		}
		else
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+i+1, 0);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+i+1, -1);
		}
	}
	return 0;
}
#endif

#if defined ZAPISUJ && defined WYTRZYMALOSC
public Zapisz(id)
{
	if(!is_user_connected(id))
		return 0;
	
	new key[40], value[513], identyfikator[33], val_len = 0;
	
	switch(typ_zapisu)
	{
		case 1: get_user_name(id, identyfikator, charsmax(identyfikator));
		case 2: get_user_authid(id, identyfikator, charsmax(identyfikator));
		case 3: get_user_ip(id, identyfikator, charsmax(identyfikator));
	}
	formatex(key, charsmax(key), "%s-%i", identyfikator, typ_zapisu);
	new text[33], perk, wartosc, wytrzymalosc;
	for(new i=1; i<=ILOSC_SLOTOW; i++)
	{
		perk = ArrayGetCell(aPerki, id*ILOSC_SLOTOW+i);
		wartosc = ArrayGetCell(aWartosc, id*ILOSC_SLOTOW+i);
		wytrzymalosc = ArrayGetCell(aWytrzymalosc, id*ILOSC_SLOTOW+i);
		if(perk)
		{
			cod_get_perk_name(perk, text, charsmax(text));
			replace_all(text, charsmax(text), " ", "_");
			val_len += formatex(value[val_len], charsmax(value)-val_len, "%s#%i#%i#", text, wartosc, wytrzymalosc);
		}
		else
			val_len += formatex(value[val_len], charsmax(value)-val_len, "Brak#-1#0#");
	}
	nvault_set(vault, key, value);
	return 0;
}

public Wczytaj(id)
{
	if(!is_user_connected(id))
		return 0;
	
	new key[40], identyfikator[33];
	
	switch(typ_zapisu)
	{
		case 1: get_user_name(id, identyfikator, charsmax(identyfikator));
		case 2: get_user_authid(id, identyfikator, charsmax(identyfikator));
		case 3: get_user_ip(id, identyfikator, charsmax(identyfikator));
	}
	formatex(key, charsmax(key), "%s-%i", identyfikator, typ_zapisu);
	new text[3*ILOSC_SLOTOW+2][33], value[513];
	nvault_get(vault, key, value, 512);
	explode(value, '#', text, 3*ILOSC_SLOTOW+1, 32);
	new perk, wartosc, wytrzymalosc;
	for(new i=0; i<ILOSC_SLOTOW; i++)
	{
		replace_all(text[3*i], 32, "_", " ");
		perk = cod_get_perkid(text[3*i]);
		wartosc = str_to_num(text[3*i+1]);
		wytrzymalosc = str_to_num(text[3*i+2]);
		if(perk)
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+i+1, perk);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+i+1, wartosc);
			ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+i+1, wytrzymalosc);
		}
		else
		{
			ArraySetCell(aPerki, id*ILOSC_SLOTOW+i+1, 0);
			ArraySetCell(aWartosc, id*ILOSC_SLOTOW+i+1, -1);
			ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+i+1, 0);
		}
	}
	return 0;
}

#endif

public NowaRunda()
{
	for(new i=0; i<=MAX_PLAYERS; i++)
		Uzyto[i] = 0;
}

public client_authorized(id)
{
	Uzyto[id] = 0;
	for(new i=1; i<=ILOSC_SLOTOW; i++)
	{
		ArraySetCell(aPerki, id*ILOSC_SLOTOW+i, 0);
		ArraySetCell(aWartosc, id*ILOSC_SLOTOW+1, -1);
#if defined WYTRZYMALOSC
		ArraySetCell(aWytrzymalosc, id*ILOSC_SLOTOW+1, 0);
#endif
	}
}

//Stock by DarkGL
stock explode(const string[],const character,output[][],const maxs,const maxlen){
	new iDo = 0;
	new len = strlen(string);
	new oLen = 0;
	do
	{
		oLen += (1+copyc(output[iDo++],maxlen,string[oLen],character))
	}
	while(oLen < len && iDo < maxs)
}