admstyow

Good day!!

How do I block a skill (ID: 264 ) in WoE maps?

Thanks in advance,

Adm Styow!

 //  ________________________________________________________

// /  ____                                

// | |  __|     |

// | | |_ _  _  __ _ _ __  _  __      |

// | |  _| || |/ _` | '_ | |/ _     |

// | | |__ / | (_| | | | | | (_) |     |

// | |____|__/ __,_|_| |_|_|___/      |

// |                                                        |

// |                                  |

// |--------------------------------------------------------|

// | Nome do Script: HC-Vip System          |

// |--------------------------------------------------------|

// | Criado por: Evanio (SynGates)                          |

// |--------------------------------------------------------|

// | Versão 1.4                             |

// |--------------------------------------------------------|

// | Descrição: *Sistema Vip por horas corridas.     |

// |          *Gerente Vip com várias funções úteis.      |

// |    • Usuário Vip/Comum:     |

// |        - Acesso a Sala Vip     |

// |     - Loja ROPs     |

// |     - Senha no Armazém     |

// |        - Informações     |

// |    • Administrador:     |

// |     - Gerenciar Contas Vip     |

// |      - Gerenciar CASH        |

// |     - Gerenciar Loja ROPs     |

// |     - Gerenciar Banimentos     |

// |      - Gerenciar Staff        |

// |--------------------------------------------------------|

// | Obs: Aconselhável não usar o comando @reloadscript     |

// |   quando o sistema já estiver ativo. Use-o somente     |

// |   quando tiver certeza que não tenha nenhum jogador    |

// |   VIP Online.     |

// |--------------------------------------------------------|

// | Changelog:                                      |

// | 1.0 Script Criado (22/02/2014) [Evanio]                |

// | 1.1 Add Sistema de Loja ROPs (23/02/2014) [Evanio]     |

// | 1.2 Add Sistema de Vip Grátis (24/02/2014) [Evanio]    |

// | 1.3 Add Bonus de XP e DROP (24/02/2014) [Evanio]       |

// | 1.4 Add Sistema senha no armazém (24/02/2014) [Evanio] |

// | 1.5 Add Cupons Vip (25/02/2014) [Evanio]     |

// ________________________________________________________/

// ---------------------------------------------------------|

/* -------------------- Tabelas SQL ------------------------|

 

DROP TABLE IF EXISTS `cash_shop`;

CREATE TABLE `cash_shop` (

  `id` int(11) unsigned not null auto_increment,

  `nameid` int(11) unsigned NOT NULL DEFAULT '0',

  `price` int(11) unsigned NOT NULL DEFAULT '0',

  `type` int(11) unsigned NOT NULL DEFAULT '0',

  PRIMARY KEY  (`id`)

) ENGINE=MyISAM;

 

ALTER TABLE `login` ADD `Vip` INT NOT NULL ;

 

*/

//-----------------------------------------------------------|

//-----------------------------------------------------------|

 

- script ConfVip -1,{

OnInit:

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 "o que deseja fazer?";

next;

switch(select("Mudar senha","Remover senha","Sair")) {

 

case 1:

mes "[ Gerente ]";

mes "Muito bem, para que eu possa mudar a sua senha do armazém, preciso que você me informe a sua antiga senha.";

next;

mes "[ Gerente ]";

mes "Digite a sua antiga senha.";

input @Senha$;

next;

if(@Senha$==#pass$) {

AgainPass2:

mes "[ Gerente ]";

mes "Tudo certo até o momento. Agora preciso que você digite a nova senha.";

next;

input @New$;

next;

mes "[ Gerente ]";

mes "Você digitou a senha:";

mes " ^FF4500"+@New$+"^000000 ";

mes "Ela está correta?";

next;

if(select("Sim","Não")==2) { goto AgainPass2; }

mes "[ Gerente ]";

mes "Senha alterada com sucesso!";

close2; set #pass$,@New$; end; }

mes "[ Gerente ]";

mes "A senha que você digitou não coincide com a sua senha de armazém atual.";

mes "Tente novamente mais tarde.";

close;

 

case 2:

mes "[ Gerente ]";

mes "Tem certeza que deseja remover a sua senha de armazém?";

next;

if(select("Sim","Não")==2) { mes "[ Gerente ]"; mes "Caso mude de ideia estarei aqui para servi-lo."; close; }

mes "[ Gerente ]";

mes "Prontinho, senha removida com sucesso.";

close2; set #passstore,0; end;

 

case 3:

mes "[ Gerente ]";

mes "Obrigado. Estarei sempre aqui quando precisar dos meus serviços.";

close;

}

}

mes "[ Gerente ]";

mes "Usuários Vip podem optar por adicionar um ^EEAD2DCódigo^000000 no seu armazém caso preferir.";

mes "É um metódo de segurança extra, principalmente para usuários que ecessam por computadores de terceiros.";

next;

mes "[ Gerente ]";

mes "Para obter as vantagens de um usuário Vip, basta entrar em nosso site.";

mes "Lá você terá uma explicação mais detalhada de como se tornar um usuário Vip.";

close;

 

case 4:

mes "[ Gerente ]";

mes "Para obter ROP's, você terá que comprar em nosso site os pacotes disponível de ROP's.";

mes "Lá estará todas as informações de como você irá adiquirir e como será a forma de pagamento.";

next;

mes "[ Gerente ]";

mes "Também irá saber todas as vantagens de como é ser um usuário VIP e a lista de Itens ROP's disponíveis.";

mes "Há claro, você pode ver os itens ROP's disponíveis aqui comigo.";

mes "Basta selecionar a opção ^EEAD2D'Loja de ROP's'^000000 no menu principal.";

close;

 

case 5:

mes "[ Gerente ]";

mes "Sempre que precisar estarei aqui para lhe atender.";

mes "Obrigado e volte sempre!";

close;

 

case 6:

callfunc "Gerente#Syn",0;

}

