Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 3 de 3
  1. #1

    Avatar de Maykon
    Data de Ingresso
    Apr 2014
    Localização
    Imperyus Games
    Idade
    30
    Posts
    124
    Agradecido
    302
    Agradeceu
    80
    Peso da Avaliação
    11

    Padrão Microsoft Visual C++ Runtime Library

    Olá estou querendo adaptar esse comando de múltiplos baús na minha source
    mais quando uso o comando estou recebendo o erro "Microsoft Visual C++ Runtime Library"
    alguém poderia me ajudar não sei o que está errado

    Comando:

    Código:
    void CHAT_COMMANDS::TrocaBau(short aIndex,char * Cod)
    {
      OBJECTSTRUCT * gObj = (OBJECTSTRUCT*)OBJECT_POINTER(aIndex);
    
      int BauCod = atoi(Cod);
    
      int Total = MYSQL->GetFieldInt("MuOnline.dbo.warehouse","Total","WHERE memb___id='%s'",gObj->AccountID);
    
      if (BauCod < 0 ){
      GCServerMsgStringSend("Erro de Sintaxe : /bau <numero>",aIndex,1);
      return ;    
      }
      else if(Total < BauCod){
      sprintf(msN,"Você ultrapassou o limite de %d báus.",Total);
      GCServerMsgStringSend(msN,aIndex,1);
      return;
      } 
      else 
      {
      if(gObj_GetInt(gObj->aIndex,gObjWarehouseSave) == 0)
      {
      char SQLBuffer[2048];
    
      sprintf_s(SQLBuffer,"EXEC MuOnline.dbo.MUDAR_BAU %d,%s",BauCod,gObj->AccountID);
      MYSQL->Exec(SQLBuffer);
      sprintf(msN,"Baú trocado com sucesso.",BauCod);
      GCServerMsgStringSend(msN,aIndex,1);
      sprintf(msN,"Você está usando o baú nº %d",BauCod);
      GCServerMsgStringSend(msN,aIndex,1);
      } 
      else 
      {
      GCServerMsgStringSend("Feche o baú para usar esse comando.",aIndex,1);
      return;
    }
    }
    }
    Procedure:

    Código:
    CREATE PROCEDURE [dbo].[MUDAR_BAU] (@bauCod INT,@login varchar(10)) AS
    BEGIN
        DECLARE @BAUUSO1 int
        set @BAUUSO1 = (SELECT BauUso  FROM warehouse WHERE AccountID = @login)
        IF ( EXISTS ( SELECT * FROM VaultsExtra WHERE [IdAcc] = @bauCod ) ) and (@BAUUSO1 != @bauCod)
        BEGIN
            DECLARE  @itemback varbinary(1200)
            DECLARE  @money int
            set @money = (SELECT [Money] FROM warehouse WHERE AccountID = @login)
            set @itemback = (SELECT Items FROM warehouse WHERE AccountID = @login)
            IF (@bauCod > 0) AND (@BAUUSO1 = 0)
            BEGIN
                UPDATE VaultsExtra SET Items = @itemback,[Money]=@money WHERE login = @login AND IdAcc = 0
            END        
            UPDATE warehouse SET Items = (SELECT Items FROM VaultsExtra WHERE Login = @login AND  IDAcc = @bauCod),[Money] = (SELECT [Money] FROM VaultsExtra WHERE Login = @login AND  IDAcc = @bauCod),BauUso = @bauCod  WHERE AccountID = @login
            UPDATE VaultsExtra SET Items = @itemback,[Money]=@money WHERE login = @login AND IDAcc = @BAUUSO1
        END
    END
    GO
    Tabelas:

    Código:
    ALTER TABLE dbo.warehouse ADD
        Total int NOT NULL DEFAULT (3)
    GO 
    
    ALTER TABLE dbo.warehouse ADD
        [BauUso] [int] NOT NULL CONSTRAINT [DF_warehouse_BauUso] DEFAULT (0)
    GO
    
    CREATE TABLE [VaultsExtra] (
        [login] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
        [bauCod] [int] IDENTITY (1, 1) NOT NULL ,
        [items] [varbinary] (1200) NULL ,
        [money] [int] NULL ,
        [pw] [smallint] NULL ,
        [IdAcc] [int] NOT NULL 
    ) ON [PRIMARY]
    GO

  2. #2

    Avatar de badalos
    Data de Ingresso
    Oct 2013
    Localização
    guariaioa
    Idade
    34
    Posts
    5
    Agradecido
    8
    Agradeceu
    5
    Peso da Avaliação
    0

    Padrão

    está faltando um procedure, verifique-o código novamente!

  3. #3

    Avatar de Maykon
    Data de Ingresso
    Apr 2014
    Localização
    Imperyus Games
    Idade
    30
    Posts
    124
    Agradecido
    302
    Agradeceu
    80
    Peso da Avaliação
    11

    Padrão

    Arrumei mais agora está falando que trocou o baú etc...
    mais continua no mesmo baú

    Comando:

    Código:
    void CHAT_COMMANDS::TrocaBau(short aIndex,char * Cod)
    {
      OBJECTSTRUCT * gObj = (OBJECTSTRUCT*)OBJECT_POINTER(aIndex);
    
      int BauCod = atoi(Cod);
    
      int Total = MYSQL->GetFieldInt("MuOnline.dbo.MEMB_INFO","Total","WHERE memb___id='%s'",gObj->AccountID);
    
      if (BauCod < 0 ){
      GCServerMsgStringSend("Erro de Sintaxe : /bau <numero>",aIndex,1);
      return ;    
      }
      else if(Total < BauCod){
      sprintf(msN,"Você ultrapassou o limite de %d báus.",Total);
      GCServerMsgStringSend(msN,aIndex,1);
      return;
      } 
      else 
      {
      if(gObj_GetInt(gObj->aIndex,gObjWarehouseSave) == 0)
      {
      char SQLBuffer[2048];
    
      sprintf_s(SQLBuffer,"EXEC MuOnline.dbo.MUDAR_BAU %d,%s",BauCod,gObj->AccountID);
      MYSQL->Exec(SQLBuffer);
      sprintf(msN,"Baú trocado com sucesso.",BauCod);
      GCServerMsgStringSend(msN,aIndex,1);
      sprintf(msN,"Você está usando o baú nº %d",BauCod);
      GCServerMsgStringSend(msN,aIndex,1);
      } 
      else 
      {
      GCServerMsgStringSend("Feche o baú para usar esse comando.",aIndex,1);
      return;
    }
    }
    }
    Procedures:

    Código:
    CREATE PROCEDURE [dbo].[CRIAR_BAU] (@login varchar(10)) AS
    BEGIN
        DECLARE @IDProce int
        set @IDProce = (select count(items) FROM VaultsExtra Where login = @login)
        IF (EXISTS ( SELECT * FROM VaultsExtra WHERE [bauCod] = 0 ))
        BEGIN
        set @IDProce = 0
        END
        ELSE
        EXEC CRIAR_BAU @login    
        set @IDProce = 1
        END
        INSERT INTO VaultsExtra (login,items,[money],pw,IdAcc) VALUES (@login,0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF,0,1,@IDProce)
        UPDATE MEMB_INFO set Total=Total+1 Where memb___id = @login
    GO
    Código:
    CREATE PROCEDURE [dbo].[MUDAR_BAU] (@bauCod INT,@login varchar(10)) AS
    BEGIN
        DECLARE @BAUUSO1 int
        set @BAUUSO1 = (SELECT BauUso  FROM warehouse WHERE AccountID = @login)
        IF ( EXISTS ( SELECT * FROM VaultsExtra WHERE [IdAcc] = @bauCod ) ) and (@BAUUSO1 != @bauCod)
        BEGIN
            DECLARE  @itemback varbinary(1200)
            DECLARE  @money int
            set @money = (SELECT [Money] FROM warehouse WHERE AccountID = @login)
            set @itemback = (SELECT Items FROM warehouse WHERE AccountID = @login)
            IF (@bauCod > 0) AND (@BAUUSO1 = 0)
            BEGIN
                UPDATE VaultsExtra SET Items = @itemback,[Money]=@money WHERE login = @login AND IdAcc = 0
            END        
            UPDATE warehouse SET Items = (SELECT Items FROM VaultsExtra WHERE Login = @login AND  IDAcc = @bauCod),[Money] = (SELECT [Money] FROM VaultsExtra WHERE Login = @login AND  IDAcc = @bauCod),BauUso = @bauCod  WHERE AccountID = @login
            UPDATE VaultsExtra SET Items = @itemback,[Money]=@money WHERE login = @login AND IDAcc = @BAUUSO1
        END
    END
    GO
    Tabelas:

    Código:
    ALTER TABLE dbo.MEMB_INFO ADD
        Total int NOT NULL DEFAULT (3)
    GO 
    
    ALTER TABLE dbo.warehouse ADD
        [BauUso] [int] NOT NULL CONSTRAINT [DF_warehouse_BauUso] DEFAULT (0)
    GO
    
    CREATE TABLE [VaultsExtra] (
        [login] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
        [bauCod] [int] IDENTITY (1, 1) NOT NULL ,
        [items] [varbinary] (1200) NULL ,
        [money] [int] NULL ,
        [pw] [smallint] NULL ,
        [IdAcc] [int] NOT NULL 
    ) ON [PRIMARY]
    GO
    Screen:


 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Sugestão| Moto G: a 3ª Ou Microsoft 640 XL
    Por BarriozinhoTM no fórum Flood Livre
    Respostas: 9
    Último Post: 24-10-2015, 09:37 PM
  2. |Dúvida| Erro Visual Basic C++ Runtime Library
    Por dyooy2011 no fórum Dúvidas
    Respostas: 2
    Último Post: 28-07-2014, 03:47 AM
  3. |Suporte| Bug visual (Itens)
    Por ebtir no fórum Dúvidas
    Respostas: 18
    Último Post: 07-05-2014, 07:00 AM
  4. Respostas: 7
    Último Post: 06-11-2010, 07:13 PM
  5. |Resolvido| Error de Runtime no ExDB , problema.
    Por Victor_ScB no fórum Tópicos resolvidos
    Respostas: 0
    Último Post: 09-07-2010, 09:30 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •