Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[EO 2.0] Sistema de Craft
+8
Yukii
Dooolly
llAliferll
kriteuss
Akio
joaopaulo98
Profane ~
silipinho
12 participantes
Página 2 de 2
Página 2 de 2 • 1, 2
Re: [EO 2.0] Sistema de Craft
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 .-.
Kriteuus tem que parar de dizer que tudo é copia de outras coisas .-.
_________________
Wiiiii
Yukii- Iniciante
- Mensagens : 64
Créditos : 4
Re: [EO 2.0] Sistema de Craft
Obrigado llAliferll pelas correções e esclarecer o motivo de apenas funcionar para ADMIN, a respeito do pessoal que diz não ser seu nem quero comentar e outra se o sistema não fosse tbm já é uma baita ajuda trazer para um lugar ou traduzi-lo pois movimenta a comunidade e tals... mas realmente acredito ser seu nunca vi ele nem em fóruns gringos! E sobre traze-lo para a aldeia eu trouxe pois achei interessante digamos q com umas modificações pode combinar com muitos games...
Obrigado novamente!
Obrigado novamente!
silipinho- Semi-Experiente
- Mensagens : 97
Créditos : 14
Re: [EO 2.0] Sistema de Craft
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:
Ainda no modulo procure por Sub CheckCraft(ByVal CraftNum As Long) e troque ela toda por:
É só isso desculpe o problema que eu posso ter provocado no projeto de vocês '
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 '
llAliferll- Novato
- Mensagens : 18
Créditos : 7
Re: [EO 2.0] Sistema de Craft
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 :
Adicione:
+1 Erro:
na ModCraftServer Procure : Sub ClearCraftS()
Encontre:
Substitua por:
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- Novato
- Mensagens : 3
Créditos : 0
Re: [EO 2.0] Sistema de Craft
bsxjiggawhatbsxjiggawhat 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
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
_________________
"Mistress of shattered hopes and forever broken dreams"
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
Re: [EO 2.0] Sistema de Craft
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.
Kies- Diva
- Mensagens : 1154
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Re: [EO 2.0] Sistema de Craft
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
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
_________________
"Mistress of shattered hopes and forever broken dreams"
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
Re: [EO 2.0] Sistema de Craft
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.
Kies- Diva
- Mensagens : 1154
Créditos : 124
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Re: [EO 2.0] Sistema de Craft
Meu ovo que eu choro se não me der créd... _)_, pode tirar kk
Junior-- Novato
- Mensagens : 16
Créditos : 1
Re: [EO 2.0] Sistema de Craft
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??
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??
nescau97- Novato
- Mensagens : 15
Créditos : 0
Página 2 de 2 • 1, 2
Tópicos semelhantes
» [RESOLVIDO][AJUDA] Sistema de Craft
» [VXA-OS] [DUVIDA] Sistema de craft e resources
» Craft,Blacksmith,Alquemia
» World of War Craft: The Burning Crusader
» AvilaMn Simple Craft System
» [VXA-OS] [DUVIDA] Sistema de craft e resources
» Craft,Blacksmith,Alquemia
» World of War Craft: The Burning Crusader
» AvilaMn Simple Craft System
Página 2 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
|
|