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;
 
}