OnInit:

if($@ChatVip==1) { waitingroom $@ChatMsgsVip$,0; }

}

function script Gerente#Syn {

 

OnStartG:

if(getgroupid()>=$@VipAc) {

mes "[ Gerente ]";

mes "Olá "+strcharinfo(0)+".";

mes "Sou o Gerente de dados do Servidor. Meu trabalho é facilitar a vida do pessoal da Administração.";

mes "Porfavor, escolha a opção que você deseja executar.";

next;

switch(select("Gerenciar Vip's","Gerenciar CASH","Gerenciar Loja","Gerenciar Banimentos","Gerenciar Staff","Sair")) {

 

case 1:

mes "[ Gerente ]";

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+"'";

}else{ query_sql "INSERT INTO `global_reg_value` (`str`, `value`, `type`, `account_id`) VALUES ('#VipOk', '1', '2', '"+.@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 "Essa conta possui "+.@Valor+" CASHs.";

mes "Digite a quantidade de CASH que deseja adicionar nesta conta.";

mes "^FF0000**Dica: Digite '0' para cancelar.^000000";

next;

input .@CASH;

if(.@CASH==0) { mes "Ação cancelada."; mes " "; mes "^FF0000***Fechando conexão***^000000"; close; }

mes "[ Gerente ]";

mes "Eu irei adicionar: ^FF0000"+.@CASH+"^000000 CASH's na conta: ^FF0000"+.@Conta$+"^000000.";

mes "Estes dados estão corretos?";

next;

if(select("Sim","Não")==2) {

mes "[ Gerente ]";

mes "Encerrando conexão...";

mes "Limpando dados...";

mes "Conexão encerrada!";

close;

}

if(getarraysize(.@Valor)) { query_sql "UPDATE `global_reg_value` SET `value` = `value` + '"+.@CASH+"' WHERE `str`='#CASHPOINTS' AND `account_id` = '"+.@ContaEx+"'";

}else{ query_sql "INSERT INTO `global_reg_value` (`str`, `value`, `type`, `account_id`) VALUES ('#CASHPOINTS', '"+.@CASH+"', '2', '"+.@ContaEx+"')"; }

next;

mes "[ Gerente ]";

mes "Comando efetuado com SUCESSO!";

mes "CASHs adicionados.";

close;

case 2:

mes "[ Gerente ]";

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 "Essa conta possui "+.@Valor+" CASHs.";

mes "Digite a quantidade de CASHs que deseja remover dessa conta.";

mes "^FF0000**Dica: Digite '0' para cancelar.^000000";

next;

input .@CASH;

if(.@CASH==0) { mes "Ação cancelada."; mes " "; mes "^FF0000***Fechando conexão***^000000"; close; }

mes "[ Gerente ]";

mes "Eu irei remover: ^FF0000"+.@CASH+"^000000 CASH's da conta: ^FF0000"+.@Conta$+"^000000.";

mes "Estes dados estão corretos?";

next;

if(select("Sim","Não")==2) {

mes "[ Gerente ]";

mes "Encerrando conexão...";

mes "Limpando dados...";

mes "Conexão encerrada!";

close;

}

if(.@Valor < @CASHs) { mes "[ Gerente ]"; mes "Essa conta possui um valor menor do que você solicitou."; mes "Conexão encerrada"; close; }

if(getarraysize(.@Valor)) { query_sql "UPDATE `global_reg_value` SET `value` = `value` - '"+.@CASH+"' WHERE `str`='#CASHPOINTS' AND `account_id` = '"+.@ContaEx+"'";

}else{ query_sql "INSERT INTO `global_reg_value` (`str`, `value`, `type`, `account_id`) VALUES ('#CASHPOINTS', '"+.@CASH+"', '2', '"+.@ContaEx+"')"; }

next;

mes "[ Gerente ]";

mes "Comando efetuado com SUCESSO!";

mes "CASHs removidos.";

close;

 

case 3:  goto OnStartG;

}

case 3:

mes "[ Gerente ]";

mes "Nessa área posso adicionar e retirar itens da Loja de CASH.";

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 Item","Retirar Item","Atualizar Items")) {

 

case 1:

mes "[ Gerente ]";

mes "Insira o ID do item.";

input @id;

mes "Insira o preço do item. (Cash)";

input @Qtd;

next;

mes "[ Gerente ]";

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$+"'");

