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
    24
    Posts
    124
    Agradecido
    286
    Agradeceu
    78
    Peso da Avaliação
    5

    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
    27
    Posts
    8
    Agradecido
    9
    Agradeceu
    6
    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
    24
    Posts
    124
    Agradecido
    286
    Agradeceu
    78
    Peso da Avaliação
    5

    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
  •