viewing paste RTPs | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138
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)+"'";
}
 
-       script  Sistema RTPs#03 -1,{
 
OnPCLoginEvent:
 
if (getgroupid() >= 20){
        end;
}
if(#RTPsPOINTS == 0){
        end;
}
dispbottom "Ola "+strcharinfo(0)+" voce possui "+#RTPs+" RTPs.";
 
}
Viewed 426 times, submitted by rogeriorsz.