dcmd_setlevel(playerid,params[])
{
	new string[100];
  if(gPlayerInfo[playerid][alevel] > gCommands[SETLEVEL] || IsPlayerAdmin(playerid)) {
	new tmp[256], tmp2[256], Index;
	tmp = strtok(params,Index);
	tmp2 = strtok(params,Index);
  if(!strlen(params)) return SendClientMessage(playerid, COLOR_RED, "Naudojimas: /Setlevel [playerid] [level]");
  	new player1, p2level, playername[MAX_PLAYER_NAME], adminname[MAX_PLAYER_NAME];
	player1 = strval(tmp);
	if(!strlen(tmp2)) return SendClientMessage(playerid, COLOR_RED, "Naudojimas: /Setlevel [playerid] [level]");
	p2level = strval(tmp2);
  if(IsPlayerConnected(player1) && player1 != INVALID_PLAYER_ID) {
  if(gPlayerInfo[playerid][logged] == 0) return SendClientMessage(playerid, COLOR_RED, "Jūs turite būti prisijungęs!");
  if(gPlayerInfo[player1][logged] == 0) return SendClientMessage(playerid, COLOR_RED, "Ћaidėjas neprisijungęs!");
  GetPlayerName(player1, playername, sizeof(playername));
	GetPlayerName(playerid, adminname, sizeof(adminname));
  format(string,sizeof(string),"Administratorius %s davė jums administratoriaus lygį. [Lygis %d]", adminname, p2level);
  format(string,sizeof(string),"Jūs davėte ћaidėjui %s administratoriaus lygį %d", playername, p2level);
	SendClientMessage(playerid, COLOR_LIGHTBLUE, string);
  new file[256], pname[MAX_PLAYER_NAME];
  GetPlayerName(playerid, pname, sizeof(pname));
  format(file, sizeof(file), AccountFile, pname);
  gPlayerInfo[player1][alevel] = p2level;
  dini_IntSet(file, "Admin Level", p2level);
  } else
	SendClientMessage(playerid, COLOR_RED, "Nėra tokio ћaidėjo id!");
  } else
	format(string, sizeof(string), "Jūs turite būti %d lygio administratorius!", gCommands[SETLEVEL]);
	SendClientMessage(playerid, COLOR_RED, string);
  return 1;
}