Jump to content

admstyow

Members
  • Posts

    10
  • Joined

  • Last visited

Posts posted by admstyow

  1. ood morning, folks
    When you add play money This Giving someone this error
    CAN help - me ?

     

    k4v8rc.jpg

     

    Follows the NPC below

     //  ________________________________________________________

     
    // / ____                                \
    // | |  __|    |
    // | | |_ _  _  __ _ _ __  _  __    |
    // | |  _| || |/ _` | '_ \| |/ _ \    |
    // | | |__ \/ | (_| | | | | | (_) |    |
    // | |____|__/ \__,_|_| |_|_|\___/    |
    // |                                                        |
    // |                                      |
    // |--------------------------------------------------------|
    // | 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,0;     // 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

  2. This NPC was to teleport only players in the main castle of Prontera , more if the players have no guild he teleports also someone knows how to do it tranporta only mebros the guild main castle of Prontera?

    
    prontera,150,150,5 script Guild Point 729,{
    
    //------- NAME NPC -------------------------
    set @name$,"[^ff0000 Guild Point ^000000]";
    //------------------------------------------
    //------- SET WARP CASTLES -----------------
    set .@GID, getcastledata("prtg_cas01",1);
    set .@GID2, getcastledata("prtg_cas04",1);
    //------------------------------------------
    
    mes @name$;
    mes "Olá "+strcharinfo(0)+", tudo certo?";
    mes "Para onde você quer ser levado?";
    next;
    switch(select("- Guild Point:- Guild Point Baby:- Cancelar")) {
    
            case 1:
            mes @name$;
            mes "Deixe-me checar se você pertence a guild dona do castelo";
            mes "Krienhild antes de te levar para lá...";
            next;
            if (getcharid(2) == getcastledata("prtg_cas01",1)) {
            mes @name$;
            mes "Tudo certinho "+strcharinfo(0)+", irei te";
            mes "teleportar agora...";
            sleep2 1000;
            warp "quiz_02",249,375;
            dispbottom "[Guild Point]: Bem Vindo(a) ao Point da Guild " + getguildname(.@GID) + ".";
            close2;
    }
    
            else {
                    mes @name$;
                    mes "Lamento, somente os membros do clã";
                    mes "^ff0000" + getguildname(.@GID) + "^000000.";
                    mes "Tem direito de acessar a sala do clã. ";
                    next;
                    mes @name$;
                    mes "Se você deseja ter acesso a sala,";
                    mes "conquiste ^ff0000Krienhild^000000 e faça seu nome ser lembrado!";
                    close;
            }
    
            case 2:
            if(Upper!=2) goto NOBABY;
            mes @name$;
            mes "Deixe-me checar se você pertence a guild dona do castelo";
            mes "Skoegul antes de te levar para lá...";
            next;
            if (getcharid(2) == getcastledata("prtg_cas04",1)) {
            mes @name$;
            mes "Tudo certinho "+strcharinfo(0)+", irei te";
            mes "teleportar agora...";
            sleep2 1000;
            warp "quiz_02",147,381;
            dispbottom "[Guild Point]: Bem Vindo(a) ao Point da Guild Baby "+getguildname(.@GID2)+".";
            close2;
    }
            else {
                    mes @name$;
                    mes "Lamento, somente os membros do clã";
                    mes "^ff0000" + getguildname(.@GID2) + "^000000.";
                    mes "Tem direito de acessar a sala do clã. ";
                    next;
                    mes @name$;
                    mes "Se você deseja ter acesso a sala,";
                    mes "conquiste ^ff0000Skoegul^000000 e faça seu nome ser lembrado!";
                    close;
    }
            NOBABY:
            mes @name$;
            mes "Desculpe mas eu estou encarregada de ajudar somente jogadores baby !";
            close;
           
            case 3:
            close;
            }
    }
    
×
×
  • Create New...