HPVars

#if defined _hpvars_included
        #endinput
#endif
#define _hpvars_included

#define MAX_VARNAME 32
#define MAX_VARINPUT 128
#if defined MAX_PLAYERS
	#undef MAX_PLAYERS
#endif
#define MAX_PLAYERS 32
#define MAX_VARS 50

new nVar[MAX_PLAYERS][MAX_VARS][MAX_VARNAME];
new iVar[MAX_PLAYERS][MAX_VARS][MAX_VARINPUT]
;
stock SetPVarString(playerid,varname[],varinput[]) {

	for(new s;s < MAX_VARS;s++) if(equali(nVar[playerid][s],varname)) return format(iVar[playerid][s],MAX_VARINPUT-1,varinput);

	new i = RelaseVar(playerid);
	format(nVar[playerid][i],MAX_VARNAME-1,varname)
	format(iVar[playerid][i],MAX_VARINPUT-1,varinput)
	return 1;
}

stock SetPVarInt(playerid,varname[],varinput) {
	new num[15];
	num_to_str(varinput,num,15);
	return SetPVarString(playerid,varname,num);
}

stock SetPVarFloat(playerid,varname[],Float:varinput) {
	new num[20];
	float_to_str(varinput,num,20);
	return SetPVarString(playerid,varname,num);
}

stock GetPVarString(playerid,varname[]) {
	for(new i;i < MAX_VARS;i++) if(equali(varname,nVar[playerid][i])) return iVar[playerid][i];
	new var[MAX_VARINPUT];
	return var;
}

stock GetPVarInt(playerid,varname[]) return str_to_num(GetPVarString(playerid,varname));

stock Float:GetPVarFloat(playerid,varname[]) return str_to_float(GetPVarString(playerid,varname));

stock DeletePVar(playerid,varname[]) {
	for(new i;i < MAX_VARS;i++) if(equali(varname,nVar[playerid][i])) return nVar[playerid][i] = "",iVar[playerid][i] = "";
	return 1;
}

stock DeleteAllPVars(playerid) {
	for(new i;i < MAX_VARS;i++) nVar[playerid][i] = "",iVar[playerid][i] = "";
	return 1;
}

stock ResetVars() for(new s=1;s <= MAX_PLAYERS;s++) for(new i;i < MAX_VARS;i++) nVar[s][i] = "",iVar[s][i] = "";

stock RelaseVar(playerid) {
	for(new rv;rv < MAX_VARS;rv++) if(nVar[playerid][rv][0] == EOS) return rv;

	return -1;
}