prontera,151,188,4	script	Sistema RTPs	717,{

set @npc$,"[^FF7F24Sistema RTPs^000000]"; // Nome do npc
set @lvl,99; // Level para administrar o npc
 
if (getgroupid() < @lvl){ 
	mes @npc$; 
	mes "Desculpe mais apenas administradores podem falar comigo."; 
	close; 
}
 
mes @npc$;
mes "Olá "+strcharinfo(0)+" o que deseja administrar no sistema RTPs?";
switch(select("- Adicionar RTPs","- Remover RTPs","- Ver RTPs"))
{
	case 1:
	next;
	mes @npc$;
	mes "Digite o login da conta que deseja adicionar os RTPs.";
	input .@RTPs$;
	 
	query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@RTPs$+"'",.@cont;
	if(.@cont == 0){
		next;
		mes @npc$;
		mes "Desculpe mais voce nao digitou o login da conta corretamente.";
		close;
	}
	 
	next;
	mes @npc$;
	mes "Agora digite a quantidade de RTPs que deseja adicionar a esta conta";
	input .@valor;
	if(.@valor == 0){
		next;
		mes @npc$;
		mes "Desculpe mas voce digitou uma quantidade inválida.";
		close;
	}
	next;
	mes @npc$;
	mes "Tem certeza que deseja adicionar ^00BFFF"+.@valor+"^000000 RTPs na conta ^00BFFF"+.@RTPs$+"^000000?";
	if (select("- Sim:- Nao") == 2) close;
	 
	next;
	mes @npc$;
	mes "Os RTPs da conta "+.@RTPs$+" foram adicionados com sucesso.";
	query_sql "UPDATE `login` SET `RTPs` = `RTPs` +"+.@valor+" WHERE `userid`='"+.RTPs$+"'";
	close;
	 
	case 2:
	next;
	mes @npc$;
	mes "Digite o login da conta que deseja remover RTPs.";
	input .@RTPs$;
	 
	query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@RTPs$+"'",.@cont;
	if(.@cont == 0){
		next;
		mes @npc$;
		mes "Desculpe mais voce nao digitou o login da conta corretamente.";
		close;
	}
	 
	next;
	mes @npc$;
	mes "Agora digite a quantidade de RTPs que deseja remover da conta "+.@RTPs$+".";
	input .@valor;
	if(.@valor == 0){
		next;
		mes @npc$;
		mes "Desculpe mas voce digitou uma quantidade invalida.";
		close;
	}
	next;
	mes @npc$;
	mes "Tem certeza que deseja remover ^00BFFF"+.@valor+"^000000 RTPs da conta ^00BFFF"+.@RTPs$+"^000000?";
	if (select("- Sim:- Nao") == 2) close;
	 
	next;
	mes @npc$;
	mes "Os RTPs da conta "+.@RTPs$+" foram removidos com sucesso.";
	query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@RTPs$+"'",.@id;
	query_sql "UPDATE `global_reg_value` SET `value` = `value`-"+.@valor+" WHERE `account_id`='"+.@id+"'";
	close;
	 
	case 3:
	next;
	mes @npc$;
	mes "Digite o login da conta que deseja ver a quantidade de RTPs.";
	input .@RTPs$;
	 
	query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@RTPs$+"'",.@cont;
	if(.@cont == 0){
		next;
		mes @npc$;
		mes "Desculpe mais voce nao digitou o login da conta corretamente.";
		close;
	}
	 
	next;
	query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@RTPs$+"'",.@id;
	query_sql "SELECT `value` FROM `global_reg_value` WHERE `account_id`='"+.@id+"'",.@saldo;
	mes @npc$;
	mes "A conta "+.@RTPs$+" possui ^00BFFF"+.@saldo+"^000000 RTPsPoints. ";
	close;
}
}
 
-	script	Sistema RTPs#02	-1,{
 
OnPCLoginEvent:
 
query_sql "SELECT `RTPs` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", .@RTPs;
if(.@RTPs == 0){ 
	end;
}
 
dispbottom "Ola "+strcharinfo(0)+" voce acaba de ganhar  "+.@RTPs+" RTPs.";
set #RTPs,#RTPs+.@RTPs;
query_sql "UPDATE `login` SET `RTPs` = `RTPs` =0 WHERE `account_id`='"+getcharid(3)+"'";
end;
}
 
-	script	Sistema RTPs#03	-1,{
 
OnPCLoginEvent:
 
if (getgroupid() >= 20){
	end;
}
if(#RTPsPOINTS == 0){
	end;
}
dispbottom "Ola "+strcharinfo(0)+" voce possui "+#RTPs+" RTPs.";
end;

}