next;

mes "[ Gerente ]";

if(.@NvGM==0) mes "Pronto, retirado.";

else mes "Pronto, adicionado.";

close;

case 5:  goto OnStartG;

}

case 6:

next;

mes "[ Gerente ]";

mes "Ok, até mais.";

close;

}

}

}

 

- script CtrlVip -1,{

 

OnPCLoginEvent:

if(getgroupid()==$@VipAc) { end; }

if(getgroupid()>=$@NvVip) { if($@ExpBonus==1) { sc_start SC_CASH_PLUSEXP,60000000,$@ExpRate[0]; } if($@ExpBonus==2) { sc_start SC_CASH_RECEIVEITEM,60000000,$@ExpRate[1]; } if($@ExpBonus==3) { sc_start SC_CASH_PLUSEXP,60000000,$@ExpRate[0]; sc_start SC_CASH_RECEIVEITEM,60000000,$@ExpRate[1]; }

if($@VipGratis==1) { if(#VipFree!=1) { query_sql ("UPDATE `login` SET `Vip`='"+$@VipGDias+"'*'1440' , `group_id`='"+$@NvVip+"' WHERE `account_id`="+getcharid(3)+"");

set #VipFree,1;

set #VipOk,1;

mes "[Sistema Vip]";

mes "Você acaba de ganhar "+$@VipGDias+" dias de Vip!";

mes "Para que a alterações sejam válidas você precisará relogar.";

mes "Deseja relogar agora?";

next;

if(select("Sim","Não")==2){ mes "[Sistema Vip]"; mes "Bom jogo!"; close; }

mes "[Sistema Vip]";

mes "Relogando...";

close2;

atcommand "@kick "+getcharid(0);  end; }

}

}

OnLoop:

query_sql ("SELECT `group_id` , `Vip` FROM `login` WHERE `account_id`='"+getcharid(3)+"'",@Out,@Vip);

set @diasOut,@Vip;

if(@CheckLog!=1) { callfunc "CheckDias",0; set @CheckLog,1; }

sleep2 60000;

query_sql ("UPDATE `login` SET `group_id`='0' WHERE `Vip`<='0' AND `group_id`='"+$@NvVip+"' AND `account_id`="+getcharid(3)+"");

if(@diasOut<=0 && #VipOk==1) {

set #VipOk,0;

mes "[Sistema Vip]"; 

mes "Seus dias de VIP acabaram.";

mes "Recarregue para desfrutar das vantagens VIP.";

mes " ";

mes "Relogando conta para atualização do sistema.";

sleep2 5000;

atcommand "@kick "+getcharid(0);  end; }

if(@Out>=1 && @Out<=40) {

set @diasOut,@diasOut-1;

query_sql ("UPDATE `login` SET `Vip`='"+@diasOut+"' WHERE `account_id`="+getcharid(3)+"");

if(@diasOut<=5) { callfunc "CheckDias",0; }

goto OnLoop;

}

goto OnLoop; end;

 

OnPCLogoutEvent:

query_sql ("SELECT `Vip` , `group_id` FROM `login` WHERE `account_id`='"+getcharid(3)+"'",@Out,@Vip);

if(@Out<0) { query_sql ("UPDATE `login` SET `Vip`='0' WHERE `account_id`="+getcharid(3)+""); end; }

if(@Vip<=0) { query_sql ("UPDATE `login` SET `Vip`='0' WHERE `account_id`="+getcharid(3)+""); end; }

end;

 

OnInit:

sleep2 2000;

for(set .@c,0;.@c < getarraysize($itens2);set .@c,.@c+2){ npcshopdelitem "cash_shop",$itens2[.@c]; }

callfunc "UpdateShop",0;

}

