set $@VipAc,99; // Nível de conta que permite entrar no Gerenciamento. [ 4, 10 ou 99 ]
set $@NvVip,1; // Nível de conta para usuários Vip. [ 1 à 3 ]
set $@SalaVip$,"prontera"; // Mapa da Sala Vip. [ ,"mapa"; ]
setarray $@CoordXY[0],150,150; // Coordenadas da Sala Vip [ ,CoordX,CoordY; ]
set $@VipGratis,1; // Ativa Vip Grátis. [ 1 = Sim, 0 = Não ]
set $@VipGDias,5; // Dias para Vip Grátis.
set $@ExpBonus,3; // Ativa o Bonus de XP e Drop para usuários Vip. [ 1=Somente EXP, 2=Somente DROP, 3=EXP e DROP, 0=Desativado ]
setarray $@ExpRate[0],50,200; // Percentagem do Bonus de XP e Drop respectivamente. [ ,EXP,DROP; ] (PS: 200 é equivalente ao dobro de chances dos drops)
set $@ChatVip,1; // Ativa chat de indicação no NPC Gerente Vip. [ 1 = Sim, 0 = Não ]
set $@ChatMsgsVip$,"Gerente Vip"; // Mensagem no Chat que irá aparecer.
set $@StorageVip,1; // Possibilita o usuário VIP colocar senha no armazém/storage. [ 1 = Sim, 0 = Não ] (Somente use essa função se estver habilitado o comando @storage)
}
prontera,148,185,5 script Gerente Vip 878,{
query_sql "SELECT `Vip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", @dias;
query_sql ("SELECT `group_id` , `Vip` FROM `login` WHERE `account_id`='"+getcharid(3)+"'",@Out,@Vip);
mes "[ Gerente ]";
mes " Bem vindo ^EEAD2D"+strcharinfo(0)+"^000000 !";
mes "-----------------------------------";
if(#CASHPOINTS<=0) mes "";
else mes "Você atualmente possui ^EEAD2D"+#CASHPOINTS+"^000000 ROP's";
if(@Vip<=60 && @Vip>0) {
if(@Vip==1) mes "Você possui ^EEAD2D1^000000 minuto VIP restante.";
else mes "Você possui ^EEAD2D"+@Vip+"^000000 minutos VIP restantes.";
}
if(@Vip<=1440 && @Vip>60) {
set @temp,@Vip/60;
if(@temp==1) mes "Você possui ^EEAD2D1^000000 Hora VIP restante.";
else mes "Você possui ^EEAD2D"+@temp+"^000000 Horas VIP restantes.";
}
if(@Vip>1440) {
set @temp,@Vip/1440;
if(@temp==1) mes "Você possui ^EEAD2D1^000000 Dia VIP restante.";
else mes "Você possui ^EEAD2D"+@temp+"^000000 Dias VIP restantes.";
}
if(@Out<=0) {
mes "Vejo que você não é um usuário VIP.";
mes "Se está interessado em se tornar um usuário Vip, se informe melhor em nosso site.";
}
mes "-----------------------------------";
mes "Porfavor, escolha uma das opções.";
next;
set @menu$,"Sala Vip:^FF4500Loja de ROP's^000000:"+(($@StorageVip==1)?"Senha no Armazém":"")+":Como obter ROP's:Cancelar:"+((getgmlevel()>=$@VipAc)?"Acesso ADM":"");
switch(select(@menu$)){
case 1:
mes "[ Gerente ]";
if(getgroupid()<$@NvVip) { mes "Você não é um usuário VIP."; mes "Se está interessado em se tornar um usuário Vip, se informe melhor em nosso site."; close; }
mes "Okay, estarei te teleportando para a Sala Vip neste exato momento.";
mes "Tenha uma boa estádia lá.";
close2;
warp $@SalaVip$,$@CoordXY[0],$@CoordXY[1];
end;
case 2:
mes "[ Gerente ]";
mes "Tudo bem, irei abrir a Loja de ROP's para você.";
close2;
callshop "cash_shop",1;
end;
case 3:
if(getgroupid()>=1 && getgroupid()<=3) {
if(#passstore==0) {
mes "[ Gerente ]";
mes "Bem-vindo as configurações do acesso ao armazém.";
mes "Vejo que você não possui uma senha para seu armazém.";
mes "o que deseja fazer?";
next;
if(select("Criar senha","Sair")==2) { mes "[ Gerente ]"; mes "Caso mude de ideia estarei aqui para servi-lo."; close; }
mes "[ Gerente ]";
mes "Certo, preciso que você digite a senha que deseja criar.";
mes "Lembre-se, atualmente não temos como recuperar a senha caso você esqueça, então porfavor anote-a.";
next;
AgainPass:
mes "[ Gerente ]";
mes "Digite a senha que deseja utilizar.";
input @Senha$;
next;
mes "[ Gerente ]";
mes "Você digitou a senha:";
mes " ^FF4500"+@Senha$+"^000000 ";
mes "Ela está correta?";
next;
if(select("Sim","Não")==2) { goto AgainPass; }
mes "[ Gerente ]";
mes "Prontinho, senha de armazém adicionada.";
close2; set #pass$,@Senha$; set #passstore,1; end;
}
mes "[ Gerente ]";
mes "Bem-vindo as configurações do acesso ao armazém.";
mes "Vejo que você já possui uma senha para seu armazém.";
mes "Nessa área tenho total poder de manipular os dados de acesso VIP no servidor.";
mes "Basta você me indicar o que quer fazer que eu executo a ação.";
mes "Porfavor escolha uma das opções.";
next;
switch(select("Adicionar acesso Vip","Remover acesso Vip","Ver Contas VIP","Retornar ao menu principal")) {
case 1:
mes "[ Gerente ]";
mes "Ok, agora preciso coletar os dados da conta do usuário que você deseja adicionar o acesso.";
mes "Digite o Login da Conta à qual irei adicionar acesso Vip.";
next;
input .@Conta$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+.@Conta$+"'",.@ContaEx);
if(.@ContaEx==0) { mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
next;
mes "[ Gerente ]";
mes "Agora, digite a quantidade de dias que o usuário terá acesso Vip";
mes "Conta: ^FF0000"+.@Conta$+"^000000."; mes " ";
mes "^FF0000**Dica: Digite '0' para cancelar.^000000";
next;
input .@VipQ;
if(.@VipQ==0) { mes "Ação cancelada."; mes " "; mes "^FF0000***Fechando conexão***^000000"; close; }
set .@amVip,.@VipQ*1440;
mes "[ Gerente ]";
mes "Tudo certo, processando os dados e adicionando os dias de acesso Vip.";
next;
mes "[ Gerente ]";
mes "Pronto, acesso adicionado!";
mes " ";
mes "Conta: ^FF0000"+.@Conta$+"^000000";
mes "Dias: ^FF0000"+.@VipQ+"^000000.";
query_sql ("SELECT `value` FROM `global_reg_value` WHERE `str`='#VipOk' AND `account_id` = '"+.@ContaEx+"'",.@@Valor);
if(getarraysize(.@@Valor)) { query_sql "UPDATE `global_reg_value` SET `value` = '"+$@NvVip+"' WHERE `str`='#VipOk' AND `account_id` = '"+.@ContaEx+"'";
query_sql ("UPDATE `login` SET `group_id`='"+$@NvVip+"',`Vip`=`Vip`+"+.@amVip+" WHERE `userid`='"+.@Conta$+"'");
close;
case 2:
mes "[ Gerente ]";
mes "Ok, agora preciso coletar os dados da conta do usuário que você deseja remover o acesso.";
mes "Digite o Login da Conta.";
next;
input @AccRet$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+@AccRet$+"'",.@NExiste);
if (!.@NExiste) { mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
next;
mes "[ Gerente ]";
mes "Agora, digite a quantidade de dias que serão removidos do usuário Vip.";
mes "Conta: "+.@AccRet$+".";
mes "^FF0000**Dica: Digite '0' para cancelar.^000000";
next;
input .@QRem;
if(.@QRem==0) { mes "Ação cancelada."; mes " "; mes "^FF0000***Fechando conexão***^000000"; close; }
mes "[ Gerente ]";
mes "Eu irei remover: ^FF0000"+.@QRem+"^000000 dias da conta: ^FF0000"+@AccRet$+"^000000.";
mes "Estes dados estão corretos?";
next;
if(select("Sim","Não")==1) {
mes "[ Gerente ]";
mes "Tudo certo, processando os dados e removendo os dias de acesso Vip";
mes " "; mes " ";
mes "Comando efetuado com SUCESSO!";
close2;
set .@RemDia,.@QRem*1440;
query_sql ("UPDATE `login` SET `Vip`=`Vip`-"+.@RemDia+" WHERE `userid`='"+@AccRet$+"'");
end;
}
mes "[ Gerente ]";
mes "Encerrando conexão...";
mes "Limpando dados...";
mes "Conexão encerrada!";
close;
case 3:
query_sql("SELECT `userid` , `Vip` FROM `login` WHERE `group_id`= "+$@NvVip+" ",@Vips$,@dias);
for(set @i, 0; @i < getarraysize(@Vips$); set @i, @i+1){ mes "-----------------------------------"; mes "|-- ^FF0000"+@dias[@i]/1440+"^000000 Dias --> Conta: ^FF0000"+@Vips$[@i]+"^000000 "; } close;
case 4: goto OnStartG;
}
case 2:
mes "[ Gerente ]";
mes "Nessa área tenho total poder de manipular os dados de CASH do servidor.";
mes "Basta você me indicar o que quer fazer que eu executo a ação.";
mes "Porfavor escolha uma das opções.";
next;
switch(select("Adicionar CASHs","Remover CASHs","Voltar ao menu principal")) {
case 1:
mes "[ Gerente ]";
mes "Ok, agora preciso coletar os dados da conta do usuário que irei adicionar os CASHs.";
mes "Digite o Login da Conta.";
next;
input .@Conta$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+.@Conta$+"'",.@ContaEx);
if(.@ContaEx==0) { mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
query_sql ("SELECT `value` FROM `global_reg_value` WHERE `str`='#CASHPOINTS' AND `account_id` = '"+.@ContaEx+"'",.@@Valor);
mes "Ok, agora preciso coletar os dados da conta do usuário que irei remover os CASHs.";
mes "Digite o Login da Conta.";
next;
input .@Conta$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+.@Conta$+"'",.@ContaEx);
if(.@ContaEx==0) { mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
mes "[ Gerente ]";
query_sql "SELECT `value` FROM `global_reg_value` WHERE `str` ='#CASHPOINTS' AND `account_id` = '"+.@ContaEx+"'",.@@Valor;
mes "Item à adicionar ao Shop: ^EEAD2D"+getitemname(@id);
mes "ID do Item: ^EEAD2D"+@id;
mes "Preço: ^EEAD2D"+@Qtd+" Cash's";
next;
if(select("Prosseguir","Cancelar")==2) { close; }
query_sql ("INSERT INTO `cash_shop` (nameid,price) VALUES ("+@id+","+@Qtd+")");
mes "[ Gerente ]";
mes "Item adicionado com sucesso.";
mes "Para atualizar o shop, use a função 'Atualizar Items' .";
close;
case 2:
mes "[ Gerente ]";
mes "Insira o ID do item.";
input @id;
next;
set @id1,0; set @id2,0;
query_sql ("SELECT `id`,`nameid` FROM `cash_shop` WHERE `nameid`="+@id,@id1,@id2);
mes "[ Gerente ]";
if(!@id2) { mes "Este item não existe no shop."; close; }
mes "Item à retirar do Shop: ^EEAD2D"+getitemname(@id);
mes "ID do Item: ^EEAD2D"+@id;
next;
if(select("Prosseguir","Cancelar")==2) { close; }
query_sql ("DELETE FROM `cash_shop` WHERE `nameid`="+@id);
query_sql ("UPDATE `cash_shop` SET `id`='id'-1 WHERE `id`>"+@id1);
npcshopdelitem "cash_shop",@id;
next;
mes "[ Gerente ]";
mes "Item retirado com sucesso.";
close;
case 3:
mes "[ Gerente ]";
mes "Deseja atualizar o Shop?";
if(select("Não","Sim")==1) { close; };
set .@a,1;
callfunc "UpdateShop",0;
mes "[ Gerente ]";
mes "Shop atualizado com sucesso.";
close;
}
case 4:
mes "[ Gerente ]";
mes "Nessa área tenho total poder de Banir qualquer Conta do servidor.";
mes "Basta você me indicar quem quer banir que eu executo a ação.";
mes "Porfavor escolha uma das opções.";
next;
switch(select("Banir Conta","Desbanir Conta","Ver Contas Banidas","Retornar ao menu principal")) {
case 1:
mes "[ Gerente ]";
mes "Ok, agora preciso coletar os dados da conta do usuário que irei Banir.";
mes "Digite o Login da Conta.";
next;
input @ban$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+@ban$+"'",.@NExiste);
if(!.@NExiste){ mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
mes "[ Gerente ]";
mes "Tem certeza que quer banir a conta: ^FF0000"+@ban$+"^000000?";
next;
if(select("Sim","Não")==1) {
mes "Comando efetuado com SUCESSO!";
mes "Conta Banida.";
close2;
query_sql ("SELECT `char_id` FROM `char` WHERE `account_id`='"+.@NExiste+"'",.@Kick);
for(set @i, 0; @i < getarraysize(.@Kick); set @i, @i+1) {
atcommand "@kick "+.@Kick[@i];
}
query_sql ("UPDATE `login` SET `state`='5' WHERE `userid`='"+@ban$+"'");
end;
}
mes "[ Gerente ]";
mes "Encerrando conexão...";
mes "Limpando dados...";
mes "Conexão encerrada!";
close;
case 2:
next;
mes "[ Gerente ]";
mes "Ok, agora preciso coletar os dados da conta do usuário que irei Desbanir.";
mes "Digite o Login da Conta.";
next;
input @ban$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+@ban$+"'",.@NExiste);
if(!.@NExiste){ mes "^FF0000***ERROR***^000000"; mes " "; mes "Você não digitou uma conta válida."; mes " "; mes "^FF0000Fechando conexão^000000"; close; }
mes "[ Gerente ]";
mes "Comando efetuado com SUCESSO!";
mes "Conta Desbanida.";
close2;
query_sql ("UPDATE `login` SET `state`='0' WHERE `userid`='"+@ban$+"'");
end;
case 3:
query_sql("SELECT `userid` FROM `login` WHERE `state`>=5",@ban$);
for(set @i, 0; @i < getarraysize(@ban$); set @i, @i+1) { mes "-----------------------------------"; mes "| --> ^FF0000"+@nBan$[@i]+"^000000 "; } close;
case 4: goto OnStartG;
}
case 5:
mes "[ Gerente ]";
mes "Escolha a posição de Staff que deseja adicionar.";
next;
switch(select("Administrador ^CD0000(99)^000000","Game Master ^CD0000(60)^000000","Game Helper ^CD0000(40)^000000","Retirar Staff","Retornar ao menu principal")) {
case 1: set .@NvGM,99; goto AddGM;
case 2: set .@NvGM,10; goto AddGM;
case 3: set .@NvGM,4; goto AddGM;
case 4: set .@NvGM,0; goto AddGM;
AddGM:
mes "[ Gerente ]";
mes "Digite o Login da conta.";
next;
input .@ContaGM$;
query_sql ("SELECT `account_id` FROM `login` WHERE `userid`='"+.@ContaGM$+"'",.@nGM);
if(.@nGM==0) { next; mes "A conta não existe."; close; }
next;
mes "[ Gerente ]";
if(.@NvGM==0) mes "Estou retirando a posição de staff na conta: '"+.@ContaGM$+"'.";
else mes "Estou adicionando a posição de staff na conta: '"+.@ContaGM$+"'.";
query_sql ("UPDATE `login` SET `group_id`='"+.@NvGM+"' WHERE `userid`='"+.@ContaGM$+"'");
O npc esta dando cash aos players mais na hora de eles comprarem na loja de cash mostra Cash 0
Edited by admstyowShare this post
Link to post
Share on other sites