-	script	valor_total#mpago	-1,{
	OnAtcommand:
    set .@pass_script$,12345; //Senha do NPC
	
    mes "Por favor insira a senha do script para prosseguir!";
    input .@senha$;
    if(.@senha$ != .@pass_script$){mes "Acesso negado!"; close;}
    next;
    mes "Bem-vindo ao sistema de informações sobre doações por cupom!";
    mes "Por favor, insira o código do cupom que deseja verificar:";
    next;
    input .@cupom_desc$;
    query_sql "SELECT SUM(valor) FROM rp_doacoes WHERE cupom = '" + .@cupom_desc$ + "' AND retorno_pag = 'Pagamento Aprovado' AND MONTH(data_pag) = MONTH(NOW())", .@soma_valor;
	
    if(.@soma_valor == NULL || .@soma_valor == 0) {
        mes "Não foram encontradas doações com o código de cupom informado.";
        close;
		} else {
        mes "A soma total das doações com o código de cupom '" + .@cupom_desc$ + "' é: ^080b70" + .@soma_valor + "^000000";
        mes "Por favor, insira a porcentagem que deseja calcular:";
        next;
        input .@porcentagem;
        .@valor_porcentagem = (.@porcentagem * .@soma_valor) / 100;
        mes "O valor de " + .@porcentagem + "% do total é: ^080b70" + .@valor_porcentagem + "^000000";
	}
    close;
	OnInit:
	bindatcmd "cupom",strnpcinfo(3)+"::OnAtcommand";
	end;
}