Muito bom mesmo o sistema cara. Acho que tenho créditos, um dia dou pra você :p

Kriteuus tem que parar de dizer que tudo é copia de outras coisas .-.

Bom dia a todos, bom venho aqui me desculpar hoje porque depois de um bom tempo me dei conta que o sistema estava com um problema no carregamento causando Latência para inicialização do Servidor. E trouxe a correção :/ por inexperiência com novos editores acabei fazendo besteira...

Bom o problema está no ModCraft do Servidor...
Procure por Sub LoadCraft() e substitua ela toda por:

Código:

Sub LoadCraft()
    Dim filename As String
    Dim i As Long
    Dim F As Long
    Call CheckCrafts

    For i = 1 To MAX_CRAFTS
        filename = App.Path & "\data\craft\craft" & i & ".dat"
        F = FreeFile
        Open filename For Binary As #F
        Get #F, , Craft(i)
        Close #F
    Next

End Sub

Ainda no modulo procure por Sub CheckCraft(ByVal CraftNum As Long) e troque ela toda por:

Código:

Sub CheckCrafts()
    Dim i As Long

    For i = 1 To MAX_CRAFTS

        If Not FileExist("\Data\craft\craft" & i & ".dat") Then
            Call SaveCraft(i)
        End If

    Next

End Sub

É só isso desculpe o problema que eu posso ter provocado no projeto de vocês '

ao invés de Private Type TempPlayerRec:
não seria a Public Type TempPlayerRec: ?

Existe um erro no tópico nessa parte

" Feito Isso vá ao ModEnumerations e procure por Public Enum ClientPackets e antes de ' Make sure CMSG_COUNT is below everything else adicione:  "


Ao invés de : 

Código:

  HandleDataSub(CRequestEditCraft) = GetAddress(AddressOf HandleRequestEditCraft) 'Craft System[size=12][/size]
    HandleDataSub(CSaveCraft) = GetAddress(AddressOf HandleSaveCraft)[size=12][/size]
    HandleDataSub(CRequestCraft) = GetAddress(AddressOf HandleRequestCraft)[size=12][/size]
    HandleDataSub(CCraftLogUpdate) = GetAddress(AddressOf HandleCraftUpdate)[size=12][/size]
    HandleDataSub(CPlayerHandleCraft) = GetAddress(AddressOf HandleCraftOk)[size=12][/size]
    HandleDataSub(CCraftItemAdd) = GetAddress(AddressOf HandleCraftItemAd

Adicione: 

Código:

CRequestEditCraft 'Craft System
    CSaveCraft
    CRequestCraft
    CCraftLogUpdate
    CPlayerHandleCraft
    CCraftItemAdd


+1 Erro:

na ModCraftServer Procure : Sub ClearCraftS()


Encontre:

Código:

For i = 1 To MAX_Craft

Substitua por:

Código:

For i = 1 To MAX_CRAFTS

bsxjiggawhat escreveu:ao invés de Private Type TempPlayerRec:
não seria a Public Type TempPlayerRec: ?

Existe um erro no tópico nessa parte

" Feito Isso vá ao ModEnumerations e procure por Public Enum ClientPackets e antes de ' Make sure CMSG_COUNT is below everything else adicione:  "


Ao invés de : 

Código:

  HandleDataSub(CRequestEditCraft) = GetAddress(AddressOf HandleRequestEditCraft) 'Craft System[size=12][/size]
    HandleDataSub(CSaveCraft) = GetAddress(AddressOf HandleSaveCraft)[size=12][/size]
    HandleDataSub(CRequestCraft) = GetAddress(AddressOf HandleRequestCraft)[size=12][/size]
    HandleDataSub(CCraftLogUpdate) = GetAddress(AddressOf HandleCraftUpdate)[size=12][/size]
    HandleDataSub(CPlayerHandleCraft) = GetAddress(AddressOf HandleCraftOk)[size=12][/size]
    HandleDataSub(CCraftItemAdd) = GetAddress(AddressOf HandleCraftItemAd

Adicione: 

Código:

CRequestEditCraft 'Craft System
    CSaveCraft
    CRequestCraft
    CCraftLogUpdate
    CPlayerHandleCraft
    CCraftItemAdd


+1 Erro:

na ModCraftServer Procure : Sub ClearCraftS()


Encontre:

Código:

For i = 1 To MAX_Craft

Substitua por:

Código:

For i = 1 To MAX_CRAFTS

bsxjiggawhat

Tais falhas muitas vezes são notadas apenas por aqueles que realmente fazem o teste do sistema. 

É certa tais falhas; Coisa que só leva a crer que muitos não testaram de fato do jeito que está. 

Parabéns pela localização do tal; Agora esperaríamos o OP fazer as edições como no conforme. 

Att

Alguem sabe porque quando clico em qualquer botao do sistema o jogo fecha, obs fiz tudinho do jeito q ta o tutorial com as correções que o alifer e postou logo depois, todas mesmo.

KielledsLoved,

Para isso se tem o Debug , Faça o Run de sempre usando tanto cliente quanto servidor em run mode do VB.

Faça o teste, quebrando, traga a SS para que possamos degustar ;3

Att

Profane ~ escreveu:KielledsLoved,

Para isso se tem o Debug , Faça o Run de sempre usando tanto cliente quanto servidor em run mode do VB.

Faça o teste, quebrando, traga a SS para que possamos degustar ;3

Att

o pior é que nao debuga nada meio que da um call distroygame "sei la escrever" mais já vi que o sistema ta incompatível com uns sistemas que tenho aqui, quando tiver menos preguiça tento arrumar.

Meu ovo que eu choro se não me der créd... _)_, pode tirar kk

Boa noite!! 
Se for possível alguém me ajudar com esse erro, quando coloco os itens no craft dar um erro.
Link da imagem: https://imgur.com/HuWJQFb
Peço desculpas por ressuscitar o tópico.
Desde já agradeço!

Edit: Alguém help??