function script CheckDias {

 

if(@Out>=1 && @Out<=3) {

if(@Vip<=60 && @Vip>0) {

set @temp,@diasOut;

if(@temp<1) { dispbottom "[Sistema Vip]: Você tem alguns segundos VIP restante."; goto Retorno; end; }

if(@temp==1) { dispbottom "[Sistema Vip]: Você tem 1 minuto VIP restante."; goto Retorno; end; }

dispbottom "[Sistema Vip]: Você tem "+@temp+" minutos VIP restantes."; goto Retorno; end; }

 

if(@Vip<=1440 && @Vip>60) {

set @temp,@diasOut/60;

if(@temp==1) { dispbottom "[Sistema Vip]: Você tem 1 hora VIP restante."; goto Retorno; end; }

dispbottom "[Sistema Vip]: Você tem "+@temp+" horas VIP restantes."; goto Retorno; end; }

 

if(@Vip>1440) {

set @temp,@diasOut/1440;

if(@temp==1) { dispbottom "[Sistema Vip]: Você tem 1 dia VIP restante."; goto Retorno; end; }

dispbottom "[Sistema Vip]: Você tem "+@temp+" dias VIP restantes."; goto Retorno; end; }

}

Retorno:

return;

}

function script AddVip {

 

query_sql "SELECT `Vip` FROM `login` WHERE `account_id`='"+getarg(0)+"'",@Out;

set @dias,@Out+(1440*getarg(1));

query_sql "UPDATE `login` SET `Vip`='"+@dias+"' , `group_id`='"+$@NvVip+"' WHERE `account_id`='"+getarg(0)+"'";

dispbottom "[Sistema Vip]: Foram adicionados "+getarg(1)+" dias Vip com sucesso!";

set #VipOk,1;

if(getgroupid()<$@NvVip) {

dispbottom "[Sistema Vip]: Relogando conta para aplicar as alterações!";

sleep2 5000;

atcommand "@kick "+getcharid(0);

}

}

 

- script VipCmd -1,{

OnInit:

bindatcmd "cmdvip",strnpcinfo(3)+"::OnAtcommand";

if($@StorageVip==1) { bindatcmd "storage",strnpcinfo(3)+"::OnAtcommand2"; }

end;

 

OnAtcommand:

if(getgroupid()==$@VipAc) callfunc "Gerente#Syn",0;

 end;

OnAtcommand2:

if(getgroupid()>=1 && getgroupid()<=3) {

if(#passstore==1) {

dispbottom "Digite a senha do armazém.";

input @pass$;

if(@pass$==#pass$) { dispbottom "Acesso ao armazém liberado."; openstorage; end; }

dispbottom "Senha inválida."; end; }

}

openstorage; end;

}

function script UpdateShop {

set $@InitShop,1;

npcshopattach "cash_shop";

npcshopdelitem "cash_shop",512;

for(set .@c,0;.@c < getarraysize($@cash_shop);set .@c,.@c+1){ npcshopdelitem "cash_shop",$@cash_shop[.@c]; }

query_sql ("SELECT `nameid` , `price` FROM `cash_shop` WHERE `id`<'129' ORDER BY `nameid` asc",$@cash_shop,$@Valoritem);

for(set .@i,0;.@i!=getarraysize($@cash_shop);set .@i,.@i+1) npcshopadditem "cash_shop",$@cash_shop[.@i],$@Valoritem[.@i];

if(getarraysize($@cash_shop)>=128) {

query_sql ("SELECT `nameid` , `price` FROM `cash_shop` WHERE `id`>'127' ORDER BY `nameid` asc",$@cash_shop2,$@Valoritem2);

for(set .@i,0;.@i!=getarraysize($@cash_shop2);set .@i,.@i+1) npcshopadditem "cash_shop",$@cash_shop2[.@i],$@Valoritem2[.@i];

} return;

}

 

- cashshop cash_shop -1,512:100

O npc esta dando cash aos players mais na hora de eles comprarem na loja de cash mostra Cash 0